给定一个一维数组,对一维数组快速排序

Public Function sort(arr As Variant)
    Dim MaxV As Variant
    a = UBound(arr)
    b = a
    For i = a To 0 Step -1
        MaxV = arr(i)
        For j = 0 To b
            If arr(j) > MaxV Then
                MaxV = arr(j)
                arr(j) = arr(i)
                arr(i) = MaxV
            End If
        Next j
        b = b - 1
    Next i
    sort = arr
End Function