編寫一個VB程序，比較冒泡排序和選擇排序的效率。功能如下：點擊命令按鈕Command1，在列表框List1中輸出任意10個兩位數，用數組a （　　）表示。點擊命令按鈕Command2，用冒泡排序的方法在列表框List2中將10個數降序輸出，用數組b （　　）表示，并在標簽Label1中顯示交換次數。點擊命令按鈕Command3，用選擇排序的方法在列表框List2中將10個數降序輸出，用數組c （　　）表示，并在標簽Label2中顯示交換次數。程序界面如圖所示：
實現上述功能的VB程序如下，請在橫線處填入適合的代碼。
Dim a（1 To 10）As Integer,b（1 To 10）As Integer,c（1 To 10）As Integer
‘數組a （　　）用于保存隨機生成的10個數，數組b（　　）用于冒泡排序，數組c（　　） 用于選擇排序
Dim tj As Integer
Private Sub Command1_Click （　　）
For i=1 To 10
a（i）=

（1）

（1）

‘填空（1）處
b（i）=a（i）
c（i）=a（i）
List1．AddItem a（i）
Next i
End Sub
Private Sub Command2_Click （　　）
tj=0
List2．Clear
For i=1 To 9
For j=10 To

（2）

（2）

‘填空（2）處
If b（j）＞b（j-1）Then
temp=b（j）：b（j）=b（j-1）：b（j-1）=temp
tj=tj+1
End If
Next j
Next i
For i=1 To 10
List2．AddItem b（i）
Next i
Label1．Caption=“交換“+Str（tj）+“次“
End Sub
Private Sub Command3_Click （　　）
tj=0
List2．Clear
For i=1 To 9
k=i
For j=i+1 To 10
If c（j）＞c（k） Then

（3）

（3）

‘填空（3）處
Next j
If

（4）

（4）

Then‘填空（4）處
temp=c（i）：c（i）=c（k）：c（k）=temp
tj=tj+1
End If
Next i
For i=1 To 10
List2．AddItem c（i）
Next i
Label2．Caption=“交換“+Str（tj）+“次“
End Sub