如何产生不重复的随机数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从产生000~999之间产生300个不重复的随机数，过程显示在文本框中，并存入表C的第一列。

DataTables("表C").DeleteFor("")

Dim i As Integer

Dim tt As Boolean '判断是否重复随机楼

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")

Tables("表C").StopRedraw

For i = 1 To 300

Dim r As Row= Tables("表C").AddNew

Do '循环,至少一次

Dim Val As String = Rand.Next(1000) '生成0到999之间的随机整数

Dim s As String = val.PadLeft(3, "0")

Dim dr As DataRow

dr =DataTables("表C").Find("第一列 = '& s &'")

If dr IsNot Nothing Then '如果找到的话

'重新求随机数

tt = True

Else

txt.Text = s '文本框显示随机数

r("第一列") = s

tt = False '找到不重复的随机数,DO循环结束

End If

Loop While tt

Tables("表C").ResumeRedraw

以上语句会产生死循环，可能大量时间浪费在查找不重复的随机数上，而且在随机数产生过程中，文本框也没跟着变化，请问下，如何改进？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:随机数.table

[此贴子已经被作者于2018/11/20 14:22:44编辑过]

换一种思路，如

Dim dt As DataTable = DataTables("表C")
dt.DeleteFor("")
Dim cnt As Integer = 999
Dim ids(cnt - 1) As Integer
For i As Integer = 0 To cnt -1
    ids(i) = i
Next
For i As Integer = 0 To cnt*2 '洗牌次数
    Dim id1 As Integer = rand.Next(0,cnt)
    Dim id2 As Integer = rand.Next(0,cnt)
    Dim vid As Integer = ids(id1)
    ids(id1) = ids(id2)
    ids(id2) = vid
Next
dt.StopRedraw()
Dim ks As Integer = Rand.Next(1000-300)
For i As Integer = 1 To 300
    Dim dr = dt.addnew
    dr("第一列")=ids(i+ks-1)
Next
dt.ResumeRedraw()

[此贴子已经被作者于2018/11/21 9:14:48编辑过]

谢谢甜版主，结果对的，可惜看不懂后面二段代码

[此贴子已经被作者于2018/11/20 15:14:17编辑过]

以下是引用明天的灵在2018/11/20 15:05:00的发言：
谢谢甜版主，结果对的，可惜看不懂后面二段代码

[此贴子已经被作者于2018/11/20 15:14:17编辑过]

1、把0-999的数值取出来，存放起来；

2、开始洗牌：随机交互两个位置的数字，交换任意次数，打乱数字；

3、取出任意一个位置的300个数字。

哦，这么一说终于理解了，非常感谢！特别是洗牌时，二个任意位置对调，而且第三步，用任意位置去得到任意数，都很巧！

[此贴子已经被作者于2018/11/20 21:23:09编辑过]

主题：如何产生不重复的随机数