某对分査找算法的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程序段如下：







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

（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。 被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；
若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：

找到情况   未找到情况
总结顺序查找数据结果判断条件：
(1)、 当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；
(2)、 当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。 
顺序查找的主程序段如下：
Private Sub 顺序查找_Click()
n个数据放入d(1)到d(n)中
Key =" Val(Text1.Text):" i =___1___‘变量Key从文本框Text1取的数要查找的数；
Do While    ① 
i =" i" + 1
Loop
If i <=" n" Then
Text2.Text = "在d(" + Str(i) + ")中"  ‘例如在文本框Text2显示：“在d(6)中”
Else
Text2.Text = "找不到"
End If
End Sub
上程序Do While的条件 ① 是（ ）

A．Key <> d（i）

B．i <= n

C．Key <> d(i) And i <= n

D．Key <> d(i) or i <= n

该程序的界面如右图所示：
如果要把窗口标题处的“Form1”修改
为“计算团购优惠”，应该选择以下哪个语句？（   ）

A．form1.text=”计算团购优惠”	B．form1.caption=”计算团购优惠”
C．form1.font=”计算团购优惠”	D．form1.coption=”计算团购优惠”

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，程序中划线处的语句应更正为______   __________
X=0
For i="1" to 10 step 2
If i mod 2=0  then x=x+i
Next i