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


         

i As Long, Res As


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

Содержание  Назад  Вперед