“中国好声音”节目组要小杰用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）程序代码中划线处③应填入_________________________

采用冒泡排序对一组数据进行排序，第一遍排序后的结果为2,19,4,55,6,7,11,13,32，那么该数组的原始顺序不可能是（）

A．19，4，55，6，7，11，13，32，2

B．2，19，4，55，13，11，32，6，7

C．19，4，55，2，6，7，11，13，32

D．19，4，55，6，7，11，2，13，32

丢失的成绩。某校运动会上，高一男子100米决赛的成绩已出，前8名的成绩记录单由于不小心丢失一张，只剩下7个成绩，分别是(单位：秒)11.5，11.8，12.1，12.5，13.1，13.5，13.9。后来找到了，需将找到的成绩插入相应的位置，使数据序列仍保持有序，并求出该成绩的名次。
为实现这一目标，设计如下VB程序，界面如图所示：先输入7位选手成绩，自动将成绩从小到大排序后输出到列表框List1中。输入丢失成绩后，点击“插入”按钮将该成绩添加到适当位置并输出选手成绩到List2中，并在Label4中显示该成绩的名次。

实现上述功能的VB程序如下，请完成以下问题：
Dim a(1 To 8) As Single
Dim n As Integer，i As Integer，x As Single
Private Sub Form_Load()
Dim j As Integer，temp As Single
’输入7位选手100米成绩，代码略
’将7位选手成绩从小到大排序
For i＝1 To 6
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
temp＝a(j)
a(j)＝a(j－1)
a(j－1)＝temp
End If
Next j
Next i
’将排序好的选手成绩输出到列表框List1
List1.Clear
For i＝1 To 7
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click() ’确定该遗漏选手的成绩排名第几位？
x＝Val(Text1.Text)
i＝1
Do While x＞a(i)
①__   __
Loop
Label4.Caption＝“该选手位列第”＋Str(i)＋“名！”
’ 将该遗漏选手成绩添加到适当位置，使数组仍保持有序并输出到列表框List2
For j＝8 To i＋1 Step－1
a(j)＝a(j－1)
Next j
②__   __
For i＝1 To 8
List2.AddItem a(i)
Next i
End Sub
(1)Form Load事件处理过程中代码采用的算法是________(选择排序/插入排序/冒泡排序)
(2)①处代码应为：__________________________________________。
②处代码应为：____________________________________________。

数组 a 存储降序排列的 m 个数据，数组 b 中存储的是升序排列的 n 个数据，且两个数组中存储的数据为区间1,20范围内的不重复的随机整数。现将两个数组的数据合并到 c 数组中，使 c 数组的数据为左右交替上升，如下表所示：

当窗体 Form1 加载时，自动产生 a、b 数组的数据，并分别显示在列表框 List1 与 List2
中，单击合并按钮 Command1 后，在 c 数组中保存按规则合并后的 a、b 数组的数据，并显示在列表框 List3 中。程序截图如下所示：

实现该功能的 VB 程序如下：
Const m = 5
Const n = 6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m + n) As Integer
‘窗体加载时，生成数组 a、b 中的数据，并按要求排序后显示在列表框中，代码略
Private Sub Command1_Click()
Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean
pa = m: pb = 1: pc = 1
flag = True
Do While ____________________  
If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If
c(pc) = s
If flag Then

pc = m + n - pc + 1

Else

pc =　　

End If
__________________________
Loop
‘处理 a、b 数组中剩余数据，并在列表框 List3 中输出数组 c，代码略
End Sub
（1）窗体加载的事件处理过程名为__________。（填字母：

A．Form1_Click /	B．Form_Click /
C．Form1_Load /	D．Form_load）

（2）加框处代码有错，请改正。　__________
（3）在划线处填入合适的代码。

学校组织运动会，开幕式的时候要求每个班排成一个方阵，为了能快速地排成方阵，小张编写了一个 VB 程序，程序功能：在文本框 Text1 中输入每一行的人数，在文本框 Text2 中输入班级人数（输入人数<=60），单击“排队”按钮 Cmd1 后，在列表框 List1 中按学号显示队形。程序运行界面如下图所示，程序代码如下，请回答下列问题：


（1）以上代码的事件处理过程名是___________。
（2）程序代码中加框处有两处错误，请改正：①___________② ___________
（3）程序代码中，请将③处的代码补充完整___________