Question

vb二维数组无规律如何赋值

vb二维数组无规律如何赋值
有3×4矩阵A，求其中最大值和最小值，以及它们所在的行号和列号。

Answer 1

Sub s()
    arr = [{1,2,3,4;5,6,7,8;9,10,11,12}]
    Max = arr(1, 1)
    Min = arr(1, 1)
    For i = 1 To 3
        For j = 1 To 4
            If Max < arr(i, j) Then Max = arr(i, j)
            If Min > arr(i, j) Then Min = arr(i, j)
        Next
    Next
    MsgBox "max=" & Max & vbCrLf & "min=" & Min
End Sub