Помогите с факториалом
Добавлено: 16 май 2010, 15:13
Не получается вычислить факториал и оформить его в виде функции. помогите пожалуйста очень надо.
Milli_billi
ссылка не работает.
Busine2009 писал(а):Milli_billi
ссылка не работает.
Код: Выделить всё
Sub Test()
MsgBox Str(Fact(3))
End Sub
Function Fact(n As Integer)
If n < 1 Then
Fact = 1
Else
Fact = Fact(n - 1) * n
End If
End Function