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

2 votes327 views1 answer
Excel vba check if key is in collection
VBA
0 vote339 views1 answer
Vba code to open a file with login rights
VBA
6 votes371 views1 answer
Excel vba check if a string only contains letters
VBA
1 vote356 views1 answer
Find and replace textbox
VBA
0 vote369 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote355 views1 answer
Add text to Shape VBA
VBA
0 vote345 views1 answer
Vba open report
VBA
0 vote344 views2 answers
How to concatenate more than 40 lines in vba
VBA
1 vote299 views1 answer
Vba exit do while
VBA
0 vote362 views1 answer
Excel vba named range exists
VBA