凱凱學(xué)習(xí)了桶排序和冒泡排序，他發(fā)現(xiàn)桶排序占空間比較多而冒泡排序的效率又較低，于是他想到綜合兩個(gè)算法來(lái)對(duì)數(shù)據(jù)進(jìn)行排序。凱凱對(duì) n 個(gè)由二位數(shù)組成的數(shù)據(jù)進(jìn)行排序，排序步驟如下：
（1）以每個(gè)數(shù)的十位數(shù)來(lái)區(qū)分，放置到各個(gè)桶里（如圖①）；
（2）分別對(duì)每個(gè)桶中的數(shù)據(jù)進(jìn)行冒泡排序（如圖②）；
（3）最后依次輸出各個(gè)桶中的數(shù)據(jù)即可（如圖③）

Dim a（1 To 100）As Integer,b（1 To 100）As Integer
Dim c（0 To 10）As Integer Dim n As Integer
Private Sub Form_Load

（　　）

（　?。?/div>
'讀取若干個(gè)二位數(shù)到 a（i）中，并保存?zhèn)€數(shù)到 n
End Sub
Private Sub Command1_Click

（　?。?/div>

（　　）

Dim i As Integer,t As Integer
For i=1 To n
c（a（i）\10）=c（a（i）\10）+1
Next i
c（0）=1：c（10）=

n+1

n+1

For i=1 To 9
c（i）=c（i）+c（i-1）
Next i
For i=1 To n
t=a（i）\10
c（t）=c（t）-1

b（c（t））=a（i）

b（c（t））=a（i）

Next i
For i=1 To 9
Call px（c（i），c（i+1）-1）
Next i
For i=1 To n
List2.AddItem b（i）
Next i
End Sub
Sub px（x As Integer,y As Integer）
Dim t As Integer,i As Integer,j As Integer
For i=

1 To y

1 To y

For j=x To y-i
If b（j）＞b（j+1）Then
t=b（j）：b（j）=b（j+1）：b（j+1）=t
End If
Next j
Next i
End Sub
（1）若要修改“桶排”按鈕上顯示的文字，應(yīng)修改的屬性名是

Caption

Caption

。
（2）加框處代碼有錯(cuò)，請(qǐng)改正。
（3）請(qǐng)?jiān)跈M線處填入合適的代碼。