vba 背包实现

' 背包的作用，只负责搜集，在搜集完成后循环遍历背包内的对象，没有多余的用途

Private head As Node

Private n As Long


Sub add(i As Variant)
    Dim newNode As New Node
    
    newNode.letItem = i
    newNode.letNext = head
    
    Set head = newNode
    n = n + 1
    
    
End Sub

Public Function size() As Long
    size = n
End Function

Public Function isEmpty() As Boolean
    isEmpty = head Is Nothing
End Function


Public Function hasNext() As Boolean
    hasNext = Not head Is Nothing
End Function

Public Function doNext() As Variant
    If isEmpty() Then Err.Raise 404, "Bag.doNext", "背包已经空了，没有下一个。"
    assign doNext, head.getItem
    Set head = head.getNext
    n = n - 1
End Function


Private Sub assign(ByRef x, ByVal y)

    If IsObject(y) Then
        Set x = y
    Else
        x = y
    End If

End Sub