若采用冒泡排序算法对这组数据进行升序排列，那么在完成第一遍排序时，数组元素a(1)到a(6)的数据依次是（   ）

  Dim a(1 To 8) As Integer

  a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

  n = 8: t = 0

  For i = 1 To n - 1

    k = i

    For j = i + 1 To n

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

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

    End If

  Next i

  Text1.Text = Str(t)

该程序段运行后，文本框Text1中显示的内容是（  ）

⑴如果只有1人过桥，时间为个人过桥时间。

⑵如果有2人一起过桥，时间以慢的人为准。

⑶如果有3个人a、b、C，耗时T_a<T_b<T_c ， 过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。

⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a<T_b<……<T_y<T_x ， 这时有两种可选方案，选择其中用时少的，直至剩余少于4人。

①最快的1个将最慢的2个分别送过桥。

a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；

②最快的2个将最慢的2个送过桥。

让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。

为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。

例如将某节点插入到已有链表中，根据大小比较有三种情况：插入到最前面、插入到 最后、插入到中间，如图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

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

Dim a(1 to 10) As Integer        ‘存储原始数据

Dim b(1 to 10)As Integer         ‘存放名次

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, n As Integer

    For i=1 To 10

       n=0

       For j=1 To 10

         If    

         Then n=n+1      ‘①

                    ‘②

      Next j

Next i

For i= 1 to 10

    List2.Additem a(i)&”   ”&b(i)

Next i

End Sub

Private  Sub Form_Load()

    ‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}

'待排序数据存储在数组a中（a（1）~a（n）），要求升序排列

For i=1To（n-1）\2

  For j=1To n-i*2

    If a  Then         '①

      t= a（j）：a（j）= a（j+ 2）：a（j+2）= t

    End If

  Next j

Next i

For i = 1 To n\2

    j = 2 * i - 1

    If a（j）> a（j+ 1）Then t = a（j）：a（j）= a（j+1）：a（j+1）= t

Next i

For i=  Step 2         '②

    t = a（i）：j = i - 1

    Do While t <a（j）

      a（j+ 1）= a（j）：j =j-1

    Loop

    a（j+ 1）= t

Next i

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