数组——冒泡算法

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

目录

代码：

结果：

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

结果：

文章来源: kangshihang.blog.csdn.net，作者：康世行，版权归原作者所有，如需转载，请联系作者。

原文链接：kangshihang.blog.csdn.net/article/details/97297719