n = 10

Text1.Text = ""

  For i = 1 To 5

    For j = n To i + 1 Step -1

      If a(j) < a(i) Then

        temp = a(j): a(j) = a(i): a(i) = temp

      End If

    Next j

  Next i

  For i = 1 To 10

      Text1.Text = Text1.Text + Str(a(i))

  Next i

数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是（   ）

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

    Dim imin1 As Integer, imin2 As Integer

    For i = 1 To n \ 2

      imin1 = i: imin2 = i + 1

    If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

    For j = i + 2 To n - i + 1

      If a(j) < a(imin1) Then

      imin2 = imin1: imin1 = j

      '①

      imin2 = j

    End If

Next j

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

If imin2 = i Then    '②

If n - i + 1 <> imin2 Then

    t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

      Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

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

程序说明：

⑴其中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 a(1 To 10) As Integer, f(1 To 20) As Boolean

    'f数组各元素的初值设为False，代码略

    For i = 1 To 10

       t =int(rnd()*20+1)

       If Not f(t) Then

          a(i) = t:      ⑴     

          For j = i To 2 Step -1

             If    ⑵    Then

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

             End If

          Next j

       Else

               ⑶    

       End If

    Next i

上述程序中3处下划线应填入的程序代码是（  ）

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

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

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)的值依次为（   ）