a(i)=i+1

    Next i

程序运行后，变量i的值是：（   ）

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

           {#blank#}1{#/blank#}

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

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)各元素可能的值是（  ）