若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（   ）

   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程序如下：

程序说明：

⑴其中n由文本框Text1中数据得到，x由文本框Text2中数据得到，插入位置显示在文本框Text3中。

⑵其中n个有序数据将通过随机函数Rnd产生，并对n个数进行降序排序后存入数组a中，同时显示在列表框List1中。

为了实现这一目标，完善下面的VB程序，在横线处填入合适的语句或表达式，完成程序设计。

Private Sub Command1_Click()

 Dim a(1 To 50)As Integer

 Dim n As Integer, i As Integer

 Dim x As Integer, temp As Integer

 Randomize

 List1.Clear

 n=Val(Text1.Text)

 x=Val(Text2.Text)

‘随机产生n个数,并存放至a数组中

 For i=1 To n

  a(i)=Rnd*200+1

Next i

‘将数组a中的数按降序排序

For i=2 To n

  For j=n To i Step-1

  If ①{#blank#}1{#/blank#} Then

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

Next j

Next i

‘将排序后的数组元素显示在列表框List1中

For i=1 To n

 List1.AddItem Str(a(i))

Next i

‘插入操作

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

  i=n+1

Else

  ③{#blank#}3{#/blank#}

  Do While x<a(i)

   i=i+1

  Loop

End if

‘在文本框Text3中显示插入位置

Text3 Text=Str(i)

End Sub

Dim n As Integer

Dim a(1 To 100) As Integer

’n=10,排序前生成的数据存储在数组a中，并在列表框List1中显示，代码略

Private Sub Command1_Click()

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

 i=2

 Do While i < n start=n

  For j=n To i Step-1

   If{#blank#}1{#/blank#}Then

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

    {#blank#}2{#/blank#}

   End If

  Next j

  i=start+1

 Loop

 For i=1 To n

  List2.AddItem{#blank#}3{#/blank#}  

 Next i

End Sub