1. (2017高二上·宁波期中) 阅读以下程序，完成后面的题目：

Private Sub Command1_Click()

        Dim  N  As  Integer

        Dim  S  As  Integer

        N = val(Text1.Text)    

        S = 0

          For i = 1 To N

             S = S +  i * (i + 1)

          Next i

        Text2.Text = str(S)

End Sub

1. （1） 当程序运行时，在Text1文本框中输入4，单击按钮command1,结果在Text2输出。
   
3. （2） 在text1中输入10000，程序会出现什么错误？。(选填：要求对象/下标越界/无效的调用过程/溢出)