Авторские программы, библиотеки, надстройки и шаблоны - VBA - Ответ 13153947

Sub QSort(ByRef arr As Variant, ByVal iLbound As Integer, iUbound As Integer)
    Dim iL As Integer, iU As Integer
    Dim iVal As Integer, iSwap As Integer
    iL = iLbound:    iU = iUbound
    iVal = arr((iLbound + iUbound) \ 2)
    Do While iL <= iU
       Do While arr(iL) < iVal And iL < iUbound
          iL = iL + 1
       Loop
       Do While iVal < arr(iU) And iU > iLbound
          iU = iU - 1
       Loop
       If iL <= iU Then
          iSwap = arr(iL)
          arr(iL) = arr(iU)
          arr(iU) = iSwap
          iL = iL + 1
          iU = iU - 1
       End If
    Loop
     
    If iLbound < iU Then
        Call QSort(arr, iLbound, iU)
    End If
    If iL < iUbound Then
        Call QSort(arr, iL, iUbound)
    End If
End Sub
 
 
Sub Example()
    Dim arr(20) As Integer
    Dim i As Integer
    For i = 0 To UBound(arr)
        Randomize
        arr(i) = Int((100 - 1 + 1) * Rnd + 1)
    Next i
    Call Debbuger(arr, "БЫЛО:")
    Call QSort(arr(), LBound(arr), UBound(arr))
    Call Debbuger(arr, "СТАЛО:")
End Sub
 
Sub Debbuger(arr() As Integer, sText As String)
    Dim i As Integer
    Debug.Print sText
    For i = 0 To UBound(arr)
        Debug.Print i, arr(i)
    Next i
End Sub