Private Sub Command2_Click()
Dim b(1, 2)
a = Array("6", "7", "9", "2", "5", "4")
For n = 0 To 5
i = n \ 3
j = n Mod 3
b(i, j) = a(n)
Next
Max = b(0, 0)
For i = 0 To 1
For j = 0 To 2
If b(i, j) > b(0, 0) Then Max = b(i, j)
Next j
Next i
Print
Print "最大值="; Max
Min = b(0, 0)
For i = 0 To 1
For j = 0 To 2
If b(i, j) < b(0, 0) Then Min = b(i, j)
Next j
Next i
Print
Print "最小值="; Min
End Sub
Private Sub test()
Dim b(1, 2)
a = Array("2", "7", "9", "6", "5", "4")
For n = 0 To 5
i = n \ 3
j = n Mod 3
b(i, j) = a(n)
Next
Max = b(0, 0)
Min = Max
For i = 0 To 1
For j = 0 To 2
If b(i, j) > b(0, 0) Then Max = b(i, j)
If b(i, j) < b(0, 0) Then Min = b(i, j)
Next j
Next i
Print
Print "最大值="; Max
Print "最小值="; Min
End Sub
Private Sub Command3_Click()
call Sub test()
End Sub

你这样是找数组中【最后一个】比第一个数大/小的数
比如这里，最后一个比6大的数是9，后面的数都比6小
最后一个比6小的数是4
如果要找最大值/最小值，就应该跟最大值/最小值比，而不是跟第一个数比

好了谢谢各位！