有如下VB程序段：

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数组各元素可能是（  ）

A、1 3 4 6 7 9

B、1 2 0 3 5 6

C、1 2 3 4 5 4

D、1 3 4 5 1 1