VB编程:求1!+2!+3!+...+N!(N为任意正整数)

'在窗体上加入一个command1控件，然后复制下面代码，运行即可。

Option Explicit

Private Sub Command1_Click()
Dim i As Long, j As Long, k As Long
Dim s As Long, a As Long
j = InputBox("请输入一个正整数：")
If j < 1 Then
MsgBox "出错！"
Exit Sub
End If
For i = 1 To j
a = 1
For k = 1 To i
a = a * k
Next
s = s + a
Next
MsgBox "1!+2!+3!+...+N!=" & s
End Sub

'放一个text控件，一个按钮控件
'text控件中输入你要的N

Private Sub Command1_Click()
Dim a As Integer
Dim s, b
a = Val(Text1.Text)
s = 0
b = 1
For i = 1 To a
b = b * i
s = s + b
Next
Print "结果为：" & s
End Sub
'楼上算的是N！，而不是1!+2!+3!+...+N!

输个1000进去，楼上两位的都得溢出。
这个链接是讨论版(不含源码)：请问各位VB编程高手,小女子急求VB编程题目1、 求1+1/2+1/3+……+1/50的和 vb编程 求1+1/2+1/3+……+1/2007 VB:求S=1！+2！+3！+……+20！的编程代码 求高手VB编程~~~~ 求VB编程问题 求VB编程 求vb程序编程 求vb编程 求VB的编程 求VB编程高手