在Ecel中设计试卷生成系统

-.z在E*cel中设计试卷生成系统作为一名教师，经常要经历考试、出卷这个过程。虽然“无纸化〞考试已经开场被大家所了解，但真正实现的学校却不多。作为一名信息技术教师，我希望能够利用计算机开发出一套简单实用、可以自动生成试卷的系统，把大家从繁琐的出卷过程中解放出来。考虑到试卷要打印出来，我没有选择ＶＢ，而是选择了大家都很熟悉的Ｅｘｃｅｌ２０００，利用其中的ＶＢＡ脚本语言来实现试卷的自动生成。系统实现的功能1.组卷方式为章节控制方式。保证各章节的分值不易失衡，根据出题者的要求，按章节随机从题库中抽题组卷。2.格式化试卷〔包括设置试卷标题、进展页面设计、添加页眉等〕，到达可以直接打印的要求。3.题库中试题容与参考答案融为一体，由系统生成的试卷文档既可以打印出学生考试用卷，也可以打印出样卷。构建题库该系统题库采用E*cel表格的形式，字段名分别为“标准答案〞、“题干〞、“答案A〞、“答案B〞、“答案C〞、“答案D〞〔如图1〕。题库中的记录可以采用两种方法来录入：1.直接手工录入：翻开工作簿，在题库工作表中可以直接输入题目；2.从已有题库文件中导入到E*cel题库里面，比方可以从现成的Access题库中直接导入到该题库里。但是无论哪种方法都必须满足下面的条件：所有的题目按章节排序，并记录每一章节题目的起始位置，以后向题库里面添加记录时不能在文件尾追加，而是要放到所属章节的位置，并修正试卷生成界面里相应的地方。建立试卷生成界面所谓试卷生成界面就是系统提供给用户的用于输入各种条件值的地方，本系统是由用户设定各章节所出题目的个数，因此界面比较简单。我们把工作簿中的Sheet3工作表设计为系统界面〔如图2〕。在该界面下用户只要在B列相应单元格中输入每个章节的题目数〔例如，第一、二章都出10个题，就在B1、B2单元格里分别输入10，没有出题的章节后面可以为空白，如图2所示〕，然后按“Ctrl+D〞组合键执行宏命令就可以生成试卷。其中此界面除B列外其余各列都设置为保护状态，以防止用户的误操作影响程序的执行。在图2中我们还可以看到D、F列标明了题库中每一章题目的起始位置，这里的设置是在完成题库后根据题库容来填写，一般只填写一次，如果题库的容有变化，一定要在此处作相应的改变。生成试卷生成试卷是本系统的核心局部，这局部的设计主要是采用E*cel里面的宏命令。其中的关键代码主要是自己编制的，有些辅助功能采用录制宏的方法实现。本系统的组卷方式为按照各章节要求的题目数自动随机组卷，所以核心代码局部为三个方面：按照用户要求产生符合要求的随机数，并把该数存储于一个数组中，产生的随机数就是选中题目的序号；按要求把所选记录复制到Sheet2工作表中，并转换成我们常见的试卷模式；格式化试卷。１．生成随机数本系统中的随机数主要是标志出现在试卷中题库记录的位置，例如我们随机产生了一个数99，表示题库中第99条记录是我们试卷中的一个题目。关于随机数的要求：一是生成的数必须不能重复，这样就防止试卷中重题的出现；二是生成的数必须在给定的围里产生，如图2所示要求，第一章的题目围是1～117，所以我们产生的10个随机数必须是在1～117之间的不能重复的数。具体实现代码如下：①产生一定围的随机数我们用RND〔〕函数，我们把产生的这个函数赋予临时变量j，其中的fanwei(1,1),fanwei(1,2)为图2中D、F列中相应值。j=Int(Rnd()*(fanwei(l,2)-fanwei(l,1)+1))+fanwei(l,1)②产生不重复的随机数。我们采用的方法是用新产生的数和前面产生的数分别比较，如果不同就直接记入数组id()，如果有一样的话重新再生成，然后再比较，如此循环。Fori=1Totimu(l)a:j=Int(Rnd()*(fanwei(l,2)-fanwei(l,1)+1))+fanwei(l,1)id(i)=j'防止产生重复的随机数Fork=1Toi-1Ifj=id(k)ThenGoToa:Elseid(i)=jEndIfNe*tk２．按产生的随机序列组卷上述第一步中我们已经选择好了试卷的题目，这里需要做的就是把选择好的题目复制到Sheet2工作表中并转换成我们常见试卷的样式，这里我们采用循环的方式，先是按顺序把题目从题库中复制到Sheet2工作表中，然后把选项A、B、C、D分别放在不同的行上，重复这个过程直到完成。①复制记录到Sheet2中Range(Cells(id1(i),1),Cells(id1(i),6)).SelectSelection.CopySheets("Sheet2").SelectRange(Cells(i,1),Cells(i,1)).SelectActiveSheet.Paste②转换成为我们常见试卷的样式Range(Cells(i,3),Cells(i,3)).SelectApplication.CutCopyMode=FalseSelection.CutDestination:=Range(Cells(i+1,2),Cells(i+1,2))Range(Cells(i,4),Cells(i,4)).SelectSelection.CutDestination:=Range(Cells(i+2,2),Cells(i+2,2))Range(Cells(i,5),Cells(i,5)).SelectSelection.CutDestination:=Range(Cells(i+3,2),Cells(i+3,2))Range(Cells(i,6),Cells(i,6)).SelectSelection.CutDestination:=Range(Cells(i+4,2),Cells(i+4,2))Range(Cells(i+4,2),Cells(i+4,2)).Select３．格式化试卷①添加试卷标题并设置标题的字体字号和样式Range("A1:B1").SelectActiveCell.FormulaR1C1="200-200学年度信息技术期末考试"WithActiveCell.Characters(Start:=1,Length:=20).Font.Name="宋体".FontStyle="加粗".Size=24②进展页面设置纸类型：.PaperSize=*lPaperB4上、下、左、右边距：ActiveSheet.PageSetup.PrintArea="WithActiveSheet.PageSetup.LeftHeader=".CenterHeader=".RightHeader=".LeftFooter=".CenterFooter=".RightFooter="③添加页脚ActiveSheet.PageSetup.PrintArea="WithActiveSheet.Pag