• Home
 · 
• Math/Dates
 · 
• Quick Sort

Quick Sort

Quick Sort

API Declarations


' Just copy paste the code in your application. The following function will
'sort The array passed as argument e.g QuickSort Array



Rate Quick Sort

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Sub QuickSort(Value(), Optional iFrom = -1, Optional iTo = -1)
 
    Dim N As Integer
    If iFrom = -1 Then iFrom = 0
    If iTo = -1 Then iTo = UBound(Value) - 1
    Dim L As Integer, R As Integer
    L = iFrom
    R = iTo
    If Abs(L - R) < 1 Or L >= R Then Exit Sub
    Do While (Abs(L - R) >= 1)
        For I = iFrom + 1 To iTo
            If Value(L) <= Value(R) Then
                L = L + 1
                Swap Value(L), Value(R)
                Exit For
            End If
        Next
        For I = iFrom + 1 To iTo
            If (Value(L) < Value(R)) Then
                R = R - 1
            Else
                Swap Value(L), Value(R)
                Exit For
            End If
        Next
    Loop
    QuickSort Value, iFrom, L - 1
    QuickSort Value, L + 1, iTo
    
End Sub

Sub Swap(ByRef A, ByRef B)
    
    Dim Temp
    Temp = A
    A = B
    B = Temp
   
End Sub