基于VB编程的链式存储技术浅析

二、建立动态存储链式线性表

　　所谓动态存储链式线性表，就是动态分配多个内存空间。每个内存空间称为一个节点，每个结点之间可以是不连续的(结点内是连续的)，结点之间的联系可以用指针实现。 即在结点结构中定义一个成员项用来存放下一结点的首地址，这个用于存放地址的成员，常把它称为指针域。可在第一个结点的指针域内存入第二个结点的首地址， 在第二个结点的指针域内又存放第三个结点的首地址， 如此串连下去直到最后一个结点。最后一个结点因无后续结点连接，其指针域可赋为0。这样一种连接方式，在数据结构中也称为"链表"。动态存储链式线性表中的节点结构如图一所示：

数据

指针

图一、动态链表中的节点结构图

　　如果我们把节点看作一个对象类，则一个节点是一个节点类的对象实例。可以用VB来描述节点类。在名为node的类模块中声明如下：

Public mdata As Variant Public pnext As node

　　用以上定义的node节点类构造一个单链表的程VB序段如下：

Dim phead As New node Dim p As node Dim nloop As Integer Set p = New node p.data = 1 Set phead = p For nloop = 2 To 10 Set p.pnext = New node p.pnext.data = nloop Set p = p.pnext Next nloop

　　注意，以上程序中的指针p可以用Object类加以声明。同样node类中的指针pnext也可以用类Object加以声明。