45 87 96 36
12 32 68 59
35 67 94 41
怎么比较大小啊(全部数据进行比较)~??我知道要用循环语句和二维数组,就是实现不了,请大家帮忙,谢谢!

Private Sub Command1_Click()
Dim a(1 To 3, 1 To 4) As Integer
a(1, 1) = 45
a(1, 2) = 87
a(1, 3) = 96
a(1, 4) = 36
a(2, 1) = 12
a(2, 2) = 32
a(2, 3) = 68
a(2, 4) = 59
a(3, 1) = 35
a(3, 2) = 67
a(3, 3) = 96
a(3, 4) = 99
Dim max As Integer
max = a(1, 1)
For j = 1 To 3
For i = 1 To 4

If a(j, i) > max Then max = a(j, i)

Next i
Next j
Print max
End Sub

Private Sub Command1_Click()
Dim a(1 To 3, 1 To 4) As Integer
a(1, 1) = 45
a(1, 2) = 87
a(1, 3) = 96
a(1, 4) = 36
a(2, 1) = 12
a(2, 2) = 32
a(2, 3) = 68
a(2, 4) = 59
a(3, 1) = 35
a(3, 2) = 67
a(3, 3) = 94
a(3, 4) = 41
Dim max As Integer
max = a(1, 1)
For j = 1 To 3
For i = 1 To 4

If a(j, i) > max Then max = a(j, i)

Next i
Next j
For j = 1 To 3
For i = 1 To 4
If a(j, i) = max Then
Print "最大的数为 " & a(j, i) & " 在 " & j & "行 " & i & "列"
End If
Next i
Next j

End Sub