Page 142 - 4192

Private Sub Command1_Click()
Const n = 3, m = 5
Dim A(1 To n, 1 To m) As Integer
For i = 1 To n
For j = 1 To m
A(i, j)= Val(InputBox("Введіть"+ Str(i)+","+
Str(j)+"елемент матриці A", A(3,5)"))
Next j
Next i
End Sub

б) введення по стовпчикам (рис. 9.3)

Рисунок 9.3 – Рисунок 9.4 –

Введення елементів Розроблений інтерфейс
матриці по та результат виконання
стовпчикам програми

141