快速排序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(kaishi) '将数组第一个值赋给temp，暂时充当对比量
While i < j
Do While i < j '指针j从右向左移动，当遇到比temp小的数时，将该值移动到指针i的位置，并使i向右移动一位
If a(j) <= temp Then a(i) = a(j): i = i + 1: Exit Do
j = j - 1
Loop
Do While i < j '指针i从左向右移动，当遇到比temp大的数时，将该值移动到指针j的位置，并使j向左移动一位
If a(i) > temp Then a(j) = a(i): j = j - 1: Exit Do
i = i + 1
Loop
Wend
a(i) = temp
Call qsort(a(), kaishi, i - 1) '递归二分法过程进行排序
Call qsort(a(), i + 1, jieshu)
Else
Exit Sub
End If
End Sub
Private Sub Command1_Click()
Me.Cls
Dim n As Integer, u As Integer, l As Integer
n = Val(Text1) '令n=文本框中的值
ReDim a(n - 1) As Integer '重新定义数组
u = UBound(a): l = LBound(a) '得到数组的上下标
Randomize '给数组随机赋值
For i = l To u '输出排序前的数组
a(i) = Rnd * 90 + 10
Print a(i);
Next
Print vbCr
End Sub
Private Sub Command2_Click()
Dim u As Integer, l As Integer
u = UBound(a): l = LBound(a)
Call qsort(a, l, u) '对数组使用二分法
For i = l To u '输出排序后的数组
Print a(i);
Next
End Sub