VB阶乘的算法,VB求N的阶乘怎么做啊？快（详细的）

网友回答

Function Factorial(ByVal i As Integer) As Long
　　 Dim s As Long
　　 s = 1
　　 If i>0 Then
　　 Do While i>0
　　 s = s * i
　　 i = i - 1
　　 Loop
　　 Factorial = s
　　 Else
　　 Factorial = 0
　　 End If
　　End Sub
　　当然也可以用递归，注意数据溢出。
　　调用可以用 ret = Factorial(3)，此时 ret = 6

网友回答

递归法,下面这个是个编写出来的阶乘函数,直接调用就可以了
　　Private Function jiecheng(n As Integer) As Integer
　　If n = 1 Then
　　jiecheng = 1
　　Else
　　jiecheng = n * jiecheng(n - 1)
　　End If
　　End Function