在一次學(xué)校的運(yùn)動(dòng)會(huì)上，高一女子100米決賽的成績(jī)已出來，前8名的成績(jī)記錄單由于不小心丟掉一張，只剩下7 個(gè)成績(jī)，并已按成績(jī)排序，分別是（單位：秒）14.5，15.1，16.5，16.8，17.1，17.5，17.9，后來找到了，請(qǐng)將找到的成績(jī)插入相應(yīng)的位置，使數(shù)據(jù)序列仍保持有序，并求出該成績(jī)的名次．根據(jù)已有程序段，請(qǐng)補(bǔ)齊流程圖中的空格．

程序如下：
Dim a（1To 8）As Integer
Dim n,i,j,x As Integer
Private Sub Command1_Click（　　）
x=Val（Text2．Text）
If x＞a（n） Then
i=n+1
else
i=1
Do While x＞a（i）
i=i+1
Loop
End If
Text3．text=str（i）‘在文本框text3 顯示名次
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer
輸出
If KeyAscii=13Then
n=n+1
a（n）=Val（Text1．Text）
List1．AddItem Str（a（n））
Text1．Text=““：Text1．SetFocus‘準(zhǔn)備在text1 接受下一個(gè)數(shù)據(jù)
End If
End Sub.