有如下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