對 n 個互不相同的整數(shù)（整數(shù)的最大值不超過 m）進行排序，排序要求如下：①奇 數(shù)在前，偶數(shù)在后；②奇數(shù)升序排序；③偶數(shù)降序排序。小劉用 VB 編寫了實現(xiàn)上述功能的程序。 程序運行時，自動產生 n 個不同的隨機數(shù)存儲在數(shù)組 a 中，并在列表框 List1 中顯示。單擊按鈕 Command1 后，按要求在列表框 List2 中輸出排序后的結果。
實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正。
Const n=15
Const m=100'整數(shù)的最大值
Dim a（1 To n） As Integer
Private Sub Form_Load（　　）
'本過程產生 n 個不同隨機數(shù)存儲在數(shù)組 a 中，并在列表框 List1  中顯示
End Sub
Private Sub Command1_Click（　　）
Dim i As Integer
Dim flag（1 To m） As Boolean'flag（i）=True  代表數(shù)組 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