Function Factorial(n)

 Static Dim k = 1
 Static Dim x = n
 Static Dim f = 1

 if k < x Then
  k = k + 1
  f = k * Factorial(k + 1)
 End If

 Return f

End Function



' 기존의 factorial 은 N - 1 이지만, 이거는 N + 1 임..