Page 143 - 4192
P. 143
Private Sub Command1_Click()
Const n = 3, m = 5
Dim A(1 To n, 1 To m) As Integer
For j = 1 To m
For i = 1 To n
A(i, j) = Val(InputBox("Введіть" + Str(i) + "," + Str(j) + "
елемент матриці A",
"A(3, 5)"))
Next i
Next j
End Sub
в) виведення по рядкам (рис. 9.5), та у вигляді матриці
(рис.9.6).
Рисунок 9.3 – Рисунок 9.4 –
Виведення елементів Розроблений інтерфейс
матриці по рядках та результат виконання
програми
142
