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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean  'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True      '（1）

flag=False

For j=n To i+1 Step -1

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

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

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i)             '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

  For i=1 To 3

    For j=5 To i Step-1

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

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

       EndIf

    Next j

    Listl．AddItem Str(a(i))

  Next i

  数组元素a（1）到a（6）的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框List1中显示的内容是（  ）

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

i = 1

   Do While i<= 5

      If i = 0 Or a(i - 1) <= a(i) Then

         i = i + 1

      Else

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

         i = i - 1

      End If

   Loop

数组元素a(0)到a(5)依次为：“0，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为（  ）

Private Sub Command1_Click()

    Dim n, i, j, temp As Integer

    Dim a(1 To 10) As Integer

    n = Val(Text1.Text)

    Randomize

    a(1) = Int(Rnd * 20) + 1

    For i = 2 To n

        a(i) = Int(Rnd * 20) + 1

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

            temp = a(i)

            bot = 1 :  Top = n   

            Do While bot <= Top

               ‘(1)

                If  temp < a(m)  Then bot = m + 1 Else Top = m - 1 

            Loop

            For k = n To bot + 1 Step -1

                 ‘(2) 

            Next k

            a(bot) = temp

        End If

    Next i

    For j = 1 To n

        List1.AddItem Str(a(j))

    Next j

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴{#blank#}1{#/blank#}；⑵{#blank#}2{#/blank#}。

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处下划线应填入的程序代码是（  ）