随机抽取试题的四种算法(网上考试系统编制心得)
随机抽取试题的四种算法
(网上考试系统编制心得)
因为教学的需要,我决定编写一个asp+ms sql2000的网上考试系统,其功能主要为:实现判断题、单项多项选择题和填空题的在线自动答题、改卷;并将学生的错误答案记入数据库,供教师分析。在编写从题库中随机抽取试题这一模块的算法上,却颇费了一番周折,现将解决过程记录如下,以供大家参考。
为了便于说明问题,文中提供的代码中的变量pd为从题库中要抽取出来考试的试题数量,数据库表名与字段名我都使用了中文,并仅以判断题为例。
算法一
由于不知道如何实现从题库中随机抽取试题的sql语句,我在网上下载了几个免费的考试系统进行研究,找到了第一种算法,其思路为先将数据库中所有数据读出,获得试题的总数后,生成一个1~(试题的总数-考试的试题数量)之间的随机数,然后从这里开始读出数据:
sql="select * from 判断题 order by id asc"
rs.open sql,conn,1,1
mycound=rs.Recordcount '取得试题总数
randomize '初始化随机数种子值
n=fix((mycound-pd+1)*Rnd+1)
rs.move n ‘指针移到n这个随机数这个位置
for i=1 to pd
session("pdda")=session("pdda")&rs("正确答案")&"|" ‘用session来记录标准答案
‘输出试题及答案%>
、对
错
next
rs.close%>
这种算法基本上可以实现随机抽取试题,并让每个学生的试题和每一次刷新以后的试题都不相同,但是它的最大不足在于试题的先后顺序总是相同,特别是题库中试题不多的时候,学生几乎可以用背答案方法来应付考试了。虽然可以通过改变数据的排序方式来改变试题的先后顺序,但变化总是不大。
算法二
第二种算法的思路很简单,就是不断生成1~题库中的试题总数之间的随机数,然后到数据库中读取这条记录,直到满足考试的试题量为止。
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from 判断题 order by id asc"
rs.open sql,conn,1,1
mycound=rs.Recordcount '取得题库中的试题总数
rs.close
for i=1 to pd
randomize
sid=int((mycound +1)*rnd+1) ‘生成1~题库中的试题总数之间的随机数
set rs=conn.execute("select * from判断题where id="&sid)
while rs.eof
randomize
sid=int((mycound +1)*rnd+1)
set rs=conn.execute("select * from判断题where id="&sid) ‘如果数据库中找不到这条试题,就继续生成随机数读取试题。
wend
session("pdda")=session("pdda")&rs("正确答案")&"|" ‘用session来记录标准答案
‘输出试题及答案%>
、对
错
next
%>
这种算法应该是真正意义上的随机抽取试题,但是遗憾的是如果在题库中题量不多的情况下,很容易会在数据库中读取重复的试题,虽然也可以再使用一个变量或数组来储存已经读取过的试题id来解决试题重复的问题,算法就过