Imports System
Imports System.Collections.Generic
Public Class Program
Public Shared Sub printMissingElements(ByVal arr As Integer(), ByVal range_start As Integer, ByVal range_end As Integer)
Dim hset As HashSet(Of Integer) = New HashSet(Of Integer)()
For i As Integer = 0 To arr.Length - 1
hset.Add(arr(i))
Next
For i As Integer = range_start To range_end
If Not hset.Contains(i) Then
Console.Write(i & " ")
End If
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {2, 4, 5, 7, 9}
Dim range_start As Integer = 1, range_end As Integer = 9
printMissingElements(arr, range_start, range_end)
End Sub
End Class
' run:
'
' 1 3 6 8
'
