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

小明依据上述描述设计了如下VB程序，在Text1中输入矩阵的行数n (n≤10)，单击“生成”按钮Command1，在List1中显示n×n的螺旋矩阵。请回答下列问题：

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）