i = 1

   Do While i<= 5

      If i = 0 Or a(i - 1) <= a(i) Then

         i = i + 1

      Else

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

         i = i - 1

      End If

   Loop

数组元素a(0)到a(5)依次为：“0，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为（  ）

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

i = 1

Do While i <= 5

 If i = 0 or a(i -1) <= a(i) Then

  i = i + 1

 Else

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

  i = i - 1

 End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为(  )

Const n = 10

    Dim d(1 To n) As Integer, pm(1 To n) As Integer

    Private Sub Form_Load()

    '代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

    End Sub

    Private Sub Command1_Click()

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

    i = 1

    Do While i <= n - 1

    k = i

    For j = i + 1 To n

    If  Then k = j     ‘①

    Next j

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

    i = i + 1

    Loop

    pm(1) = 1

    For i = 2 To n

    If  Then     ‘②

    pm(i) = i

    Else

    pm(i) = pm(i - 1)

    End If

    Next i

    For i = 1 To n

    List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

    Next I 

    End Sub

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

n = Val(Text1.Text)

For i = 1 to n

 a(i) = i

Next i

For i = 1 to n/2-1

 For j = n to 2*(i+1) step -2

  If      ①    Then t = a(j):a(j)=a(j-2):a(j-2)=t

 Next j

For j = 1 to n- i*2 step 2

  If      ②    Then t = a(j):a(j)=a(j+2):a(j+2)=t

 Next j

Next i