实现该功能的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#}

For i=1 To 9

 For j=10 To i+2 Step-1

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

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

  End If

 Next j

Next i

数组元素a(1)到a(10)的值依次为“10,9,8,7,6,5,4,3,2,1”，执行该程序段后,数组元素a(8)中的值为（  ）

⑴在每遍冒泡过程中，若最后一次交换的是last与last-1位置，则last位置之前的相邻数据均已有序。进行下一遍冒泡时，无序区域设置[last， n]，这样可使无序区域缩小。

⑵若在某一遍排序中没有数据交换，说明待排序数据都已经有序，冒泡排序过程可在此遍排序后结束。因此可以引入一个变量flag，记录在每遍排序过程中是否发生了交换。

小王设计了如下VB程序，功能如下:按Cominandl“生成数据”后，生成一组随机的两位整数存入数组a，并输出在列表框List1中。单击Command2“排序”后，a中的数据进行降序排序，排序后的数据显示在列表框List2中，排序过程中实际的冒泡遍数显示在Label2上。程序运行界面如下所示。

实现上述功能的VB程序如下，回答下列问题:

为此，小李编写了一个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

Dim a(1 To 5) As Integer

Randomize

a(1)=2：a(2)=6：a(3)=9：a(4)=3：a(5)=4

For i=1 To 4

    For j=1 To 5-i

        If a(j)+Int (Rnd*2)< a (j+1) Then

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

        End If

    Next j

Next i

执行该程序段后，a(1)~a(5)的值不可能是(    )