code162a.txt

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

Private Function Factorial(ByVal Value As Integer) As Integer
  Dim Counter As Integer 

  Factorial = 1
  For Counter = 2 to Value
    Factorial = Counter * Factorial
  Next
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