Dim a(1 To 5, 1 To 5) As Integer
Private Sub Command1_Click()'显示
Dim x As New Collection
For i = 1 To 100
x.Add i
Next
Randomize
For i = 1 To 5
For j = 1 To 5
temp = Int(Rnd * x.Count + 1)
a(i, j) = x(temp)
x.Remove temp
Print a(i, j) & vbTab;
Next
Print
Next
End Sub
Private Sub Command2_Click()'显示最大元素及所在的行列位置
Dim i As Integer, j As Integer, row As Integer, col As Integer, max As Integer
row = 1
col = 1
max = a(1, 1)
For i = 1 To 5
For j = 1 To 5
If a(i, j) > max Then max = a(i, j): row = i: col = j
Next
Next
MsgBox "最大元素是:" & max & ", 位于第 " & row & " 行,第 " & col & "列"
End Sub