Const n = 6

   Dim a(1 To n) As Integer

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

   Do While True

For i=1 to n-1

      If a(i)>a(i+1) then Exit For

Next i

     If i < n Then

       For i = 1 To n

        j = Int(Rnd * 6) + 1

        t = a(j): a(j) = a(i): a(i) = t

       Next i

     Else

       Exit Do

     End If

   Loop

数组中a(1)到a(6)的值依次为“56，34，48，87，65，96”，经上述程序段执行后a(1)到a(6)的值依次为（  ）

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

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

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

For i=1 To 7

 k=i

 For j=i+1 To 8

  If a(j)>a(k) And a(j)>85 Then k=j

 Next j

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

Next i

数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（  ）

b(0)=0

For i=1 To 6

 k=i

 For j=i+1 To 7

  If a(k) > a(j) Then k=j

 Next j

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

 If a(i) <> a(i-1) Then

  b(i)=i

 Else

  b(i)=b(i-1)

 End If

Next i

若数组元素a(1)到a(7)的值依次为“6,7,6,3,9,2,3”，则经过上述程序加工后，b(5)的值是（  ）

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

  For i=2 To 10

Text1.Text = ""

For i= 1 To 5

  For j=i+1 To 6

  If s(i) + s(i) < 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 = s(i) + Text1.Text

Next i

  If  Then

    tmp = a(i)

      For j=  To 1 Step -1    ‘依次后移

        If tmp > a(j) Then Exit For

        a(j+1)= a(j)

      Next j

          ‘插入数据

    End If

  Next i

  For i= 1 To 10

    List1.Addltem a(i)

  Next i

End Sub

要实现上述功能，方框①②③中的语句分别是（  ）