数组——冒泡算法

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

目录

代码：

结果：

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