有如下程序段：
For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j
Next i
数组元素a(1)到a(5)的值依次为“33，24，45, ,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（   ）

A．77, 45, 33, 16, 24

B．77, 33, 45, 16, 24

C．77, 24, 45, 16, 33

D．77, 45, 33, 24, 16

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个10，99的随机整数赋值给a数组，并在列表框ists1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的----依次类推)。在列表list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：
(1)程序测试运行后生成如下文件：(

A．paixu.frm

B．paixu.vbp

C．paixu.vbw

D．paixu.exe)，其中属于windows系统可执行文件是：(单选，填字母：_______)

(2)划线①处应填：__________
(3)加框①、②处代码有错，请改正。
Const n=10
Dim a(1 To 10) As Integer
Private Sub Command1_.Click()
For i=1 To n
    ①
List1.Additem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
tmp= 1
For i=1To n-1
For j=n To i+1 Step-1
If  tmp*(a(j)-a(j-1))>0 Then ①______________________
t=a(j)；a(j)=a(j-1)：a(j-1)=t 
End If
Next j 
tmp=-1 ②______________________
Next i
For i=1 To 10
List2.Addltem Str(a(i))
Next i
End Sub

（加试题）小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中。点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中。运行界面如图所示，请在两个划线处填入代码。

Dim a(1 To 100) As Single
Dim shu As Integer
Private Sub Command1_Click()
Dim i, j, k As Integer
Dim t As Single
For i =" 1" To shu - 1
k = i
For j =" i" + 1 To shu
If___________Then
t =" a(j):" a(j) =" a(k):" a(k) = t
End If
Next j
Next i
For i =" 1" To shu
List2.AddItem "第" & Str(i) & "名：" & Str(a(i))
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cj As Single
If KeyAscii =" 13" Then
cj = Val(Text1.Text)
If cj > 0 Then
________
List1.AddItem Str(shu) & "：" & Str(cj)
a(shu) = cj
End If
Text1.Text = ""
End If
End Sub

解决上问题所用的算法是:（    ）

A．枚举法

B．解析法

C．顺序查找

D．选择法