在一次学校的运动会上，高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张，只剩下7 个成绩，并已按成绩排序，分别是（单位：秒）14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了，请将找到的成绩插入相应的位置，使数据序列仍保持有序，并求出该成绩的名次．根据已有程序段，请补齐流程图中的空格．

程序如下：
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‘准备在text1 接受下一个数据
End If
End Sub.