VB给出一个矩阵，找出最大值，最小值，并求出其下标。

Private Type MyPoint
X As Integer
Y As Integer
End Type
Private Sub Form_Click()
Dim N As Integer, A() As Integer
N = 5 '如果用户输入,请改成 Inputbox
ReDim A(1 To N, 1 To N) As Integer
Dim Max As Integer, Min As Integer
Dim MaxP As MyPoint, MinP As MyPoint
Randomize
Max = 0
Min = 1000
Cls
For i = 1 To N
For J = 1 To N
A(i, J) = Int(Rnd * 900) + 100 '生成一个三位数
If A(i, J) > Max Then
MaxP.X = i
MaxP.Y = J
Max = A(i, J)
End If
If A(i, J) < Min Then
MinP.X = i
MinP.Y = J
Min = A(i, J)
End If
Print Tab(5 * J - 4); A(i, J);
Next
Next

Print Tab(1); "最大值为:" & Max ,"位置在:";maxp.x & "," & maxp.Y
Print "最小值为:" & Min ,"位置在:";minp.x & "," & minp.Y