1. (2019高三上·台州月考) 有如下VB程序段：

For i=1 To 6

    x=Int(Rnd*10)+1

    If i Mod 2 = 1 Then

        a(i)=2*x+1

    Elself x Mod 2 = 0 Then

        a(i)=x/2

    Else

        a(i)=x-1

    End If

Next i

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