（加试题） 有一组正整数，要求对其中的数据进行排列， 排列后奇数在前， 偶数在后。 其中最后一个数据排到奇数与偶数交接处；自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。 排序示例如下。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim temp As Integer, flag As Boolean
'读取一组正整数，存储在数组 a 中，代码略
i = 1: j = n
temp = a(j): flag = True
Do While i < j
If flag Then
If a(i) Mod 2 = 0 Then
a(j) = a(i)
j = j - 1
flag = Not flag
Else
'⑴__________________
End If
Else
If a(j) Mod 2 = 1 Then
a(i) = a(j)
flag = Not flag
Else
j = j - 1
End If
End If
Loop
   '⑵____________________
'依次输出排序后的数据，代码略。
End Sub

小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。
Dim a(1 To 45) As String
Dim b(1 To 45) As Integer
Private Sub Form_Load()
a(1) = "中国"
b(1) = 308
‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中
End Sub
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim t As Integer,f As Integer
List1.Clear
For i =" 1" To 3
For j =    To 2 Step -1
If ‚ Then
f =" a(j):" a(j) =" a(j" - 1): a(j - 1) = f
t =" b(j):" b(j) =" b(j" - 1): b(j - 1) = t  
End If
Next j
Next i
For i =" 1" To 3
List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))
Next i
End Sub

打开并修改考生文件夹下“VB”文件夹中的工程文件“paixu.vbp”，使其具有下列功能：点击命令按钮Command1，清除列表框List1和列表框List2的内容，并自动产生三个100~999之间的随机数显示在列表框1中。点击命令按钮Command2，清除列表框List2的原有内容，对产生的随机数进行从大到小排序并显示在列表框List2中，点击命令按钮Command3，清除列表框List2的原有内容，对产生的随机数进行从小到大排序并显示在列表框List2中。程序运行界面如下图所示：

完成下列操作：
1．对照效果图，在窗体的适当位置创建命令按钮Command2，适当修改其大小,设置其Caption属性值为“从大到小排序”。
2．给命令按钮Command2添加合适的事件编码，使之实现上述功能。该事件过程代码从“VB”文件夹下“code.txt”文件中得到。
3．在注释①和②所在行中找出惟一的错误并改正，测试程序，使其实现上述功能。程序调试正确后，生成“paixu.exe”，保存在“VB”文件夹中。
保存窗体文件和工程文件。

某省举办大型活动，面向省内城市招募有志愿服务工作经历的志愿者，每个志愿者的报名数据包含城市序号、姓名（字母缩写）和参加志愿服务的次数。现需整理报名数据，要求是：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求，编写一个VB程序，功能如下：在列表框List 1中显示整理前的数据，单击“整理”按钮Command 1，整理结果显示在列表框List 2中，程序运行界面如图所示。

（1）将数组元素q（1）到q（200）分为10段，如果每段恰好包含20个元素，采用选择排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是________（单选，填字母：

A．次/

B．次/

C．次）。

（2）请在划线处填入合适的代码。
    报名总人数
城市数
，，
 存储每个城市的报名人数


Private Sub Form_Load（）
本过程读取城市序号，姓名和参加次数的数据分别存储在数组city；pname和times中，
并在List 1中显示，代码略
End Sub
Private Sub Command 1_Click（）
Dim i As Integer，j As Integer，k As Integer，t As Integer，pos As Integer


Next i
   统计每个城市报名人数
 ①

Next i




Next i


  ②

Next i

  对各城市报名数据按参加志愿服务的次数进行排序



Next j

Next i

List 2.AddItem " " & city（q（i））& " " & pname（q（i））& " " & times（q（i））
Next i
End Sub
Function fp（head As Integer，tail As Integer）As Integer
Dim i As Integer，k As Integer

  ③ 

Next i

End Function