对以下程序段的说法正确的是（   ）
s=0
i=0
Do While s<10
i=i+1
s=s+i*i
Loop

A．该程序的循环体执行了3次

B．该程序段结束后i的值为3

C．该程序段结束后i的值为4

D．该程序段结束后s的值为13

编写VB程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。

（1）要调整Label1中的字体大小，可选择在属性面板中设置Label1的    。（单选，填字母：A.Caption / B.Font /

A．Height）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, t As String
Dim i As Integer, b As Integer, ans As Long
Dim flag As Boolean
s =    ①
b = Len(s)
flag = True
ans = 0
For i =" 1" To b
c =" Mid(s," i, 1)
If c >= "0" And c <= "9" Then
ans =" ans" * 16 + Asc(c) - Asc("0")
ElseIf c >= "A" And c <= "F" Then
ans =" ans" * 16 +  ②
Else
③   '输入情况有误
Exit For
End If
Next i
If flag Then t =" Str(ans)" Else t ="输入有误!"
List1.AddItem s + "-->" + t
End Sub
（3）由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为 。（单选，填字母：A. d8-->216/ B. d8-->输入有误!）

编写一个具有下列功能的VB程序：在文本框Text1中输入一串字符，单击“统计”按钮Command1，在标签Label1中输出字符串的长度。运行界面如图所示，在划线处填入合适的语句或表达式，完成程序。

Dim s As Integer
Private Sub Form_Load()
Command1.Caption = " "
End Sub
Private Sub Command1_Click()
s =
Label1.Caption = "共有" + Str(s) + "个字符"
End Sub

古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。例如28的因子是1、2、4、7、14，且1+2+4+7+14＝28，则28是一个完全数。编程求解2，1000内的所有完全数，用VB编写的程序运行界面如图2-1所示。

图2-1
（1）利用计算机解决问题一般可以分哪三个步骤？     ①      、
②      、 ③      。
（2）图2-1中标注A处的对象类型应为标签类对象   ④    （填：对 / 错）。    
（3）标注B处 Command1对象属性肯定被修改过的是   ⑤   （填：Caption / Font）
（4）在窗体中，创建标签类（Label1）对象时应选择工具箱中的_____⑥_______(如图2-2，填字母: A / B / C / D)

A．

B．

C．

D．

（5）按此要求编写的程序如下，程序划线处⑦应填入    ⑦   （填：Text1_Change() / Command1_Click()），⑧应填入    ⑧  （填：Dim /Define） 。
Private Sub    ⑦ 
  ⑧  a, b, s As Integer
For a =" 2" To 1000
S = 0
For b =" 1" To a - 1
If a Mod b =" 0" Then s =" s" + b
Next
If a =" s" Then List1.Additem str(a) '输出满足条件的完全数a
Next
End Sub
（6）调试正确，编译生成可执行文件后，想把自己的
成果通过QQ传给同学们使用。发送时应该选择如图2-3
中___⑨_____（填完整文件名）。

在VB应用程序设计中，如果想让Timer控件禁用，应该将其  属性设置为  。

A．Enabled 、False

B．Enabled、True

C．Visible、False

D．Visible、True