Ejercicio
Colecciones de colas
Objetivo
Cree una cola de cadenas, utilizando la clase Queue que ya existe en la plataforma DotNet.
Una vez creado, muestra todos los elementos almacenados en la cola.
Código
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