Mega Code Archive
Stack
<![CDATA[
Option Strict On
Imports System
Imports System.Collections
Class Tester
Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
Dim o As Object
For Each o In myCollection
Console.WriteLine(o)
Next o
End Sub 'DisplayValues
Shared Sub Main( )
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 'Main
End Class 'Tester
intStack values:
35
30
25
20
15
10
5
0
(Pop)35
intStack values:
30
25
20
15
10
5
0
(Pop)30
intStack values:
25
20
15
10
5
0
(Peek) 25
intStack values:
25
20
15
10
5
0
]]>