Page 91 - 4588

24. Визначити суму номерів другого та третього
від'ємного елементів.
Розв’яжемо задачу:
Дано двомірний масив А розміром mxn елементів( m
стрічок, n стовпчиків). Знайти суму квадратів елементів, що
розміщені на діагоналях (m=n).

1. Завантажте середовище Visual Basic.
2. Відкрийте нову форму і розмістіть на ній такі ж
об’єкти, як на рис. 2.7, переіменуйте відповідні елементи
форми та змініть заголовок форми з ‘UserForm1” на
“Двомірний масив’.
Private Sub CommandButton1_Click()
n = InputBox("Vvestu klkist elementiv N")
m = InputBox("Vvestu klkist elementiv m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvestu A(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(2 + i, 2 + j).Value = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If i = j Then s = s + a(i, j) ^ 2
Next j
Next i
Cells(4 + n, 4 + m).Value = s
End Sub

Private Sub CommandButton2_Click()
For i = 1 To 20
For j = 1 To 20
мал.8.1
Cells(i, j) = " "
Next j

90