7 lines
115 B
Text
7 lines
115 B
Text
Procedure factorial(n)
|
|
Protected i, f = 1
|
|
For i = 2 To n
|
|
f = f * i
|
|
Next
|
|
ProcedureReturn f
|
|
EndProcedure
|