編寫一個(gè) VB 程序，實(shí)現(xiàn)程序功能如下：隨機(jī)產(chǎn)生 10 個(gè) 1～20 之間的整數(shù)存 數(shù)組 a,在列表框 List1 中顯示，單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示升序 排序后的結(jié)果，運(yùn)行界面如圖所示。具體算法描述如下：引入數(shù)組 index,index（i）存儲(chǔ) i 位 置應(yīng)放置的數(shù)組元素的下標(biāo)。排序完畢，a（index（i））成為升序序列，即 a（index（1））≤a（index（2））
≤a（index（3））≤……≤a（index（n））。在數(shù)組 a 的所有元素中找出最小元素，將其所在位置存放 在數(shù)組元素 index（1）中，然后在余下的元素中找出最小元素，將其所在位置存放在數(shù)組元素 index（2）中，以此類推，直到完成所有元素排序。如 n=5 時(shí)，數(shù)組 a 排序后各變量值如表所示。

i	1	2	3	4	5
a（i）	17	19	9	13	6
index（i）	5	3	4	1	2
a（index（i））	6	9	13	17	19

實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const n=10，maxn=20
Dim a（1To n） As Integer,index（1To n） As Integer,flag（1To n） As Boolean
Private Sub Form_Load （　　）
Dim i As Integer Randomize
For i=1To n flag（i）=False
a（i）=Int（Rnd （　　）*maxn）+1
List1．AddItem Str（a（i）） Next i
End Sub
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,k As Integer
For i=1To n
For j=1To n
If flag（j）=False Then k=j：Exit For
Next j
For m=k+1To n
If  Then k=m‘（1）
Next m index（i）=k flag（k）=True
Next i
For i=1To n
List2．AddItem ‘（2）
Next i
End Sub