28,402
社区成员
发帖
与我相关
我的任务
分享
sql="select top 100 * from question1 where type='单选题' order by NewID()
'实现随机抽取题目的sql语句
.....
for i=1 to 100
......‘打印试题
strid1=strid1 & rs("ID") & "," ’记录随机抽取的每道题题号
rs.movenext
......
next
id1=split(str1,",")
sql="select answer from question1 where id in("+str1+")"
'经测试,str1中存放着随机抽取的题号,比如5,3,6,10,...
'本希望记录集的顺序是按照str1中存放的随机id来显示的
rs.open sql,conn,1,1
rs.movefirst
‘下面判分改卷