欢迎来到天天文库
浏览记录
ID:37560857
大小:63.50 KB
页数:9页
时间:2019-05-25
《随机抽取题库》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、网上考试系统编制中的随机抽取试题的四种算法 因为教学的需要,我决定编写一个asp+mssql2000的网上考试系统,其功能主要为:实现判断题、单项多项选择题和填空题的在线自动答题、改卷;并将学生的错误答案记入数据库,供教师分析。在编写从题库中随机抽取试题这一模块的算法上,却颇费了一番周折,现将解决过程记录如下,以供大家参考。为了便于说明问题,文中提供的代码中的变量pd为从题库中要抽取出来考试的试题数量,数据库表名与字段名我都使用了中文,并仅以判断题为例。算法一由于不知道如何实现从题库中随机抽取试题的sql语句,我在
2、网上下载了几个免费的考试系统进行研究,找到了第一种算法,其思路为先将数据库中所有数据读出,获得试题的总数后,生成一个1~(试题的总数-考试的试题数量)之间的随机数,然后从这里开始读出数据:<%setrs=server.CreateObject("ADODB.RecordSet") sql="select*from判断题orderbyidasc" rs.opensql,conn,1,1 mycound=rs.Recordcount '取得试题总数randomize '初始化随机数种子值n=fix((myco
3、und-pd+1)*Rnd+1)rs.moven ‘指针移到n这个随机数这个位置fori=1topdsession("pdda")=session("pdda")&rs("正确答案")&"
4、" ‘用session来记录标准答案‘输出试题及答案%>
5、option> 错
6、到数据库中读取这条记录,直到满足考试的试题量为止。<%setrs=server.CreateObject("ADODB.RecordSet") sql="select*from判断题orderbyidasc" rs.opensql,conn,1,1 mycound=rs.Recordcount '取得题库中的试题总数rs.closefori=1topd randomize sid=int((mycound+1)*rnd+1) ‘生成1~题库中的试题总数之间的随机数setrs=conn.execute("s
7、elect*from判断题whereid="&sid) whilers.eof randomize sid=int((mycound+1)*rnd+1) setrs=conn.execute("select*from判断题whereid="&sid) ‘如果数据库中找不到这条试题,就继续生成随机数读取试题。wendsession("pdda")=session("pdda")&rs("正确答案")&"
8、" ‘用session来记录标准答案‘输出试题及答案%>
9、<%=rs("题目内容")%>
10、试题重复的问题,算法就过于繁琐,是很不可取的。 算法二补充:第二种算法的思路很简单,就是不断生成1~题库中的试题总数之间的随机数,然后到数据库中读取这条记录,直到满足考试的试题量为止。当时我认为这种算法应该是真正意义上的随机抽取试题,但是遗憾的是如果在题库中题量不多的情况下,很容易会在数据库中读取重复的试题,虽然也可以再使用一个变量或数组来储
此文档下载收益归作者所有