某排序算法思想如下：若有11個(gè)桶，編號(hào)從0～10，隨機(jī)產(chǎn)生多個(gè)整數(shù)，每產(chǎn)生一個(gè)整數(shù)時(shí)，就在以該整數(shù)位編號(hào)的桶中放一面小旗子，最后只要按順序數(shù)每個(gè)桶中有幾面小旗子，就能得到這幾個(gè)整數(shù)的有序排列．例如2號(hào)桶中有1個(gè)小旗子，表示2出現(xiàn)了一次；3號(hào)桶中有1個(gè)小旗子，表示3出現(xiàn)了一次；5號(hào)桶中有2個(gè)小旗子，表示5出現(xiàn)了兩次；8號(hào)桶中有1個(gè)小旗子，表示8出現(xiàn)了一次，按桶有編號(hào)順序讀出旗子數(shù)量，沒(méi)有旗子的桶略過(guò)，得到有序整數(shù)為“2，3，5，5，8”．
為此，小李編寫(xiě)了一個(gè)VB程序，功能如下：運(yùn)行程序，窗體加載時(shí)隨機(jī)產(chǎn)生6個(gè)[0，9]的隨機(jī)整數(shù)，并在列表框List1中依次顯示排序前數(shù)據(jù)，單擊“排序”按鈕Commandl,在列表框Lixt2中顯示經(jīng)過(guò)上述排序算法后的數(shù)據(jù)，運(yùn)行結(jié)果如第如圖2所示．
實(shí)現(xiàn)上述功能 的VB代碼如下，但加框代碼有錯(cuò)，請(qǐng)改正．
Dim a（10）As Integer’數(shù)組a表示桶的編號(hào)，如a（0）表示第0號(hào)桶
Private Sub Commandl_-Click（　　）
    Dim i As Integer,j As Integer
    For i=0 to 10
        For j=1 to
            List2．AddItem CStr（i）
        Next j
    Next i
End Sub
Private Sub Form-Load
    Dim i As Integer
    Randomize
    For i=0 to 10’將數(shù)組初始化為0
        a（i）=0
    Next i
    For i=1 to 6’產(chǎn)生6個(gè)[0，9]的隨機(jī)數(shù)
        t=Int（Rnd*10）
        a（t）=’第t桶中小旗子數(shù)量加1
        List1．AddItem  CStr（t）
    Next i
End Sub.