设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12345下一页
返回列表 发新帖
查看: 15935|回复: 47

[模块/函数] 【新手进阶】之八:冒泡排序

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

  1. Sub test()
  2. Dim t(1 To 10) As Long, i As Long, j As Long, s As Long
  3. Randomize
  4. For i = 1 To 10
  5.     t(i) = Int(Rnd * 99 + 1)
  6.     Debug.Print t(i)
  7. Next i
  8. For i = 1 To 10
  9.     For j = 10 To 2 Step -1
  10.         If t(j) > t(j - 1) Then s = t(j): t(j) = t(j - 1): t(j - 1) = s
  11.     Next j
  12. Next i
  13. For i = 1 To 10
  14.     Debug.Print t(i)
  15. Next
  16. 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风格导航界面
【新手进阶】之十四:仓库管理系统

评分

参与人数 1经验 +10 收起 理由
renyucai1963 + 10 很给力!

查看全部评分

本帖被以下淘专辑推荐:

发表于 2012-4-1 22:06:55 | 显示全部楼层
正是需要的看看!
发表于 2012-4-1 22:54:43 | 显示全部楼层
发表于 2012-4-2 00:36:14 | 显示全部楼层
求解
发表于 2012-4-2 10:19:59 | 显示全部楼层
支持版主大作,更盼望版主感情不出问题!
发表于 2012-4-2 10:23:29 | 显示全部楼层
学习。
发表于 2012-4-2 10:27:26 | 显示全部楼层
终于见到随机数了。谢谢版主。
发表于 2012-4-5 10:47:46 | 显示全部楼层
看看学学
发表于 2012-4-6 11:29:22 | 显示全部楼层
学习一下
发表于 2012-4-6 13:41:44 | 显示全部楼层
学习一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 17:17 , Processed in 0.088893 second(s), 37 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表