Как лучше заменить код - VBA

Узнай цену своей работы

Формулировка задачи:

Public Sub lab6() For i = 0 To 3 For j = 0 To 3 If Not j = i Then m(i, j) = Int(11 * Rnd - 5) Else m(i, j) = 1 End IfRange(Chr(97 + i) + CStr(j + 1)).Value = m(i, j) Next Next Do s = InputBox("Введите число для поиска", , 1) Loop Until IsNumeric(s) n = CInt(s) c = 0 For i = 0 To 3 For j = 0 To 3 If m(i, j) = n Then c = c + 1 End If Next Next If c > 0 Then s = "Число " + CStr(n) + " встречается в массиве " + CStr(c) + " раз(а)" Else s = "Число " + CStr(n) + " не найдено" End If MsgBox (s) End Sub Что это(выделенное красным) вообще такое и как это заменить более проще? А так же не понимаю как сделать, чтобы выше единиц главной диагонали стояли 0

Решение задачи: «Как лучше заменить код»

textual
Листинг программы
Public Sub lab6()
  Dim M(3, 3) As Integer
    For i = 0 To 3
        For j = 0 To 3
            If j < i Then
                M(i, j) = Int(11 * Rnd - 5)
            ElseIf j > i Then
                M(i, j) = 0
            Else
                M(i, j) = 1
            End If
            Cells(i + 1, j + 1).Value = M(i, j)
        Next
    Next
    Do
        s = InputBox("Введите число для поиска", , 1)
    Loop Until IsNumeric(s)
    n = CInt(s)
    c = 0
    For i = 0 To 3
        For j = 0 To 3
            If M(i, j) = n Then c = c + 1
        Next
    Next
    If c > 0 Then
        s = "Число " & n & " встречается в массиве " & c & " раз(а)"
    Else
        s = "Число " & n & " не найдено"
    End If
    MsgBox (s)
 End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы