Modo compacto | Modo extendido

Buscar · 03-08-2010 01:14 PM

Bueno, aclararles que no soy para nada un fan de VB, y tampoco es que me la lleve muy bien con él, pero en fin…Cuando toca hacer trabajos o actividades en determinado lenguaje no queda más alternativa ¿no?.

Lenguaje VB

' ------------------------------------------
'|----------- Función Factorial
'|---- Calcula el factorial de un número
'|---------- Autor: .:WindHack:. 
'|--- Sitio(s) Web: :http://daw-labs.com
'|---------------  :http://cibernodo.net
'|--------------   :http://foro.cibernodo.net
' -----------------------------------------
Public Function Factorial(Num As Double) As String
Dim I As Integer
  If Num >= 170 Then
      Factorial = "Numero Infinito..."
  Else
    For I = 1 To Num - 1
      Num = Num * I
      Factorial = Num
    Next
End If
End Function

Con “recursividad”:

Lenguaje VB

Public Function FactorialR(Num As Double) As Currency
If (Num > 0) Then
   FactorialR = Num * FactorialR(Num - 1)
Else
   FactorialR = 1
End If
End Function