1、
Private Function JS(n As Long) As Double
If n > 0 Then
Dim i As Integer, t As Double
t = 1
For i = 1 To n
t = t * i
Next
JS = JS(n - 1) + t
End If
End Function
2、
Private Sub XS()
Msgbox JS(20)
End Sub
阶乘一般是用递归法写函数的。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024