用VBA随机二维数组 并找出最大值在第几行第几列

Question

用VBA随机二维数组 并找出最大值在第几行第几列用VBA随机三行三列二维数组，随机两位数范围10~99找出数组中的最大值是多少用msgbox输出，换一行再输出最大值在第几行第几列

Answer 1

Sub mymax()
    Dim arr(1 To 3, 1 To 3)
    Dim x%, y%, i%, mR%, mC%
    i = 10
    For x = 1 To 3
        For y = 1 To 3
           arr(x, y) = Int(89 * Rnd()) + 10
           If arr(x, y) > i Then
            i = arr(x, y)
            mR = x
            mC = y
           End If
        Next y
    Next x
    Range("A1:C3") = arr
    MsgBox "最大数为：" & i & Chr(10) & "存于第" & mR & "行，第" & mC & "列"
End Sub

本回答被提问者采纳