Какой бейсик быстрее - QBasic

Формулировка задачи:

У меня на компьютере есть 4 бейсика: QBasic 1.1, 4.5, 7.1 и Turbo Basic 1.0 Всем им была дана одна и та же программа с целью выяснить кто быстрее считает. Задача была такая суммировать 100 миллионов слагаемых гармонического ряда. Если принять скорость счёта QB1.1 за 100%, то результат таков: QB1.1 = 100% TB1.0 = 340% (Turbo Basic) QB4.5 = 460% QB7.1 = 780% Удачи вам!

Решение задачи: «Какой бейсик быстрее»

Листинг программы

DisableDebugger
 
t=ElapsedMilliseconds()
 
s = 0
For i = 1 To 100000000
  s = s + 1 / i
Next i
 
MessageRequester("", Str(ElapsedMilliseconds()-t)+" миллисекунд")

Объяснение кода листинга программы

Отключается отладчик.
Измеряется время выполнения первого цикла.
Переменная «s» инициализируется нулем.
Выполняется цикл, в котором переменная «s» суммируется с результатом деления единицы на текущее значение переменной «i».
Выводится сообщение с оценкой времени выполнения цикла в миллисекундах, т.е. оценивается скорость работы.