Public Function Func(ByVal n as integer, byval m as integer) as long
dim t as long, i as integer
t = 1
for i = n to m
t = t * i
next
Func = t
End Function