有VB序段如下：

Randomize

For i= 1 To 6 

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

  If a(i) Mod 2=i Mod 2 Then

    a(i)=a(i)-1

  Else

    a(i)=a(i)+2

  End If

Next i

执行该程序段后，a(1)~a(6)各元素可能的是（  ）

A、13，2，7，12，5，18

B、22，7，0，15，4，19

C、20，9，18，23，4，7

D、6，0，4，21，18，17