excel - Excel VBA 的 LIFO(堆栈)算法/类

Question

我正在寻找在 Excel 的 VBA 中实现“Stack”类。我想使用后进先出结构。以前有人遇到过这个问题吗？你知道处理结构的外部库吗，例如 Stack、Hastable、Vector...(除了原始的 Excel Collection 等...)

谢谢

Answer 1

这是一个非常简单的堆栈类。

Option Explicit
Dim pStack As Collection
Public Function Pop() As Variant
    With pStack
        If .Count > 0 Then
            Pop = .Item(.Count)
            .Remove .Count
        End If
    End With
End Function
Public Function Push(newItem As Variant) As Variant
    With pStack
        .Add newItem
        Push = .Item(.Count)
    End With

End Function
Public Sub init()
    Set pStack = New Collection
End Sub

测试一下

Option Explicit
Sub test()
    Dim cs As New cStack
    Dim i As Long
    Set cs = New cStack
    With cs
        .init

        For i = 1 To 10
            Debug.Print CStr(.Push(i))
        Next i

        For i = 1 To 10
            Debug.Print CStr(.Pop)
        Next i
    End With
End Sub

布鲁斯