（加试题）有如下程序段：
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1.Text = Str(Sum)
该程序段运行后，文本框text1中显示的内容是

A．174

B．180

C．36

D．42

某对分查找算法的VB程序段如下：







Loop

数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（   ）

A．9 3

B．9 3 5

C．9 17 19 13

D．9 3 5 8 19

现有如下Visual Basic程序段：

Private Sub Command1_Click()

Dim a(-1 To 8) As Integer

Dim i As Integer

For i = -1 To 8

  a(i) = i * i

Next i

Print a(i)

End Sub

运行程序，单击命令按钮Command1后，出现的错误提示可能是（  ）

A．子程序或函数未定义

B．下标越界

C．溢出

D．类型不匹配

Sub test16()
X = 9
For i =" 2" To 51 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
For i =" 2" To -2 Step 3
If (X / 2) >=" i" Then X =" X" + 1
Next i
MsgBox (X+i)
End Sub
该程序的运行结果是（   ） 

A．64

B．13

C．61

D．62

编写“幸运数字”程序，功能如下：在文本框Text1中输入出生日期，单击“算一算”按钮Command1，将日期中所有的数字按位相加，若结果为两位数则继续按位相加，直到结果为一位数，如出生日期为2003/08/11，数字按位相加2+0+0+3+0+8+1+1＝15，15按位相加1+5＝6。运行界面如图所示。

（1）程序窗体中共有_________类对象。
（2）请在划线处填入合适的代码。 
Private Sub Command1_Click()
Dim luck As Integer
Dim sr, c As String
luck = 0
sr = Text1.Text
If Len(sr) = 10 Then ’输入的格式长度符合条件
For i = 1 To Len(sr)
c = __________
If c >= "0" And c <= "9" Then
luck = luck + Val(c)
End If
Next i
Do While luck > 9
luck = luck Mod 10 +__________
Loop
Label2.Caption =“你的幸运数字是：”+str(luck)
Else
Label2.Caption = "输入有误，请重输！"
End If
End Sub
（3）若在文本框Text1中输入“2004/08/18”，Label2中显示的内容为__________。