某对分查找算法的 VB 程序段如下：
i=1:j=8:s=""
key=Text1.Text
Do While i<=j
m=(i+j)\2
If key=a(m) Then
s=s+"M"
Exit Do
Elseif Key >a(m) Then
　　j=m-1:s=s+"L"
Else
i=m+1: s=s+"R" End if
Loop Text1.Text=s
数组元素 a(1)到 a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框 Text1 中显示的内容不可能是（）

A．RLM

B．LR

C．RM

D．LM

已知一无序数组a中的元素为“90，15，40，72，65，32，81，6”，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为“8，2，4，6，5，3，7，1”，使得a(b(1)≤a(b(2))≤a(b(3))≤......≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
i=1:j=8:c=0
key= Val(Textl. Text)
Do While i<=j

m=Int((i+j)/2)

t=b(m)

c=c+1

If a(t)=key Then p=t:Exit Do

If a(t)<key Then

i=m+1

Else

j=m-1

End If

Loop
当文本框 Text1中输入的值为32时，程序运行结束后变量c的值为（   ）

A．1

B．2

C．3

D．4

解决上问题所用的算法是:（    ）

A．枚举法

B．解析法

C．顺序查找

D．选择法

某VB程序段代码如下：
Private Sub Command1_Click()
Dim data(1 To 100) As Integer
For i = 1 To 100
data(i) = Int(Rnd * 1000)
Next
num = Val(Text1.Text)
For i = 1 To 100
If data(i) = num Then Exit For
Next
If i <= 100 Then
MsgBox "找到该数，是第" & i & "个数"
Else
MsgBox "该数不在数组中"
End If
End Sub
方框中的程序算法是：

A．二分查找

B．冒泡排序

C．递归算法

D．顺序查找

小李编写了一个 VB 程序，读取某数据库中的数据，数据表打开后界面及部分VB代码如下：
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a(1 to 1000) as string,strconn as string
strconn="provider=Microsoft.AC

A．OLEDB.12.0;data source ="+ App.Path+"\score.accdb" conn.ConnectionString =strconn Conn.Open Set rs.ActiveConnection = conn rs.Open  "Select *  from  stuinfo" n=0 Do    While Not rs.EOF n=n+1 a(n)=rs.fields(1) rs.MoveNext Loop rs.Close conn.Colse 下列对于以上代码的理解正确的有    （ ） ① 连接的数据库文件名是“score.accdb” ② “ConnectionString“是 conn 对象的属性值 ③ 查询的数据表名称是“stuinfo” ④ 程序运行后，a(1)=”101” ⑤ 程序运行后，读取的记录总数共n条
B．①②③ B.①③④	C．①③⑤	D．②④⑤