Office中國論壇/Access中國論壇

標(biāo)題: 【新手進(jìn)階】之五：排序搜索（一） [打印本頁]

作者: roych 時間: 2015-1-26 17:10
標(biāo)題: 【新手進(jìn)階】之五：排序搜索（一）
現(xiàn)在開始介紹排序算法。為簡便起見，這里只對不重復(fù)值進(jìn)行排序（雖然部分算法可以對重復(fù)值進(jìn)行排序）。

第一個排序算法：桶排序法

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

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

在取值時我就不再使用數(shù)組了，而使用一個字符串將這些值串起來。詳見：

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個元素空間的數(shù)組。——數(shù)組求最大值，請參考前面的帖子
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 時間: 2015-1-26 17:56
最近 roych 高產(chǎn)��！

作者: ycxchen 時間: 2015-1-28 09:20
同老漢是兄弟，學(xué)習(xí)！

作者: dorenmi 時間: 2015-3-6 08:49
學(xué)習(xí)了但i倒酒

作者: WFH6898 時間: 2015-11-11 18:06
學(xué)習(xí)學(xué)習(xí)

歡迎光臨 Office中國論壇/Access中國論壇 (http://m.mzhfr.cn/)