Office中国论坛/Access中国论坛

标题: 【新手进阶】之八：冒泡排序 [打印本页]
作者: roych    时间: 2012-4-1 16:26
标题: 【新手进阶】之八：冒泡排序
       一直想坚持把算法讲完的我，还是欠缺了几篇，直至几天前收到ycxchen的站内信息，才恍然想起，汗颜不已。当然这说来也算是事出有因吧，前些日子里感情上出了点问题，心神不宁自然就没心思写下去了。在此再次向大家致歉。
       先说说冒泡排序的原理（这里先假定倒序排序），如图所示：
原数据4>3,冒泡4>2,冒泡结束3>1,不冒泡2<3,冒泡4>3,冒泡结束2和1冒泡过程从略
2244444
3422333
4333222
1111111
       1、先把倒数第一个数冒上去，直到上面没有比它大的数才算结束第一轮冒泡。
       2、然后把新的最后两个数对比，继续冒上去（如图表中的3）。如此多次执行（原则上是有几个数据就得冒泡几次），最后达到冒泡排序的效果。
       原理是讲清楚了，下面开始做一道题目：这里的代码主要是先随机生成10个数据，然后降序排列并在立即窗口里打印出来：

  2. Sub test()
  3. Dim t(1 To 10) As Long, i As Long, j As Long, s As Long
  4. Randomize
  5. For i = 1 To 10
  6.     t(i) = Int(Rnd * 99 + 1)
  7.     Debug.Print t(i)
  8. Next i
  9. For i = 1 To 10
  10.     For j = 10 To 2 Step -1
  11.         If t(j) > t(j - 1) Then s = t(j): t(j) = t(j - 1): t(j - 1) = s
  12.     Next j
  13. Next i
  14. For i = 1 To 10
  15.     Debug.Print t(i)
  16. Next
  17. End Sub
复制代码
答疑部分：
       Q1、嵌套的If部分作用是什么？
       Q2、嵌套的For语句里为什么是To 2？还有，Step -1是神马意思？
       Q3、For i=1 to 10，可以少执行几次吗？


       这可能在Access里的应用并非那么广，但是作为一种常用的算法，我仍然觉得大家有必要了解下，而不必过于功利。
【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统
作者: chenyingfengsx    时间: 2012-4-1 22:06
正是需要的看看！
作者: yori2007    时间: 2012-4-1 22:54
作者: 大懒猫68    时间: 2012-4-2 00:36
求解
作者: ycxchen    时间: 2012-4-2 10:19
支持版主大作，更盼望版主感情不出问题！
作者: renyucai1963    时间: 2012-4-2 10:23
学习。
作者: renyucai1963    时间: 2012-4-2 10:27
终于见到随机数了。谢谢版主。
作者: efcndi    时间: 2012-4-5 10:47
看看学学
作者: pq318    时间: 2012-4-6 11:29
学习一下
作者: asklove    时间: 2012-4-6 13:41
学习一下
作者: accesswj    时间: 2012-4-6 13:47
okookokookokokokokokokokok
作者: williamwangc    时间: 2012-5-18 07:10
学习一下。
作者: xie62    时间: 2012-5-18 10:24
学习一下
作者: fnsmydyang    时间: 2012-5-18 10:35
学习一下下，谢谢
作者: wang1950317    时间: 2012-5-18 19:06
学习学习！
作者: jinzhanxi    时间: 2012-7-30 09:11
谢谢分享
作者: hyxwd    时间: 2012-8-21 19:08
学习
作者: sxgaobo    时间: 2012-10-2 12:53
正需要，学习！！！
作者: smilingkiss    时间: 2013-2-1 22:28
learning
作者: sukunli    时间: 2013-3-7 22:35
顶顶顶顶顶顶顶顶顶顶顶顶顶顶
作者: 微微森林    时间: 2013-3-28 20:43
看看了。
作者: yanwei82123300    时间: 2013-9-4 15:43
谢谢分享
作者: 愚加熊    时间: 2014-4-11 10:37
谢谢，学习了
作者: msyangyi    时间: 2014-5-26 13:52
冒个泡来学习
作者: sanjian    时间: 2014-11-12 12:40
不看不知道，一看吓一跳，自己还差得远哪
作者: 桑松木    时间: 2015-1-10 19:32
谢版主
作者: tiantianiec    时间: 2015-2-2 16:58
aaaaa
作者: xyangjie    时间: 2015-4-15 17:44
作者: 陇右秦    时间: 2015-9-18 22:59
学习！谢谢楼主！
作者: songgpljh    时间: 2015-10-10 16:12
学习学习
作者: 0520john    时间: 2016-1-5 09:38
学习下
作者: cshiq    时间: 2016-1-17 05:46
冒泡排序
作者: socar_bbman    时间: 2016-2-22 01:38
看看问题1
作者: 神经挺住    时间: 2016-4-15 17:01
学习
作者: 鄱湖人2012    时间: 2016-5-6 20:07
学习
作者: Superleistung    时间: 2016-5-17 10:11
谢谢分享~想看看后面的内容
作者: ajch    时间: 2016-6-3 22:05
xuexuexue
作者: 山之冬    时间: 2016-7-1 12:34
学习
作者: 李力军2    时间: 2016-8-3 18:37
学习
作者: huangmin_best    时间: 2016-8-5 10:33
好东西大家分享
作者: wind7412    时间: 2016-9-7 11:06
学习一下
作者: p51218    时间: 2016-9-14 00:16
2143
作者: lms008008    时间: 2016-11-9 17:51
来学习了
作者: yyalm    时间: 2016-11-15 14:26
学习下
作者: 天涯沦落20131    时间: 2016-11-29 16:11
1111
作者: 寒月TEA    时间: 2017-1-23 12:00
感谢分享
作者: miaoiyangzhi    时间: 2017-3-21 11:35
学习
作者: ej1213    时间: 2018-6-8 16:58
学习



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3