1!+2!+...20!用VB怎么编?

1个按钮,复制过去看看

Private Sub Command1_Click(Index As Integer)
Dim i, sum, t
i = 1: sum = 0: t = 1
For i = 1 To 20
t = t * i
sum = sum + t
Next i
Print "1!+2!+...+20! = " & sum
End Sub

for i=1 to 20
for j=1 to i
sum=sum*j
j=j+1
next
next
这样不行吗？

sum=0
Jc=1
for j=1 to i
Jc=Jc*j
sum=sum+Jc
next j

print sum

有两个问题
先求阶乘
function jiecen(byval n as integer) as double
jiecen=1
for i=2 to n
jiecen=jiecen*i
next
end function

'主程序
Private Sub Command1_Click()
for i=1 to 20
he=he+jiecen(i)
next
print he
end sub

先编一个函数比较好 就像楼上那样 楼上的好像普通话不大好 HOHOHO