由键盘输入3个整数，将它们按从小到大的顺序排序，并在窗体上输出排好序的结果用VB编程写一段程序

Dim a(3) As Integer
Dim i As Integer
Dim s As Integer
For i = 1 To 3
a(i) = Val(InputBox("请输入整数"))
Next i
If a(1) > a(2) Then
s = a(1)
a(1) = a(2)
a(2) = s
End If
If a(1) > a(3) Then
s = a(1)
a(1) = a(3)
a(3) = a(2)
a(2) = s
Else
If a(2) > a(3) Then
s = a(2)
a(2) = a(3)
a(3) = s
End If
End If
For i = 1 To 3
Print a(i)
Next i

http://zhidao.baidu.com/question/25098585.html

如果是C语言我还可以帮你..VB已经忘了....