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

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

‘获取排序前数据，并依次存储在数组a中，并在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer，j As Integer，t As Integer

  Dim top As Integer

  top=1

  For i=1 To n-1

    For j= To n-1              ‘⑴{#blank#}1{#/blank#}

       If a(i)>a(j+1)Then

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

     ElseIf a(j)=a(j+1)Then     ‘相邻两个数据相等，由前面数据对进行覆盖处理

                        ‘⑵{#blank#}2{#/blank#}

       top=top+1

      End If

     Next j

    Next i

    Text2．Text=“ ”

    For i=top To n

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

    Next i

  End Sub

For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

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

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，,4,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（   ）

实现上述功能的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

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

Dim a(1 to 10) As Integer        ‘存储原始数据

Dim b(1 to 10)As Integer         ‘存放名次

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, n As Integer

    For i=1 To 10

       n=0

       For j=1 To 10

         If    

         Then n=n+1      ‘①

                    ‘②

      Next j

Next i

For i= 1 to 10

    List2.Additem a(i)&”   ”&b(i)

Next i

End Sub

Private  Sub Form_Load()

    ‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}