对学生数据排序，排序后男生在前，女生在后，（“M”表示男，“F”表示女），男生和女生分别按“姓名”升序排序。编写一个VB程序，功能如下：在列表框list1中显示排序前学生数据，单击“排序”按钮Command1，在列表框list2中显示排序后的结果。程序运行界面如图所示。

实现上述功能的 VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim xm(1 To n)As String, xb(1 To n)As String
Function adj(sAs String, n As Integer) As String
'函数功能：在字符串 s 后添加若干个空格，使其长度变为 n，代码略。
End Function
Private Sub Form1_Load(   )
'读取 10 个学生姓名和性别分别存数组 xm、xb，
并在列表框 list1 中显示，代码略。
End Sub
Private Sub Command1Click
Dim i As Integer, j As Integer
i = 1
Do While i <= n - 1

j = n-1 '(1)________

Do While j >= i + 1

If xb(j) = "M" And xb(j - 1) = "F" Or xm(j) < xm(j - 1) Then '(2)________
temp = xm(j): xm(j) = xm(j - 1): xm(j - 1) = temp
temp = xb(j): xb(j) = xb(j - 1): xb(j - 1) = temp
End If
j = j - 1

Loop

i = i + 1

Loop
For i = 1 To n

List2.AddItem adj(xm(i), 12) + " " + xb(i)

Next i
End Sub

暑期旅游旺季，各地旅行社纷纷给出了国外游的各种行程报价。小宇为了同学们方便选择出行路线及价格，设计了一个程序。在文本框Text1中输入“国外”或“国内”，在文本框Text2中输入出游的天数，单击“线路及报价查询”按钮Command1，将在列表框中输出按价格从高到低排序的线路名称及报价信息。

实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim g(100) As String, day(100) As Integer, xl(100) As String, pri(100)
As Integer
Const n=100
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中。g()数组存储国内/国外，day()数组存储出游天数，xl()数组存储旅游线路名称，pri()数组存储行程报价。
'代码略
End sub
Private Sub Command1 Click()
Dim i As Integer，j As Integer
For i=I To n\2

For j=I To n-i

If pri(j)>pri(j+1) Then
t=pri(j):pri(j)=pri(j+1):pri(j+1)=t
End if

Next j

   '①
If pri(j)<pri(j-1) Then
t=pri(j):pri(j) pri(j-1):pri(j-1)=t
End If

Next j

Next i
List1.Clear
i=1
Do While i<=n And g(i)=Text1.Text And day(i)=Val(Text2,Text)

    '②

i=i+1

Loop
（1）程序中①处加框代码应改为________________________________________。
（2）程序中②处加框代码应改为________________________________________。

数组a和数组b中元素的个数分别为n1和n2，现在从a，b两个数组中选取最小的n1个数据并按升序排列保存到a数组中。示例1：a={1}，b={5,3}，则a={1}；示例2：a={3,1}，b={2,4}，则a={1,2}。实现上述功能的VB程序段如下：
Private Sub Form _ Load( )
′数组a,b存储整数,代码略
End sub
Private Sub Command1_Click( )
Dim i As Integer,j As Integer, k As Integer, t As Integer, flag As Boolean
flag- True
For i=1To ①
j=n2
 

  If b(j)< b(j-1) Then t=b(j: b(j)=b(j-1): b(j-1)=t

  j=j-1

  Loop
k=i
For j=n1Toi+1Step-1

If a(j)<a(k) then k-j

Next j
If a(k)<= b(1) And k <> i Then

t=a(k):a(k)=a(i): a(i)=t

flag=False

Elself② Then

t=a(i):a(i)=b(1):b(1)=t

flag=True

End If
Next i
For i=1 To nl
Listl AddItem Str(a(i))
Next i
End sub
请回答问题：
（1）要使程序运行时，清空列表框List1的内容，可在 Form Load事件过程中添加语句：_____（单选，填字母：

A．List1.Caption=""/

B．List1.Clear/

C．List1. Additem""）。

（2）请将程序代码①②处补充完整。
①_______________________
②_______________________
（3）程序代码方框处，flag为_______时，表示b数组该遍加工需要进行_______排序（选填：冒泡/选择）。

丢失的成绩。某校运动会上，高一男子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)①处代码应为：__________________________________________。
②处代码应为：____________________________________________。

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

（1）虚线内程序段所采用的排序算法名称是 。
（2）程序加框处代码有错，请改正。