Faculteit: code

Function fac(getal As Integer) As Double
If getal < 0 Then Err.Raise 172, , "Geen negatieve getallen"
fac = 1
Dim factor As Integer
For factor = 1 To getal
fac = factor * fac
Next factor
End Function

[VB Web] - [hlrnet] - [copyright]