Dim test As Boolean

массив = Array(4, 12, 3, 7, 9, 1) ‘задание массива

For i = LBound(массив) To UBound(массив) ‘ печать исходного массива

s = s & массив(i) & " "

Next i

Поле1.Value = s

test = сортировка(массив) ‘ вызов функции “Сортировка”

s = " "

For i = LBound(массив) To UBound(массив) ‘ печать результата

s = s & массив(i) & " "

Next i

Поле3.Value = s

End Sub

Пример

Быстрая сортировка

Алгоритм такой сортировки очень элегантен за счёт рекурсивного вызова функции.

Пишем функцию для быстрой сортировки:

Public Function быстро(массив() As Variant, k As Long, p As Long)