' 以下是排序的賤招, 利用另一個ListBox.Stored 屬性來排序的功能(32600 個項目平均時間 12(PIII-550,w98,128ram) 秒)
List2.Clear
For R1 = 0 To List1.ListCount - 1
List2.AddItem List1.List(R1)
Next
List1.Clear
For R1 = 0 To List2.ListCount - 1
List1.AddItem List2.List(R1)
Next
'-----------------------------------------------------------------
' 以下是所謂正規的排序演算法, 比上面那個賤招龜速幾十倍... (1170 個項目平均時間 40 秒)
' For R1 = 0 To List1.ListCount - 2
' For R2 = R1 + 1 To List1.ListCount - 1
' If List1.List(R1) ＞ List1.List(R2) Then
' Temp = List1.List(R1)
' List1.List(R1) = List1.List(R2)
' List1.List(R2) = Temp
' End If
' Next
' Next
第一個方法是取自王國榮先生的VB6實戰講座, 雖不太建議使用, 但我覺得他實在好用太多了(在我還沒想出更好的方法之前)... 也希望各位指點一二
另, 什麼是泡沫排序法, 常常聽到大家談泡沫法, 她是什麼法呢...