Exercise
Queue Collections
Objetive
Create a string queue using the Queue class that already exists in the DotNet platform.
Code
Imports System
Imports System.Collections
Class Program
Private Shared Sub Main()
Dim depurando As Boolean = True
Dim miCola As Queue = New Queue()
miCola.Enqueue("Hola,")
miCola.Enqueue("soy")
miCola.Enqueue("yo")
Dim cantidadCola As Integer = miCola.Count
For i As Byte = 0 To cantidadCola - 1
Console.WriteLine(miCola.Dequeue())
Next
If depurando Then Console.ReadLine()
End Sub
End Class