实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const maxn=100

  Dim id(1 To maxn)As Integer     ‘存储每个学生的学号

  Dim tall(1 To maxn)As Single     ‘存储每个学生的身高

  Dim n As Integer                ‘存储学生的个数

  Private Sub Form_Load()

  ‘从数据库得到学生的总人数n

    ‘从数据库读取学号信息，并存入id数组中

    ‘从数据库读取身高信息，并存入tall数组中

    ‘在列表框List1中显示学号与身高

  End Sub

  Private Sub Command1_Click()

  Dim a(1 To maxn)As Integer    ‘存储排好队形的学号

  Dim b(1 To maxn)As Single     ‘存储排好队形的身高

  Dim i As Integer，j As Integer

  Dim t1 As Integer，tr As Integer，mid As Integer

  Dim tmp1 As Single，tmp2 As Integer

  For i=1 To n-1

    For j=n To i+1 Step-1

      If  Then        ‘(1)

        tmp1=tall(j)：tall(j)=tall(j-1)：tall(j-1)=tmp1

        tmp2=id(j)：id(j)=id(j-1)：id(j-1)=tmp2

      End If

     Next j

    Next i

    If n Mod 2=0 Then     ‘根据总人数的奇偶性，确定队形的中间位置

       mid=n＼2+1

    Else

       mid=(n+1)＼2

    End If

    ‘身高第一位的同学，安排在队形的中间位置

    a(mid)=id(1)

    b(mid)=tall(1)

    t1=mid-1

    tr=mid+1

    For i=2 To n

      If  Then           ‘(2)

        a(tr)=id(i)

      b(tr)=tall(i)

      tr=tr+1

    Else

      a(t1)=id(i)

      b(t1)=tall(i)

      t1=t1-1

     End If

    Next i

    List2．AddItem“位置”+“学号 ”+“身高”

    For i=1 To n

      List2．Addltem Str(i)+”  ”+Str(a(i))+”  ”+Str(b(i))

    Next i

  End Sub

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

     For j = 1 To 5 - i

         If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

     Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（  ）

p = 1: q = 10

Do While p < q

  iMin = p: iMax = p

  For i = p + 1 To q

    If a(i) < a(iMin) Then iMin = i

    If a(i) > a(iMax) Then iMax = i

  Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

  t = a(iMax): a(iMax) = a(q): a(q) = t

  p = p + 1

  q = q - 1

Loop

程序运行界面如题图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮（Command1），在文本框Text4中输出小林最多能摘得的苹果数ans。

For i=1 To 5

    For j=i+1 To 6

        If s(i)+ s(j)< s(j)+ s(i) Then

            t=s(j):s(j)=s(i):s(i)=t

        End If

    Next j

Next i

For i= 1 To 6

    Text1.Text= Text1.text+s(i)

Next i

如果程序运行,开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（   ）

p = 1: q = 10

Do While p < q

    iMin = p: iMax = p

    For i = p + 1 To q

        If a(i) < a(iMin) Then

            iMin = i

        elseIf a(i) > a(iMax) Then

            iMax = i

        endif

    Next i

    t = a(iMax): a(iMax) = a(q): a(q) = t

      ①  

    t = a(iMin): a(iMin) = a(p): a(p) = t

    p = p + 1:q = q -1

Loop

要使程序实现上述算法思想，则方框中的语句是（  ）