有如下VB程序段：

执行该程序段后，数组a(1)到a(6)的数据依次是（ ）

A．Delphi  Java  Pascal  Python  VB  Swift

B．VB  Swift  Python  Pascal  Java  Delphi

C．VB  Swift  Python  Java  Pascal  Delphi

D．Java  Pascal  Delphi  Python  Swift  VB

在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。

（1）观察代码，该排序过程中，交换次数最多能达到______________次。
（2）实现上述功能的VB程序如下，请在划线处填入正确语句。
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()

Dim i As Integer, j As Integer

i = 1

Do While i <= 99

j = 100

Do While  ①_______

If z(j) > z(j - 1) Or ②_____________Then

t = z(j): z(j) = z(j - 1): z(j - 1) = t

t = c(j): c(j) = c(j - 1): c(j - 1) = t

End If

j = j - 1

Loop

③________

Loop

List1.AddItem " " + "主" + " " + "次"

For i = 1 To 100

List1.AddItem Str(z(i)) + Str(c(i))

Next i

End Sub

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

（1）虚线内程序段所采用的排序算法名称是 。
（2）程序加框处代码有错，请改正。

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

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了 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）如图所示，数据库中一共有___________个教职员工。

有如下程序段：
i=1
Do while i<=2
j=1
Do while j<=7-i
If a(j) > a(j+1) Then
t = a(j): a(j) = a(j+1): a(j+1) = t
End If
j=j+1
Loop
i=i+1
Loop
数组元素a(1)到a(7)的值依次为“44，24，33，67，77，58，12”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为 （    ）

A．24，33，44，58，12，67，77	B．12，24，33，67，77，58，44
C．12，24，44，33，58，67，77	D．44，24，33，58，12，67，77