有如下的VB程序段：

Dim a（1 To 6）As integer

a（1）=1

For i=2 To 6

   Randomize

   a（i）=a（i-1）+Int（Rnd*5+1）

If a（i） Mod 2=1 Then

    a（i）=a（i）\2+1

Else

a（i）=a（i）/2

End If

Next i

执行程序后，数组各元素不可能是(    )

A、1 2 3 4 3 4

B、1 1 3 4 4 3

C、1 3 3 3 3 2

D、1 4 2 4 4 5