数组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

（加试题）某程序代码如下：
Private Sub Command1_Click()
Dim c  As Integer
Dim a(1 To 20) As String
s = "123 how are you": c = 0
For i = 1 To Len(s)
a(i) = Mid(s, i, 1)
Next i
For i = 1 To Len(s) - 1
For j = Len(s) To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
End If
Next j
Next i
For i = 1 To Len(s) - 1
If a(i) < a(i + 1) Then c = c + 1
Next i
Text2.Text = Str(c)
End Sub程序运行结束后,变量c的值是（ ）

A．13

B．11

C．10

D．15

有如下程序段：
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

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

   “中国好声音”节目组要小杰用VB编写一个程序：现场将有900个观众，要在900个观众中产生10个中奖号码的程序，每位观众用三位数字进行编号，要求产生的10个号码不能重复，并且升序排列输出。

①检查产生号码是否重复：把产生的中奖号码放在数组a中，新产生的号码与已经产生的号码进行一一对比，如果找到相等的数，则重新产生新号码。

②找到新产生号码存放的数组下标：从下标为1的数组元素开始，新号码（第i个号码）分别与他们进行一一比较，找到第一个比新号码大的数，该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数，则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例，如果产生的号码是130，第一个比他大的数是a(2)，下标为2的数组元素应存放新号码；如果产生的号码是300，则新号码应存放在下标为5的数组元素中。

③移动数组元素到新的位置：如果在已经产生的号码中找到比新号码大的数，从上一个产生的号码开始，到新号码应存放的数组元素，依次把他们向后面移动。以②中产生130为例，从a(4)开始，让a(5)的值等于a(4)，a(4)的值等于a(3)，依次类推，直到新号码应存放的数组元素a(2)为止。

④将新产生的号码放在相应的数组元素中。

程序运行的界面如下图所示，实现上述功能的VB程序代码如下：

Dim a(10) As Single
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim temp As Single, k As Integer   'temp产生随机数，k随机数存放数组元素的下标
Randomize
a(1) = Int(Rnd() * 900 + 100)
For i = 2 To 10
temp = Int(Rnd() * 900 + 100)
If seach(temp, i - 1) = True Then
i = i - 1
Else
k = i
For j = 1 To i - 1
If   ①temp < a(i)  Then k = j: Exit For  
Next j
For j = i - 1 To k Step -1
a(j + 1) = a(j)
Next j
②
End If
Next i
List1.Clear
For i = 1 To 10
List1.AddItem Str(a(i))
Next i
End Sub
'函数实现在数组a中，从下标为1的数组元素到下标为t数组元素，查找有无s的数值
Function seach(s  As Single, t As Integer) As Boolean
Dim i As Integer
seach = False
For i = 1 To t
If ③     Then seach = True: Exit For
Next i
End Function
（1）程序代码中①划线处有错，应改为：___________________
（2）程序代码中划线处②应填入_________________________
（3）程序代码中划线处③应填入_________________________