给你一个事例,看懂了你就知道怎么选了
Private Sub Command1_Click()
Dim A(2, 10) As Integer
Dim I As Integer, J As Integer, TM As Integer
'随机产生10个三位数
Randomize
Me.Print " 这10个数是:"
For I = 1 To 10
A(1, I) = Int(900 * Rnd) + 100
A(2, I) = I
Me.Print A(1, I); ";";
Next I
Me.Print
'对10个数进行由大到小排序
For I = 1 To 9
For J = I + 1 To 10
If A(1, I) < A(1, J) Then
TM = A(1, I)
A(1, I) = A(1, J)
A(1, J) = TM
TM = A(2, I)
A(2, I) = A(2, J)
A(2, J) = TM
End If
Next J
Next I
'排序后的数组前3个就是最大的三个数,输出
Me.Print " 最大的三个数:"
For I = 1 To 3
Me.Print A(1, I); "("; A(2, I); ")"; ";"; '括号内数值为数组下标
Next I
Me.Print
Me.Print
End Sub
追问谢谢!