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 m As Integer  'm 为模块级变量，用于记录随机数个数

Private Sub Command1Click()

Randomize

Timer1.Enabled = True

End Sub

Private Sub Timer1Timer()

Dim n As Integer

        ①      

If      ②      Then  

     List1.AddItem n

Else

     List2.AddItem n  

End If

m = m + 1          

If m = 20 Then       ③       

End Sub

在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

程序中③划线处应填入{#blank#}3{#/blank#}。

新股首个交易日的涨停上限为44%，其余的交易日涨停上限为10%，并将相应股票价格四舍五入到分。公式提示：日收益=（本交易日股价-前一交易日股价)×股数

程序运行界面如图所示：

N阶幻方的构造方法有很多种，下面是“右上方填数法”的算法：

⑴将1放在第一行中间一列；

⑵2~n²依次填在上一个数的右上方位置（即行减1列加1）：

若上一个数的行数为1时，则当前数的行数为n；

若上一个数的列数为n时，则当前数的列数为1。

⑶如果按上面规则确定的位置上已有数，则把当前数放在上一个数的下面。

例如当n为3时，如图a所示，1在第1行第2列，则2的位置为第3行第3列；

再如3在第2行第1列，则4的位置应为第1行第2列，但该位置已有数，因此4就放在3所在位置的正下面。

“左上方填数法”的方法类似于“右上方填数法”，以3阶幻方为例，“右上方填数法”和“左上方填数法”所构造的幻方如下图a、图b所示。

小明采用“左上方填数法”的方法设计了如下程序。

Private Sub Command1_Click()

  Dim a(1 To 100) As Integer

  Dimx As Integer,y As Integer,x1 As Integer,y1 As Integer

  Dim n As Integer, s As Integer,pos As Integer, st As String

  n = Val(Text1.Text)

  For i = 1 To n * n

    a(i) = 0

  Next i

  s = 1

  x = 1

  y = (n + 1) \ 2

  a(y) = s

  Do While    ①  

    s = s + 1

    x1 = x: y1 = y

    x = x - 1

    y = y - 1

    If x < 1 Then x = n

    If y < 1 Then y = n

    If a((x - 1) * n + y) > 0 Then     ②   : y = y1

          ③  

    a(pos) = s

  Loop

  st = ""

  For i = 1 To n * n

    st = st + wid(a(i))

    If i Mod n = 0 Then

      List1.AddItem st

      st = ""

    End If

  Next i

End Sub

'自定义函数wid的功能是使数字在方阵对齐

Function wid(p As Integer) As String

  '代码省略

End Function

请回答下列问题：