Дано натуральное число n; найти n!, используя рекурсию - VB

Узнай цену своей работы

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

1.Условие задачи: Дано натуральное число n; найти n!. Использовать программу, включающую рекурсивную процедуру вычисления n! Помогите пожалуйста изменить код задачи с Delphi на Visual Basic.

Решение задачи: «Дано натуральное число n; найти n!, используя рекурсию»

textual
Листинг программы
Function Factorial(N As Integer) As Long
    If N = 0 Then Factorial = 1 Else Factorial = N * Factorial(N - 1)
End Function
 
Private Sub Command1_Click()
Dim N As Integer
    N = Text1.Text
    Label3.Caption = "n! = " & Factorial(N)
End Sub

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы