s=1!+2!+3!+......+n! 用VB程序写出来

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:19:01
急求哦！！在VB程序设计教程书的第三章课后习题上！

Private Sub Command1_Click()
Dim i, n, p, s As Single
n = InputBox("")
p = 1
s = 0
For i = 1 To n
p = p * i
s = s + p
Next i
Print s
End Sub

private function f(byval n as integer) as long
dim i as integer
dim s as long
for i=1 to n
s=s+i
next i
f=s

Private Sub Command1_Click()
Dim n,i,s as long
n = InputBox("please input n")
s = 0
For i = 1 To n
s=s+f(i)
Next i
Print s
End Sub