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

  Const n=10

  Private Sub Form_Load()

    ‘排序前数据存储在数组a中，并在文本框Text1中显示

    ‘代码略

  End Sub

  Private Sub Command1_Click()

  Dim i As Integer

  Dim bottom As Integer

  Dim j As Integer

  Dim a(1 To n)As Integer

  i=1

  bottom=n

  Do While i<bottom

    k=i

    j=i+1

      Do While i<=bottom

        If a(j)=a(k)Then

           a(i)=a(bottom)

                    ‘(1)

           bottom=bottom-1

        E1seIf a(j)<a(k) Then

           k=j

        End If

        j=j+1

      Loop

      If    Then      ‘(2)

    t=a(i)

    a(i)=a(k)

    a(k)=t

      End If

      i=i+1

  Loop

 ‘排序后数据存储在数组a中，并在文本框Text2中显示

  End Sub

⑴如果只有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

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)中的值为（  ）

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

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

Dim bottom As Integer

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

bottom = n

i = 1

Do While i <= bottom - 1

   For j = bottom To i + 1 Step -1

      If  Then  {#blank#}1{#/blank#}

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

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

            {#blank#}2{#/blank#}

         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

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