SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: michael en Sábado 28 de Septiembre de 2002, 03:37

Título: Re: factorial
Publicado por: michael en Sábado 28 de Septiembre de 2002, 03:37

hola como puedo hacer para calcular el factorial de un numero?

gracias
michael

Título: factorial
Publicado por: curioso en Lunes 30 de Septiembre de 2002, 21:29

Function Factorial(nf As Long) As Long
'Dim nf As Long
    If nf = 1 Or nf = 0 Then
        Factorial = 1
    Else
        Factorial = nf
        While nf > 1
            Factorial = Factorial * (nf - 1)
            nf = nf - 1
        Wend
    End If
End Function
B)B)