Push Integer into a Stack
Imports System Imports System.Collections Imports System.Collections.Specialized Public Class MainClass Shared Sub Main(ByVal args As String()) Dim letter_stack As New Stack ' Add the letters to the stack. For i As Integer = 0 To 10 Console.WriteLine(i) letter_stack.Push(i) Next ' Remove the letters from the stack. Do While letter_stack.Count > 0 Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) ) Loop End Sub End Class