VB编程二维数组

Question

求二维数组中最大元素及其所在行和列，并将最大值存入变量max中，将最大值的行位置存入row中，列位置存入变量column中

Answer 1

Private Sub Command1_Click()
Dim a(1, 2) As Integer, i As Integer
Dim j As Integer, max As Integer
Dim row As Integer, Column As Integer
For i = 0 To 1
For j = 0 To 2
a(i, j) = Int(Rnd * 51)
Print a(i, j),
Next
Print
Next

For i = 0 To 1
For j = 0 To 2
If max < a(i, j) Then
max = a(i, j)
row = i
Column = j
End If
Next
Next
Print
Print max, row + 1, Column + 1

End Sub