【新手進階】之六：排序搜索（二）

roych

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

其實，昨天盜夢已經提到了簡單排序了。簡單排序算法其實很簡單。——當然了，不簡單就不叫“簡單排序”了。^_^

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

接下來，我們來分解一下，第一步，用前面學過的基礎算法就可以直接求出來了�！�—寫一個循環(huán)就可以把第一個最小值拿出來了。

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

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

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

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

1. Sub simSort()
   
2.   Dim arr()
   
3.   Dim arr2()
   
4.   Dim i As Long
   
5.   Dim j As Long
   
6.   Dim k As Long
   
7.   k = 1000
   
8.   arr = Array(123, 602, 82, 777, 57, 510, 396, 196, 843, 138)
   
9.   '忽略錯誤
   
10.   On Error Resume Next
    
11.   For i = 0 To UBound(arr)
    
12.       For j = i To UBound(arr)
    
13.   '找出最小值
    
14.           If arr(j) < k Then
    
15.   '和arr2比較，如果arr2中沒有該元素
    
16.                If UBound(VBA.Filter(arr2, arr(j))) = -1 Then
    
17.                    k = arr(j)
    
18.               End If
    
19.           End If
    
20.       Next</span>
    
21. '修改arr2的元素空間，加上Preserve以保留已取出的最小值。并把數據賦予arr2，最后初始化k變量，以便取下一個最小值。
    
22. ReDim Preserve arr2(0 To i)
    
23.       arr2(i) = k
    
24.       k = 1000
    
25.   Next
    
26.   End Sub

復制代碼

【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數據
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導出記錄集

【新手進階】之一：基礎算法（一）
【新手進階】之二：基礎算法（二）
【新手進階】之三：基礎算法（三）
【新手進階】之四：基礎算法（四）
【新手進階】之五：排序搜索（一）
【新手進階】之六：排序搜索（二）
【新手進階】之七：遞歸算法
【新手進階】之八：冒泡排序
【新手進階】之九：淺談不綁定數據源操作記錄
【新手進階】之十：工作日的計算
【新手進階】之十一：“庖丁解�！焙汀凹o昌學射”——淺談表格式文本數據的導入
【新手進階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設計
【新手進階】之十三：Outlook風格導航界面
【新手進階】之十四：倉庫管理系統

tmtony

roych 多才多藝，還寫小品？

roych

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

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

yanwei82123300

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

諸葛出馬一個頂一沓！

WFH6898

經典啊

WFH6898

高產啊