VB應(yīng)用程序“跳遠成績排序”功能如下：
按指定格式錄入數(shù)據(jù)，例：0373，張樂曉，3.90．編號寬度固定為4位，姓名寬度固定為3個漢字，不足部分以全角空格補齊，第9個字符開始為跳遠成績．
在文本框Text1中按回車表示錄入一項數(shù)據(jù)結(jié)束，錄入的數(shù)據(jù)經(jīng)處理后編號、姓名、成績分別存放在數(shù)組編號bh、xm、cj中并將原始數(shù)據(jù)顯示在List1中．
點擊命令按鈕Command1后進行排序并將排序后的結(jié)果顯示在List2中．程序運行界面如圖所示．

（1）請在橫線處填入適當?shù)拇a
Dim bh（1To 8）As String
Dim xm（1To 8）As String
Dim cj（1To 8）As Single
Dim num As Integer
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,k As Integer,t1As String,t2As Single
For i=1To 7
k=i
For j=k+1To 8
If ①

cj（j）＜cj（k）

cj（j）＜cj（k）

Then k=j
Next j
If k＜＞i Then
t1=bh（k）：bh（k）=bh（i）：bh（i）=t1
t1=xm（k）：xm（k）=xm（i）：xm（i）=t1
t2=cj（k）：cj（k）=cj（i）：cj（i）=t2
End If
Next i
For i=1To 8
List2．AddItem bh（i） &xm（i） &Str（cj（i））
Next i
End Sub
Private Sub Form_Load （　　）
num=0
End Sub
Private Sub Text1_Keypress（KeyAsciiAs Integer）
Dim x As String'輸入數(shù)據(jù)
IfKeyAscii=13Then
num=num+1
x=Text1．Text
bh（num）=Mid（x,1，4）
xm（num）=Mid（x,6，3）
cj（num）=②

Val（Mid（x,10，Len（x）-9））

Val（Mid（x,10，Len（x）-9））

List1．AddItem  x
If num=8Thennum=0
End If
End Sub
請完成以下題目：
（1）程序中①橫線處應(yīng)填入

cj（j）＜cj（k）

cj（j）＜cj（k）

；程序中②橫線處應(yīng)填入

Val（Mid（x,10，Len（x）-9））

Val（Mid（x,10，Len（x）-9））

．
（2）在事件處理過程Command1_Click （　?。┲胁捎玫乃惴ㄊ?

選擇排序

選擇排序

（選填：枚舉算法/解析算法/冒泡排序/選擇排序）．