Imports System
Imports System.Collections.Generic
Public Class NenerateNUniqueRandomNumbersBetweenMinAndMax_VB_NET
Public Shared Function generateUniqueRandomNumbers(ByVal N As Integer, ByVal min As Integer, ByVal max As Integer) As ISet(Of Integer)
Dim uniqueNumbers As ISet(Of Integer) = New HashSet(Of Integer)()
Dim random As Random = New Random()
While uniqueNumbers.Count < N
uniqueNumbers.Add(random.[Next]((max - min) + 1) + min)
End While
Return uniqueNumbers
End Function
Public Shared Sub Main(ByVal args As String())
Dim N As Integer = 8
Dim randomNumbers As ISet(Of Integer) = generateUniqueRandomNumbers(N, 1, 20)
For Each num As Integer In randomNumbers
Console.Write(num & " ")
Next
End Sub
End Class
' run:
'
' 1 12 20 6 8 9 11 5
'
