欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

VBS基礎篇 - vbscript堆棧

 更新時間：2018年05月29日 22:52:54   投稿：mdxy-dxy  
VBS中的堆棧需要使用System.Collections.Stack，下面的代碼包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計元素個數(shù)、清空,需要的朋友可以參考下

實例代碼

腳本文件：d.vbs，包含堆棧的添加元素（壓棧）、刪除元素（出棧）、遍歷、統(tǒng)計元素個數(shù)、清空

Option Explicit

'建立堆棧
Dim Stk : Set Stk = CreateObject("System.Collections.Stack")

Stk.Push "Element1"
Stk.Push "Element2"
Stk.Push "Element3"

'查看堆棧中的元素數(shù)
WScript.Echo "堆棧中的元素數(shù): " & 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 "堆棧中的元素數(shù): " & Stk.Count

調(diào)用方法：通過雙擊d.bat調(diào)用，d.bat代碼如下：

cscript d.vbs
pause

運行結(jié)果截圖：

可以看出，遍歷隊列和堆棧時，遍歷順序時由出隊和出棧的順序決定的，而不是入隊和壓棧的順序

相關文章

最新評論