'升序:如果当前值小于上一个值,则互换。'降序:如果当前值大于上一个值,则互换。'根据是升序或降序进行分别处理。'中点在跨度后面则要处理。'移排序并移动中点(不大于最大下标)'将跨度定义为小于元素的数量的2的最大幂。'将中点作为当前下标。

Dim temp '已处理的元素的个数置为0 NextElement = 0。'根据比较结果重置最小下标。'根据比较结果重置最小下标。'根据是升序或降序进行分别处理。'读取最大下标,作为当前最小值下标。'根据最小下,与当前值互换。

'快速排序I = Lj = R'找出数组的中点'找出比中点大的数I = I + 1Wend'找出比中点小的数j = j - 1Wend'互换这两个数I = I + 1j = j - 1End IfWend'未完成时递归调用End Sub。