12.编写VB程序，实现从键盘上输入任意3个整数，比较之后，按从大到小顺序输出。

Question

如题所述

Answer 1

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