程序完善题。该程序要实现的功能是：计算下列分段函数的值。请将程序中方框部分的程序段补充完整。（4分）

Dim x As Single
Dim y As Single
x = Val(InputBox("请输入x的值："))

Print y

运行如下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．④

小华同学设计了一个VB程序，其功能是在text1中输入文本，点击“统计”按钮，自动统计字母a和字母b的出现次数，并显示在text2和text3中。程序设计界面如下图所示：
 
（1）运行程序时发现窗体的标题显示为“form1”，将窗体标题显示为“字母统计”，应修改窗体form1的_____________属性。
（2）通过窗体的加载事件也可以修改窗体的标题属性，请补充下列代码
Private Sub Form_Load（）
___________________= "字母统计"
End Sub
（3）根据题意，将下列程序补充完整。
Private Sub Command1_Click（）
Dim s As String，i As Integer，ta As Integer，tb As Integer
Dim lens As Integer ‘变量lens表示字符串s的字符个数
s = Text1.Text
lens =________________
For i =" 1" To lens
If Mid(s,I,1)= "a"  Then ta =" ta" + 1
If Mid(s,i,1)= "b"  Then tb =" tb" + 1
Next i
Text2.Text =" Str(" ta)
Text3.Text = Str(tb)
End sub

下列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

下列递归算法的功能是计算正整数n阶乘的值，则划线处应填为______________
Function f(n As Integer) As Long
If n < = 1 Then
f = 1
Else
f = _________________
End If
End Function