编写一个 VB 程序，实现程序功能如下：随机产生 10 个 1～20 之间的整数存 数组 a,在列表框 List1 中显示，单击“排序”按钮 Command1 后，在列表框 List2 中显示升序 排序后的结果，运行界面如图所示。具体算法描述如下：引入数组 index,index（i）存储 i 位 置应放置的数组元素的下标。排序完毕，a（index（i））成为升序序列，即 a（index（1））≤a（index（2））
≤a（index（3））≤……≤a（index（n））。在数组 a 的所有元素中找出最小元素，将其所在位置存放 在数组元素 index（1）中，然后在余下的元素中找出最小元素，将其所在位置存放在数组元素 index（2）中，以此类推，直到完成所有元素排序。如 n=5 时，数组 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

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
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