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