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

Question

完整的编程

Answer 1

'在窗体上加入一个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

Answer 2

'放一个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!

Answer 3

输个1000进去，楼上两位的都得溢出。
这个链接是讨论版(不含源码)：http://bbs.bccn.net/viewthread.php?tid=148409&extra=&highlight=%2Bjoforn&page=19
源码在这个链接中：http://bbs.bccn.net/viewthread.php?tid=157144&highlight=%2Bjoforn

里面有好多种不同方式实现的。

Answer 4

vb课本上就有源代码