17.VB應用程序“跳遠成績排序”功能如下: 按指定格式錄入數據,例:0373,張樂曉,3.90.編號寬度固定為4位,姓名寬度固定為3個漢字,不足部分以全角空格補齊,第9個字符開始為跳遠成績. 在文本框Text1中按回車表示錄入一項數據結束,錄入的數據經處理后編號、姓名、成績分別存放在數組編號bh、xm、cj中并將原始數據顯示在List1中. 點擊命令按鈕Command1后進行排序并將排序后的結果顯示在List2中.程序運行界面如圖所示. (1)請在橫線處填入適當的代碼 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 ( ) 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 ①
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'輸入數據 IfKeyAscii=13Then num=num+1 x=Text1.Text bh(num)=Mid(x,1,4) xm(num)=Mid(x,6,3) cj(num)=②
List1.AddItem x If num=8Thennum=0 End If End Sub 請完成以下題目: (1)程序中①橫線處應填入