For i = 1 To 2

        For j = 2 To 7 - i

            If a(j) > a(j - 1) Then

                k = a(j): a(j) = a(j - 1): a(j - 1) = k

            End If

        Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（   ）

Dim a(1 To 7) As Integer, i As Integer, j As Integer

Dim k As Integer, c As Integer

a(1)=4: a(2)=9: a(3)=1: a(4)=5

a(5)=8: a(6)=6: a(7)=2

s=“”

For i=1 To 3

 For j=i+1 To 7

  If a(j) < a(i) Then

   k=a(j): a(j)=a(i): a(i )=k

   c=c+1

  End If

 Next j

 s=Str(a(i))+s

Next i

Text1.Text=Str(c) & “:” & s

该程序段运行后，文本框Text1中显示的内容是（  ）

以下程序加框处有错，请改正。

Private Sub Command1_Click()

  Dim s(1 To 1000)As Single, n As Integer, x As Integer

  Dim payment As Single, cost As Single, tmp as Single

‘假设顾客共挑选了n本书，各本书金额数都已存放在数组s中

‘先对n本书按价格降序排序

For i=1 To n-1

  x=i

  For j=i+1 To n

    If  Then x=j ’{#blank#}1{#/blank#}

  Next j

  If x <> i Then

   tmp=s(x)

   s(x)=s(i)

   s(i)=tmp

  End If

 Next i

 ‘降序排序后，每隔两本就是一本可以减免的书

 cost=0 : payment=0

 For i=1 To n

  cost=cost+s(i)

 If  Then   ‘{#blank#}2{#/blank#}

   payment=payment+s(i)

  End If

 Next i

 Label1.Caption=“总金额:” & cost

 Label2.Caption=“实付:” & payment

End Sub

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

Const n=10

Dim a (1 To n) As Integer

Private Sub Command1_Click()

Dim t As Integer, i As Integer, j As Integer, m As Integer

Dim tmp As Integer

'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略

i=1

Do While i<=n

    For j=n To i+1 Step-1

        If a(j) Mod 2=1 Then

            If ①  Then

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

                t=t+1

            End If

        End If

    Next j

    If ②  Then m=m+1

    i=i+1

Loop

For i=1 to m

    List2.AddItem Str(a(i))

Next i

List2.AddItem "一共交换了"& t & "次"

End Sub

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

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：

s =" shenzhen"

For i=1 To Len(s)

    a(i) = Mid(s，i，1)

    b(i) = i

Next i

For i=Len(s) To 2 Step-1

    If a(b(i)) >= a(b(i - 1)) Then

        t=b(i)：b(i)=b(i-1)：b(i-1)=t

    End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（    ）