A Simple Implementation on Stack and Queue

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Beginning

Author:

Dave Arcaya

Version Compatibility: Visual Basic.NET

More information:

This snippet shows how to use Stacks and queues. This is written as a .Net console application.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Module Module1

Sub Main()
        myQuequeue()
        myStack()
        Console.ReadLine()
    End Sub

Private Sub myQuequeue()
        Dim theQ As New Queue
        Dim dStr, frmstrArr() As String
        Dim i As Integer

frmstrArr = FillArr()

For i = 0 To 25
            theQ.Enqueue(frmstrArr(i) + " queue")
        Next
        For i = 0 To 25
            dStr = theQ.Dequeue()
            Console.WriteLine(dStr)
        Next

End Sub

Private Sub myStack()
        Dim theStack As New Stack
        Dim dStr, fStr() As String
        Dim i As Integer

fStr = FillArr()

For i = 0 To 25
            theStack.Push(fStr(i) + " stack")
        Next
        For i = 0 To 25
            dStr = theStack.Pop()
            Console.WriteLine(dStr)
        Next
    End Sub
 
 Private Function FillArr()
        Dim strArr(25) As String

strArr = New String() {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

Return strArr
    End Function
end module