Imports System
Imports System.Collections.Generic
Class Program
Private Shared Function FindSmallestMissingNumber(ByVal arr As Integer()) As Integer
Dim numSet As HashSet(Of Integer) = New HashSet(Of Integer)(arr)
Dim index As Integer = 1
While True
If Not numSet.Contains(index) Then
Return index
End If
index += 1
End While
Return -999
End Function
Public Shared Sub Main()
Dim arr As Integer() = {3, 4, -1, 1}
Console.WriteLine(FindSmallestMissingNumber(arr))
End Sub
End Class
' run:
'
' 2
'