17.某社區(qū)為慶五一進(jìn)行“摘草莓”比賽活動(dòng),最后取十人進(jìn)入決賽,工作人員編制了如下Visual Basic程序,功能是根據(jù)草莓顆數(shù)進(jìn)行排序,程序中所有參賽者的成績(jī)保存在數(shù)組result中,對(duì)應(yīng)的姓名保存在數(shù)組name中. 程序界面如圖所示,左邊列表框List1中顯示數(shù)據(jù)(成績(jī)和姓名),單擊“開始排序”按鈕(Command1),排序后的結(jié)果按成績(jī)從高到低顯示在列表框List2中.(如圖) 解決此問題的排序部分的程序段如下: Dim result(1To 10)As Single Dim name(1To 10)As String Private Sub Command1_Click ( ?。?br />Dim I,J,K,X As Single,Y As String For I=1To 9 K=I For J=I+1 To 10 If ①Then K=J Next J If K<>I Then X=result(I):result(I)=result(K):② Y=name (I):name (I)=name (K):name (K)=Y'③ End If Next I For I=1 To 10 List2.AddItem Str(result(i))+““+result(i)'④ Next i End Sub Private Sub Form_Load ( ?。?br />'此過程用于對(duì)數(shù)組a和數(shù)組b進(jìn)行初始賦值,代碼略 End Sub 在程序①和②橫線處,填入適當(dāng)?shù)恼Z句或表達(dá)式,把程序補(bǔ)充完整: (1)程序中有