1. (2020高三下·宁波开学考) 对随机生成n个互不相同的正整数（正整数的最大值不超过m）进行排序，排序要求如下：①偶数在前，奇数在后；②奇数降序排序；③偶数升序排序。部分程序如下所示，划线处的正确语句是（     ）

Const n = 15

Const m = 100      '整数的最大值

Dim a(1 To n) As Integer

'本过程产生n个不同随机整数，区间在[1,m]之间，存储在数组a中，代码略

Private Sub Command1_Click()

    Dim i As Integer

    Dim flag(1 To m) As Boolean

    For i = 1 To n

              ①        = True

    Next i

    For i =2 To m step 2

        If flag(i) Then List2.AddItem        ②       

    Next i

    For i =      ③        To 1 Step -2

        If flag(i) Then List2.AddItem Str(i)

    Next i

End Sub