Выполнить сортировку чисел в массиве по возрастанию
Выполнить сортировку чисел в массиве по возрастанию
2009-12-01 07:06 Александр
Выполнить сортировку чисел в массиве по возрастанию.
Option Explicit
Dim vArray, vMid As Long, vBuf As Long 'для QuickSort массив и две переменные следует объявить в General/Declarations
Dim cnt_Compares As Long, cnt_Moves As Long
Sub Inc(L As Long, Optional D As Long = 1)
L = L + D
End Sub
Sub sort_Пузырьки(vArray)
Dim I As Long, J As Long, D [...]