Dim a(8) As Integer For i = 2 To 8

           a(0) = a(i)

           Do While a(0) < a(j)  

                  j = j - 1

           Loop

       Next i

数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（  ）

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

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

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

Dim tmp As Integer, i As Integer, j As Integer, t As Integer

‘f数组各元素的初值置为False，代码略

For i = 1 To   ⑴ 

    t = Int(1 + Rnd * 10)

    If Not f(t) Then

        a(i) = t : f(t) = True

        For j =   ⑵ 

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

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

            End If

        Next j

    Else

      ⑶ 

    End If

Next i

上述程序段3个方框处的表达式分别为(   )

tail=6: i=1: r=2

Do While i<r

    For j= tail To i+1 Step-1

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

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

        End If

    Next j

    i=i+1

    For j=i To tail-1

        If a(j)<a(j+1) Then

            t=a(j):a(j)=a(j+1):a(j+1)=t

        End If

    Next j

    tail=tail-1

Loop

数组元素值“73、56、28、61、44、92”，运行程序，数组元素a(1)到a(6)的值依次为（   ）

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

请回答下列问题：