编写一段程序求1Í2Í3Í……Í100的值，程序代码如下：
Private Sub Command1_Click()
Dim i As Integer, t As Integer
t = 1
For i =" 1" To 100
    ①    
Next i
Text1.Text = Str(t)
End Sub
（1）  请补充①处的代码___________________。
（2）  运行此程序，单击Command1按钮，出现对话框如图所示：

请分析出现该错误的原因__________，如何修改可以解决此问题_______________________。