【新手進(jìn)階】之五：排序搜索（一）

roych · 發(fā)表于 2015-1-26 17:10:30

現(xiàn)在開(kāi)始介紹排序算法。為簡(jiǎn)便起見(jiàn)，這里只對(duì)不重復(fù)值進(jìn)行排序（雖然部分算法可以對(duì)重復(fù)值進(jìn)行排序）。

第一個(gè)排序算法：桶排序法

桶排序法很簡(jiǎn)單，已知一個(gè)含有N個(gè)元素，最大值為M（M≥N）的數(shù)組，那么現(xiàn)在可以假定有M個(gè)編好順序的桶，將數(shù)組每個(gè)元素的值放進(jìn)該值對(duì)應(yīng)的編號(hào)的桶里，即：值為1的元素放進(jìn)1號(hào)桶，值為2的元素放進(jìn)2號(hào)桶……如此類(lèi)推。再把空桶拿走，剩下的就是排好序的數(shù)組了。

已知數(shù)組arr1()，初始化下標(biāo)變量j=0。
準(zhǔn)備作為桶的數(shù)組arr2()，元素空間不得小于arr1()的最大值。初始化下標(biāo)i為0。
當(dāng)變量i<桶的個(gè)數(shù)時(shí)，執(zhí)行步驟4~6。
將arr1(j)的值賦給桶arr2(i)
j加1。
i加1。
從第一個(gè)桶開(kāi)始，如果值非空就取出來(lái)。

在取值時(shí)我就不再使用數(shù)組了，而使用一個(gè)字符串將這些值串起來(lái)。詳見(jiàn)：

Sub bucket()
Dim arr1(), arr2()
Dim i As Long
Dim j As Long
Dim k As Long
Dim s As String
arr1 = Array(8, 2, 1, 5, 9, 7)
'根據(jù)最大值為9，這里定義含有10個(gè)元素空間的數(shù)組�！獢�(shù)組求最大值，請(qǐng)參考前面的帖子
ReDim arr2(0 To 9)
For i = 0 To 9
For j = 0 To UBound(arr1)
If i = arr1(j) Then
arr2(i) = arr1(j)
End If
Next
If Not IsEmpty(arr2(i)) Then
s = s & "," & arr2(i)
End If
Next
Debug.Print Right(s, Len(s) - 1)
End Sub

復(fù)制代碼

tmtony · 發(fā)表于 2015-1-26 17:56:12

最近 roych 高產(chǎn)��！

ycxchen · 發(fā)表于 2015-1-28 09:20:07

同老漢是兄弟，學(xué)習(xí)！

dorenmi · 發(fā)表于 2015-3-6 08:49:28

學(xué)習(xí)了但i倒酒

WFH6898 · 發(fā)表于 2015-11-11 18:06:41

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

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			注冊(cè)

群介紹
Access培訓(xùn)群 (792054000)
Access免費(fèi)培訓(xùn)群2 (792054000)
Access經(jīng)典源碼培訓(xùn)群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關(guān)群

地區(qū)相關(guān)群[您還沒(méi)設(shè)置居住地]

[模塊/函數(shù)] 【新手進(jìn)階】之五：排序搜索（一）

本帖子中包含更多資源

本帖被以下淘專(zhuān)輯推薦:

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