VB代码，高手进，急啊！知道的快，赶时间

来源：百度知道 编辑：UC知道 时间：2024/07/02 14:25:17
计算：1！+2！+3！+……+(n-1)!+n!的值
要求：编写一个jc()过程或函数，实现n！的求解，为了调用jc()函数或过程，新建一个窗体，在窗体上放两个文本框（text1,text2），分别存放n和1！+2！+3！+……+(n-1)!+n!的值。

Private Function jc(ByVal n)
If n = 0 Then jc = 1
If n > 0 Then jc = jc(n - 1) * n
End Function

Private Sub Command1_Click()
n = Val(Text1.Text)

For i = 1 To n
s = s + jc(i)
Next

Text2.Text = s
End Sub

程序计算最大阶乘数是170（结果：7.30036041564732E+306），最小是1（结果：1），已经调试成功。

Dim AQ As Double, N As Integer

Private Sub Command1_Click()
N = Val(Text1.Text)
If N > 0 Then
Call jc
ElseIf N <= 0 Then
MsgBox "阶乘数数不能等于或小于零！"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "计算"
Command2.Caption = "结束"
AQ = 0: N = 0
End Sub

Private Sub jc()
Dim AR As Double
Text2.Text = ""
AQ = 0
AR = 1
If N = 1 Then
AQ = 1
ElseIf N > 1 T