利用集合进行数组的排序.doc

利用集合进行数组的排序-vb教程点击: 发布日期：2007-4-19 15:35:00 进入论坛sp; 笔者在学习VB中发现利用集合可以进行排序，优化后比冒泡法快得多。下面是完整的函数代码，演示了如何进行数组的升序或降序排列。 Option ExplicitDim X(100) As DoubleDim y(100) As StringPrivate Sub Command1_Click() 演示数字排序Dim a(100) As Double, z(100) As String, i As LongFor i = 0 To 100a(i) = X(i) 复制数组z(i) = CStr(X(i) 转化为字符串数组NextMsgBox Join(z, ,), 64, 原始数组 显示原始顺序NUMBERSORT X, upFor i = 0 To 100z(i) = CStr(X(i) 转化为字符串数组NextMsgBox Join(z, ,), 64, 按数字升序排序后数组 显示排序结果NUMBERSORT a, downFor i = 0 To 100z(i) = CStr(a(i) 转化为字符串数组NextMsgBox Join(z, ,), 64, 按数字降序排序后数组 显示排序结果End SubSub NUMBERSORT(ByRef a() As Double, Optional sort As String = up) 数字排序Dim min As Long, max As Long, num As Long, first As Long, last As Long, temp As Long, all As New Collection, steps As Longmin = LBound(a)max = UBound(a)all.Add a(min)steps = 1For num = min + 1 To maxlast = all.CountIf a(num) CDbl(all(last) Then all.Add a(num), AFTER:=last: GoTo nextnum 加到最后一项first = 1Do While last first + 1 利用DO循环减少循环次数temp = (last + first) 2If a(num) CDbl(all(temp) Thenfirst = tempElselast = tempsteps = steps + 1End IfLoopall.Add a(num), BEFORE:=last 加到指定的索引nextnum:steps = steps + 1NextFor num = min To maxIf sort = UP Or sort = up Then a(num) = CDbl(all(num - min + 1): steps = steps + 1 升序If sort = DOWN Or sort = down Then a(num) = CDbl(all(max - num + 1): steps = steps + 1 降序NextMsgBox 本数组共经过 & steps & 步实现 & IIf(sort = UP Or sort = up, 升序, 降序) & 排序！, 64, INFORMATIONSet all = NothingEnd SubSub STRINGSORT(ByRef a() As String, Optional sort As String = UP) 字符串排序Dim min As Long, max As Long, num As Long, first As Long, last As Long, temp As Long, all As New Collection, steps As Longmin = LBound(a)max = UBound(a)all.Add a(min)steps = 1For num = min + 1 To maxfirst = 1last = all.CountIf a(num) all(last) Then all.Add a(num), AFTER:=last: GoTo nextnum 加到最后一项Do While last first + 1 利用DO循环减少循环次数temp = (last + first) 2If a(num) all(temp) Thenfirst = tempElselast = tempsteps = steps + 1End IfLoopall.Add a(num), BEFORE:=last 加到指定的索引nextnum:steps = steps + 1NextFor num = min To maxIf sort = UP Or sort = up Then a(num) = all(num - min + 1): steps = steps + 1 升序If sort = DOWN Or sort = down Then a(num) = all(max - num + 1): steps = steps + 1 降序NextMsgBox 本数组共经过 & steps & 步实现 & IIf(sort = UP Or sort = up, 升序, 降序) & 排序！, 64, INFORMATIONSet all = NothingEnd SubPrivate Sub Command2_Click() 演示字符串排序Dim z(100) As String, i As Long 复制数组For i = 0 To 100z(i) = y(i)NextMsgBox Join(y, ,), 64, 原始数组 显示原始顺序STRINGSORT y, UPMsgBox Join(y, ,), 64, 按字符串升序排序后数组 显示排序结果STRINGSORT z, DOWNMsgBox Join(z, ,), 64, 按字符串降序排序后数组 显示排序结果End SubPrivate Sub Command3_Click() 排序计时Dim a(3000) As String, i As Long, starttime As Long, endtime As LongFor i = 0 To 3000a(i) = Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) & Chr(Int(Rnd * 26) + 65) 生成随机6字符的字符串Nextstarttime = Timer 计时开始STRINGSORT aendtime = Timer 计时结束MsgBox 排序共耗时 & endtime - starttime & 秒！End SubPrivate Sub Form_Load()Rando