冒泡排序法

Private Sub Command1_Click()
Me.Font.Size = 6
Dim a(10) As Integer
For i = 1 To 10
a(i) = 10 + Int(Rnd() * 100)
Print a(i)
Next i
Print


For i = 2 To 10
If a(1) < a(i) Then
swap a(1), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i


For i = 3 To 10
If a(2) < a(i) Then
swap a(2), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i


For i = 4 To 10
If a(3) < a(i) Then
swap a(3), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i

For i = 5 To 10
If a(4) < a(i) Then
swap a(4), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i

For i = 6 To 10
If a(5) < a(i) Then
swap a(5), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i

For i = 7 To 10
If a(6) < a(i) Then
swap a(6), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i


For i = 8 To 10
If a(7) < a(i) Then
swap a(7), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i

For i = 9 To 10
If a(8) < a(i) Then
swap a(8), a(i)
End If
Next i
Print
For i = 1 To 10
Print a(i)
Next i
End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t

End Sub