用Excel建立模拟模拟测试系统

1、做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。其实根本不需要懂编程，用Excel 2003你也可以制作一个类 似的系统。一个可以自动出题、验证考号、答题后自动评分、保存记录的模拟考试系统，当 然你也可以给它加上其他功能。系统设计1建立题库打开Excel 2003，建立“单选题”工作表(如图1)，在A2输入公式=ROW()-1 &.以自动生 成序号，在 D2输入=IF(C2=,RAND()，选中A2:D2拖动其填充柄向下复制到其他单元 格，大概有几百行也就够了，剩下的需要时再复制。按住Ctrl键拖动工作表标签复制出两 库中最前面的30

2、（或40）题的内容保持一致。多选题需注明错、漏、多选均不得分。并留出相应的题目位置，单选题30题(A5:C34)，多选题 40(A36:C75)，判断题 30 题(A77:C106)。用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮” 4字回车, 把它命名为“出题按钮”。再右击此按钮选择“添加文字”，在按钮上输入“出题” 2字。同 样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。(如图2)3显示题目在 A5 输入公式 INDIRECT(” 单选题!R&ROW()-3&C&COLUMN(),0)，选中A5复制，再选中 A5:C34 进行粘贴同样在 A36 输入公

3、式 INDIRECT(” 多选题!R&ROW()-34&C&COLUMN(),0) 断题!R&ROW()-75&C&COLUMN() =IF(D4=C4,1,0)，这公式用来判断如果 分。并复制到 A36:C75，在A77输入公式INDIRECT(”判并复制到A77:C106。在E4单元格输入公式D4中的答案与C4的标准答案一致就得1分否则为0A5的公式表示对单选题工作表中同列、行数差3的单元格(A2)的引用，公式中使用了 R1C1格式的单元格编号， 其中3、34、75是由第一题所在的行数减 2得来。这公式实现的是绝对位置引用，即不管在单选题工作表中进行插入、删除行或排序,A5显示的始终都是你

4、从单选题A2中直接看到的内容。因此A5:C34、A36:C75、A77:C106三个区域将分别与相应题4答案限制选中D5:D34单击“数据/有效性”，在“允许”中选择“系列”，选中“提供下拉箭头”复选 项，在“来源”中输入“ A,B,C,D ”，不含引号且其中逗号为半角格式（如图3）。切换到“出错警告”选项卡，输入错误信息为“只能输入A、B、C、D中的一项，其他任何符号或空格均为非法。”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”（如图4），确定完成设置。同样对多选题 D36:D75，判断题 D77Q106设置数据有效性，只是“来源”要分别换成“A,B,C,D,AB,AC,AD,

5、BC,BD,CD,ABC,ACD,BCD,ABCD”和 “V ,X”。“出错警告”也要做相应修改，特别是多选题一定要说明必须按 ABCD的顺序输入多选项， 否则无法正确评分， 若觉得多选题要输入这一大串有效性设置太麻烦，不设置有效性也是可以， 你只要在题目中注明不按顺序的不给分不就行了。5准考证号验证建一个“考生名单”工作表，在 A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把 B列命名为考号（如图5）。回到“试卷”工作表选 中要输入准考证号的 D2单格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提 供下拉箭头”复选项，在“来源”中输入IND

6、IRECT（”考号）。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”。在F3单元格输入公式=IF（D2=,VLOOKUP（D2,考生名 单!B:C,2,FALSE），这公式会在输入准考证号后自动显示考生姓名。考号A准考证号ABCD1序号推考证号姓名2120040325陈桂鑫326随机抽题右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，单击“新建”按 钮，编辑如下代码：Sub出题（）If Ran ge（D2）.Value = 0 The n提示=MsgBox（请先输入准考证号）GoTo重来

7、End If如果D2为空则弹出提示要求输入准考证号并直接跳到后面的“重来处。Sheets(单选题).Range(A:D).SortKey1:=Sheets(单选题).Ra nge(D2),Order1:=xlAsce nding, Header:=xlGuessSheets(多选题).Range(A:D).SortKey1:=Sheets(多选题).Ra nge(D2),Order1:=xlAsce nding, Header:=xlGuessSheets(判断题).Range(A:D).SortKey1:=Sheets(判断题).Ra nge(D2),Order1:=xlAsce nding

8、, Header:=xlGuess这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。Colu mn s（B:B）.Rows.AutoFit对B列设置最适合行高，以完整显示题目。Ra nge（D5）.Select定位到D5以便输入答案ActiveSheet.Shapes（” 出题按钮 ”）.Visible = False隐藏出题按钮以防重复选题ActiveSheet.Shapes（”评分按钮 ”）.Visible = True显示评分按钮重来：End Sub试卷中的题目总是显示各题库最前面的N题，而在此对各题库按随机数进行随机排序后最前面的N题自然是随机的，也就相当于是随机

9、抽题了。7.成绩记录表新建一个“成绩记录”工作表（如图6），在A2输入公式=NOW（），并选中A列右击从“设置单元格格式”中设置为日期格式以显示当前时间。B2、C2分别输入=试卷!D2和=试卷!F2 以显示相应数据。 D2输入公式=SUM（E2:G2）对后面三个得分进行合计， E2、F2、G2则分 别输入公式=SUM（试卷!E5:E34）、=SUM（试卷!E36:E75）、=SUM（试卷！E77:E106）分别对相应 题型得分进行合计。E2 * 斤弍饰（试卷戊5:E34）A3CD1 EG1日期时间考生编号考生姓名总分1 20.多选题得分判断题得分22004-12-13 19:082004032

10、5陈桂鑫201 003dII8.评分和记录保存右击“评分”按钮，选择“指定宏”，输入宏名“评分”，单击“新建”按钮，编辑如下代码：Sub评分（）Sheets（成绩记录 ”）.Rows（3:3）.lnsert Shift:=xlDown在成绩记录工作表第3行前插入一行Sheets（成绩记录）.Rows（2:2）.Copy复制成绩记录工作表第2行Sheets（成绩记录）.Range（A3）.PasteSpecial Paste:=xlPasteValues以数值方式粘贴到成绩记录工作表A3得分 =MsgBox（最终得分& Range（成绩记录!D2）.Value &其中：单选题& Range（成绩

11、记录!E2）.Value &、多选题& Range（成绩记录!F2）.Value &、判断题& Range（成绩记录!G2）.Value &,评分结果）弹出信息框显示成绩记录!D2、E2、F2、G2的数据，标题为评分结果”Ran ge（D2,D5:D34,D36:D75,D77:D106）.CIearCo nte nts清除试卷工作表中输入的内容Rows（3:106）.RowHeight = 0设置题目区行高为 0，以隐藏所有题目ActiveSheet.Shapes（”出题按钮.Visible = TrueActiveSheet.Shapes（”评分按钮.Visible = False显示出题

12、按钮，隐藏评分按钮ActiveWorkbook.Save保存End Sub9.其他设置选中A4单击“窗口 /冻结空格”以始终显示1:3行的标题和按钮。右击C、E列选择隐藏。为答题区以外单元格设置填充色以示区别，把评分按钮重叠到出题按钮上（如图7）。起 -& =IF(D凸：i：VLOOKUP(DZ 考生名单FALSE)AIJJi F7丄丄 LJJ. JL/J,pJ1 1 3J* & 丄DFG评分 XX模拟者试糸统2准考证号：3答题区4单选题（每题1分）5L0: |62.073.08J095.0106.0117.01二卷/单选题/多选题/判断题/考生名单/成績记录厂J选中D5:D34右击选择“设置

13、单元格格式”，在“保护”选项卡中单击取消“锁定”选项， 对于同样需要添写的 D2,D36:D75,D77:D106区也同样取消锁定设置。然后单击“工具/保护/保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格” 和“设置行格式”两个选项，输入密码（如图8），单击确定把工作表保护起来，这样考生就无法修改试题等相应单元格了。单击评分以隐藏所有题目，同时显示出题按钮，把文件保存为“模拟考试.xls ”，退出。系统维护4步操作对C列单元格设置有效性。 （E列）填充序列号，需要时按此列排序 这可以直接从相关工作表中复制过来。1资料输入直接在前面做好的单选题、多选题、判断题工作

14、表中输入题目和答案即可，按Alt+回车键换行，用空格进行水平定位。答案输入时注意不要有多余字符， 特别是多选题一定要按 ABCD的顺序输入多选项，否则无法正确评分，建议参照一 若以后还想用到当前的题目顺序可在最后面增加一列 即可。在“考生记录”工作表中输入姓名和准考证号,2隐藏工作表把除试卷外的其他工作表隐藏起来以免考生看到。单击“工具 /宏/Visual Basic编辑器”，在 弹出窗口左侧选中要隐藏的工作表名，如:Sheet4（判断题），在属性窗口中把 Visible项的值设置为O-xlsheetHidden（如图9）即可隐藏该工作表，重复这一步把除试卷外的其他工作表全部 隐藏。以后如需显

15、示只要按这操作把Visible改回-1-xlsheetVisible即可。若看不到属性窗口可按F4键显示。模拟考试亠文件 編辑观團辺插入Q） 格式（&）一 VSAProject零 VBAFroject-S MiaClTQSCiftSheatlShet2Sheet3展扱考试厂Esc el对踪阳:巻1（单选题）炉选题）Shft6t4 GM 断题 JShstS （考生名单SheetG血聂记录）Tki sWcrkbock4 U模诀ASKeet4二为防止学生修改，还得右击VBAProject（模拟考试.xls）选择“ VBAProject属性”，在“保护”选项卡中选中“查看 时锁定工程”，并输入密码（如

16、图10），确定保存文档退出。这样以后没有密码就别想修改这 些内容了。VBAProject -工程属性通用 保护锁定工程查看工程犀性的密玛确认巒玛电）确定职消帮助 I如何考试4 一.1.党论7 从理 盏打开“模拟考试.Xis ”就只有一张“试卷”工作表，先输入准考证号回车确认，正确的话就 显示姓名否则会要求你重输。单击出题按钮即可显示题目，同时出题按钮会变成评分按钮。考生可在D列选中相应单元格直接输入答案或单击单元格后的下拉按钮从列表中选择输入 （如图11）。题目做完后，单击“评分”按钮即可显示最后得分，确定后自动保存，并回复到 最初状态。B121F,SEIxx模姒考试系统2 准考证号:I 20

17、04Q325 陈桂鑫3 答题区 单选题（每题1分） 从党的十一届三中全会到党的十二大，是邓小平 理论的）.A. 初歩形成阶段B. 逐步发展并形成轮廓的阶段C. 走问成熟形成理论体系阶段 实事求是解放思想阶段 卜一届三中全会到党的十二大，是邓/卜平 （） 初歩形成阶段 逐歩杀農并形成轮廓的阶段 走问成就舷应理论栋系卧段 实事求是解放思想阶段小提示叩开Excel的安全门按照上面方法制作的模拟考试系统在运行时有一个问题，Excel 2003的默认设置会把宏的安全性设置为高，表现为运行时出现“安全性提示”对话框。解决方法是，打开Excel文档,，关闭并重新打开 Excel文档后，选依次单击“工具T宏T

18、安全性”，选择“中”并“确定” 择“启用宏”即可。系统修改在电脑上能直接处理的题型就只有这三种，所以能改的也只有各种题的数量而已。这只要三步即可：1. 撤消工作表保护，在相应题目中选中N行，右击选择“复制”再选择“插入复制单元格”如果要减少则右击选择“删除”就0K。2. 选中B:D列右击选择“取消隐藏”，按一 .3中介绍的规则修改复制二、三大题各题目区域 的公式。然后重新隐藏 C列和保护工作表。分数记录中的公式会自动调整可不必修改。3. 修改一 .8评分的宏代码中最后Ran ge(D2,D5:D34,D36:D75,D77:D106).CIearCo ntentsRows(3:106).RowHeight = 0中的区域范围即可。0|17屯也叭时少.慢聲.两乘申l巨日申.屮中靈E S 幣 |107108励110111112113114