在列表框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#} 

a(l) = "Java": a(2) = 〃VB": a(3) = "Swift"

a⑷="Pascal": a(5) = "Python": a(6) = "Delphi

For i = 1 To 3

  For j = 1 To 6 - i

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

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

    End If

  Next j

Next i

执行该程序段后，数组a(1)到a(6)的数据依次是（  ）

s=“26170534”:n=Len(s):y=“”

For i=1 To n

 ch(i)=Mid(s, i, 1)

Next i

For i=1 To n

 k=i

 For j=i To n Step 2

  If ch(j)< ch(k) Then k=j

 Next j

 If k <> i Then t=ch(k): ch(k)=ch(i): ch(i)=t

 y=y & ch(i)

Next i

Label1.Caption=y

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

Dim a(1 To 100) As String '依次存放100 个随机字符串

Dim b(1 To 100) As Integer '依次存放每个字符串的权值

Private Sub Command1_Click() '产生100 个随机字符串

Dim i As Integer, k As Integer, t As Integer, x As Integer

Randomize

For i = 1 To 100

k = Int(Rnd * 10 + 1) : t = 0  'k 表示第i 个字符串的长度

Do While t < k '通过循环依次产生第i 个字符串a(i)的k 个字符

If Int(Rnd * 2 + 1) = 1 Then '产生一个小写字母的ASCII 码值

x = Asc("a") + Int(Rnd * 26)

Else

x = Asc("A") + Int(Rnd * 26) '产生一个大写字母的ASCII 码值

End If

                '①

If b(i) < x Then b(i) = x

t = t + 1

Loop

List1.AddItem a(i)

Next i

End Sub

Private Sub Command2_Click() '对100 个字符串按字符串权值降序排序

Dim i As Integer, j As Integer, y As Integer

Dim s As String

For i = 1 To 99

k = i

For j = i + 1 To 100

    '②

Next j

If k <> i Then

s = a(k): a(k) = a(i): a(i) = s

y = b(k): b(k) = b(i): b(i) = y

End If

Next i

For i = 1 To 100

List2.AddItem a(i)

Next i

End Sub

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

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

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

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

Dim bottom As Integer

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

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

      Elself 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#} 

m = (1 + n) \ 2       ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

    If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

    If i Mod 2 = 1 Then

        k = q + 1: q = q + 1

    Else

        k = p - 1: p = p - 1

    End If

    pos = k

    For j = 1 To n

        If And a(j) < a(k) Then k = j

    Next j

    If pos > k Then

        t = a(pos): a(pos) = a(k): a(k) = t

    End If

Next i

上述程序段方框处的代码为（  ）