Algoritmo VB para encontrar factoriales

Método 1 (bucle de conteo)

Utilice la instrucción For.

Función factorial (n como entero) siempre

En caso de error, GoTo Hander

Atenuar i mientras

Fábrica = 1

Para i = n a 1 Paso -1

Fábrica = Factorial * i

Siguiente i

Salir de la función

Hander:

MsgBox "¡El valor es demasiado grande!", vbExclamation, "Error"., vbExclamation, "Error"

Reanudar siguiente

Finalizar función

Método 2 (Recursión)

En pocas palabras, la recursividad es un procedimiento almacenado que llama al propio procedimiento almacenado.

Significado: n! = n* (n-1)!

Función factorial (n como entero) siempre

En caso de error, Ir al administrador

Si n > 0, entonces

Factorial = n * Factorial(n - 1)

Else

Factorial = 1

Finalizar si

Salir de Sub

Hander:

Msgbox "¡Valor demasiado grande!",vbExclamation, "Error al Hander".,vbExclamation, "Error"

Continuar a continuación

Función final

Por ejemplo, cuando n=5, el valor de Factorial(5) se convierte en 5 * Factorial(4). Factorial(4) puede convertirse en 4 * Factorial(3)... y Factorial(2) puede convertirse en 2 * Factorial(1). En este momento, se sabe que Factorial(1) = 1, la llamada recursiva se detiene y se ejecuta. El resultado es 5 * 4 * 3 * 2 * 1, ¡que es 5!

Este procedimiento se seguirá utilizando en la captura de errores (En caso de error...) para evitar que se produzcan errores de desbordamiento cuando el valor sea demasiado grande.