算法4 vba实现快速排序

快速实现

Sub debugTest()
    Dim a() As Variant
    
    a = Array(6, 2, 5, 3, 7, 4, 6)
    
    sort a
    
    Debug.Print 1
End Sub

Sub sort(a() As Variant)
    doSort a, LBound(a), UBound(a)
End Sub

Sub doSort(a() As Variant, low As Long, high As Long)
    
    If low >= high Then Exit Sub
    
    Dim i As Long
    
    i = partition2(a, low, high)
    
    doSort a, low, i - 1
    
    doSort a, i + 1, high
    

End Sub

' 普通的分区方式
Function partition(a() As Variant, low As Long, high As Long) As Long
    ' 分区的数量
    Dim num As Long

    ' low
    Dim i As Long
    
    ' high
    Dim j As Long

    Dim key As Variant
    
    i = low
    
    j = high + 1
    
    key = a(low)
    
    Do
    
      i = i + 1
      
      Do While less(a(i), key