Question

VB编写一个过程,计算二维数组行、列的最大值和最小值 行列位置

数组随机产生‘

Answer 1

Private Sub Form_Load()
Dim arrayTest(1 To 10, 1 To 10) As Integer
Dim rMax As Integer
'------生成随机数------
For i = 1 To 10
For j = 1 To 10
arrayTest(i, j) = CInt(Rnd(Now()) * 100)
Next
Next

For i = 1 To 10
For j = 1 To 10
If arrayTest(i, j) > rMax Then rMax = arrayTest(i, j)
Next
Debug.Print rMax & vbCrLf '---输出行最大
Next
End Sub