Разобрать код вычисления факториала - Visual Basic .NET
Формулировка задачи:
Листинг программы
- Public Class Form1
- Dim k As Integer
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim res, i, kontr, f As Integer
- f = TextBox1.Text
- TextBox2.Text = 1
- res = Fact(f)
- TextBox3.Text = res
- kontr = 1
- For i = 1 To f
- kontr = kontr * i
- Next
- TextBox4.Text = kontr
- End Sub
- Function Fact(ByVal N As Long) As Long
- Console.WriteLine(N)
- Dim m As Integer
- If N <= 0 Then
- m = 1
- Else
- TextBox2.Text = TextBox2.Text + 1
- m = Fact(N - 1) * N
- End If
- Console.WriteLine(m)
- Return m
- End Function
- End Class
Решение задачи: «Разобрать код вычисления факториала»
textual
Листинг программы
- Function Fact(ByVal N As Long) As Long
- If N <= 0 Then
- return 1
- Else
- return Fact(N - 1) * N
- End If
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д