某社區為慶五一進行“摘草莓”比賽活動，最后取十人進入決賽，工作人員編制了如下Visual Basic程序，功能是根據草莓顆數進行排序，程序中所有參賽者的成績保存在數組result中，對應的姓名保存在數組name中．
程序界面如圖所示，左邊列表框List1中顯示數據（成績和姓名），單擊“開始排序”按鈕（Command1），排序后的結果按成績從高到低顯示在列表框List2中．（如圖）
解決此問題的排序部分的程序段如下：
Dim result（1To 10）As Single
Dim name（1To 10）As String
Private Sub Command1_Click （　　）
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 （　　）
'此過程用于對數組a和數組b進行初始賦值，代碼略
End Sub
在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整：
（1）程序中有

④

④

處有錯誤（選填③或④），應改正為：

name（i）

name（i）

．
（2）程序中①橫線處應填入

result（j）＞result（k）

result（j）＞result（k）

．②處應填入

result（k）=X

result（k）=X

．