VBA编程技巧 之 排序算法初探

bluexuemei

太牛了，下载后慢慢消化。

香川群子

一般我就用选择排序……或者偷懒直接输出结果到工作表后排序。

hehex

好东西啊，需要慢慢消化。不太会C 语言，研究算法特别是指针的地方费劲了哦。
谢谢lee1892 大师

wuxinyun1999

看的眼花缭乱啊，膜拜一下。
等进化了再来消化，楼主辛苦了。

Moneky

多谢楼主辛苦分享，收藏待查。。。。。。

fycrik

表示太高深了 膜拜一下 以后再看

coverne

严重关注，茅塞顿开

gjj136138139

相当牛，只会工作表排序法。

lee1892

希尔排序算法中不同步长序列的速度测试

下述代码测试了不同步长序列的执行速度，参考会跑法师的  有史以来最快的希尔排序

代码:

Sub TestShellSpeed()     Dim i&, t#, aData!(), arr, j&, sMsg$, aGaps     ReDim aData(1 To 1500)     Randomize     For i = 1 To UBound(aData)         aData(i) = Rnd     Next     Debug.Print     For i = 0 To 5         Select Case i         Case 0             aGaps = Array(929, 503, 211, 109, 41, 19, 5, 1)             sMsg = "法师改良的 Sedgewick 奇偶 序列"         Case 1             aGaps = Array(929, 505, 209, 109, 41, 19, 5, 1)             sMsg = "原本的 Sedgewick 奇偶 序列"         Case 2             aGaps = Array(1073, 281, 77, 23, 8, 1)             sMsg = "Sedgewick 的 序列"         Case 3             aGaps = Array(1182, 525, 233, 103, 46, 20, 9, 4, 1)             sMsg = "Tokuda 的 序列"         Case 4             aGaps = Array(701, 301, 132, 57, 23, 10, 4, 1)             sMsg = "Ciura 的 序列"         Case 5             aGaps = Array(836, 182, 34, 9, 1)             sMsg = "基于费波那契数列的 序列"         End Select         t = Timer         For j = 1 To 10 ^ 2 * 2             arr = aData             Call ShellSort(arr, aGaps)         Next         Debug.Print sMsg & "：" & Join(aGaps, ", ")         Debug.Print Format(Timer - t, "0.000 秒")     Next End Sub Sub ShellSort(ByRef arr, ByRef aGaps)     Dim i&, j&, vTemp, nGap, nLen&     nLen = UBound(arr)     For Each nGap In aGaps         For i = nGap + 1 To nLen             vTemp = arr(i)             For j = i To nGap + 1 Step nGap * -1                 If arr(j - nGap) < vTemp Then Exit For                 arr(j) = arr(j - nGap)             Next             arr(j) = vTemp         Next     Next End Sub

我测试了5次所获结果如下：

1. 法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
   
2. 1.328 秒
   
3. 原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
   
4. 1.324 秒
   
5. Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
   
6. 1.438 秒
   
7. Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
   
8. 1.313 秒
   
9. Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
   
10. 1.297 秒
    
11. 基于费波那契数列的 序列：836, 182, 34, 9, 1
    
12. 1.621 秒
    
13. 
    
14. 法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
    
15. 1.355 秒
    
16. 原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
    
17. 1.391 秒
    
18. Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
    
19. 1.406 秒
    
20. Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
    
21. 1.297 秒
    
22. Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
    
23. 1.281 秒
    
24. 基于费波那契数列的 序列：836, 182, 34, 9, 1
    
25. 1.480 秒
    
26. 
    
27. 法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
    
28. 1.313 秒
    
29. 原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
    
30. 1.309 秒
    
31. Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
    
32. 1.391 秒
    
33. Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
    
34. 1.281 秒
    
35. Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
    
36. 1.297 秒
    
37. 基于费波那契数列的 序列：836, 182, 34, 9, 1
    
38. 1.500 秒
    
39. 
    
40. 法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
    
41. 1.313 秒
    
42. 原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
    
43. 1.309 秒
    
44. Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
    
45. 1.422 秒
    
46. Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
    
47. 1.281 秒
    
48. Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
    
49. 1.266 秒
    
50. 基于费波那契数列的 序列：836, 182, 34, 9, 1
    
51. 1.543 秒
    
52. 
    
53. 法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
    
54. 1.340 秒
    
55. 原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
    
56. 1.313 秒
    
57. Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
    
58. 1.406 秒
    
59. Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
    
60. 1.297 秒
    
61. Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
    
62. 1.277 秒
    
63. 基于费波那契数列的 序列：836, 182, 34, 9, 1
    
64. 1.531 秒

复制代码

显然，我个人认为法师所谓的改良是很没有道理的~~

liucqa

lee1892 发表于 2013-4-24 12:28
希尔排序算法中不同步长序列的速度测试

下述代码测试了不同步长序列的执行速度，参考会跑法师的  有史以 ...

搞100万数据测试看看


法师改良的 Sedgewick 奇偶 序列：929, 503, 211, 109, 41, 19, 5, 1
1.152 秒
原本的 Sedgewick 奇偶 序列：929, 505, 209, 109, 41, 19, 5, 1
1.152 秒
Sedgewick 的 序列：1073, 281, 77, 23, 8, 1
1.270 秒
Tokuda 的 序列：1182, 525, 233, 103, 46, 20, 9, 4, 1
1.164 秒
Ciura 的 序列：701, 301, 132, 57, 23, 10, 4, 1
1.180 秒
基于费波那契数列的 序列：836, 182, 34, 9, 1
1.363 秒