用VB编程s=1!+2!+3!+...+n!

Private Sub Command1_Click()
Dim n as integer , i as integer, s as integer , l as integer, k as integer
n = val(InputBox(""))
For l = 1 To n
s = 1
For i = l To 1 Step -1
s = s * i
Next i
k = k + s
Next l
Print k
End Sub

dim i as integer
dim n as integer
dim m as integer
dim t as long
dim s as long
n=val(inputbox())
s=0
for i=1 to n
t=1
for m=1 to i
t=t*i
next m
s=s+t
next i
print s

n=cint(inputbox("请输入n"))
s=0
for i=1 to n
x=1
for j=2 to i
x=x*j
next
s=s+x
next
print "s=";s

dim s as integer '阶乘总和
dim num as ingeger '价乘
s=0
num=1
for i=1 to n
num=num*i
s=s+num
next i
楼上的方法是可以就是有点麻烦

两个函数 ：1，求阶乘
2，累加

求阶乘问题。