编写计算1！+2！+3！+……n!的Sub过程，在窗体的Click事件中调用该过程，输出计算结果。
我写的代码：
哪里有问题啊？
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

谢谢，我当是发了，就后悔了。我想删除却怎么也删除不了啊。以后不会了，给大家带来麻烦了。

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, i As Integer
a = Val(InputBox("输入项数"))
b = 0
For i = 1 To a
b = b + 1
Call factS(i, fac)
sum = sum + fac
Next i
Print sum
End Sub

这样改改就行了，太粗心了