常用排序算法之计数排序,基数排序与桶排序

'计数排序,基数排序


Option Explicit




Dim Result, I


Dim TestData(100)


const N = 100




Randomize


For I = 0 To N - 1


TestData(I) = ROUND(RND() * 32768)


Next




'以base^pow位上的数映射到Map


Sub MapTo(byRef Array, byRef Map, low, hi, base, pow)


Dim i, n


n = 1


For i = 1 To pow


    n = n * base


Next


For i = low To hi


    Map(i) = Int(Array(i) / n) Mod base


Next


End Sub




'以映射进行计数排序


Sub CSortWithMap(byRef Array, byRef Map, low, hi)


Dim   Counter(16), Temp(100), i


For i = 0 To uBound(Counter)


    Counter(i) = 0


Next


For i = low To hi


    Counter(Map(i)) = Counter(Map(i)) + 1


Next


For i = 1 To uBound(Counter)


    Counter(i) = Counter(i) + Counter(i-1)


Next


For i = hi To low Step -1


    Counter(Map(i)) = Counter(Map(i)) - 1


    Temp(Counter(Map(i))) = Array(i)


Next


For i = low To hi


    Array(i) = Temp(i)


Next


End Sub




'基数排序


Sub BSort(byRef Array, low, hi)


Dim Map(100), i


For i = 0 To 4


    MapTo Array, Map, low, hi, 16, i


    CSortWithMap Array, Map, low, hi


Next


End Sub




BSort TestData, 0, N - 1




For I = 0 To N - 1


Result = Result & TestData(I) & VbTab


Next




MsgBox(Result)




'桶排序


Option Explicit




Dim Result, I


Dim TestData(100)


const N = 100




Randomize


For I = 0 To N - 1


TestData(I) = ROUND(RND() * 32768)


Next




'桶排序


Sub BSort(byRef Array, low, hi)


Dim Bucket(400, 100), Counter(400), i, j, t, idx


For i = 0 To 399


    Counter(i) = 0


Next


For i = low To hi


    idx = Int(Array(i) / 100)


    j = Counter(idx) - 1


    t = Array(i)


    Do


        If j < 0 Then 


                 Exit Do


            End If


            If Array(j) > t Then


                 Bucket(idx, j+1) = Bucket(idx, j)


                 j = j - 1


            Else


                Exit Do


            End If


       Loop


       Bucket(idx, j+1) = t


    Counter(idx) = Counter(idx) + 1


Next 


t = low


For i = 0 To 399


    For j = 1 To Counter(i)


        Array(t) = Bucket(i, j-1)


        t = t + 1


    Next


Next


End Sub




BSort TestData, 0, N - 1




For I = 0 To N - 1


Result = Result & TestData(I) & VbTab


Next




MsgBox(Result)