vb一难题,怎么办?

关于　 20
求 ∑ n!，即求1!+2!+3!+4!…+20!．
　n=1
这代码不会写呀！请名位帮忙！谢谢！的问题

为什么你们都写的这么复杂呢？？？
Private Sub Command1_Click()
sum=0
For i = 1 To 20
jie=1’不可省略，每算一次i！后，把jie复位为1
for j=1 to i
jie=jie*j
next j
sum=sum+jie
next i
text1.text=str(sum)
End Sub
简单明了，内循环算i！，外循环则把i！加起来。