输入三个数，由大到小排序。
Dim A As Integer，B As Integer，C As Integer
Private Sub Form_Click()
Dim nTemp As Integer
A = Val(InputBox("输入一个正整数"))
B = Val(InputBox("再输入一个正整数"))
C = Val(InputBox("再输入一个正整数"))
If A <= B Then
nTemp = A ：A = B ：B = nTemp
End If
If A <= C Then
nTemp = A ：A = C ：C = nTemp
End If
If B <= C Then
nTemp = B
B = C
C = nTemp
End If
Print A，B，C
End Sub

将十个数字从小到大排序
方法一
Option Base 1
Private Sub Form_Click()
Cls
Dim a(10) As Integer
Dim i As Integer, j As Integer, temp As Integer
For i = 1 To 10
If i Mod 2 = 0 Then a(i) = i Else a(i) =-i
Print a(i);
Next
Print
For i = 1 To 10
For j = 1 To 10 - i
If a(j) > a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
End If
Next j, i
For i = 1 To 10
Print a(i);
Next
End Sub
方法二
Private Sub Command1_Click()
Dim t%, m%, n%, w%
Dim a(10) As Integer
For m = 1 To 10
a(m) = Int(10 + Rnd * 90)
Print a(m); " ";
Next m
Print
For m = 1 To 9
t = m
For n = m + 1 To 10
If a(t) > a(n) Then t = n
Next n
If t <> m Then
w = a(m): a(m) = a(t): a(t) = w
End If
Next m
For m = 1 To 10
Print a(m);
Next m
End Sub

单击命令按钮，在窗体上显示
m(1) = 88
m(2) = 66
m(3) = 44
m(4) = 33
m(5) = 11
Private
Sub Command1_Click()
Dim m(1 to 5) As Integer
Dim i, j, t, k As Integer
m(1) = 88
m(2) = 33
m(3) = 11
m(4) = 66
m(5)= 44
For i = 1 To 4
For j = i + 1 To 5
If m(i) < m(j) Then t = m(i): m(i) = m(j): m(j) = t
Next j, i
For k = 1 To 5
Print "m("; k;")="; m(k) ‘Print "m(" & k & ")=" & m(k)
Next k
End Sub