1、在 Excel 中设计试卷生成系统作为一名教师，经常要经历考试、出卷这个过程。虽然“无纸化” 考试已 经开始被大家所了解，但真正实现的学校却不多。作为一名信息技术教师，我希望能够利用计算机开发出一套简单实用、可以自动生成试卷的系统，把大家从繁琐的出卷过程中解放出来。考虑到试卷要打印出来，我没有选择，而是选择了大家都很熟悉的 ，利用其中的脚本语言来实现试卷的自动生成。 系统实现的功能 1. 组 卷方式为章节控制方式。保 证各章节 的分值不易失衡，根据出题者的要求，按章节随机从题库中抽题组卷。 2.格式化试卷（包括设置试卷标题、进行页面设计、添加页眉等），达到可以直接打印的要求。 3.题库中试题内
2、容与参考答案融为一体，由系统生成的试卷文档既可以打印出学生考试用卷，也可以打印出样卷。 构建题库 该系统题库采用 Excel 表格的形式，字段名分别为“ 标准答案”、“题干”、“答案 A”、“答案 B”、“答案 C”、“答案 D”（如图 1）。题库中的记录可以采用两种方法来录入： 1. 直接手工 录入：打开工作簿，在 题库工作表中可以直接输入题目； 2. 从已有题库文件中导入到 Excel 题库里面，比如可以从现成的 Access 题库中直接 导入到该题库里。 但是无论哪种方法都必须满足下面的条件：所有的题目按章节排序，并记录每一章节题目的起始位置，以后向题库里面添加记录时不能在文件尾追加，而
3、是要放到所属章节的位置，并修正试卷生成界面里相应的地方。 建立试卷生成界面 所谓试卷生成界面就是系统提供给用户的用于输入各种条件值的地方，本系统是由用户设定各章节所出题目的个数，因此界面比较简单。我们把工作簿中的 Sheet3 工作表设计为系统界面（如图 2）。在该界面下用户只要在 B 列相应单元格中输入每个章节的题目数（例如，第一、二章都出 10 个题，就在 B1、B2 单元格里分别输入 10，没有出题的章节后面可以为空白，如图 2 所示），然后按“Ctrl+D”组合键执行宏命令就可以生成 试卷。其中此界面除 B 列外其余各列都设置为保护状态，以避免用户的误操作影响程序的执行。在图 2 中我
4、们还可以看到 D、F 列标明了题库中每一章题目的起始位置，这里的设置是在完成题库后根据题库内容来填写，一般只填写一次，如果题库的内容有变化，一定要在此处作相应的改变。 生成试卷 生成试卷是本系统的核心部分，这部分的设计主要是采用 Excel里面的宏命令。其中的关键代码主要是自己编制的，有些辅助功能采用录制宏的方法实现。本系统的组卷方式为按照各章节要求的题目数自动随机组卷，所以核心代码部分为三个方面：按照用户要求产生符合要求的随机数，并把该数存储于一个数组中，产生的随机数就是选中题目的序号；按要求把所选记录复制到Sheet2 工作表中，并转换成我们常见的试卷模式；格式化试卷。 生成随机数 本系统
5、中的随机数主要是标志出现在试卷中题库记录的位置，例如我们随机产生了一个数 99，表示题库中第 99 条记录是我们试卷中的一个题目。关于随机数的要求：一是生成的数必须不能重复，这样就避免试卷中重题的出现；二是生成的数必须在给定的范围里产生，如图 2 所示要求，第一章的题目范围是 1117，所以我们产生的 10 个随机数必须是在 1117 之间的不能重复的数。具体实现代码如下： 产 生一定范 围的随机数我 们用 RND（）函数，我们把产生的这个函数赋予临时变量 j，其中的 fanwei(1,1),fanwei(1,2)为图 2 中D、F 列中相应值。 j = Int(Rnd() * (fanwei
6、(l, 2) - fanwei(l, 1) + 1) + fanwei(l, 1) 产 生不重复的随机数。我们采用的方法是用新产生的数和前面产生的数分别比较，如果不同就直接记入数组 id()，如果有相同的话重新再生成，然后再比较，如此循环。 For i = 1 To timu(l) a:j = Int(Rnd() * (fanwei(l, 2) - fanwei(l, 1) + 1) + fanwei(l, 1) id(i) = j 避免产生重复的随机数 For k = 1 To i - 1 If j = id(k) Then GoTo a: Else id(i) = j End If Nex
7、t k 按产生的随机序列组卷 上述第一步中我们已经选择好了试卷的题目，这里需要做的就是把选择好的题目复制到 Sheet2 工作表中并转换成我们常见试卷的样式，这里我们采用循环的方式，先是按顺序把题目从题库中复制到 Sheet2 工作表中，然后把选项 A、B、C、D 分别放在不同的行上，重复这个过程直到完成。 复制 记录 到 Sheet2 中 Range(Cells(id1(i), 1), Cells(id1(i), 6).Select Selection.Copy Sheets(“Sheet2“).Select Range(Cells(i, 1), Cells(i, 1).Select Act
8、iveSheet.Paste 转换 成为 我们常见试 卷的样式 Range(Cells(i, 3), Cells(i, 3).Select Application.CutCopyMode = False Selection.Cut Destination:=Range(Cells(i + 1, 2), Cells(i + 1, 2) Range(Cells(i, 4), Cells(i, 4).Select Selection.Cut Destination:=Range(Cells(i + 2, 2), Cells(i + 2, 2) Range(Cells(i, 5), Cells(i,
9、5).Select Selection.Cut Destination:=Range(Cells(i + 3, 2), Cells(i + 3, 2) Range(Cells(i, 6), Cells(i, 6).Select Selection.Cut Destination:=Range(Cells(i + 4, 2), Cells(i + 4, 2) Range(Cells(i + 4, 2), Cells(i + 4, 2).Select 格式化试卷 添加 试卷 标题并设 置标题的字体字号和样式 Range(“A1:B1“).Select ActiveCell.FormulaR1C1
10、= “200 -200 学年度信息技术期末考试“ With ActiveCell.Characters(Start:=1, Length:=20).Font .Name = “宋体“ .FontStyle = “加粗“ .Size = 24 进 行页面 设置 纸张类型：.PaperSize = xlPaperB4 上、下、左、右边距： ActiveSheet.PageSetup.PrintArea = “ With ActiveSheet.PageSetup .LeftHeader = “ .CenterHeader = “ .RightHeader = “ .LeftFooter = “ .CenterFooter = “ .RightFooter = “ 添加 页脚 ActiveSheet.PageSetup.PrintArea = “ With ActiveSheet.PageSetup .CenterFooter = “第 &P 页，共 &N 页 “ 至此本系统的主要内容已经制作完成。生成试卷的操作非常简单，我们只要在 Sheet3 工作表中输入条件值，然后按“Ctrl+d”执行即可。最后生成的试卷如图 3 所示。本系统在 Windows 98+Excel 2000 下调试通过。 （河北唐山师范学院玉田分校 于得海）
