有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、20，9，18，23，4，7 

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

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