VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)
VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)
展开
收起
1
条回答
写回答
写回答
-
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim p As Long
a = Val(InputBox("A="))
b = Val(InputBox("B="))
c = Val(InputBox("C="))
p = jc(a) + jc(b) + jc(c)
Print a & "!+" & b & "!+" & c & "!=" & p
End Sub
Function jc(n As Integer)
If n > 1 Then
jc = n * jc(n - 1)
Else
jc = 1
End If
End Function2019-07-17 22:55:00赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
问答排行榜
最热
最新
推荐问答
