Programación General > Visual Basic 6.0 e inferiores

 Re: factorial

(1/1)

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

gracias
michael

curioso:
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)

Navegación

[0] Índice de Mensajes