下面的代码中，如果有2个以上相同的最大数，那么只以最先出现的为准

Private Sub Command1_Click()
Dim mn() As Integer, max As Integer
Dim m As Integer, n As Integer, w As Integer, h As Integer, i As Integer, j As Integer
m = 4: n = 5
ReDim mn(1 To m, 1 To n)
Randomize
For i = 1 To m
  For j = 1 To n
    mn(i, j) = Rnd * 100 '创建100以内的随机数
    Debug.Print mn(i, j); "   ";
  Next
  Debug.Print
Next
For i = 1 To m
  For j = 1 To n
    If mn(i, j) > max Then w = i: h = j: max = mn(i, j)
  Next
Next
Debug.Print "最大数：" & max & " 位于：" & w; "行" & h & "列"
End Sub