对随机生成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

A、①flag(i) ②Str(a(i)) ③m-1

B、①flag(a(i)) ②Str(i) ③m-1

C、①flag(a(i)) ②Str(i) ③m

D、①flag(i) ②Str(a(i)) ③m