VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)-问答-阿里云开发者社区-阿里云

开发者社区> 问答> 正文

VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)

知与谁同 2018-07-15 15:13:30 951
VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)
算法
分享到
取消 提交回答
全部回答(1)
  • 一键天涯
    2019-07-17 22:55:00
    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 Function
    0 0
人工智能
使用钉钉扫一扫加入圈子
+ 订阅

了解行业+人工智能最先进的技术和实践,参与行业+人工智能实践项目

推荐文章
相似问题
推荐课程