stack.cls

来自「用Visual Basical写的汉诺塔源代码。」· CLS 代码 · 共 41 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "stack"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private STACK() As Integer
Private Length As Integer
Private Sub Class_Initialize()
    Length = 0
    ReDim STACK(Length) As Integer
End Sub
Public Sub PUSH(ByVal SE As Integer)
    STACK(Length) = SE
    Length = Length + 1
    ReDim Preserve STACK(Length)
End Sub
Public Function POP() As Integer
    If Length = 0 Then Exit Function
    Length = Length - 1
    POP = STACK(Length)
    ReDim Preserve STACK(Length)
End Function
Public Property Get GetStackLength() As Integer
    GetStackLength = Length
End Property
Public Function GetStackElement(ByVal n As Integer) As Integer
    GetStackElement = STACK(n - 1)
End Function
Public Sub Clear()
    Length = 0
    ReDim STACK(0) As Integer
End Sub