1． 编写计算1！+2！+3！+……n!的Sub过程，在窗体的Click事件中调用该过程，输出计算结果。
我写的代码：
Sub factS(ByVal n As Integer, fac)
fac = 1
For i = 1 To n
fac = fac * i
nexti
End Sub

Private Sub Form_Click()
Dim a As Integer, b As Integer
a = Val(InputBox("输入项数"))
Call factS(a, fac)
？？？？？？？？？？

Print fac;
End Sub

[此贴子已经被作者于2007-6-4 16:11:52编辑过]

factS是将n的阶乘保存在fac里面。

的按钮事件需要个循环累加……这个fac
fac要是模块级变量

给你写个循环的，至于怎么用SUB的话自己修改一下就可以了。
Private Sub Form_Click()
Dim I As Long, J As Long, SUMA As Double, SUMB As Double
J = Val(InputBox("输入项数"))
If J > 170 Then MsgBox "错误：" & vbCrLf & " 你所输入的数据太大，会导致程序溢出！": Exit Sub
SUMA = 0: SUMB = 1#
For I = 1 To J
SUMB = SUMB * I
SUMA = SUMA + SUMB
Next
Print SUMA;
End Sub

我的代码在下面，哪里有问题啊？
Sub factS(ByVal n As Integer, fac)
fac = 1
For i = 1 To n
fac = fac * i
Next i
End Sub

Private Sub Form_Click()
Dim a As Integer, b As Integer, sum As Double
a = Val(InputBox("输入项数"))
b = 0
For i = 1 To a
b = b + 1
Call factS(a, fac)
sum = sum + fac
Next i
Print fac;
End Sub

[此贴子已经被作者于2007-6-4 18:58:10编辑过]