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

换一种思路，如

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()

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

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

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