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

'计数排序,基数排序
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)