'升序:如果当前值小于上一个值,则互换。'降序:如果当前值大于上一个值,则互换。'根据是升序或降序进行分别处理。'将当前下标移到上一个值。'与前面的每一个元素比较。'将已处理的元素个数加1。'先将已处理的元素个数置为0。

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