前言:冒泡排序就是,每个元素之间进行两两的比较。如果要,按大到小进行排序。那就是,首先用第一个和第二个进行比较,符合条件调换位置。否则继续往下比较,每相邻的两个值进行比较。
目录
例子:对 b = Array(1, 8, 7, 5, 9, 2, 4, 3, 0) 这个数组里指定的数字进行从大到小的排序。
代码:
通用
Dim p As String '用于输出随机数
Dim b()
Dim yes, i, j, x, t As Integer '定义do 条件
命令按钮
For i = 0 To UBound(b) - 1 '冒泡排序
For j = 0 To i '每次两两比较,都从第一个对比到n-i个。每轮都会产生一个最小的放到最后不动。
If b(j) < b(j + 1) Then '判断前一个是否小于后一个
t = b(j) '如果小于,就交换值
b(j) = b(j + 1)
b(j + 1) = t
End If
Next j
Next i
Label2.Caption = Join(b) '输出排序结果
窗体加载
b = Array(1, 8, 7, 5, 9, 2, 4, 3, 0)
Label1.Caption = Join(b)
Label2.Caption = ""