Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Create a second copy of the queue containing three null elements at the beginning

Imports System Imports System.Collections.Generic Module Example     Sub Main         Dim numbers As New Queue(Of String)         numbers.Enqueue("one")         numbers.Enqueue("two")         numbers.Enqueue("three")         numbers.Enqueue("four")         numbers.Enqueue("five")         Dim queueCopy As New Queue(Of String)(numbers.ToArray())         Console.WriteLine(vbLf & "Contents of the first copy:")         For Each number As String In queueCopy             Console.WriteLine(number)         Next         Dim array2((numbers.Count * 2) - 1) As String         numbers.CopyTo(array2, numbers.Count)         Dim queueCopy2 As New Queue(Of String)(array2)         Console.WriteLine("Contents of the second copy, with duplicates and nulls:")         For Each number As String In queueCopy2             Console.WriteLine(number)         Next     End Sub End Module