统计学中的“中位数”是这样的一种数：一组数据里的一半的数据比它大，而另外一半数据比它小。计算一组数据的中位数的方法是：把所有数据按照非升的次序排列。如果数据的个数是奇数，则中间那个数就是这组数据的中位数；如果个数是偶数，则中间两个数的算
术平均值是中位数。

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了 Access 数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮 Command1后先以工资按非升的次序排序，然后找出中位数。

（1）要使程序运行时，从数据库中读取所有人员的数据，可在_____________事件过程中添加相关代码。（单选，填字母：

A．Form1_load/

B．Form_load/

C．Form1.Caption）

Dim a(1 To 1000) As String
Dim b(1 To 1000) As Single
Dim n As Integer

‘数据库读取所有人员的数据代码略

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim tmp1 As Single,tmp2  As String

Dim median As Single

For i = n To 2 step -1

k = i

For j = i-1 To 1 step -1

If b(j) > b(i) Then

k = j

End If

Next j

If k <> i Then

tmp1 = b(k): b(k) = b(i): b(i) = tmp1

tmp2 = a(k): a(k) = a(i): a(i) = tmp2

End If

Next i

For i = 1 To n

List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))

Next i

If n Mod 2 = 0 Then

median =②________

Else

median = b(n\2+1)

End If

Label1.Caption = "中位数是：" & Str(median)

End Sub
（2）将划线处代码补充完整。
（3）程序代码中，加框处有错，请改正。___________
（4）如图所示，数据库中一共有___________个教职员工。

某书城五种畅销图书的市场价格(单位：元)存放在数组d中，如下表所示。现对这些数据进行升序排列，若采用冒泡排序算法自下而上进行比较和交换，那么在第一遍加工后，d2的值是______ 。

d1	26
d2	32
d3	20
d4	29
d5	36

 

（一）顺序查找数据：我们假定被查找的数据存储在有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

（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。
基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分，第一个部分为奇数有序子序列，第二部分为偶数有序子序列，第三部分为未排序子序列。使用两个变量进行分割，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
划线处的代码有误，请改正：
①___________________________
②___________________________

下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（ ）

A．maxn=x If y>="maxn" Then maxn=y

B．If x>y Then maxn="x" Else maxn=y

C．maxn=x If y>="x" Then maxn=y

D．If y>="x" Then maxn=y

maxn=x