Office中國論壇/Access中國論壇

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

作者: roych 時(shí)間: 2015-1-27 09:56
標(biāo)題: 【新手進(jìn)階】之六：排序搜索（二）

本來想把多重桶排序部分（即二維數(shù)組）介紹完的。但由于代碼未調(diào)試好，所以還是先介紹簡單排序法，后面有時(shí)間再補(bǔ)上了。

其實(shí)，昨天盜夢已經(jīng)提到了簡單排序了。簡單排序算法其實(shí)很簡單�！�(dāng)然了，不簡單就不叫“簡單排序”了。^_^

初始化，找出最小值，放在最左邊。
反復(fù)執(zhí)行3、4。
在剩余的數(shù)據(jù)中，找出最小值。
緊鄰在前一個(gè)最小值的右邊。

接下來，我們來分解一下，第一步，用前面學(xué)過的基礎(chǔ)算法就可以直接求出來了�！獙懸粋€(gè)循環(huán)就可以把第一個(gè)最小值拿出來了。

第二步顯然是個(gè)內(nèi)循環(huán)。由于“剩余”兩個(gè)字，顯然初始值應(yīng)該是個(gè)變量。，應(yīng)該也不難。

難度在第三步。拿剩下的數(shù)據(jù)跟之前提出的值比較，就涉及到兩個(gè)數(shù)組的比較了。我們知道，數(shù)組中有個(gè)Filter方法。

（額，不知道的繼續(xù)看這部分）通過對已知數(shù)組去篩選已知元素的方法來產(chǎn)生一個(gè)數(shù)組。如果已知數(shù)組包含已知元素，就會(huì)把元素保存到一個(gè)新數(shù)組中，否則元素為空，新數(shù)組自然是一個(gè)空集合了�！占瘮�(shù)組的上限自然是-1了�！鶕�(jù)這個(gè)性質(zhì)，我們就可以輕而易舉地完成了最小值與剩余元素的比較了。

最后一步，顯然可以考慮用一個(gè)數(shù)組來安放取出來的元素(當(dāng)然也可以只用一個(gè)數(shù)組，只是值的交換上要多寫一句)。再回頭看看第三步，我想，大家應(yīng)該有些頭緒了吧：

Sub simSort()
Dim arr()
Dim arr2()
Dim i As Long
Dim j As Long
Dim k As Long
k = 1000
arr = Array(123, 602, 82, 777, 57, 510, 396, 196, 843, 138)
'忽略錯(cuò)誤
On Error Resume Next
For i = 0 To UBound(arr)
For j = i To UBound(arr)
'找出最小值
If arr(j) < k Then
'和arr2比較，如果arr2中沒有該元素
If UBound(VBA.Filter(arr2, arr(j))) = -1 Then
k = arr(j)
End If
End If
Next</span>
'修改arr2的元素空間，加上Preserve以保留已取出的最小值。并把數(shù)據(jù)賦予arr2，最后初始化k變量，以便取下一個(gè)最小值。
ReDim Preserve arr2(0 To i)
arr2(i) = k
k = 1000
Next
End Sub

復(fù)制代碼

作者: tmtony 時(shí)間: 2015-1-27 10:39
roych 多才多藝，還寫小品？

作者: roych 時(shí)間: 2015-1-27 10:49

tmtony 發(fā)表于 2015-1-27 10:39
roych 多才多藝，還寫小品？

沒辦法啊，蜀中無大將，廖化作先鋒。

作者: yanwei82123300 時(shí)間: 2015-1-27 16:42

roych 發(fā)表于 2015-1-27 10:49
沒辦法啊，蜀中無大將，廖化作先鋒。

諸葛出馬一個(gè)頂一沓！

作者: WFH6898 時(shí)間: 2015-11-11 18:05
經(jīng)典啊

作者: WFH6898 時(shí)間: 2015-11-11 18:07
高產(chǎn)啊

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