Visual Basic中的快速排序

Sub QuickSort(arr() As Integer, low As Integer, high As Integer)
    Dim i As Integer
    Dim j As Integer
    Dim pivot As Integer
    Dim temp As Integer
    
    If low < high Then
        pivot = arr(low)
        i = low
        j = high
        
        While i < j
            While i < j And arr(j) >= pivot
                j = j - 1
            End While
            If i < j Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
            
            While i < j And arr(i) <= pivot
                i = i + 1
            End While
            If i < j Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        End While
        
        QuickSort arr, low, i - 1
        QuickSort arr, i + 1, high
    End If
End Sub

Dim arr() As Integer
arr = Array(5, 2, 9, 1, 7)
QuickSort arr, 0, UBound(arr)