Page 112 - 4788

Приклад. Ввести двовимірний масив знайти
максимальний елемент.
Код стандартного модуля
Option Base 1
Public C(2, 2) As Variant
Public i, j As Integer
Вводимо елементи масиву
Private Sub Command1_Click()
Cls
c1$ = "Введіть число"
For i = 1 To 2
For j = 1 To 2
t$ = "масив С" + Str(i) + " " + Str(j)
C(i, j) = InputBox(c1$, t$)
Next j
Next i
End Sub
Роздруковуємо елементи масиву
Private Sub Command2_Click()
For i = 1 To 2
For j = 1 To 2
t$ = "масив С" + Str(i) + " " + Str(j)
Print "C[" + Str(i) + ", " + Str(j) + "]="; C(i, j)
Next j
Print
Next i
End Sub
Знаходимо максимальний елемент
Private Sub Command3_Click()
Max = C(1, 1)
For i = 1 To 2
For j = 1 To 2
If C(i, j) > Max Then
Max = C(i, j)
End If
Next j
Next i
Print "max=", Max
End Sub

110