有如下VB程序段：

i=1

Do While i<=6

    a(i)= Int(Rnd * 9)+1

    If a(i) mod 3=1 then

        a(i)=a(i)+i mod 3

    Elself a(i) mod 2=1 then

        a(i)=a(i) mod 3

    End If

i=i+1

Loop

执行该程序段后，以下选项中a(1)~a(6)的值不可能是(     )

A、0  0  0  0  0  0

B、2  8  6  2  0  1

C、7  4  3  1  0  3

D、8  6  0  9  2  7