Get unique random number in vb.net

Dim numbers = Enumerable.Range(0, 11).ToList()
Dim RandomClass As New Random()
Dim RandomIndex As Integer
For counter As Integer = 1 To 5
    RandomIndex = RandomClass.Next(0, numbers.Count)
    MsgBox(numbers(RandomIndex))
    numbers.RemoveAt(RandomIndex)
Next

Source: stackoverflow.com

Get unique random number in vb.net

Dim RandomClass As New Random()
Dim RememberSet As New HashSet(Of Integer)

Dim RandomNumber As Integer

While RememberSet.Count < 5
    RandomNumber = RandomClass.Next(0, 10)
    If RememberSet.Add(RandomNumber) Then
        MsgBox(RandomNumber)
    End If
End While

Source: stackoverflow.com

Similar codes

0 vote356 views1 answer
Search for text in every worksheet excel visual basic
VBA
2 votes332 views1 answer
Vba uppercase first letter of each word
VBA
0 vote344 views1 answer
Excel vba current folder
VBA
0 vote382 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote355 views1 answer
Vbnet click on dgv cells
VBA
0 vote343 views1 answer
Convert unix to date vba
VBA
0 vote326 views1 answer
Excel vba milliseconds
VBA
12 votes484 views1 answer
Excel vba write string to text file
VBA
0 vote343 views1 answer
Dlete rows with blanks and space " " vba
VBA
0 vote335 views1 answer
Vba pass named range to function
VBA