1. (2019高二下·衢州期末) 有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）各元素可能的是（   ）