作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/11 23:21:33
VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)
VB程序设计使用递归算法求P的值 P=A!+B!+C!(A,B,C是任意自然数)
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