（加试题）有如下程序段：
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

某学校高一年级共有500名学生，10个班，现需要根据某次考试的技术成绩从高到低进行考试号编排，考试号从100开始，如出现成绩一样的情况，则考试号按学生学号从大到小编排，如图所示。为此，小王编写了一个VB程序，程序功能如下：单击“读取数据”按钮 Command1，程序从数据库中读取学生的学号、成绩分别存储在数组xh、cj中，并在列表框List1输出；单击“编排”按钮Command2，程序进行处理，输出结果在列表框List2中。程序运行界面如图所示。
实现以上功能的VB程序如下，请回答下列问题：
（1）如原始数据里漏输了一个学生，已知该学生的学号为“20170240”，成绩为“99”，则增加该学生数据后，运行程序时，该学生的考试号为________。
（2）请在画线处填入合适的代码。
Const n=500
Dim xh(1 To n) As Integer    '存放学生学号
Dim cj(1 To n) As Integer    '存放学生成绩
Dim I,d,k,t,y As Integer
Private Sub Command1 Click()
'本过程从数据库中读取学生数据，存储在相应的变量中，并在List1中显示
'代码略
End Sub
Private Sub Command2_Click()
For i=1 To n-1

For j=n To i+1 Step-1

If c(j)>cj(j-1) Then
t=ci(j):cj(j)=cj(j-1):cj(j-1)=t
t=xh(j):xh(j)=xh(j-1):xh(j-1)=t
End If

 

Next j

Next i
k=1
For i=2 To n

If______Then

k=k+1
y=0

Else

y=1

End If

If (y=l And k> 1) Or (i=n And k> 1) Then

For d=i-k To i-2
For______To(i-k+1) Step-1
If xh(j)>xh(j-1) Then
t=xh(j):xh(i)=xh(j-1):xh(j-1)=t
End If
Next j
Next d
k=1

End If

Next i
List2.Clear
List2.AddItem " "+"学号"+"  "+"技术成绩"+"  "+"考试号"
For i=1 To n
List2.AddItem Str(xh(i))+"  "+Str(cj(i))+"  "+_____
Next i
End Sub

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function

（加试题）数组a中存储的n个正整数满足如下条件：奇数位上的数降序有序，偶数位上的数升序有序，且所有奇数位上的数都大于偶数位上的数，如下表所示：

a(1)	a(2)	a(3)	a(4)	a(5)	a(6)	a(7)	a(8)	a(9)	a(10)
100	10	90	20	80	30	70	40	60	50

 

依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

读取一组正整数，按照上述规则存入数组a中，代码略。


改错：（1）______________   （2）______________

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