Private Sub Command1_Click()
Cls
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
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
End Sub
Private Sub swap(a As Integer, b As Integer)
t = a
a = b
b = t
End Sub
冒泡排序 是第一个数与第二个,第二个与第三个,依次类推,直到 第九个与第十个。最小的放在第十个个位置。
第二次是: 第一个与第二个,直到第八个与第九个,九个数中放在第九个位置。
第九次是: 第一个与第二个,两个数中较小的放在第二个位置。