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 vote221 views1 answer
Excel vba disable keyboard input
VBA
0 vote207 views1 answer
Change "location" of binding navigator vb
VBA
0 vote270 views1 answer
Vba excel parser xml
VBA
0 vote229 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote258 views1 answer
Vba extract filename from path
VBA
1 vote243 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
5 votes240 views1 answer
Xlvba double quotes in string literal
VBA
1 vote210 views1 answer
VBA Loop through recordset
VBA
0 vote239 views1 answer
Vbs run with cscript
VBA
1 vote252 views1 answer
Excel vba first row in range
VBA