编写一个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