Как лучше заменить код - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д