Сравнить скорости работы методов сортировки

[seosage]

Всем привет. Помогите пожалуйста. Все сделал, но не могу сравнить методы сортировки. Завтра сдавать(

"Сравнить скорости работы выбранных методов сортировки на массиве заданном случайным образом, уже отсортированном и отсортированном в обратном порядке. Размер массива задается пользователем. Результаты выводятся на отдельную форму."

Файл стал прикреплять, не влезает. Залил на rghost.ru - http://rghost.ru/46792847

[Hugo121]

Не влезает из-за картинки. Замените bmp на png/jpg - вес будет меньше. А на форум вообще можно было без этого Image1 заливать - вес всего 61,5 КБ.

[Hugo121]

Обычный просто замеряю так:

Dim tm!

tm = Timer
'работа
Debug.Print Timer - tm'ну или пишем в форму

Но на таких быстрых задачах мерить трудно, слишком быстро:

0,015625
0,03125
0,03125

Нужно их в цикле гонять по 100 раз и тогда смотреть время.
Но есть другой вариант - принцип тот же, но точнее:

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long 

Private Sub YourMacro() 
    iMlSeconds& = GetTickCount 

    'Здесь должен быть код Вашей программы. 

    MsgBox "Время выполнения макроса составило " & _ 
    GetTickCount - iMlSeconds& & " милисек.", vbExclamation, "" 
End Sub

Сравнение результатов на 200 элементов:

0,015625
16
0,3125
312
0,359375
359

[seosage]

Сообщение от Hugo121

Обычный просто замеряю так:

Dim tm!

tm = Timer
'работа
Debug.Print Timer - tm'ну или пишем в форму

Но на таких быстрых задачах мерить трудно, слишком быстро:

0,015625
0,03125
0,03125

Нужно их в цикле гонять по 100 раз и тогда смотреть время.
Но есть другой вариант - принцип тот же, но точнее:

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long 

Private Sub YourMacro() 
    iMlSeconds& = GetTickCount 

    'Здесь должен быть код Вашей программы. 

    MsgBox "Время выполнения макроса составило " & _ 
    GetTickCount - iMlSeconds& & " милисек.", vbExclamation, "" 
End Sub

Сравнение результатов на 200 элементов:

0,015625
16
0,3125
312
0,359375
359

Спасибо большое, очень выручили. Только не могли бы вы закинуть это в мой файл? Не получается сразу несколько процедур туда запихать(

[Hugo121]

Только добавил замер времени, чуть расширил текстбоксы. Не вылизывал - дорабатывайте на свой вкус.
Ну и убрал этого монстра