Simple Demo for Stack: Push, Pop and Peek

  
Imports System
Imports System.Collections
 
Public Class MainClass

    Shared Sub Main(ByVal args As String())
             Dim intStack As New Stack( )

             ' populate the stack
             Dim i As Integer
             For i = 0 To 7
                 intStack.Push((i * 5))
             Next i

             ' Display the Stack.
             Console.WriteLine("intStack values:")
             DisplayValues(intStack)

             ' Remove an element from the stack.
             Console.WriteLine("(Pop){0}", intStack.Pop( ))

             ' Display the Stack.
             Console.WriteLine("intStack values:")
             DisplayValues(intStack)

             ' Remove another element from the stack.
             Console.WriteLine("(Pop){0}", intStack.Pop( ))

             ' Display the Stack.
             Console.WriteLine("intStack values:")
             DisplayValues(intStack)

             ' View the first element in the
             ' Stack but do not remove.
             Console.WriteLine("(Peek)   {0}", intStack.Peek( ))

             ' Display the Stack.
             Console.WriteLine("intStack values:")
             DisplayValues(intStack)
    End Sub

    Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
        Dim myEnumerator As IEnumerator = myCollection.GetEnumerator( )
        While myEnumerator.MoveNext( )
             Console.WriteLine("{0} ", myEnumerator.Current)
        End While
        Console.WriteLine( )
    End Sub 'DisplayValues

End Class

Related examples in the same category

1.	Push Integer into a Stack
2.	Stack to Array
3.	Stack Demo: push, pop and peek
4.	Stack<(Of <(T>)>) the ToArray method.
5.	Stack Class represents a simple last-in-first-out (LIFO) non-generic collection of objects.

Simple Demo for Stack: Push, Pop and Peek : Stack « Data Structure « VB.Net

Related examples in the same category