code159a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 8 行

Private Function Factorial(ByVal Value As Integer) As Integer
  Debug.Print "In factorial with the value "; value
 
  If Value = 1 Then
     Factorial = 1
     Debug.Print "Returning the value 1"
  Else
     Debug.Print "Returning