VB编程计算由下列公式确定的S值S = 1 + 2！+ 3！ + 4！ + … + n！ ( A.frm)

Answer 1

Private Sub Form_Load()
MsgBox JG(100)'对话框显示n为100时的S值
End Sub
Function JG(n)
For i=1 to n
c=c + JC(i)'累加各个阶乘的结果
Next i
JG=c’得到最终的S值
End Function
Function JC(mI)‘简单法求阶乘（因为题目中不会用到0！所以下面算阶乘的自定义函数是对的）
For i=1 to mI
d=d + i
Next i
JC=d
End Function

Answer 2

Public Function s(n)
Dim i, j, t, res
For i = 1 To n
t = 1
For j = 1 To i
t = t * j
Next
res = res + t
Next
s = res
End Function