第1个回答 2012-11-24
Private Sub Form_Load()
Dim a(2) As Integer
Dim temp As Integer
For i = 0 To 2
a(i) = InputBox("请输入第" & i + 1 & "个整数")
Next
For i = 0 To 1
For j = i + 1 To 2
If a(i) < a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next
Next
MsgBox "你输入的数是" & a(0) & " " & a(1) & " " & a(2)
End Sub