VB中的数据结构使用.docVIP

VB中的数据结构使用VB的过程中，发现要使用一些数据结构，虽然不像C里面那样方便，但总结一下，还是可以做的，虽然不是很习惯。以飨各位。 自定义数据类型（Type Statement）可以包含多个互相关联的不同数据类型的元素，VB限定声明一个自定义数据类型必须在模块层（Module Level）进行。声明了一个自定义数据类型后便可以定义一个那种类型的变量。1.用名为queue的自定义数据类型声明一个固定大小的数组：Type queuedata As Integer ’用作数据项next As Integer ’用作指针项 End TypeConst? max=10Dim a(10) As queuea( i )为数组中的一个元素，该元素的指针指向数组a(10)第i+1个元素，其下标为i ，指针的值为i data存放元素的值（作数据场用），变量next存放紧接本元素后的元素的指针。通过用自定义数据类型queue声明数组a(10)和对变量next作专门规定，可以发现，我们能将一片连续的线性分布的数据存放在内存中非线性的不连续的地址空间里，却不影响我们对其进行线性的运算操作。1定义的数组均可作为链表使用。queue将a(10)初始化为一个单向链接表：For i = 0 To 9 a( i ).next = i + 1 ’ i + 1为下一个元素的指针a( i ).data=10*rndNext i  2.栈和队列Visual Basic程序设计中，栈可以用来实现递归作用；或者是将数组和链表中因删除而空闲的资源回收利用，避免出现一边是资源空闲，一边数组或链表长度不断增长的尴尬局面。栈可以用一维数组或链表作存储结构。用数组来实现既容易又方便，此时用指针变量Top1指向数组结点，每次有元素进栈栈顶指针top1=top1+1，a(top1).data= 10*rnd，每次有元素出栈top1=top1-1，b= a(top1).data top1=0栈空，top1等于数组上限时栈满。top1、bottom，最后进队元素的指针等于队头指针top1，队中最先进队元素的指针等于队尾指针bottom，当top1=bottom时队空，初始条件为top1=bottom=0，当top1+1=bottom（数组）或a(top1).next=bottom（链表）时队满。有元素进队时top1=top1+1（数组）或top1=a(top1).next（链表）；有元素出队时bottom=bottom+1（数组）或bottom = a(bottom).next（链表）。 使用固定大小的数组总会遇到栈满或队满的情形，我们可以使用动态数组来避免，动态数组是Visual Basic灵活性、便捷性的重要特征，它可以有效地管理内存。在例3中还通过引入变量linshi实现了当队满时在链表中插入一个节点的操作。在链表中删除一个节点的操作与此类似。2进行了初始化。Dim top1 As integer’定义指向队头的指针变量Dim bottom As integer’定义指向队尾的指针变量Dim linshi????????? ’变量Public Function removequeue(a1 As Integer)? 出队函数If bottom = top1 Then??? bottom = top1队空 Debug.Print 队空 top1 = 0: bottom = 0?? Else??? bottom = a(bottom).next?? bottom指针后移，为元素出队作准备 j = a(bottom).data??????? 元素a1出队 Debug.Print 出队,b, j, bottom, jEnd IfEnd FunctionPublic Function insertqueue(ByVal a1 As Integer)?? 进队函数If a(top1).next = bottom Then?? a(top1).next = bottom队满 max=max+1????? Redim Preserve a(max) as queue????? linshi = a(top1).next?? 队满，准备插入新节点 a(top1).next = max??? 插入新节点的指针 top1 = max??? top1指针指向新位置，为新元素a1进队作准备 a(top1).next = linshi? 新节点插入结束 a(top1).data = a1???? 新元素a1进队Elsetop1 = a(top1).next 队不满，top1指针后移，新元素a1准备进队 a(top1).d