本站原创
摘要 本系统采用VB6.0作为开发环境、Access数据库进行开发设计实现的，通过手动选题和计算机随机抽题两种方式来产生试卷，最后将生成的试卷导出到word文档中，以便排版、打印和保存。
关键词 VB Access；手动选题；随机抽题；Word文档
A 文章编号 1674-6708（2013）84-0177-02
1 概述
利用计算机实现试卷生成不仅使试卷管理变得高效便捷，同时也是实现教考分离的一个重要手段，更能充分检测学生的真实水平以此改进教学方法来达到更好的教学效果，这也将是现代教育事业发展的必然趋势。
本系统由任课教师将试题录入到题库，等需要出卷时管理员直接在题库中手动选题或随机抽取试题生成试卷，最后将所生成的试卷导出到word文档中，结构简单，方便易用。
2）系统实现两种组卷方式：手动选题和随机抽题；
3）将试卷和答案分别导出到word文档中；
4）实现对数据的备份和恢复。
2）科目表（科目编号，科目名称，所属专业，所属系别，备注），根据科目来产生与之对应的试题表；
3）试题表（题号，题型，题
2）通过ADO对象实现VB与Access数据库进行关联，对ADO进行属性设置，连接数据源。添加记录使用ADDNew方法，修改记录使用Update方法，删除记录使用Delete方法。通过SQL语句建立查询，使用RecordSource 与SQL语句进行绑定。记录移到第一条记录使用MoveFirst方法，移到上一条记录MovePrevious，下一条记录MoveNext，最后一条记录MoveLast，判断当前记录是否到首记录：BOF（），是否到尾记录EOF（）；
3）采用FileCopy语句来实现对数据库的备份和恢复操作；
4） 在自动生成试卷中，采用Rnd函数随机产生一条满意条件的记录，语句n = Int（Rnd * Adodc1.Recordset.RecordCount） + 1随机产生一个从1到库存题量的记录总数的数值，为了避免重复选择，将选中的记录状态字段设为1，当再次选题时设置条件语句在状态字段为非1的记录集中选择；
5）将结果导出到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（Text1.Text） & "分 考试时间：" & Trim（Text
End With
worddoc.Se ‘保存文档
wordobj.Quit ‘退出
6）制作帮助文档；
7）打包生成安装程序。
1）手动选题生成试卷
手动生成试卷的方法是在试题库表中一题一题抽取，抽题结束后可以根据需求对所选试题进行排序，最后导出到word文档中。手动选题界面图1所示。
根据所选的科目在上一个表格中列出该科目对应的试题，同时可以根据需求按题型、难度进行筛选试题，筛选的结果更新到上一表格中，【选中】实现当前记录的选择并出现在下一个表中，与此同时，上面表被选中记录的状态字段值改为1，表示已经选中，如再次选，提示“该题已选，重新选择”的信息，按照同样的方法进行选题，所有选中的题都追加到下表中，如对选中后不满意的试题可以选中后点击【移除】进行删除操作，移除后，将其对应的记录的上表状态字段改为0，表示该题未选，需要重新选题点击【清除所有】来进行重新选择，上表的所有记录状态改为0，下表清空。统计中会将当前的选题信息列出来提供选题参考（题型、数目、分值），选题结束后，点击【确定】系统根据下表按题型进行分组，自动产生相应的题号和题型下拉列表值，实现对试题的排序。【生成试卷】若试卷头设置的总分与所选题总分不一致，提示错误信息，修改一致后成功导出到word表中，命名为“科目名称+试题”，【生成答案】将与试卷相对应的答案导出到名为“科目名称+答案”的word文档中。
图1手动选题界面
2）随机抽题
随机抽题是根据约束条件（题型、题量和单题分数），系统在试题库中自动地随机抽取满足条件的试题。
首先对科目进行选择，设置总分，考试时间和考试类型，然后对题型、题量、单题分数进行设置，如需要多种题型，进行添加再次设置。如所选题型与前面选的题型相同，提示出错重新选择。每选中一个题型，系统自动统计题库中该题型的数目和选题结果（选题总分，选中题型和相应的分值），如果题型数目设置超出题库中该题型数目，弹出出错信息。如果对选题不满意，可以进行重新选择，所有约束条件符合要求后生成的试卷和答案分别导出到相应的word文档中。
5 结论
通过测试，本系统完成了预期目标，能够较好地完成手动选题和随机抽题进行组卷，但一个功能完善的试卷生成系统生成过程是比较复杂、严谨的，比如，一套试题，要考虑知识点、难易度的分布，产生多套题要求重复率不超过多少等，这需要涉及到概率论方面的知识。再如，如果要对数学、工程力学等有公式或图片的试题如何通过VB控件进行编辑等，因此，本系统还需进一步修改与完善。
参考文献
明日科技编著.Visual Basic开发经验技术宝典.人民邮电出版社.
（明日科技）高春艳，刘彬彬编著.Visual Basic开发技术大全.人民邮电出版社.
[3]求是科技编著.Visual Basic6.0程序设计与开发技术大全.人民邮电出版社.
关键词 VB Access；手动选题；随机抽题；Word文档
A 文章编号 1674-6708（2013）84-0177-02
1 概述
利用计算机实现试卷生成不仅使试卷管理变得高效便捷，同时也是实现教考分离的一个重要手段，更能充分检测学生的真实水平以此改进教学方法来达到更好的教学效果，这也将是现代教育事业发展的必然趋势。
本系统由任课教师将试题录入到题库，等需要出卷时管理员直接在题库中手动选题或随机抽取试题生成试卷，最后将所生成的试卷导出到word文档中，结构简单，方便易用。
2 系统功能设计
2.1 本系统的设计目标
1）试题库中试题的增删查改操作；2）系统实现两种组卷方式：手动选题和随机抽题；
3）将试卷和答案分别导出到word文档中；
4）实现对数据的备份和恢复。
2.2 数据库设计
1）用户表（用户编号，姓名，级别，所在系，登记日期），用户表主要用于系统登录时验证用户的合法性；2）科目表（科目编号，科目名称，所属专业，所属系别，备注），根据科目来产生与之对应的试题表；
3）试题表（题号，题型，题
源于：论文写作格式www.udooo.com
目，分值，难度，知识点，章节）。试题表作为生成试卷的数据源。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，判断当前记录是否到首记录：BOF（），是否到尾记录EOF（）；
3）采用FileCopy语句来实现对数据库的备份和恢复操作；
4） 在自动生成试卷中，采用Rnd函数随机产生一条满意条件的记录，语句n = Int（Rnd * Adodc1.Recordset.RecordCount） + 1随机产生一个从1到库存题量的记录总数的数值，为了避免重复选择，将选中的记录状态字段设为1，当再次选题时设置条件语句在状态字段为非1的记录集中选择；
5）将结果导出到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（Text1.Text） & "分 考试时间：" & Trim（Text
2.Text） & "分钟"） & vbCr ‘第一行插入试卷总分和考试时间
…End With
worddoc.Se ‘保存文档
wordobj.Quit ‘退出
6）制作帮助文档；
7）打包生成安装程序。
4 系统实现
本系统的核心就是手动选题和计算机随机抽题生成试卷，下面对这两种生成方式进行介绍。1）手动选题生成试卷
手动生成试卷的方法是在试题库表中一题一题抽取，抽题结束后可以根据需求对所选试题进行排序，最后导出到word文档中。手动选题界面图1所示。
根据所选的科目在上一个表格中列出该科目对应的试题，同时可以根据需求按题型、难度进行筛选试题，筛选的结果更新到上一表格中，【选中】实现当前记录的选择并出现在下一个表中，与此同时，上面表被选中记录的状态字段值改为1，表示已经选中，如再次选，提示“该题已选，重新选择”的信息，按照同样的方法进行选题，所有选中的题都追加到下表中，如对选中后不满意的试题可以选中后点击【移除】进行删除操作，移除后，将其对应的记录的上表状态字段改为0，表示该题未选，需要重新选题点击【清除所有】来进行重新选择，上表的所有记录状态改为0，下表清空。统计中会将当前的选题信息列出来提供选题参考（题型、数目、分值），选题结束后，点击【确定】系统根据下表按题型进行分组，自动产生相应的题号和题型下拉列表值，实现对试题的排序。【生成试卷】若试卷头设置的总分与所选题总分不一致，提示错误信息，修改一致后成功导出到word表中，命名为“科目名称+试题”，【生成答案】将与试卷相对应的答案导出到名为“科目名称+答案”的word文档中。
图1手动选题界面
2）随机抽题
随机抽题是根据约束条件（题型、题量和单题分数），系统在试题库中自动地随机抽取满足条件的试题。
首先对科目进行选择，设置总分，考试时间和考试类型，然后对题型、题量、单题分数进行设置，如需要多种题型，进行添加再次设置。如所选题型与前面选的题型相同，提示出错重新选择。每选中一个题型，系统自动统计题库中该题型的数目和选题结果（选题总分，选中题型和相应的分值），如果题型数目设置超出题库中该题型数目，弹出出错信息。如果对选题不满意，可以进行重新选择，所有约束条件符合要求后生成的试卷和答案分别导出到相应的word文档中。
5 结论
通过测试，本系统完成了预期目标，能够较好地完成手动选题和随机抽题进行组卷，但一个功能完善的试卷生成系统生成过程是比较复杂、严谨的，比如，一套试题，要考虑知识点、难易度的分布，产生多套题要求重复率不超过多少等，这需要涉及到概率论方面的知识。再如，如果要对数学、工程力学等有公式或图片的试题如何通过VB控件进行编辑等，因此，本系统还需进一步修改与完善。
参考文献
明日科技编著.Visual Basic开发经验技术宝典.人民邮电出版社.
（明日科技）高春艳，刘彬彬编著.Visual Basic开发技术大全.人民邮电出版社.
[3]求是科技编著.Visual Basic6.0程序设计与开发技术大全.人民邮电出版社.