求阶乘

[vb]代码库

Private Function fact(n As Integer) As Long
    If n <= 1 Then
       fact = 1
   Else
       fact = n * fact(n - 1)
    End If
  End Function
Private Function fact(n As Integer) As Long
    Dim i As Integer
    fact = 1
    For i = 1 To n
       fact = fact * 1
    Next i
End Function