有如下VB程序段如下：

For i = 1 To 5

    a(i) = Int(Rnd * 10)

Next i

For i = 2 To 5

    If a(i) < a(i - 1) And a(i) Mod 2 = 1 Then

        a(i) = a(i) + 1

    ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then

        a(i) = a(i - 1) - 1

    End If

Next i

执行程序后，a数组各元素不可能的是（     ）

A、6,6,4,3,3

B、0,-1,9,8,4

C、4,3,5,8,7

D、0,1,3,2,0