Factorials

Public Function Factorial(ByVal iValue As Integer) As Long 
Dim fact As Long
Dim icount As Integer
   fact = 1
   For icount = 1 To iValue
      fact - icount * fact
   Next icount
   Factorial = fact
End Function




© 2017 Better Solutions Limited. All Rights Reserved. © 2017 Better Solutions Limited

Top

PrevNext