某算法的 VB 程序段如下：

Const n = 5

Dim d(1 To n) As Integer

For i = 1 To n

    d(i) = Int(Rnd * 10 + 1)

Next i

i = 1

Do While i <= n - 1

    For j = n To i + 1 Step -1

        If d(j) Mod 2 = d(j - 1) Mod 2 Then If d(j) < d(j - 1) Then

            t = d(j): d(j) = d(j - 1): d(j - 1) = t

        End If

        ElseIf d(j) Mod 2 = 1 And d(j - 1) Mod 2 = 0 Then

            t = d(j): d(j) = d(j - 1): d(j - 1) = t

        End If

    Next j

    i = i + 1

Loop

执行该程序段后，数组元素 d(1)到d(n)的值不可能为（     ）

A、7 11 15 16 19

B、1 9 11 15 19

C、2 8 10 18 20

D、11 2 10 12 16