【新手进阶】之八：冒泡排序

roych · 发表于 2012-4-1 16:26:36

一直想坚持把算法讲完的我，还是欠缺了几篇，直至几天前收到ycxchen的站内信息，才恍然想起，汗颜不已。当然这说来也算是事出有因吧，前些日子里感情上出了点问题，心神不宁自然就没心思写下去了。在此再次向大家致歉。
先说说冒泡排序的原理（这里先假定倒序排序），如图所示：

原数据	4>3,冒泡	4>2,冒泡结束	3>1,不冒泡	2<3,冒泡	4>3,冒泡结束	2和1冒泡过程从略
2	2	4	4	4	4	4
3	4	2	2	3	3	3
4	3	3	3	2	2	2
1	1	1	1	1	1	1

   1、先把倒数第一个数冒上去，直到上面没有比它大的数才算结束第一轮冒泡。
   2、然后把新的最后两个数对比，继续冒上去（如图表中的3）。如此多次执行（原则上是有几个数据就得冒泡几次），最后达到冒泡排序的效果。
   原理是讲清楚了，下面开始做一道题目：这里的代码主要是先随机生成10个数据，然后降序排列并在立即窗口里打印出来：

Sub test()
Dim t(1 To 10) As Long, i As Long, j As Long, s As Long
Randomize
For i = 1 To 10
t(i) = Int(Rnd * 99 + 1)
Debug.Print t(i)
Next i
For i = 1 To 10
For j = 10 To 2 Step -1
If t(j) > t(j - 1) Then s = t(j): t(j) = t(j - 1): t(j - 1) = s
Next j
Next i
For i = 1 To 10
Debug.Print t(i)
Next
End Sub

复制代码

答疑部分：
   Q1、嵌套的If部分作用是什么？
   Q2、嵌套的For语句里为什么是To 2？还有，Step -1是神马意思？
   Q3、For i=1 to 10，可以少执行几次吗？

游客，如果您要查看本帖隐藏内容请回复

chenyingfengsx · 发表于 2012-4-1 22:06:55

正是需要的看看！

yori2007 · 发表于 2012-4-1 22:54:43

大懒猫68 · 发表于 2012-4-2 00:36:14

求解

ycxchen · 发表于 2012-4-2 10:19:59

支持版主大作，更盼望版主感情不出问题！

renyucai1963 · 发表于 2012-4-2 10:23:29

学习。

renyucai1963 · 发表于 2012-4-2 10:27:26

终于见到随机数了。谢谢版主。

efcndi · 发表于 2012-4-5 10:47:46

看看学学

pq318 · 发表于 2012-4-6 11:29:22

学习一下

asklove · 发表于 2012-4-6 13:41:44

学习一下

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

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

评分

本帖被以下淘专辑推荐:

群介绍
主题无相 (随机显示版	同地区群块其他地区)