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 vote34 views1 answer
Dynamic array vba
VBA
0 vote34 views1 answer
System.InvalidOperationException: 'Row associated with the currency manager's position cannot be made invisible.
VBA
1 vote32 views1 answer
Excel date to unix timestamp
VBA
0 vote32 views1 answer
Excel vba formatconditions positive
VBA
0 vote43 views1 answer
Vba registry settings
VBA
0 vote37 views1 answer
Vbscript check if string is empty
VBA
0 vote36 views1 answer
Vba apostrophe chr
VBA
0 vote33 views1 answer
Move bindingnavigator vb
VBA
0 vote33 views1 answer
Make all controls in an area not visable vb
VBA
31 votes37 views1 answer
Excel-vba how to convert a column number into an excel column
VBA