Долго, несколько месяцев, если еще не считать то, что это была переделка другой книгиВообше очень интересно сделано, мне нравится, сколько ты это писал.
Еще всем, в книге не правильно описанна функция вычисления факториала, она не вычислит правильно факториал при 0! Разумней всего для скорости выполнения и праильности вычисления так:
- Код: Выделить всё
Function fact(ByVal n As Byte) As Double
If n > 2 Then
fact = fact(n - 1) * n
elseIf n > 0 Then
fact = n
Else
fact =1
End If
End Function