栈是一种常见的基础数据结构，用来实现后进先出的目的。比如，在桌子上摞了一堆书，最后放的书一定在最上面，最先拿走的也是最上面的书。
栈是一种常见的基础数据结构，用来实现后进先出的目的。比如，在桌子上摞了一堆书，最后放的书一定在最上面，最先拿走的也是最上面的书。
栈中的元素只能从栈顶进入，称为入栈，如下图1所示。栈中的元素只能从栈顶删除，称为出栈，如下图2所示。
图1
图2
在一些高级编程语言，例如C中，利用指针可以很容易实现栈结构。其实，在VBA中也很容易实现栈。
如下图3所示，变量siTop指向栈顶，从栈顶开始，每个元素项都指向其下一元素项，直至栈底。
图3
这里，使用了两个类模块：StackItem类模块、Stack类模块。
StackItem类模块
在StackItem类模块中，仅包含两个变量，变量Value用来包含每的元素的值，变量NextItem用来指向其下一元素项。StackItem类模块中的代码为：
‘元素值
Public Value As Variant
‘下一元素
Public NextItem As StackItem
注意到，在StackItem类模块中，变量NextItem声明为该类自身，正是因为这种自引用声明使VBA中可以生成动态的数据结构。
Stack类模块
在Stack类模块中，声明了一个指向栈顶的变量siTop，实现了入栈操作的Push方法、出栈操作的Pop方法、以及两个只读属性StackTop和StackEmpty，其中StackTop属性用来返回栈顶元素的值，StackEmpty属性返回栈是否为空，True表示栈中没有元素项，False表示栈中有元素项。
Stack类模块的代码：
‘栈顶
Dim siTop As StackItem
‘在栈顶添加新元素
Public Sub Push(ByVal varTextAs Variant)
Dim siNewTop As New StackItem
siNewTop.Value = varText
Set siNewTop.NextItem = siTop
Set siTop = siNewTop
End Sub
Public Function Pop() AsVariant
If Not StackEmpty Then
‘从栈顶获取元素值
Pop = siTop.Value
‘接着,设置新栈顶
Set siTop = siTop.NextItem
EndIf
End Function
‘栈是否为空
Property Get StackEmpty() AsBoolean
StackEmpty = (siTop Is Nothing)
End Property
‘栈顶元素值
Property Get StackTop() AsVariant
If StackEmpty Then
StackTop = Null
Else
StackTop = siTop.Value
End If
End Property
广告动手学深度学习 全彩精装版
作者：阿斯顿·张（Aston Zhang） 李沐（Mu Li）[美] 扎卡里·C. 立
当当
测试栈
下面的代码用来测试已实现的栈数据结果。在VBE中插入一个标准模块，在其中输入下面的代码：
Dim stkTest As New Stack
Sub TestStacks()
‘入栈
stkTest.Push “Excel”
stkTest.Push “excelperfect”
stkTest.Push “Excel”
‘出栈并打印元素值
Do While Not stkTest.StackEmpty
Debug.Print stkTest.Pop()
Loop
Debug.Print “————–”
‘入栈
stkTest.Push “测试”
Debug.Print stkTest.StackTop
End Sub
运行代码的结果如下图4所示。
