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

Const n  As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 1 To n

       a(i) = Int(Rnd * 100)

       List1.AddItem Str(a(i))

    Next

End Sub

Private Sub Command1_Click()

    Dim tmp  As Integer, i As Integer, j As Integer, k As Integer

    For i = 1 To n - 1

        k = 0

        For j = n To i + 1 Step -1

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

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

               k = k + 1

            End If

        Next j

        If   k > 0   Then i = n

    Next i

    For i = 1 To n

        List2.AddItem Str(a(i))

    Next i

    End Sub

End Sub

程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim result(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim I, J, K, X As Single, Y As String

For I = 1 To 9

    K = I

    For J = I + 1   To  10

        If      ①      Then K = J

    Next J

    If K <> I Then

        X = result(I) : result(I) = result(K) :       ②      

        Y = name (I) :  name (I) = name (K)   :  name (K) = Y

    End If

Next I

    For I = 1  To  10

        List2.AddItem Str(result(i)) + "     " + result(i)

    Next i

End Sub

Private Sub Form_Load()

       ' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。

Dim a(1 To 8) As Integer

Dim n  As Integer

Private Sub Form_Load()

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

   '代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer      '变量pos存储指定数据的位置（既下标值）

Dim s As String         '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

      For j =    ⑴            

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

                 ⑵             

              a(j - 1) = a(j)

              a(j) = k

               '如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

              If pos = j Then

                  pos = j - 1

                  s = s + "→" + Str(pos)

                                               '（3）

                  pos = j

                  s = s + "→" + Str(pos)

              End If

          End If

      Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

      List2.AddItem Str(a(i))

Next i

End Sub

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

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

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

  bottom = n : i = 1

  Do While i <= bottom - 1

    For j = bottom To i + 1 Step -1

        If  Then     ‘⑴

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

        ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理

                 ‘⑵

            bottom = bottom - 1

        End If

    Next j

    i = i + 1

  Loop

Text2.Text = " "

For i = 1 To bottom

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

Next i

End Sub

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

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(10) As Integer    '数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    For i = 0 To 10

        For j = 1 To       ①{#blank#}1{#/blank#}

List2.AddItem  CStr(i)

        Next j

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 0 To 10             '将数组初始化为0

        a(i) = 0

    Next i

    For i = 1 To 6            '产生6个[0,9]的随机数

        t = Int(Rnd * 10)  

        a(t) =   '第t桶中小旗子数量加1    ② {#blank#}2{#/blank#}

        List1.AddItem  CStr(t)

    Next i

End Sub

Private Sub Command1_ Click ( )

  Dim a(1 To 5) As Integer, i As Integer, 3 As Integer, c As Integer

  a(1) = 22: a(2) = 44: a(3) = 11: a(4) =33: a(5) = 55: c = 0

  For i = 1 To 4

m = i

For j = i + 1 To 5

  If a(i) > a(m) Then m = j

    Next j

    If m <> i Then

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

      c=c+1

    End If

  Next i

  Label1.Caption= Str (c)

End sub

该程序运行后，标签Label1中显示的内容是（  ）