有如下VB程序段
X=0
For i =" 1" to 8 step 2
X=x+i
Next i
该程序段执行后，变量x的值是（   ）

A．9

B．16

C．25

D．36

下列程序执行后，整型变量n的值为（   ）。
n=0
for i="1" to 100
if i mod 4="0" then
n="n+1"
end if
next i

A．5050

B．25

C．26

D．33

下列VB程序中，f是一个递归函数：
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：（）

A．5

B．8

C．13

D．21

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）  
（2）  
（3）  
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t )  （3）
End Sub

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（   ）

Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer    '①
a(0) = 1   '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub

A．①	B．②
C．③	D．④