Основы офисного программирования и язык VBA


Пример 9.3


Public Sub TestRecursive()

'Сравнение по времени рекурсивной и нерекурсивной реализации факториала.

Dim i As Long, Res As Long

Dim Start As Single, Finish As Single

'Рекурсивное вычисление факториала

Start = Timer

For i = 1 To 100000

Res = Fact(12)

Next i

Finish = Timer

Debug.Print "Время рекурсивных вычислений:", Finish - Start

'Нерекурсивное вычисление факториала

Start = Timer

For i = 1 To 100000

Res = Fact1(12)

Next i

Finish = Timer

Debug.Print "Время нерекурсивных вычислений:", Finish - Start

End Sub




Начало  Назад  Вперед



Книжный магазин