Imports System
Imports System.Linq
Imports System.Collections.Generic
Public Class FindMissingValuesInSortedRangeArray_VB_NET
Public Shared Sub Main()
Dim x As Integer = 4
Dim y As Integer = 15
Dim lst As List(Of Integer) = New List(Of Integer) From {
5,
5,
5,
5,
6,
7,
9,
10,
10,
10,
11,
13
}
Dim missingValues As HashSet(Of Integer) = New HashSet(Of Integer)(Enumerable.Range(x, y - x + 1).Except(lst))
Console.WriteLine("missingValues: " & String.Join(", ", missingValues))
End Sub
End Class
' run:
'
' missingValues: 4, 8, 12, 14, 15
'