Question

VB中怎么求一个二维数组的最大值。求简单代码。

Answer 1

Private Sub Command1_Click()
Dim max
Randomize
Dim a(1 To 3, 1 To 3)
max = 0
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 101)
Print a(i, j);
Next j, i
Print
For i = 1 To 3
For j = 1 To 3
If a(i, j) > max Then max = a(i, j)
Next j, i
Print max
End Sub