Imports System
Imports System.Collections.Generic
Class Program
Shared Sub Main()
Dim evenNumbers As HashSet(Of Integer) = New HashSet(Of Integer)()
Dim oddNumbers As HashSet(Of Integer) = New HashSet(Of Integer)()
For i As Integer = 0 To 4
evenNumbers.Add(i * 2)
oddNumbers.Add((i * 2) + 1)
Next i
Console.Write(evenNumbers.Count)
DisplaySet(evenNumbers)
Console.Write(oddNumbers.Count)
DisplaySet(oddNumbers)
Dim numbers As HashSet(Of Integer) = New HashSet(Of Integer)(evenNumbers)
Console.WriteLine("numbers UnionWith oddNumbers...")
numbers.UnionWith(oddNumbers)
Console.Write("numbers contains {0} elements: ", numbers.Count)
DisplaySet(numbers)
End Sub
Private Shared Sub DisplaySet(ByVal coll As HashSet(Of Integer))
For Each i As Integer In coll
Console.WriteLine(" {0}", i)
Next i
End Sub
End Class