数组——冒泡算法

举报
ksh1998 发表于 2021/12/29 23:28:21 2021/12/29
【摘要】 前言:冒泡排序就是,每个元素之间进行两两的比较。如果要,按大到小进行排序。那就是,首先用第一个和第二个进行比较,符合条件调换位置。否则继续往下比较,每相邻的两个值进行比较。 目录 代码: 结果: 例子:对 b = Array(1, 8, 7, 5, 9, 2, 4, 3, 0) 这个数组里指定的数字进行从大到小的排序...

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

目录

代码:

结果:


例子:对 b = Array(1, 8, 7, 5, 9, 2, 4, 3, 0) 这个数组里指定的数字进行从大到小的排序。

代码:


  
  1. 通用
  2. Dim p As String '用于输出随机数
  3. Dim b()
  4. Dim yes, i, j, x, t As Integer '定义do 条件
  5. 命令按钮
  6. For i = 0 To UBound(b) - 1 '冒泡排序
  7. For j = 0 To i '每次两两比较,都从第一个对比到n-i个。每轮都会产生一个最小的放到最后不动。
  8. If b(j) < b(j + 1) Then '判断前一个是否小于后一个
  9. t = b(j) '如果小于,就交换值
  10. b(j) = b(j + 1)
  11. b(j + 1) = t
  12. End If
  13. Next j
  14. Next i
  15. Label2.Caption = Join(b) '输出排序结果
  16. 窗体加载
  17. b = Array(1, 8, 7, 5, 9, 2, 4, 3, 0)
  18. Label1.Caption = Join(b)
  19. Label2.Caption = ""

结果:

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

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

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

举报
请填写举报理由
0/200