VB.NET生成1到10之间的唯一5个数字 [英] VB.NET Generate unique 5 numbers between 1 and 10

问题描述

你好，我在0和10之间有5个唯一数字，我正在做以下事情:

Hello I 5 unique numbers betwen 0 and 10, I'm doing as following :

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"

Sometimes it works, I get those numbers : "1,7,4,9,3" but sometimes I get a duplicate numbers like : "5,2,3,2,7"

如何确保每次都有唯一的号码?

How can I be sure to have unique numbers each time?

谢谢.

推荐答案

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

Use HashSet(Of Integer) to remember numbers that have already been printed out:

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

这篇关于VB.NET生成1到10之间的唯一5个数字的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！