CombSort Function

CombSort Function

<%
Private Function CombSort(ByVal UnsortedArray)
    Dim I, J, Temp, Gap, Swapped
    Dim ArrSize, Combcom, Combswap
    Const Shrink = 1.3
    ArrSize = UBound( UnsortedArray )
    Gap = Arrsize - 1
    Do
        Gap = Int(Gap / Shrink)
        Swapped = True
        Combcom = Combcom + 1
        For J = 0 To Arrsize - Gap
            If UnsortedArray(J) > UnsortedArray(J + Gap) Then
                Temp = UnsortedArray(J)
                UnsortedArray(J) = UnsortedArray(J + Gap)
                UnsortedArray(J + Gap) = Temp
                Swapped = False
                Combswap = Combswap + 1
            End If
        Next
    Loop Until Not Swapped And Gap = 1
    CombSort = UnsortedArray
End Function
%>
CombSort Function