冒泡法

Private Sub Command1_Click()

    Me.Font.Size = 20

    

Dim a(10) As Integer

Dim i   As Integer

For i = 1 To 10

a(i) = Int(Rnd() * 100)

Print a(i);

Next i

Print

Dim max As Integer

    

    For i = 1 To 9

    

    For j = 1 To 10 - i

    If a(j) < a(j + 1) Then

          swap a(j + 1), a(j)     / 交换

    End If

Next j

Next i

For i = 1 To 10

    Print a(i);

Next i

Print

End Sub

Private Sub swap(a As Integer, b As Integer)

Dim t As Integer

    

    t = a

    a = b

    b = t

    

    

End Sub