随机排序

最新推荐文章于 2020-07-09 23:04:44 发布

原创最新推荐文章于 2020-07-09 23:04:44 发布 · 257 阅读

0 ·

CC 4.0 BY-SA版权

本文详细介绍了使用VBA实现冒泡排序算法，并通过图形界面展示排序过程，包括生成随机数序列，排序过程可视化，以及最终排序结果的显示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Command1_Click()

    Cls
    Font.size = 30
    Dim n As Integer
    Dim size As Integer
    size = Int(Val(Text1.Text))
    Dim sierdun() As Integer
    ReDim sierdun(size) As Integer
    n = LBound(sierdun)

    While n <= LBound(sierdun)
         sierdun(n) = Int(Rnd * 1000)
         n = n + 1
    Wend
    '------------开始排序-----------！
     Dim swap As Integer
     m = LBound(sierdun)
     While m <= UBound(sierdun) - 1
           n = LBound(sierdun)
        While n <= LBound(sierdun) - m
         If sierdun(n) < sierdun(n + 1) Then
           swap = sierdun(n)
           sierdun(n) = sierdun(n + 1)
            sierdun(n + 1) = swap
         End If
         n = n + 1
     Wend
     m = m + 1
     Wend
     '-------------排序结束---------！
     n = LBound(sierdun)
     While n <= UBound(sierdun)
          Print sierdun(n)
          n = n + 1
    Wend


End Sub