用basic编写 1!+2!+3!+4!+5!的值 的程序

哎，这么简单的题目都没人答对，简直不敢相信这个现实：

s=0
p=1
for i=1 to 5
p=p*i
s=s+p
next i
print s

就这么简单，循环体里面，for从1到5循环的时候，每次的p都刚好是i!，s就是累积的和。

k=1 for i=1 to 5 for j=1 to i k=k*j next j m=m+k next i

Private Sub Command1_Click()

Dim i As Long
Dim j As Long
Dim s As Long

j = 1

For i = 1 To 5
s = s + j * i
j = -j
Next

MsgBox s

End Sub