vb编程题。 利用随机函数生成一个4乘4矩阵，范围是40-80内整数、求它的最小值及对应的下标 急

Question

vb编程题。 利用随机函数生成一个4乘4矩阵，范围是40-80内整数、求它的最小值及对应的下标 急用啊！跪求解答！

Answer 1

Sub Number()
Dim a(3, 3) As Integer
Randomize
Min = 80
For i = 0 To 3
For j = 0 To 3
a(i, j) = Int(40 * Rnd) + 40
If (a(i, j) < Min) Then
Min = a(i, j)
Mini = i
Minj = j
End If
Next
Next
'Debug.Print Mini & " " & Minj & " " & Min
End Sub