小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列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

在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。下面有四个程序段：
 
其中能正确地将x和y两个变量中的数据进行交换的程序段有（   ）

A．1个

B．2个

C．3个

D．4个

在已排序的数组d数组元素d(1)≥d(2)≥…≥d(n)中查找键值为Key的数，其对分查找的VB程序段如下：
i＝1：j＝n
xb＝0
Do While i＜＝j
m＝Fix((i＋j)/2)
If d(m)＝Key Then
xb＝m
Exit Do
End If
If d(m)＞Key Then
①____
Else
②____
End If
Loop
划线处的语句为(  )

A．①j＝m＋1 ②i＝m＋1	B．①i＝m－1 ②j＝m－1
C．①j＝m－1 ②i＝m＋1	D．①i＝m＋1 ②j＝m－1

采用冒泡排序算法对数据序列“2，3，4，5，1，0”完成升序排序，则需要交换的次数为（   ）

A．9次

B．12次

C．15次

D．18次

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

实现上述功能的 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