Obtener el factorial de un número Codigo Fuente en Visual Basic

Problema
Ingrese un número y obtenga su factorial.

Solución
Para solucionar el  problema  del factorial, se resolverá de forma recursiva.

Ejemplo:

• Entrada = 5

Para calcular se multiplica el  numero dado por su antecesor hasta que este sea igual a cero en lo cual el factorial(1)=factorial(0)=1

           5 * 4 * 3 * 2 * 1 * 0

• Resultado = 120

Codigo Fuente en Visual Basic

    
Public Class Form1
    Public Function factorial(ByVal X As Integer, ByVal N As Integer)
        If (N > 0) Then
            X = factorial(X, N - 1)
            X = X * N
        Else
            X = 1
        End If
        Return X
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim X As Integer
        Dim N As Integer
        N = TextBox1.Text
        X = factorial(X, N)
        TextBox2.Text = Trim(X)
    End Sub
End Class

Descargar Proyecto Visual Basic