Calcular el factorial de un número

[Joseph]

Que tal? acá les dejo un código para calcular el factorial de un número, ya que he visto esta petición en varios foros...

Function factorial(num As Integer)
If num = 0 Then
factorial = 1
Else
factorial = num * factorial(num - 1)
End If

End Function

-------------------------------------------

Private Sub btn_calcular_Click()
res = factorial(n)
End Sub



Suerte!

[TolaWare]

Pues esa funcion es correcta, pero tiene una falla, cuando quieres calcular el factorial de 13, se produce un desbordamiento, para poder calcular factoriales mas grandes, tenes que usar el tipo currency,

[Joseph]

no, el funciona bien hasta el 170!

[TolaWare]

El factorial de 170 es:
7,2574156153079989673967282111278e+306

Digamos en terminos reales:
72574156153079989673967282111278000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000
0000000000000000000000000

Dime ¿que tipo de variable usaste para guardar ese numero sin que se produjese un desbordamiento?

[Tecnogal]

ese es un scrip clasico..ami me lo enseñaron junto con la frase "para entender la recursividad, primero hay que entender la recursividad"