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!