冒泡排序法

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