2．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实现了当队满时在链表中插入一个节点的操作。在链表中删除一个节点的操作与此类似。
例3队列的进队及出队操作，利用例1定义的循环链表并假设已按例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, j
End If
End Function
Public 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进队
Else
top1 = a(top1).next '队不满，top1指针后移，新元素a1准备进队
a(top1).data = a1 '新元素a1进队
Debug.Print "进队,t,i", top1, a(top1).data
End If
End Function |
2/2 首页 上一页 1 2 |
