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

temp17 · 发表于 2020-10-21 15:48

mark，应该会用到

destiny1234 · 发表于 2020-12-9 17:50

其他的没看，就看了堆排序，不知道是怎么测试通过的，很明显有问题。

If nChd + 1 < nLen And arr(nChd) < arr(nChd + 1) Then nChd = nChd + 1

复制代码

如果nChd = 6 而nLen = 7，便不比较6，7大小，而此时刚好 7号位比6号位大，6号位比3号位大，就会造成 6 >3,6<7,这对于最大堆，是一种错误的状态，而且，索引是从0开始的，不能要求排序的数组0号位必须是哨兵吧。当然，大方向没错，但细节不能仔细推敲。

destiny1234 · 发表于 2020-12-9 17:55

lee1892 发表于 2013-4-20 11:50
堆排序

其他的没看，就看了堆排序，不知道是怎么测试通过的，很明显有问题。

If nChd + 1 < nLen And arr(nChd) < arr(nChd + 1) Then nChd = nChd + 1

复制代码

如果nChd = 6 而nLen = 7，便不比较6，7大小，而此时刚好 7号位比6号位大，6号位比3号位大，就会造成 6 >3,6<7,这对于最大堆，是一种错误的状态，而且，索引是从0开始的，不能要求排序的数组0号位必须是哨兵吧。当然，大方向没错，但细节不能仔细推敲。作为精华帖，至少得保证测试通过吧。

kabudaa · 发表于 2020-12-15 10:47

收藏收藏收藏收藏

cgzn · 发表于 2021-4-6 23:12

合并法是真快啊，堆排序法不知道为什么排序不成功。

weiliang2018 · 发表于 2021-4-21 14:30

lee1892 发表于 2013-4-24 15:50
对于快速排序而言，数据量的大小并不会是导致堆栈溢出的主要原因，而是数据是否是精心设计过的。

而所 ...

为什么总是溢出，还有最后第3段的代码 If nLeft < j Then Call QuickSort(arr, nLeft, j)是不是应该是If nLeft < j Then Call QuickSort(arr, nLeft, j-1)

小草看日出 · 发表于 2021-5-19 20:37

精华，学习中。

chinaaxi · 发表于 2021-7-3 13:13

02761752696 · 发表于 2021-8-5 16:24

学习学习谢谢分享很详细

五指山888 · 发表于 2021-8-5 20:48

学习学习学习了

		自动登录	找回密码
密码			免费注册

[原创] VBA编程技巧之排序算法初探

浏览过的版块

[原创] VBA编程技巧 之 排序算法初探

浏览过的版块

[原创] VBA编程技巧之排序算法初探