6
条回答
写回答
写回答
-
Function A(n As Long) As Double
If n > 0 Then A = IIf(n = 1, 1, n * A(n - 1))
End Function
举例说明:使用方法为 Msgbox a(12)
程序就会求出12的阶乘,其结果为479001600
最大可以计算到 170的阶乘2019-07-17 22:55:31赞同 展开评论 打赏 -
Private Sub Command1_Click()
Print f(10)
End Sub
Function f(n As Integer) As Long
If n = 0 Or n = 1 Then
f = 1
Else
f = n * f(n - 1)
End If
End Function2019-07-17 22:55:31赞同 展开评论 打赏 -
function jc(byval n as integer)
if n=1 then
return 1
else
return jc(n-1)*n
end if
end function2019-07-17 22:55:31赞同 展开评论 打赏 -
Private Sub Command1_Click()
Print Jie(5)
End Sub
Private Function Jie(ByVal i As Integer)
If i = 1 Then
Jie = 1
Exit Function
End If
Jie = i * Jie(i - 1)
End Function2019-07-17 22:55:30赞同 展开评论 打赏 -
12535Dim s As Long
s = 1
For i = 1 To 10 Step 1
s = s * i
Next i
Print s
已经验证过了没问题~~~
LZ 加油啊~2019-07-17 22:55:30赞同 展开评论 打赏 -
VB 递归算法 求阶乘
Function Factorial(n As Long) As Long
If n = 1 Then Factorial = 1 Else Factorial = n * Factorial(n - 1)
End Function
Private Sub Command1_Click()
Dim n As Long
For n = 1 To 10
Print CStr(n); "!="; Factorial(n)
Next n
End Sub2019-07-17 22:55:30赞同 展开评论 打赏
滑动查看更多
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
问答排行榜
最热
最新
推荐问答
