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

Dim a(1 To 5) As Integer

a(1)=5: a(2)=10: a(3)=9: a(4)=3: a(5)=7

n=5: p=0

swap=True

Do While swap=True

 swap=False

 For i=1 To n-1

  If a(i) > a(i+1) Then

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

   swap=True

  End If

 Next i

 If swap=True Then p=p+1

Loop

Text1.Text=p

该程序段执行后，在文本框Text1中显示的内容为（  ）

p=l：q=10.

Do While p<q

  iMin=p：iMax=p

  For i=p+1 To q

    If a（i）< a（iMin）Then iMin =i

    If a（i）> a（iMax）Then iMax = i

  Next i

  t = a（iMin）：a（iMin）= a（p）：a（p）= t

  t = a（iMax）：a（iMax）= a（q）：a（q）= t

  p = p + 1

  q=q-1

Loop

要使程序实现上述算法思想,则方框中的语句是（  ）

For i=1 To 6

    j=7

    Do While j>i

        If a(j)>a(j-1) Then

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

        End If

        j=j-1

    Loop

    Next i

    For i=3 To 6

        s=s+a(i)

    Next i

Label1.Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程段后，标签Label1中显示的是（   ）

t=h

p=d[h][1]

while p != -1 :

    q=d[p][1]

    p=q

d[t][-1]=-1