Sub QuickSort(A() As Int, Left As Int, Right As Int)
Dim i, j, pivot, temp As Int
If Left < Right Then
pivot = A(Right)
i = Left - 1
For j = Left To Right - 1
If A(j) <= pivot Then
i = i + 1
temp = A(i)
A(i) = A(j)
A(j) = temp
End If
Next
temp = A(i + 1)
A(i + 1) = A(Right)
A(Right) = temp
QuickSort(A, Left, i)
QuickSort(A, i + 2, Right)
End If
End Sub