【新手進階】之八：冒泡排序

roych · 發(fā)表于 2012-4-1 16:26:36

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

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

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，可以少執(zhí)行幾次嗎？

游客，如果您要查看本帖隱藏內容請回復

chenyingfengsx · 發(fā)表于 2012-4-1 22:06:55

正是需要的看看！

yori2007 · 發(fā)表于 2012-4-1 22:54:43

大懶貓68 · 發(fā)表于 2012-4-2 00:36:14

求解

ycxchen · 發(fā)表于 2012-4-2 10:19:59

支持版主大作，更盼望版主感情不出問題！

renyucai1963 · 發(fā)表于 2012-4-2 10:23:29

學習。

renyucai1963 · 發(fā)表于 2012-4-2 10:27:26

終于見到隨機數(shù)了。謝謝版主。

efcndi · 發(fā)表于 2012-4-5 10:47:46

看看學學

pq318 · 發(fā)表于 2012-4-6 11:29:22

學習一下

asklove · 發(fā)表于 2012-4-6 13:41:44

學習一下

帳號		自動登錄	找回密碼
密碼			注冊

群介紹
Access培訓群 (792054000)
Access免費培訓群2 (792054000)
Access經典源碼培訓群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關群

地區(qū)相關群[您還沒設置居住地]

[模塊/函數(shù)] 【新手進階】之八：冒泡排序

評分

本帖被以下淘專輯推薦:

群介紹
主題無相 (隨機顯示版	同地區(qū)群塊其他地區(qū))