数组——冒泡算法

前言：冒泡排序就是，每个元素之间进行两两的比较。如果要，按大到小进行排序。那就是，首先用第一个和第二个进行比较，符合条件调换位置。否则继续往下比较，每相邻的两个值进行比较。

目录

代码：

结果：

---

例子：对 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 = ""

结果：