还是那个随机数的问题(在线等待)

Question

我现在是要在一个有113个记录的数据库里随机抽取40道题,可当产生随机数后,用了data1.recordset.move 这个随机数和,都只随机抽取了几道题后就跳出程序了，请问该如何编写

Answer 1

是这样的。题库取题的关键是每个随机数不能重复。
但是随机数是不能控制的
所以我想你用该这样解决。可以写一个函数,rndnumber就是最后你得到的没有重复的数据组
public sub rnds(number as integer)
dim rndnumber(number) as integer
dim i as integer
dim j as integer  
dim rndint as integer
for i=1 to number setp 1
    rndint = int(113*rnd()+1)
    rndnumber(i) = rndint
    for j=1 to i-1         '寻找是否有重复
        if rndint = rndnumber(j) then
           i=i-1
           exit for 
        end if  
    next j
next i
end sub 剩下的就是循环取得.move的题目内容了，那就看你怎么写了。