随机生成的技术




Dim MyValue, Response
Randomize                                '初始化随机数生成器
Do Until Response = vbNo                     '循环执行，直到单击No按钮
   MyValue = Int((6 * Rnd) + 1)                 '产生1～6之间的随机数
   MsgBox MyValue
   Response = MsgBox ("Roll again? ", vbYesNo)
Loop
在线考试系统中使用randomize语句，循环随机产生判断题、选择题、填空题。现以判断题为例，循环产生1到试卷判断题题库最大数中的随机数，查询随机数对应试题编号，输出试题。代码如下：
randomize  '初始化随机数生成器
sid=int(maxtype1*rnd+1)  '产生1到判断题最大数之间的随机数
set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid)
'查询判断题库中判断题编号等于随机数的判断题记录
while rst.eof  '循环查询随机判断题，直到记录不为空
randomize  
sid=int(maxtype1*rnd+1)  
set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid)
wend  
%>  
<%'以下输出题目顺序号、题目内容、备选答案内容及隐藏正确答案等内容%>

我把下面几行代码删除，程 序出现问题

while rst.eof  '循环查询随机判断题，直到记录不为空
randomize  
sid=int(maxtype1*rnd+1)  
set rst=conn.execute("select * from rightorwrong where rightorwrongid="&sid)
wend  

ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

真是似懂非懂。