试卷自动生成系统的设计与实现(2)

《试卷自动生成系统的设计与实现(2)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、万方数据第2卷第2期20f』_{年3月杭州师范学院学报(自然科学版)JoumalOfHandzhouT明che哺College(Natur引ScIenceE曲tlon文章编号：l(J()8～9403(2。。3)02t】012～【)4试卷自动生成系统的设计与实现姚茂群，曹敏杭州师范学院信息工程学院浙江杭州3】0012摘要：运用VB开发出试题自动阜成系统．该系统结构良好、使用方便，题库数据输人简单．系统能够实上见人J一选题和随机抽题两大功能．该系统的运用不仅提高r教师的T作效率，而且可以实现真证意义上的考教分离关键词j题

2、库#V，suaIBaⅢMmosofr{AccessV删】a】BasJPAppJIcafI。n中固分类号：TP3¨52文献标识码：A1概述在各学校开始逐步引入计算机的今天．试卷作为考察教学成果的重要手段之一，理应凭借相关技术得到较好的改善．针对传统的手!r‘出卷过程中出现的弊端，笔者开发出了《试卷生成系统》，希望利用计算机强大的数据处理功能，由计算机逐步代替传统的人工出卷，并且规范出卷程序，使出卷工作更加科学化、现代化，使教育工作更上一层楼．试卷自动生成系统由教师一次性将考试题目录入题库，并刘其进行分类，待需要考试时，

3、系统可快速方便地牛成试卷}系统成卷模式支持“随机选题”和“人工选题”两种，系统不仅提高了工作效率，而H也为逐步实行考教分离的管理模式提供r技术支持．2设计目标和思想2．1本系统的设计目标(I)漫计臼标为结构良好，使用方便，题库数据输入简单；【2)系统要求有一定的保密性，密码可以随时进行必要的修改；(3)系统实现两种试题生成方法：人工选题和随机选题．22本系统的设计思想(1)解决试题库的存储方式：将试题存放在Access中，创建两个字段名，分别是“题库号”和“内容”字段“题库号”中存放的是数字信息，标志信息从1至n，字

4、段“内容”中存放的是题目的内容．对于试题内容来悦，总共有6种类型的题目，分别是填空、判断、选择、名词解释、简答和论述题，每种类型的题目共响存放在同一个袁中．如图1所示．(2)解决从VB中调用以l试题库中的内容，并显示．显示窗体采用l—tBox控件来完成．文件调用则在代码中实现．(3)解决如何将显示的试题导出，并生成相应的文件，以便打印．收稿日期：20”3¨l15作着简介：姚茂群(1967)，女．浙江杭抖1市^．杭州师范学院信息工程学院副教授，在职博士，主要从事计算机应用和数字集成电路研究万方数据第2期姚茂群，等：试卷

5、自动生成系统的设计与实现3系统简介奉系统是由学试系统数据库和上程考试系统构成的．学试系统数据库总共建立了一张表(shit，．mdb，以Access数据库为基础)，包括r填空题、判断题、选择题、名词解释题、简答题和论述题总共雨：个分数据库表，分别存放六种试题类型的内容，可以根据需13试题mdb(s¨lmdb)●f—]■—丁—]厂—T]填空判断选择名词简答论述+(分别存放题库号从1氧n的试题)图1试题库要产生试题．一种是“人工选题”，即选择试题的套号(如：选择“第一套”，则导入的就是第一套试题)，这种方式足选择已经成套的

6、试题，但是容易形成猜题的可能性．另一种是“随机选题”，即由计算机产生一个随机的数7，数字界于1至n(n小于等于总的题库的数)，再由系统根据这个随机数进行选择，将各套的题f1进行随机的搭配，从而产生试卷．如果要扩充题目的数量可以向shtti．mdb中添加．工程考试系统主要}b八个窗体构成：Frmcha“gepass．frm(修改密码窗体)Frmchoicetfrm(试题产生方式选择窗体)．hmIntcrfa∽．frnl(系统主界面窗体)，Frmmanch00鸵．frm(人工选题方式窗体)，Frmmanyulan．frm

7、(人工选题方式一预览窗体)，FrmrandoIn．frm(随机试题方式窗体)，Frmrandomyulan．frm(随机试题方式窟体一预览窗体)，再加上一个关于窗体FrmAbout．frm．3．1窗体功能及应用卜、rmInterface．frm(系统主界面窗体)，如图2所示．这是本系统的主界面之一，共由三块组成．第一块是系统的密码核对块．它负责对管理员所输入的密码进行挟对，如果输入正确，则可进人系绕．可以对试题进行预览及其他的一些操作和管理，反之就认为是非法管理员，输人密码有三次错误的限制第二块是密码修改系统，如图3

8、所示．图2系统主界面窗体图3密码修改系统界面在编泽过程中，最难解决的是如何正确从PwD．TxT中提取字符串，解决的办法是：对密码修改后在写入文奉的时候在文本末加上一个“#”．以下是密码修改的程序段和算法：PrivateSubCommandlClick()DirTlJAsInt。ger1)imstrAsStri“g()pen“d：＼my论文＼题库