作业帮 > 综合 > 作业

用fact函数求阶乘求和的vb语言用过程法 +2!+3!+ +n!调用fact函数求阶乘之和

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/03 00:42:38
用fact函数求阶乘求和的vb语言用过程法 +2!+3!+ +n!调用fact函数求阶乘之和
Option Explicit
Dim s As Integer
Private Sub Command1_Click()
Text2.Text = Str(fact(Val(Text1.Text)))
s = 0
End Sub
Private Function fact(n As Integer) As Integer
Dim i As Integer,j As Integer
j = 1
fact = 0
For i = 1 To n
j = j * i
s = s + j
Next i
fact = s
End Function
再问: j = j * i ����Ǵ�ģ��������ҵ��԰�
再答: Option Explicit Dim s As Long Private Sub Command1_Click() Text2.Text = Str(fact(Val(Text1.Text))) s = 0 End Sub Private Function fact(n As Integer) As Long Dim i As Long, j As Long j = 1 fact = 0 For i = 1 To n j = j * i s = s + j Next i fact = s End Function ����Ϊ����ˡ���һ�����;����ˡ�