编写计算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

Option Explicit
Sub factS(ByVal n As Integer, ByRef Fac As Double)
Dim I As Long
Fac = 1#
For I = 1 To n
Fac = Fac * I
Next
End Sub
Private Sub Form_Click()
Dim A As Integer, B As Integer, SUM As Double, Fac As Double
A = Val(InputBox("输入项数"))
For B = 1 To A
Call factS(B, Fac)
SUM = SUM + Fac
Next
Print SUM;
End Sub

'以后同一个问题请不要重复发帖，下次就直接删帖处理。

[此贴子已经被作者于2007-6-4 20:09:48编辑过]

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

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

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

Private Sub Command1_Click()
Print "1!+2!+…+6!="; SumFac(6)
End Sub

Private Function SumFac(n%) As Long
Dim i%, Fac &
Fac = 1
SumFac = 1
For i = 2 To n
Fac = Fac * i
SumFac = SumFac + Fac
Next i
End Function

SLORE的比较好些