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