'快速排序
Sub QuickSort0(MyArray(), L, R)
    Dim I, j, x, y
    I = L
    j = R
    '找出数组的中点
    x = MyArray((L + R) / 2)
    While (I <= j)
        '找出比中点大的数
        While (MyArray(I) < x And I < R)
            I = I + 1
        Wend
        '找出比中点小的数
        While (x < MyArray(j) And j > L)
            j = j - 1
        Wend
        '互换这两个数
        If (I <= j) Then
            y = MyArray(I)
            MyArray(I) = MyArray(j)
            MyArray(j) = y
            I = I + 1
            j = j - 1
        End If
    Wend
    '未完成时递归调用
    If (L < j) Then Call QuickSort(MyArray(), L, j)
    If (I < R) Then Call QuickSort(MyArray(), I, R)
End Sub