vb 利用函数与过程的调用方法 求一个矩阵中最大的数及其位置。矩阵中的数字都是两位数，行和列由用户输入

Private Sub Command1_Click()
Dim a(1000, 1000) As Integer, i As Integer, j As Integer, x As Integer, y As Integer
Dim n As Integer, m As Integer
n = InputBox("输入行数")
m = InputBox("输入列数")
'产生矩阵
For i = 1 To n
For j = 1 To m
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j);
Next j
Print
Next i
F a, x, y

Print "矩阵中最大的数为" & a(x, y) & "在" & x & "行" & y & "列"
End Sub
Private Sub F(a() As Integer, x As Integer, y As Integer)
Dim i As Integer, j As Integer
x = 1
y = 1
For i = 1 To UBound(a, 1)
For j = 1 To UBound(a, 2)
If a(x, y) < a(i, j) Then
x = i
y = j
End If
Next j
Next i

End Sub