小王编写了一个进制转换程序，实现如下功能：在文本框 Text1 中输入一个二进制数，单击 “计算”按钮 Command1，在文本框 Text2 中将显示出其对应的十六进制数。程序运行界面如下图所示：

（1）要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在______（单选，填字母：

A．Command1_click /

B．Text1_click /

C．Form_load）事件处理过程中添加语句 Text1.Text= ""

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click（）
Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF"
s = Text1.Text
t = 0: s1 = ""
For i = Len(s) To 1 Step -1
c = Val(Mid(s, i, 1))
t = t + c * 2 ^ ((Len(s) - i) Mod 4)
If (Len(s) - i + 1) Mod 4 = 0 Or ①_______________Then
______________②
t = 0
End If
Next i
Text2.Text = s1
End sub
（3）如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为________。

某数列前三项分别为：a1 = 2、a2 = 3、a3 = 4，以后每项都满足: ai = ai-3 + ai-1 （i>3，i,i-3,i-1为a的小标）。如果用数组a存储该数列的前20项，下面程序段划线处应填入
a(1)=2 : a(2)=3 : a(3)=4
For i=______ To 20
a(i) = a(i - 3) + a(i - 1)
Next i

A．6

B．9

C．13

D．4

有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，以下程序执行后，i的值是（   ）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i

A．6

B．3

C．4

D．5

程序的三种基本结构为（   ）。

A．顺序结构、树形结构和选择结构

B．网状结构、顺序结构和选择结构

C．顺序结构、选择结构和循环结构

D．网状结构、循环结构和树形结构

如图所示的流程图片断：

该流程图中循环部分结束后，变量s的值是（  ）

A．3

B．6

C．10

D．12