设计VB程序，实现功能：将每个科目的选课人数按照选考人数降序排序后输出。其中，科目名称存放在数组a(i)中，人数存放在数组b(i)中。

程序运行界面设计如图所示，左边列表框List1是显示科目名称和选课人数，单击“排序”按钮Command1后，在右边的列表框List2中显示排序后的科目名称和选课人数。

Command1的处理事件过程如下，但加框处代码有错，请改正。

Private Sub command1_click()

Dim a(1 To 7)  As String

Dim b(1 To 7)  As Integer

Dim i As Integer, j As Integer, p As String, q As Integer

For i = 1 To 7

   List1.AddItem a(i) + " " + Str(b(i))

Next i

For i = 1 To 6

   k = i

   For j = i + 1 To 7

Next j

   If i <> k Then

     p = a(i): a(i) = a(k): a(k) = p

   End If

Next i

For i = 1 To 7

   List2.AddItem a(i) + " " + Str(b(i))

Next i

End Sub
①{#blank#}1{#/blank#}   ②{#blank#}2{#/blank#}

假设有4个数据：27  36  32  18，需要4-1=3遍加工

第1遍加工如下：

第2遍加工如下：

第3遍加工如下：

假设4个数据放在数组d(1), d(2),d(3), d(4)

第1遍：比较d(j)、d(j-1)，j=4,3,2,比较3次；

第2遍：比较d(j)、d(j-1)，j=4,3,比较2次；

第3遍：比较d(j)、d(j-1)，j=4,比较1次；

s=“26170534”:n=Len(s):y=“”

For i=1 To n

 ch(i)=Mid(s, i, 1)

Next i

For i=1 To n

 k=i

 For j=i To n Step 2

  If ch(j)< ch(k) Then k=j

 Next j

 If k <> i Then t=ch(k): ch(k)=ch(i): ch(i)=t

 y=y & ch(i)

Next i

Label1.Caption=y

该程序段运行后，标签Label1中显示的内容是（  ）

p=l：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

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