有一组正整数，要求对其中的奇偶数进行交换。交换后奇数在前，偶数在后，并保持相对顺序不变。

Const n = 10

Private Sub Command1_Click()

    num = 0: k = 0

    Do While k < n

        k = k + 1

        If  ①   Then

            num = num + 1

            b(num) = a(k)

        Else

              ② 

        End If

    Loop

    For j =③

        a(j) = b(j - n + num)

    Next j

End Sub

下列选项中，①②③中的代码顺序正确的是（      ）

A、①a(k) Mod 2 = 1 ②b(k - num) = a(k)          ③n - num To n

B、①a(k) Mod 2 = 0         ②a(k - num) = a(k)          ③n - num + 1 To n

C、①a(k) Mod 2 = 1         ②a(k - num) = a(k)          ③n - num To n

D、①a(k) Mod 2 = 0 ②b(k - num) = a(k)          ③n - num + 1 To n