VB中，从表中随机产生多条不重复的记录
--------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 其实想要不重复其实很简单，随机函数是有参数的。比如rnd -1
Randomize password
-1就表示随机函数会记住（继承）上次随机的结果，而且会遵循上一个种子进行随机。
password就是种子，是个长整数。
通常数据库也就几十亿条记录，你一次随机最多生成21亿条，这个数据应该是不会重复的。
当然你可以改变随机种子的大小。最好是让每次随机的种子都不一样。那么才能保证多次随机产生的结果都不一样。
控制一个种子不相同很容易。那么每次随机的结果，才会相互不重复。 --------------------编程问答-------------------- 我的意思是说，用一个种子，去生成几亿个随机数，是不会重复的。不是说每个随机数都要不同的种子。测试下面的代码。你就明白了。
Private Sub Command1_Click()--------------------编程问答-------------------- 你看一下，重新查询后，得到的记录数是否少了 1 条。
Rnd -1
Randomize 3654215
For i = 0 To 5000000
Print 999999 * Rnd
Next
End Sub
你注意一下，你的状态字段是什么类型？我看到你前后是不一样的。查询语句里按照数值型，赋值语句里用的是字符型。
问题可能出在这里。
--------------------编程问答--------------------
谢谢你的回复，我是希望在一个表中满足一定条件的范围内来产生一个随机，然后来根据随机数来确定某一条记录，显示出来，我按你的说法，在randomize后加一个大数，但出来的结果也有重复的，可能是我的范围比较小吧，我是只有15条记录，要随机产生10条不重复的记录 --------------------编程问答--------------------
记录没有少，状态字段类型是数值型，查询语句里不能有状态的条件，只为我最初将所有状态都设置为0了的，如果加了状态=1的条件后一条记录都不会满足。所以修改如下，但结果还是有重复的
Dim txtsql11 As String
Adodc1.CommandType = adCmdText
txtsql11 = "select * from " & Trim(Combo11.Text) & "试题 where 题型='" & Trim(Combo1.Text) & "'"
Adodc1.RecordSource = txtsql11
Adodc1.Refresh
'Adodc1.Recordset.MoveLast
'Adodc1.Recordset.MoveFirst '这两句确保得到准确的记录数
If Adodc1.Recordset.RecordCount >= Val(Trim(Text9.Text)) Then
For i = 1 To Val(Trim(Text9.Text)) 'text9是总共产生多少条不重复的记录数
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst '这两句确保得到准确的记录数
Randomize 325543
n = Int(Rnd() * (Adodc1.Recordset.RecordCount + 1))
For j = 1 To n - 1 '此循环是为了将指针指向随机产生的第n条记录
Adodc1.Recordset.MoveNext
Next j
.Content.InsertAfter (i & "、" & Adodc1.Recordset("题目")) & vbCr '将表中的题目字段内容添加到word中
Adodc1.Recordset("状态") = 1
Adodc1.Recordset.Update
Adodc1.Recordset.Requery
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
Next i
End If --------------------编程问答-------------------- 你还没有看懂种子的用途，那不是加大数，那是种子。随机函数是有两个参数的，可以选择是什么方式随机。使用-1可以让随机数不出现重复。你从哪里看到加一个大数了。 --------------------编程问答-------------------- 随机函数的参数，可以保证这次随机的N个结果不重复，但是要保证与数据库内的随机结果不重复，就要用到种子了。
Rnd -1
Randomize Recordset.RecordCount
mi=100
ma=300
For i = 0 To 50
rs(id)=mi+ Rnd * (ma - mi)
Next
这样用记录总数可以保证每次随机的结果都不重复，又能保证本次所有随机结果跟数据库里的不重复。
同时又指定了一个随机的范围，mi是最小值，ma是最大值。 --------------------编程问答-------------------- 你没有指定随机函数工作的状态，直接使用就是 任意随机的。产生几个随机数，重复的概率非常大，指定继承方式，结果就不会重复。 --------------------编程问答--------------------
产生的数是不重复的小数，取整后又会出现重复的，怎么办，谢谢 --------------------编程问答-------------------- offset = Int(99 * Rnd) Mod 99
语法： Rnd[(number)] 如果 number 的值是 Randomize 生成 小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。 大于 0 ，以上一个随机数为种子产生下一个随机数。 等于 0 ，产生与最近生成的随机数相同的随机数。 省略， 以上一个随机数为种子产生下一个随机数。 --------------------编程问答-------------------- 原写法是这样offset = Int((95 + 1) * Rnd)
ch = ((ch + offset) Mod 95)
ch是上一次产生的结果。offset是本次变化的值。 --------------------编程问答-------------------- txtsql11 = "select * from " & Trim(Combo11.Text) & "试题 where 题型='" & Trim(Combo1.Text) & "' AND 状态<>'1'"
这样获得未加入的记录。 --------------------编程问答-------------------- 生成试卷前，可以
Adodc1.RecordSource.ActiveConnection.Execute "Update " & Trim(Combo11.Text) & "试题 Set 状态='0'"
查询中加状态筛选，就是要在查询中去掉已经使用的记录。你每次 Requery 之后，记录数应减少 1。得到的记录集都是未用的记录，因此不重复。
--------------------编程问答-------------------- 随机数是7位，保证不重复，必须结果×9999999以上，这样的整数才会不重复。
补充：VB , 基础类
