某对分查找算法的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

某算法的部分流程图如图所示。

执行这部分流程，s的初值为0，输入n为5，则输出s的值为

A．1

B．4

C．5

D．6

某VB程序段代码如下：
Private Sub Command1_Click()
a = Text1
For i = 1 To Len(a)
b = Mid(a, i, 1)
c = Chr(Asc(b) )
d = d + c
Next i
Text2 = d
End Sub
如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：

A．16100

B．6131

C．001613

D．3161

学习了VB之后，小明编写了一个三角形面积计算器的程序，其窗体界面如图1所示，代码部分如图2所示：

图1

图2
(1)在图1中当前选定的对象属于_____________________________________类。
(2)根据图2中的代码，可以确定图1中唯一一个按钮的对象名是________。
(3)图2中①所在位置的代码应该是：_________________________。
(4)程序正常运行时，如果输入三角形的三条边长分别为11、25、12，则点击“计算”后，Label5的Caption值将是： ____________________________。

下列VB程序段用于读取某数据库中的数据，相应数据表结构如图所示。

Dim adoConn As New ADODB. Connection
Dim adoRs as New ADODB. Recordset
Dim a(l to 1000) As String， b(l to 1000) As Integer
adoConn. Connection String ="Provider ="Microsoft
ACE. OLEDB 12.0；
DATA Source="&App. Path&"\mydata. Accdb"
adoConn. Open
Set adoRs. ActiveConnection=adoConn
adoRs. Open" Select* From Score"
n=0
Do While Not adoRs. EOF

n=n+1

a(n)= adoRs, Fields("学号"). Value

b(n)=adoRs Fields(3). Value

adoRs. MoveNext

Loop
adoRs. Close:adoConn.Close
下列对于该程序段的理解正确的有（   ）
①程序连接的数据库文件名是" mydata.echb"
②程序打开的数据表名称是" Score"
③程序将数据表中的数学成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为 adoConn. Close

A．①②④

B．②③④

C．②④⑤

D．②③④⑤