gxs691614196的博客

原创 快速排序vb代码

快速排序vb代码： Dim a() As Integer '定义一个动态数组 Sub qsort(a() As Integer, ByVal kaishi As Integer, ByVal jieshu As Integer) Dim temp As Integer, j As Integer, i As Integer i = kaishi: j = jieshu '将i、j作为指针，从两侧向中部移动 If kaishi < jieshu Then '控制是否进入循环 temp = a(kaish