各位帮我看看这段代码错在那？

Question

Private Sub Command1_Click()
Dim i, j, t As Integer
t = 0
For i = 1 To 20
For j = i To 20
i = i * j
Next j
t = t + i
i = 0
Next i
Text1.Text = t
End Sub
求1--20各数阶乘之和

Answer 1

dim t as Double 
不过大家要小心，这可能是个套，运行后会让你的机器长时间没有反应！

Answer 2

Private Sub Command1_Click()
Dim i as long , j as long, t As long
t = 0
For i = 1 To 20
For j = i To 20
i = i * j
Next j
t = t + i
i = 0
Next i
Text1.Text = str(t)
End Sub

Answer 3

i=0
i=0
i=0
i=0
i=0
i=0
i=0

Answer 4

Private Sub Command1_Click()
Dim i , j 
Dim s , t As long
t = 1
s = 1
For i = 2 To 20
For j = 1 To i
t = t * j
Next j
s = s + t
t = 1
Next i
Text1.Text = str(s)
End Sub

Answer 5

long类型肯定不足够（-2,147,483,648 到 2,147,483,647）而溢界，double可以。
但为通用性和安全性着想，建议最好还是用字符数组处理。

Answer 6

前面几段代码都不行，还行后会溢界,double可以但运行后会让机器长时间没有反应,
请大家按这个要求写一段代码,好让我学习学习