vbs - 一个简单的栈 -- 只能存储类对象

'----------------------------堆栈-------------------------------------
Const MAX_STACK = 1024
Class MyStack
Private int_Top  '声明变量top
Private int_Bottom  '声明变量now
Private strStack(1024)  '声明堆数组

'Initialize 构建函数
Private Sub Class_Initialize
top = 0
bottom = 0
End Sub

'定义属性的获取和设置,如果设置为 Private 则需要这样来获取与赋值
Public Property Get top  ' 获取
top = int_Top
End Property

Public Property Let top(strVar)  ' 设置
int_Top = strVar
End Property

Public Property Get bottom
bottom = int_Bottom
End Property

Public Property Let bottom(strVar)
int_Bottom = strVar
End Property

Private Property Get stack(i)    ' 初学对什么时候用set有点乱...
SET stack = strStack(i)
End Property

Private Property Let stack(i,strVar)
SET strStack(i) = strVar
End Property

Private Property Get stacks
stacks = strStack
End Property

'类方法
Public Sub push(temp)
if top < MAX_STACK Then
stack(top) = temp
top = top + 1
Else
WScript.Echo "push(temp):stack gone max......"
End if
End Sub

Public Function pop()
if top > bottom Then
SET pop = stack(top-1)
top = top -1
Else
pop = 0
WScript.Echo "pop():stack gone bug......"
End if
End Function

Public Function Count()
Count = top - bottom
End Function
End Class
'----------------------------堆栈-------------------------------------