code157a.txt

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

Private Function Factorial(ByVal Value As Integer) As Integer
  If Value = 1 Then
     Factorial = 1
  Else
     Factorial = Value * Factorial(Value-1)
  End If
End Function

Public Sub Main()
  Dim I as Integer

  For I = 1 to 5
     Debug.Print "The factorial of " & i & " is ",  factorial(i)
  Next
End Sub