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

实现该功能的VB程序如下，请回答下列问题：
（1）要使程序运行时，窗体Form1标题显示“数组分段排序”，可在Form_Load事件过程中添加语句_______________(单选，填字母：

A．Form1. Caption=“数组分段排序”/

B．Form1. Text=“数组分段排序”/

C．Text1. Text=“数组分段排序”)。

（2）程序代码中的加框处有错误,请改正。
__________________________
（3）请在划线处填入合适的程序代码。
①________________________
②________________________
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
For i = 1 To high
Randomize
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,m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ① 
c = ""
For j = 1 To m
p=j '改错
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 = c + Str(a(p))
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
②   
End If
Next i
sort = s
End Function

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

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

某书城五种畅销图书的市场价格(单位：元)存放在数组d中，如下表所示。现对这些数据进行升序排列，若采用冒泡排序算法自下而上进行比较和交换，那么在第一遍加工后，d2的值是______ 。

d1	26
d2	32
d3	20
d4	29
d5	36

 

某排序算法的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

某学校高一年级共有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