VB排序算法－桶排序

'桶排序
Sub Bucket0(MyArray(), Optional ByVal SortByDesc As Boolean)
    Dim Index
    Dim NextElement
    Dim TheBucket
    '先将已处理的元素个数为最小下标加1
    NextElement = LBound(MyArray) + 1
    '遍历每一个元素
    While (NextElement <= UBound(MyArray))
        '读取当前元素
        TheBucket = MyArray(NextElement)
        '读取当前下标
        Index = NextElement
        Do
            '如果当前下标大于最小下标,则处理
            If Index > LBound(MyArray) Then
                '根据是升序或降序进行分别处理
                If SortByDesc = False Then
                    '升序:如果当前值小于上一个值
                    '则将下一个值放到当前值(当前值在TheBucket中不动)
                    If TheBucket < MyArray(Index - 1) Then
                        MyArray(Index) = MyArray(Index - 1)
                        Index = Index - 1
                    Else
                        Exit Do
                    End If
                ElseIf SortByDesc = True Then
                    '降序:如果当前值大于上一个值
                    '则将下一个值放到当前值(当前值在TheBucket中不动)
                    If TheBucket > MyArray(Index - 1) Then
                        MyArray(Index) = MyArray(Index - 1)
                        Index = Index - 1
                    Else
                        Exit Do
                    End If
                End If
            Else
                Exit Do
            End If
        Loop
        MyArray(Index) = TheBucket
        NextElement = NextElement + 1
    Wend
End Sub