当前位置: 移动技术网 > IT编程>脚本编程>VBScript > VBS基础篇 - vbscript堆栈

VBS基础篇 - vbscript堆栈

2019年05月28日  | 移动技术网IT编程  | 我要评论

跳蛋门事件完整照片,潮玩世家,越南妻子洞房内竟做出这举动

实例代码

脚本文件:d.vbs,包含堆栈的添加元素(压栈)、删除元素(出栈)、遍历、统计元素个数、清空

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

调用方法:通过双击d.bat调用,d.bat代码如下:

cscript d.vbs
pause

运行结果截图:

可以看出,遍历队列和堆栈时,遍历顺序时由出队和出栈的顺序决定的,而不是入队和压栈的顺序

如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复

相关文章:

验证码:
移动技术网