基于VB试卷生成系统设计及实现.docxVIP

基于VB试卷生成系统设计及实现 摘要 本系统采用VB6. 0作为开发环境、Access数据库进 行开发设计实现的，通过手动选题和计算机随机抽题两种方 式来产生试卷，最后将生成的试卷导出到word文档中，以 便排版、打印和保存。 关键词VB Access；手动选题；随机抽题；Word文档 中图分类号TP3文献标识码A文章编号1674-6708 （2013） 84-0177-02 1概述 利用计算机实现试卷生成不仅使试卷管理变得高效便 捷，同时也是实现教考分离的一个重要手段，更能充分检测 学生的真实水平以此改进教学方法来达到更好的教学效果， 这也将是现代教育事业发展的必然趋势。 本系统由任课教师将试题录入到题库，等需要出卷时管 理员直接在题库中手动选题或随机抽取试题生成试卷，最后 将所生成的试卷导出到word文档中，结构简单，方便易用。 2系统功能设计 2. 1本系统的设计目标 1） 试题库中试题的增删查改操作； 2） 系统实现两种组卷方式：手动选题和随机抽题； 3） 将试卷和答案分别导出到word文档中； 4）实现对数据的备份和恢复。 2.2数据库设计 1） 用户表（用户编号，姓名，级别，所在系，登记日 期），用户表主要用于系统登录时验证用户的合法性； 2） 科目表（科目编号，科目名称，所属专业，所属系 别，备注），根据科目来产生与之对应的试题表； 3） 试题表（题号，题型，题目，分值，难度，知识点, 章节）。试题表作为生成试卷的数据源。 2.3系统功能结构 本系统分两个角色，系统管理员和任课教师，任课教师 只具备自已信息维护和试题管理权限，系统管理员具有任课 教师的操作权限外，还具备用户设置、科目管理、手动出卷、 自动出卷、系统初始化、系统备份和系统恢复的权限。任课 教师不具备出卷的操作权限，这样更好地实现了教考分离。 3关键技术 1） 检查输入数据的合法性，为了更好地防止错误的输 入，本系统中多处用到了对输入数据进行验证，Len函数检 查输入的字符长度，IsNumeric检查输入数据是否是数字， 例如用户编号必须是6位的数字代码为：Len （userid） 6 Or Not IsNumeric （userid）结果为真，系统提示输入不符 合要求，重新输入信息； 2） 通过ADO对象实现VB与Access数据库进行关联， 对ADO进行属性设置，连接数据源。添加记录使用ADDNew 方法，修改记录使用Update方法，删除记录使用Delete方 法。通过SQL语句建立查询，使用RecordSource与SQL语 句进行绑定。记录移到第一条记录使用MoveFirst方法，移 到上一条记录MovePrevious,下一条记录MoveNext,最后 一条记录MoveLast,判断当前记录是否到首记录：B0F (), 是否到尾记录EOF ()； 采用FileCopy语句来实现对数据库的备份和恢复操 作； 在自动生成试卷中，采用Rnd函数随机产生一条满 意条件的记录，语句 n二Int ( Rnd * Adodcl. Recordset. RecordCount) + 1 随机产生一个从 1 到 库存题量的记录总数的数值，为了避免重复选择，将选中的 记录状态字段设为1,当再次选题时设置条件语句在状态字 段为非1的记录集中选择； 将结果导出到word中。在工程中引用word对象的 方法：勾选Microsoft Word 3. 51 Object Library” ,在 程序中使用New关键字声明Word对象，Dim worddoc As Word? Document , Set wordobj 二 CreateObject ( word .application ) 和 Set worddoc = wordobj. Documents. Add 声明 wordobj 和 worddoc 两个对象， 产生了一个空的word文档，在文档中填入内容，最后保存 退出。部分代码如下: wordobj. Visible = True 设置文档可见 With worddoc .Content. InsertAfter ( 试卷总分： Trim (Textl. Text) “分 考试时间： Trim (Text2. Text) “分钟”) vbCr 第一行插入试卷总分和考试时间 End With worddoc. Save 保存文档 wordobj. Quit 退出 6） 制作帮助文档； 7） 打包生成安装程序。 4系统实现 本系统的核心就是手动选题和计算机随机抽题生成试 卷，下面对这两种生成方式进行介绍。 1）手动选题生成试卷 手动生成试卷的方法是在试题库表中一题一题抽取，抽 题结束后可以根据需求对所选试题进行排序，最后导出到 word文档中。手动选