1. (2016·杭州模拟) 【加试题】有如下VB程序段：

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值是（   ）