某对分查找算法的 VB 程序段如下：
i= 1 : j= 8 : t= 0 key=Int(Rnd()*7)+14
Do While i<=j
m=Int((i+j)/2)
t=t+1
if a(m)=key Then Exit Do
else
If a(m)>key Then  j=m-1
Else 

i=m+1 End if

End if
Loop
数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量 t 的最大值可能是（）

A．1

B．2

C．3

D．4

数组元素a(1)~a(n)升序排列，存储整数且数值的范围为1,n-1（n≥2），其中仅有两个相邻的数组元素的数值发生了重复。小王为找出重复数组元素的前、后位置设计了一个程序，实现该功能的VB程序段如下：
in=1;j=n
Do While（1）
m=(i+j)\2
If a(m)=m Then

（2）

Else

（3）

End If
Loop
Labell.Caption="相邻重复两数的前、后位置余别是："+str(i)+"和"Stri(j)"
上述程序段3个划线处（1），（2），（3）的代码分别为（   ）

A．（1）i+1<=j  （2）i=m  （3）j=m

B．（1）i+1<j  （2）i=m  （3）j=m

C．（1）i+1<j  （2）i=m+1  （3）j=m-1

D．（1）i=j  （2）i=m+1  （3）j=m-1

某对分査找算法的VB程序段如下：
i= 1 ： j =9 ： n =0
key=Val( Textl.Text)
Do While i<= j

N=n+1

M=Fix((i + j) / 2)

If key = d(m) Then Exit Do

If key<d(m) Then j= m - 1 Else i=m+1

Loop
数组元素d(l)到d（9）的值依次为“7，12,18,25,39,58,61，72，86”。若该程序段运行结束后，n的值为2，则key的值是（   ）

A．39	B．18或61
C．18或72	D．12或61

（加试题）某查找算法的 VB 程序段如下：
i = 1: j = 7: n = 0
Key = Val(Text1.Text)
Do While i <= j
n = n + 1
m = Int((i + j) / 2)
If Key = a(m) Then Exit Do
If Key < a(m) Then j = m - 1 Else i = m + 1
Loop
数组元素 a(1)到 a(7)存放的数值依次为 8，21，27，36，79，28，98，若该程序段运行结束后，n 的值为 2，则 Text1 中输入的要查找的数是（）

A．27 或 79

B．28

C．21 或 28

D．21

（加试题）某对分查找算法的 VB 程序段如下：
L = 1: R = 10: Key = 21
Do While L <= R
m = (L + R) \ 2
If a(m) <= Key Then
L = m + 1
Else
R = m - 1
End If
Loop
数组元素 a(1)到 a(10)的值依次为“ 3， 9， 21， 21， 21， 21， 27， 28， 39， 40”，执行该程序段，变量 R、 a(R)的值分别是(    )

A．2， 9

B．3， 21

C．6， 21

D．7， 27