（加试题） 数组 a 中依次存放 6 个有序数据“ 23 33 44 55 66 77”。
Dim a(1 To 10) As Integer
Dim s As String, n, key As Integer
a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77
i = 1: j = 6: c = 0: key = 35
Do While i <= j
c = c + 1
m = (i + j) \ 2
If (j - i + 1) Mod 2 = 0 Then m = m + 1
If a(m) = key Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
该程序段运行后，下列各变量的值不正确的是：

A．i=3

B．j=2

C．c=3

D．m=2

（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。
基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分，第一个部分为奇数有序子序列，第二部分为偶数有序子序列，第三部分为未排序子序列。使用两个变量进行分割，mid 指向偶数有序子序列的一个元素，end1 指向未排序子序列（等待一个个插入前面的奇数有序子序列或偶数有序子序列）。

Const n = 7
Dim a(-1 To n) As Integer
Private Sub Form_Load()
'随机生成7个不重复的正整数到a()数组中。代码略
End Sub
Private Sub Command1_Click()
Dim mid As Integer, end1 As Integer
Dim i As Integer, j As Integer, num As Integer
mid = 0: end1 = 0
Do While end1 <= n
num = a(mid)   ‘①
j = end1
If num Mod 2 = 1 Then
Do While j - 1 >= mid and a(j - 1) < num ‘②
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
mid = mid + 1
Else
Do While a(j - 1) > num And j - 1 >= mid
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
End If
end1 = end1 + 1
Loop
For i = 0 To n
List1.AddItem Str(a(i))
Next i
End Sub
划线处的代码有误，请改正：
①___________________________
②___________________________

王五为学生们设计了学校食堂学生校园卡查询系统，在终端机上输入学生的校园卡卡号，可以查出该卡对应的学生姓名及相应的余额。
校园卡信息存储在一个综合的数据库“school.mdb”,其中的“Yue”数据表用来存储学生的校园卡基本信息，包括学号（num）、姓名（name）、余额（money）,括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生姓名及余额，运行界面如图所示：

数据库文件与应用程序在同一文件夹中，在文本框Text1中输入学生的学号，单击“查询”按钮，在标签Label4、Label5中分别显示学生姓名和余额。
Private Sub Command1_Click()
Dim adocn As new connection
Dim adors As new recordeset
Dim str1 As string,str2 as string
Str1="”driver=microsoft" access driver(*.mdb);dbq=”&app.path&”\  .mdb”
Adon.open str1
Str2="”select" * from Yue where ‚ =’”+text1.text+”’”
Adors.open str2,adocn,adOpenDynamic,adLockOptimistic
If adors.eof then
Msgbox”你输入的学号不存在!”
Else
Label4. caption =adors.Fields(“name”).value
    ƒ =adors.Fields(“money”).value
Endif
Adors.close
Adocn.close
End Sub
为了实现上述目标，在画线处填入合适的语句或表达式：
     
‚     
ƒ     

（加试题）某对分查找算法的 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

（加试题）若数组元素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次