（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB 程序段如下：
t(1) = 1: t(2) = 1
For i = 3 To 5

t(i) = t(i - 1) + t(i -2)

Next i Key =13
i=1:j=8:k=6
Do While i <=j

m = i+t(k-1)     ‘① 

If Key = d ( m ) Then Exit Do ‘Exit Do表示退出循环

If d(m) > Key Then

j= m - 1
k=k-1

Else

i = m + 1
k=k-2

End If

Loop
运行该程序段后，①处的赋值语句共执行（   ）

A．1次

B．2次

C．3次

D．4次

想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是（   ）（S:数学成绩，W:物理成绩）

A．S<90， W>=89	B．S<90 Or W>=89
C．S<90 And W>=89	D．S>90 And W>=89

有如下Visual Basic程序段：
m = a(1)
i =" 2"
Do While i <= 10
If m < a(i) Then m = a(i)
i =" i" + 1
Loop
该程序段执行后，变量m中存储的是（   ）

A．a(1)至a(10)中的最大值

B．a(1)至a(10)中的最小值

C．a(2)至a(10)中的最大值

D．a(2)至a(10)中的最小值

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到  n 个非降序数保存在数组 a(1)—a(n)中，并显示在 List1 中。在文本框 Text1 中输入成绩 key，单击“查找”按钮，则在标签 label1 中显示共有多少位同学的成绩大于等于该成绩。

（1）加框 1 处的程序代码有错，应改为____。
（2）请在划线处填入合适代码：
Dim a(1000) As Integer, n As Integer Private Sub Command1_Click()
'从数据库获取 n 个成绩存储在 a(1)---a(n)组中，代码略 For i = 2 To n    ‘排序
tmp = a(i) j = 1
Do While tmp > = a(j) j = j + 1
If    __________Then Exit Do Loop
For k = i To j + 1 　Step -1 　a(k) = a(k - 1)
Next k
'改错（１）
Next i
For i = 1 To n List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim key As Integer, i As Integer, j As Integer, m As Integer key = Val(Text1.Text)
i = 1: j = n
Do While i <= j
m = (i + j) \ 2
If　_________  Then j = m - 1
Else
i = m + 1 End If
Loop
Label1.Caption = "共有" +_________+ "位同学大于等于该成绩。"
End Sub