VB.NET生成1到10之间的唯一5个数字

Question

你好我在0和10之间的5个唯一数字,我做如下:

Dim RandomClass As New Random()
Dim RandomNumber As Integer
For counter As Integer = 0 To 5
    RandomNumber = RandomClass.Next(0, 10)
    MsgBox(RandomNumber )
Next

有时它有效,我得到这些数字:"1,7,4,9,3"但有时我会得到重复的数字,如:"5,2,3,2,7"

我怎样才能确保每次都有唯一的号码？

谢谢.

Answer 1

使用HashSet(Of Integer)以记住那已经打印出来的数字:

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