对 n 个互不相同的整数（整数的最大值不超过 m）进行排序，排序要求如下：①奇 数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用 VB 编写了实现上述功能的程序。 程序运行时，自动产生 n 个不同的随机数存储在数组 a 中，并在列表框 List1 中显示。单击按钮 Command1 后，按要求在列表框 List2 中输出排序后的结果。
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n=15
Const m=100'整数的最大值
Dim a（1 To n） As Integer
Private Sub Form_Load（　　）
'本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1  中显示
End Sub
Private Sub Command1_Click（　　）
Dim i As Integer
Dim flag（1 To m） As Boolean'flag（i）=True  代表数组 a 中存在值为 i 的元素
For i=1 To m flag（i）=False
Next i
For i=1 To n
 ①
Next i
For i=1 To m-1 Step 2
If flag（i） Then List2．AddItem Str（i） Next i
For         ②
If flag（i） Then List2．AddItem Str（i） Next i
End Sub