編寫一個VB程序，比較冒泡排序和選擇排序的效率。功能如下：點擊命令按鈕Command1，在列表框List1中輸出任意10個兩位數(shù)，用數(shù)組a （　?。┍硎?。點擊命令按鈕Command2，用冒泡排序的方法在列表框List2中將10個數(shù)降序輸出，用數(shù)組b （　?。┍硎荆⒃跇撕濴abel1中顯示交換次數(shù)。點擊命令按鈕Command3，用選擇排序的方法在列表框List2中將10個數(shù)降序輸出，用數(shù)組c （　?。┍硎?，并在標簽Label2中顯示交換次數(shù)。程序界面如圖所示：
實現(xiàn)上述功能的VB程序如下，請在橫線處填入適合的代碼。
Dim a（1 To 10）As Integer,b（1 To 10）As Integer,c（1 To 10）As Integer
‘數(shù)組a （　　）用于保存隨機生成的10個數(shù)，數(shù)組b（　　）用于冒泡排序，數(shù)組c（　?。?用于選擇排序
Dim tj As Integer
Private Sub Command1_Click （　?。?br />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 （　?。?br />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 （　?。?br />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