在VBA中将递归循环/函数添加到排序中

Sub RecursiveSort(arr() As Variant, low As Long, high As Long)
    Dim pivot As Variant
    Dim temp As Variant
    Dim i As Long
    Dim j As Long
    
    i = low
    j = high
    pivot = arr((low + high) \ 2) ' 选取中间元素作为基准
    
    ' 将小于基准的元素移到左边，大于基准的元素移到右边
    While i <= j
        While arr(i) < pivot
            i = i + 1
        Wend
        While arr(j) > pivot
            j = j - 1
        Wend
        If i <= j Then
            ' 交换元素
            temp = arr(i)
            arr(i) = arr(j)
            arr(j) = temp
            i = i + 1
            j = j - 1
        End If
    Wend
    
    ' 递归调用排序
    If low < j Then
        RecursiveSort arr, low, j
    End If
    If i < high Then
        RecursiveSort arr, i, high
    End If
End Sub

Sub SortArray()
    Dim arr() As Variant
    Dim i As Long
    
    ' 初始化数组
    arr = Array(5, 3, 9, 1, 7)
    
    ' 输出排序前的数组
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
    
    ' 调用递归排序函数
    RecursiveSort arr, LBound(arr), UBound(arr)
    
    ' 输出排序后的数组
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub