Imports System
Imports System.Collections.Generic
Class Program
Public Shared Sub Main()
Dim queue As Queue(Of Integer) = New Queue(Of Integer)()
Console.WriteLine("Enqueuing elements...")
queue.Enqueue(10)
queue.Enqueue(20)
queue.Enqueue(30)
queue.Enqueue(40)
Console.WriteLine("Queue after enqueuing:")
DisplayQueue(queue)
Console.WriteLine(Environment.NewLine & "Dequeuing elements...")
While queue.Count > 0
Dim dequeuedElement As Integer = queue.Dequeue()
Console.WriteLine($"Dequeued: {dequeuedElement}")
End While
If queue.Count = 0 Then
Console.WriteLine(Environment.NewLine & "The queue is now empty.")
End If
End Sub
Private Shared Sub DisplayQueue(ByVal queue As Queue(Of Integer))
For Each item As Integer In queue
Console.WriteLine(item)
Next
End Sub
End Class
' run:
'
' Enqueuing elements...
' Queue after enqueuing:
' 10
' 20
' 30
' 40
'
' Dequeuing elements...
' Dequeued: 10
' Dequeued: 20
' Dequeued: 30
' Dequeued: 40
'
' The queue is now empty.
'
