1. (2020高三下·金华月考) 有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)各元素可能的是（  ）