丢失的成绩．某校运动会上，高一男子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（1To 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=1To 6
For j=7To i+1Step-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=1To 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=8To i+1Step-1
a（j）=a（j-1）
Next j
②
For i=1To 8
List2．AddItem a（i）
Next i
End Sub
（1）Form Load事件处理过程中代码采用的算法是

冒泡排序

冒泡排序

（选择排序/插入排序/冒泡排序）
（2）①处代码应为：

i=i+1

i=i+1

．
②处代码应为：

a（j）=x或者a（i）=x

a（j）=x或者a（i）=x

．