我正在写一个课题，是要丢入范围很大，数字也很大的数值阵列 然後用各种排序方法来计算其排序所需要的时间 范围是10^2到10^6 要用一千组数字的排序时间总合再除以一千取平均值 因为程式码都有，所以我问题不是在於程式码的写法 而是在於其中一个QuickSort上 我设定一个数字k表示目前运算范围为10的k次方 当k是2到3时，都可以正常的印出结果，排序出来也是正确的 但是在k等於4时，却老是会卡在9523的这个数字上 然後就会出现 类型 'System.StackOverflowException' 的未处理例外状况发生於 AHW1.exe 这一个错误讯息，程式无法继续执行 说明上是要我检查是否造成了无限回圈或是无限递回 但是我很确定并没有，因为当数字为一千时就可以正常排序一千次不出错 只有在大於一万时跑出这个错误 我确认过结束条件，很肯定结束条件是一定会发生的 (原本的QuickSort是有可能会无限递回，不过我修改过了) 我想可能毕竟还是递回太多次把堆叠占满了 可是这样一来我就没办法执行出我要的成果了 才一万而已就超过，我的目标可是一百万耶... 附上QuickSort的程式部分 Public Sub Quicksort(ByRef a() As Long, ByVal l As Long, ByVal r As Long) If l < r Then Dim s As Long s = Partitions(a, l, r) Quicksort(a, l, s - 1) Quicksort(a, s + 1, r) End If End Sub Public Function Partitions(ByRef a() As Long, ByVal l As Long, ByVal r As Long) As Long Dim p, i, j, temp As Long p = a(l) i = l j = r + 1 Do Do i = i + 1 Loop Until a(i) >= p Or i = r Do j = j - 1 Loop Until a(j) <= p Or j = l temp = a(i) a(i) = a(j) a(j) = temp Loop Until (i >= j) temp = a(i) a(i) = a(j) a(j) = temp temp = a(l) a(l) = a(j) a(j) = temp Return j End Function 都是照着书本上的虚拟码来打的(确认过功能性了) (後面看似重复的部分，是我懒得去弄swap交换的偷懒写法就是了) 用到Long是因为(理想中)数字高达一百万的缘故 卡住的地方是在partition部分，当i=9523时出现的 (连跑两次都是在同一个数字出错) 请问，遇到这样的问题，我有什麽方法能够解决它呢？ -- 其实我写的MergeSort虽然也是用递回，但是就没有出现这个错误讯息 只是，排序出来的结果根本就不对，明明都照着书本打了的说... 後来就不管它了，当作没看到，只算它的时间就好了.... --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 122.126.49.7 ※ 编辑: Peruheru 来自: 122.126.49.7 (11/30 03:22)