Fattoriale di un numero

Questa funzione che restituisce il fattoriale di un numero. Per esempio il fattoriale di 6 è 'uguale a: 6*5*4*3*2*1=720

'*********************************************
'num = numero
'*********************************************
Function Fattoriale(num As Integer) As Double
If num = 0 Then
    Fattoriale = 1
Else
    Fattoriale = num * Fattoriale(num - 1)
End If
End Function

Testato su: Tutti i Sistemi operativi