文章摘要
本文介绍了如何使用VBScript实现堆栈的操作。文章通过代码示例，展示了堆栈的基本功能，包括堆栈的创建、元素的添加（Push）、获取元素数量、遍历堆栈、元素的移除（Pop）以及清空堆栈的操作。通过这些代码，读者可以理解堆栈的创建和基本方法的实现方式。文章内容简洁明了，突出了堆栈的核心操作及其在程序开发中的应用。
Option Explicit
‘建立堆栈
Dim Stk : Set Stk=CreateObject(“System.Collections.Stack”)
Stk.Push “Element1”
Stk.Push “Element2”
Stk.Push “Element3”
‘查看堆栈中的元素数
WScript.Echo “堆栈中的元素数: ” & Stk.Count
WScript.Echo
‘遍历堆栈
Sub TraverseStk
Dim ArrStk : ArrStk=Stk.ToArray
Dim Counter
For Counter=0 To UBound(ArrStk)
WScript.Echo ArrStk(Counter)
Next
End Sub
TraverseStk
WScript.Echo
‘元素出栈
WScript.Echo Stk.Pop
WScript.Echo “—”
TraverseStk
WScript.Echo
‘清空堆栈
Stk.Clear
WScript.Echo “堆栈中的元素数: ” & Stk.Count