用VB编个简单的程序.

Private Sub Command1_Click()
Dim a(3) As Double
For i = 0 To 2
a(i) = InputBox("请输入第" & i & "个数字：")
Next i

For i = 2 To 0 Step -1
For j = 0 To i - 1
If a(j) < a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
Next j
Next i

For i = 0 To 2
Print a(i)
Next i
End Sub

Private Sub Form_Click()
Me.Cls
Dim a(1 To 3)
For i = 1 To 3
a(i) = InputBox("输入第" & i & "个数")
Next
Print "你输入的3个数为："
For i = 1 To 3
Print a(i) & " ";
Next
Print
For i = 3 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j, i
Print "从小到大："
For j = 1 To 3
Print a(j) & " ";
Next
End Sub