RECURSIVIDAD: FACTORIAL

Public Class Form1
Dim a, b, N As Integer
Function Factorial(ByVal N As Integer) As Integer
If N <= 1 Then
Return 1
Else
Return Factorial(N - 1) * N
End If
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = TextBox1.Text
b = Factorial(a)
Label2.Text = b
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class