某升序排序算法的VB程序段如下：
Dim a (8) As Integer
For i＝2 To 8

a(0)＝a(i)

Do While a (0)<a(j)

j＝j－1

Loop

Next i
数组元素a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为(    )

A．①j＝i－1    ②a(j＋1)＝a(j)    ③a(j＋1)＝a(0)

B．①j＝i＋1    ②a(j＋1)＝a(j)    ③a(0)＝a(j＋1)

C．①j＝i－1    ②a(j)＝a(j＋1)    ③a(j＋1)＝a(0)

D．①j＝i＋1    ②a(j)＝a(j＋1)    ③a(0)＝a(j＋1)

对学生数据排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），男生和女生分别按“姓名”升序排序。编写一个VB程序，功能如下：在列表框list1中显示排序前学生数据，单击“排序”按钮Command1，在列表框list2中显示排序后的结果。程序运行界面如图所示。

实现上述功能的 VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim xm(1 To n)As String, xb(1 To n)As String
Function adj(sAs String, n As Integer) As String
'函数功能：在字符串 s 后添加若干个空格，使其长度变为 n，代码略。
End Function
Private Sub Form1_Load(   )
'读取 10 个学生姓名和性别分别存数组 xm、xb，
并在列表框 list1 中显示，代码略。
End Sub
Private Sub Command1Click
Dim i As Integer, j As Integer
i = 1
Do While i <= n - 1

j = n-1 '(1)________

Do While j >= i + 1

If xb(j) = "M" And xb(j - 1) = "F" Or xm(j) < xm(j - 1) Then '(2)________
temp = xm(j): xm(j) = xm(j - 1): xm(j - 1) = temp
temp = xb(j): xb(j) = xb(j - 1): xb(j - 1) = temp
End If
j = j - 1

Loop

i = i + 1

Loop
For i = 1 To n

List2.AddItem adj(xm(i), 12) + " " + xb(i)

Next i
End Sub

（加试题）有如下程序段：
i=6 : flag=True
Do While i>=4   And   flag=True flag=False
k=i
For j=1 To i-1
If a(k)>a(j)  Then k=j
Next j
If k<>i Then
t=a(i) : a(i)=a(k) : a(k)=t flag=True
End If
i=i-1
Loop
数组元素 a(1)到 a(6)的值依次为“24，7，37，45，11，52”，经过该程序段“加工”后， 数组元素 a(1)到 a(6)的值依次为（   ）

A．7，11，37，45，24，52	B．45，52，37，24，11，7
C．7，11，24，45，37，52	D．24，52，37，45，11，7

小王基于选择排序算法编写了一个VB程序，功能如下：在文本框 Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

请回答下列问题
（1）要使程序运行后，命令按钮 Command1的 Caption属性值自动变为“排序”，可在_____（单选，填字母：

A．Text1 Cick()/

B．Fom_Load()/

C．Command1_Cick()）事件过程中添加语句：Command1 Caption=“排序”。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form Load ()
‘数组初始化,生成1~20之间的随机整数并赋值给数组a
Randomize '随机数初始化
For i=1 To n
a(i) =①_______ 
Next i
End Sub
Private Sub Command1 _Click()
Dim 1 As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom = n
For i=1 To bottom -1
For j = bottom To i + 1 Step -1
If ②_______ Then
t = a(j):a(j) = a(i):a(i) = t
ElseIf a(j) = a(i) Then
③_______
bottom = bottom -1
End if
Next j
Next i
Text2. text = ""
For i=1 to bottom
Text2. Text = Text2. Text + str(a(i))
Next i
End sub

小明基于冒泡排序算法编写了一个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