Question

有没有办法使用vb.net生成一个独特的随机6位数字？那么没有重复的随机数？

我尝试了以下代码，但它说“Type Char没有构造函数”

Dim chars As String = "0123456789"
Dim word As Char() = New Char(6)
Dim rnd As New Random()
For i As Integer = 0 To word.Length - 1
word(i) = chars.Chars(rnd.Next(chars.Length))
Next
TheTextBox.Text = New String(word)

Answer 1

这不是吗？含义为每条记录增加number或其所用的任何内容。保证独特。

Dim number as integer = 100000
'do stuff
number +=1

Answer 2

尝试..

Dim randomNumber As Integer

Randomize() 

randomNumber = Int((100000* Rnd()) + 1) 

MsgBox(randomNumber)

Answer 3

就个人而言，我使用20位的线性反馈移位寄存器。这是1,048,575个不同的值，而不是正好1000000，但希望足够接近。

如果您想保持唯一性，请记住在运行之间保持当前种子值！

请参阅：https://en.wikipedia.org/wiki/Linear_feedback_shift_register

有没有办法生成一个唯一的随机6位数字？

3 个答案: