For i = 1 To 7

  For j = 8 To i+1 step -1

If sz(j) < sz(j-1) Then

  tmp = sz(j): sz(j) = sz(j-1): sz(j-1) = tmp

End If

  Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（   ）

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

Const n1=9       ‘第1段已排序数据长度为n1

Const n2=6       ‘第2段已排序数据长度为n2

 ‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

    ‘数组c依次存储两段已按从小到大排序的数据

    ‘并在列表框List1中显示，代码略

     List2．Clear

           A位置 

     For i=n1+1 To n1+n2

         j=i

           B位置  

        Do While j>1 And Flag

              t=c(j)

             c(j)=c(j-1)

             c(j-1)=t

       C位置 

        Else

          Flag=False

        End If

        j=j-1

                ‘②

      Loop

    Next i

    For i=1 To n1+n2

    List2．Addltem c(i)

    Next i

End Sub

For i= 1 To 3

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

     End  If

     Next j

     Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（  ）

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

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

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中显示的内容为（   ）