Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Septiembre 21, 2013, 11:37:23 am

Título: Función de Factorial
Publicado por: Bazooka en Septiembre 21, 2013, 11:37:23 am

Hola Gente he creado esta función para calcular el Factorial de un numero y me gustaria saber si es posible hacerla mas robusta o no se justifica por su simplicidad...

Código: [Seleccionar]

Private Function FACTORIAL(NUM As Integer) As Double

    Dim Res

    Dim tmp

    Dim cont

    Res = 1

    For cont = 1 To NUM
        Res = Res * cont
        tmp = Res
    Next

    FACTORIAL = tmp

End Function


Título: Re:Función de Factorial
Publicado por: YAcosta en Septiembre 21, 2013, 12:52:38 pm

Creo que mas no se puede hacer que ahorrarse un par de lineas

Código: (VB) [Seleccionar]

Function factorial(ByVal n as Integer) as Long
Dim i as Integer
factorial = 1
For i = 1 to n
   factorial = factorial * i
Next a
End Function