Const n=5

    For i=1 To 2

      For j=n-1 To i step-1

         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(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

例如将某节点插入到已有链表中，根据大小比较有三种情况：插入到最前面、插入到 最后、插入到中间，如图a所示，在链表中的节点 x 和节点 y之间插入节点n的过程示意：过程一（初始状态）如图1所示，链表中节点 x 的指针域指向节点y数据域，即图示①指向；过程二如图2所示，将节点n的指针域指向节点 y 数据域，即图示②指向；过程三如图 3 所示，将①指向断开，同时将节点 x 的指针域指向节点n数据域，即图示③指向；至此完成节点n的插入操作。

图a

具体程序设计方法如下：

1）将待排序的n个数保存在a(1)~a(n)，b(1)~b(n)保存对应a数组各元素的位置，形成 n个没有链接的节点；

2）将a(1)结点看成只含有一个结点的链表head，且 head=1；

3）将a(2)节点插入到链表head的适当位置，使head仍有序，此时head成为含有两个结点的有序链表；以此方法依次将a数组中的其他节点插入到链表head中，最后链表 head上包含所有结点，且结点有序。依次输出head链表的数据域即完成排序。

程序运行界面如图b所示，采用此思想进行升序排序的 VB 代码如下，请回答下列问题。

图b

⑴在每遍冒泡过程中，若最后一次交换的是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

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中显示的内容是（  ）