请教在Vb中实现栈(Stack)的算法。 立即给分

Question

是想实现栈的PUSH和POP算法吗？

Answer 1

VB本身不允许直接操作硬件
如果你确实需要可以用vc做成dll啊

Answer 2

Class StackOption ExplicitPrivate cltStack As Collection
Private lTop As LongPrivate Sub Class_Initialize()
   Set cltStack = New Collection
   lTop = 0
End SubPublic Sub Push(data As Variant)
   cltStack.Add data, CStr(lTop)
   lTop = lTop + 1
End SubPublic Function Pop() As Variant
   Pop = cltStack.Item(CStr(lTop))
   cltStack.Remove (CStr(lTop))
   lTop = lTop - 1
End FunctionPublic Function IsEmpty() As Boolean
   IsEmpty = (lTop <= 0)
End Function