Dim a(1 to 10)as integer

Pos=-1

i=1

do while i<=10

   if i mod 2=0 then a(i)=i*2 else a(i)=i

   i=i+1

loop

i=10

do while i>=1

  if a(i)=12 then Pos=i

  i=i-1

loop

该程序段运行后，变量Pos值是（   ）

Dim i As Integer, m As Integer, flag as Boolean

m = {#blank#}1{#/blank#}

flag= {#blank#}2{#/blank#}

For i = 2 To int(sqr(m))

    If {#blank#}3{#/blank#} Then

        flag=false

        Exit For

    End if

Next i

If flag=true Then

    Text2.Text = str(m) +"是素数"

Else

    Text2.Text = str(m) +"不是素数"

End if

Dim a(1To 5)As Integer

i=1:n=5

Randomize

For i=1 To n

    x=Int(Rnd*10)*2+1

    If(x Mod 10+x\10)Mod 2=0 Then

        a(i)=x

    Else

        a(n-i+1)=x

    End If

Next i

数组元素的初值均为0，执行该程序段后，a（1）至a（5）的值可能的是（    ）