丟失的成績(jī)．某校運(yùn)動(dòng)會(huì)上，高一男子100米決賽的成績(jī)已出，前8名的成績(jī)記錄單由于不小心丟失一張，只剩下7個(gè)成績(jī)，分別是（單位：秒）11.5，11.8，12.1，12.5，13.1，13.5，13.9．后來(lái)找到了，需將找到的成績(jī)插入相應(yīng)的位置，使數(shù)據(jù)序列仍保持有序，并求出該成績(jī)的名次．為實(shí)現(xiàn)這一目標(biāo)，設(shè)計(jì)如下VB程序，界面如圖所示：先輸入7位選手成績(jī)，自動(dòng)將成績(jī)從小到大排序后輸出到列表框List1中．輸入丟失成績(jī)后，點(diǎn)擊“插入”按鈕將該成績(jī)添加到適當(dāng)位置并輸出選手成績(jī)到List2中，并在Label4中顯示該成績(jī)的名次．
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)完成以下問(wèn)題：
Dim a（1To 8）As Single
Dim n As Integer,i As Integer,x As Single
Private Sub Form_Load （ ?。?br />Dim j As Integer,temp As Single
’輸入7位選手100米成績(jī)，代碼略
’將7位選手成績(jī)從小到大排序
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
’將排序好的選手成績(jī)輸出到列表框List1
List1．Clear
For i=1To 7
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （ ?。_定該遺漏選手的成績(jī)排名第幾位？
x=Val（Text1．Text）
i=1
Do While x＞a（i）
i=i+1
i=i+1
Loop
Label4．Caption=“該選手位列第”+Str（i）+“名！”
’將該遺漏選手成績(jī)添加到適當(dāng)位置，使數(shù)組仍保持有序并輸出到列表框List2
For j=8To i+1Step-1
a（j）=a（j-1）
Next j
a（j）=x或者a（i）=x
a（j）=x或者a（i）=x
For i=1To 8
List2．AddItem a（i）
Next i
End Sub
（1）Form Load事件處理過(guò)程中代碼采用的算法是
冒泡排序
冒泡排序
（選擇排序/插入排序/冒泡排序）
（2）①處代碼應(yīng)為：
i=i+1
i=i+1
．
②處代碼應(yīng)為：
a（j）=x或者a（i）=x
a（j）=x或者a（i）=x
．
