【新手進(jìn)階】之八：冒泡排序

roych

       一直想堅(jiān)持把算法講完的我，還是欠缺了幾篇，直至幾天前收到y(tǒng)cxchen的站內(nèi)信息，才恍然想起，汗顏不已。當(dāng)然這說(shuō)來(lái)也算是事出有因吧，前些日子里感情上出了點(diǎn)問(wèn)題，心神不寧自然就沒(méi)心思寫下去了。在此再次向大家致歉。
       先說(shuō)說(shuō)冒泡排序的原理（這里先假定倒序排序），如圖所示：

原數(shù)據(jù)	4>3,冒泡	4>2,冒泡結(jié)束	3>1,不冒泡	2<3,冒泡	4>3,冒泡結(jié)束	2和1冒泡過(guò)程從略
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、先把倒數(shù)第一個(gè)數(shù)冒上去，直到上面沒(méi)有比它大的數(shù)才算結(jié)束第一輪冒泡。
       2、然后把新的最后兩個(gè)數(shù)對(duì)比，繼續(xù)冒上去（如圖表中的3）。如此多次執(zhí)行（原則上是有幾個(gè)數(shù)據(jù)就得冒泡幾次），最后達(dá)到冒泡排序的效果。
       原理是講清楚了，下面開(kāi)始做一道題目：這里的代碼主要是先隨機(jī)生成10個(gè)數(shù)據(jù)，然后降序排列并在立即窗口里打印出來(lái)：

1. 
   
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

復(fù)制代碼

答疑部分：
       Q1、嵌套的If部分作用是什么？
       Q2、嵌套的For語(yǔ)句里為什么是To 2？還有，Step -1是神馬意思？
       Q3、For i=1 to 10，可以少執(zhí)行幾次嗎？

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

       這可能在Access里的應(yīng)用并非那么廣，但是作為一種常用的算法，我仍然覺(jué)得大家有必要了解下，而不必過(guò)于功利。
【新手入門】之一：If分支語(yǔ)句
【新手入門】之二：分支語(yǔ)句總結(jié)
【新手入門】之三：循環(huán)語(yǔ)句For
【新手入門】之四：循環(huán)語(yǔ)句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過(guò)程、傳值過(guò)程
【新手入門】之六：“悲歡離合總無(wú)情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問(wèn)題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問(wèn)
【新手入門】之十：書到用時(shí)方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集

【新手進(jìn)階】之一：基礎(chǔ)算法（一）
【新手進(jìn)階】之二：基礎(chǔ)算法（二）
【新手進(jìn)階】之三：基礎(chǔ)算法（三）
【新手進(jìn)階】之四：基礎(chǔ)算法（四）
【新手進(jìn)階】之五：排序搜索（一）
【新手進(jìn)階】之六：排序搜索（二）
【新手進(jìn)階】之七：遞歸算法
【新手進(jìn)階】之八：冒泡排序
【新手進(jìn)階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進(jìn)階】之十：工作日的計(jì)算
【新手進(jìn)階】之十一：“庖丁解牛”和“紀(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進(jìn)階】之十二：從四腳騰空的奔馬談起——原來(lái)界面可以這樣設(shè)計(jì)
【新手進(jìn)階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進(jìn)階】之十四：倉(cāng)庫(kù)管理系統(tǒng)

chenyingfengsx

正是需要的看看！

yori2007

大懶貓68

求解

ycxchen

支持版主大作，更盼望版主感情不出問(wèn)題！

renyucai1963

學(xué)習(xí)。

renyucai1963

終于見(jiàn)到隨機(jī)數(shù)了。謝謝版主。

efcndi

看看學(xué)學(xué)

pq318

學(xué)習(xí)一下

asklove

學(xué)習(xí)一下