写了几个常见的排序方法，和大家共勉

djyjysxxs

写了几个常见的排序方法：选择排序两个、直接插入两个、冒泡排序两个（当然都一定还有优化的空间），和大家共勉且请各位斧正。其余的排序如希尔排序、快速排序、归并排序等等暂没写。

 

iff2kC8H.rar (241.05 KB, 下载次数: 169)

2007-12-1 17:39 上传

点击文件名下载附件
写了几个常见的排序方法，和大家共勉

Luckyguy2008

在学校学过一点，全忘光了[em04]

谢谢天堂鼠[em17]

uranus1997

学习学习ing，排序没学过，晕呼呼[em06]

zsd5237

学习

不看不看

先收藏 有时间再看 谢谢 ！！！！！！

青城山苦丁茶

再看排序！

dybg123

收藏,谢谢 ！！！！！！

HYY514

数据排序要看数据类型,不能死套,如果是整型,象你上面附件的数据,

运行下面代码排序不会超过0.1秒:呵呵

Sub 飞翔排序法()
Dim a, n As Long, t As Double
a = [a3:a10002]
ReDim b(0 To WorksheetFunction.Max(a)) As Long
t = Timer
For i = 1 To UBound(a)
    If b(a(i, 1)) = 0 Then
        b(a(i, 1)) = 1
    Else
        b(a(i, 1)) = b(a(i, 1)) + 1
    End If
Next
For i = 0 To UBound(b)
    For j = 1 To b(i)
        n = n + 1
        a(n, 1) = i
    Next
Next
[i3:i10002] = a
MsgBox Format(Timer - t, "0.00000" & "秒")
End Sub

[此贴子已经被作者于2008-3-1 12:03:08编辑过]

HYY514

呵呵...泼楼主冷水了

zjxia889

Sub px()
    t = Timer
    Range("A3:A10002").Copy Range("j3")
    Range("j3:j10002").Sort Range("j3"), xlAscending, , , , , , xlNo, , , xlSortColumns
    [j2] = Timer - t
End Sub