有如下程序:
Private Sub Command1_Click()
Dim a(5) as Integer
Dim n as Integer, i as Integer
n=Val(Text1.Text)
i=0
a(1)=1: a(2)=1
For i=3 To n
a(i)=a(i-1)+a(i-2)
Next i
Label1.Caption=a(i)
End Sub
若在Text1中输入5,则点击按钮后的运行结果为( )
A . Label11中输出5
B . Label1中输出10
C . 报“下标越界”错误
D . Label11中无内容
答案:C