如何在VB中实现永不重复的随机数

如何在VB中实现永不重复的随机数

理论上是可以无穷大，但是受数据类型结构限制。例如单精度类型的长度范围在3.402823E+38，如果抛开电脑数据结构占位精度和CPU消耗，理论上总有穷举完的时候。
但通常我们不可能把它真正的穷举完。你在窗体内创建一个List1和一个Command1。
在窗体模块中粘贴如下代码：
Private Switch As Boolean

Private Sub Command1_Click()

If Switch Then
Form_Load
Else
Command1.Caption = "停止(&P)"
Switch = True: Call GetRands
End If
End Sub

Private Sub Form_Load()
Randomize Timer
With Me
.Width = 4600
.Height = 5000
.Caption = "随机数发生器"
End With
List1.Move 120, 120, 2415, 4200
Command1.Move 2640, 120, 1575, 600
Command1.Caption = "开始（&S）"
Switch = False
End Sub

Sub GetRands()
Dim d As Object, v!
Set d = CreateObject("scripting.dictionary")
Do
v = Rnd
If d.Exists(v) = False Then
d.Add v, v
List1.AddItem v
End If
Me.Caption = "正在生产随机数：" & IIf(v Mod 2 = 0, ".", "..")
DoEvents
Loop Until Switch = False
End Sub

这个怎么说呢
10个数里 随机取11次 总会有重复的