Стек - VB (60704)

Формулировка задачи:

Дано число N(>0) и набор из N чисел. Создать стек, содержащий исходные числа (последнее число будет вершиной стека), и вывести указатель на его вершину.

Решение задачи: «Стек»

textual
                            Листинг программы 
                        

                            '::: Класс Stack.cls
 
Private m_Coll As Collection
Private m_ptr  As Long
 
Public Sub Push(v As Variant)
       m_ptr = m_ptr + 1
       m_Coll.Add v, CStr(m_ptr)
End Sub
 
Public Function Pop() As Variant
       If m_ptr = 0 Then
          Error 600
       Else
          Pop = m_Coll.Item(CStr(m_ptr))
          m_Coll.Remove (CStr(m_ptr))
          m_ptr = m_ptr - 1
       End If
End Function
 
Public Sub Clear()
       Set m_Coll = Nothing
       Set m_Coll = New Collection
       m_ptr = 0
End Sub
 
Property Get Ptr() As Long
    Ptr = m_ptr
End Property
 
Public Function isEmpty() As Boolean
       isEmpty = (m_ptr = 0)
End Function
 
Private Sub Class_Initialize()
        Set m_Coll = New Collection
        m_ptr = 0
End Sub
 
Private Sub Class_Terminate()
        Set m_Coll = Nothing
End Sub
                        