1. (2020高三下·金华月考) 【加试题】有如下VB程序段：

For i= 1 To 6

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

Next i

For i= 1 To 5

    If i Mod 2= 1 And a(i) >a(i+1) Then

      t=a(i)：a(i)=a(i+1)：a(i+1)=t

    Else

      a(i)=a(i)+1

    End If

Next i

执行程序后，a数组各元素可能是（  ）