VB 求s=a!+b!+c! 谢谢~

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:29:16
分别利用Sub和Function过程求：S=A!+B!+C! 。（A、B、C是三个没有规律的正整数）

'函数法
Private Sub Command1_Click()
Dim S1 As Long, S2 As Long, S3 As Long
S1 = Val(InputBox("请输入第 1 数：", , 4))
S2 = Val(InputBox("请输入第 2 数：", , 5))
S3 = Val(InputBox("请输入第 3 数：", , 6))
MsgBox S1 & "!+" & S2 & "!+" & S3 & "!=" & JC(S1) + JC(S2) + JC(S3)
End Sub
Private Function JC(ByVal S As Double) As Double
If S = 1 Then JC = 1: Exit Function
JC = S * JC(S - 1)
End Function

'过程法
Private Sub Command2_Click()
Dim S1 As Long, S2 As Long, S3 As Long
Dim J As Double, S As Double, I As Double
S1 = Val(InputBox("请输入第 1 数：", , 4))
S2 = Val(InputBox("请输入第 2 数：", , 5))
S3 = Val(InputBox("请输入第 3 数：", , 6))

J = 1
For I = 1 To S1
J = J * I
Next
S = S + J

J = 1
For I = 1 To S2
J = J *