某排序算法的VB程序段如下：
k=1
For i=1 To 2
For j=1 To 6-2*i
If k* a(j)<k*a(j+2)Then
t=a(j): a(j)=a(j+2): a(j+2)=t

End if

k=-k

Next j
Next i
数组元素a(1)到a(6)的初始值依次为“15，11，58，38，26，9”，该程序段执行后，数组a元素的值分别为（   ）

A．58，9，26，11，15，38

B．58，38，26，11，15，9

C．15，38，26，11，58，9

D．58，38，26，15，11，9

（加试题）某VB程序段如下:
For m=1 To 9
　　s=m
　　For n=m+1 To 10
　　　　If　　　　Then s=n 
　　Next n
　　If s<>m Then pp=d(s):d(s)=d(m):d(m)=pp
Next m
现对数组元素d(1)到d(10)进行从大到小排序,则程序中划线处的语句是( 　　)

A．d(n)>d(s)

B．d(n)>d(m)

C．d(n)<d(m)

D．d(n)<d(s)

（加试题）有如下程序段：
For i =" 1" To 6
f = False
For j =" 7" To i + 1 Step -1
If d(j) < d(j - 1) Then
t =" d(j):" d(j) =" d(j" - 1): d(j - 1) = t
f = True
End If
Next j
If f =" False" Then Exit For
Next i
如果数组元素d（1）到d(7)的值依次为“18，22，9，32，16，12，40”，则执行此程序段后，变量i的值为  （   ）

A．4

B．6

C．7

D．3

打开并修改考生文件夹下“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”文件夹中。
保存窗体文件和工程文件。

对数组a中的n个元素进行排序，生成升序的数据序列，结果如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
17	39	48	……	79	79	100

 
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Const n = 8
Dim a(1 To n) As Integer, left As Integer, right As Integer, m As Integer
Dim i As Integer, j As Integer, t As Integer

’读取一组数，存储在数组a中，代码略

 For i = 2 To n

    left = 1

    __________________

    Do While left <= right

m = (left + right) \ 2

If a(i) < a(m) Then right = m - 1 Else left = m + 1

    Loop

__________________

    t = a(i)

For j = i To m + 1 Step -1

a(j) = a(j - 1)

    Next j

    a(m) = t

Next i

’输出排序结果，代码略
End Sub