《用Excel建立模拟考试系统》由会员分享，可在线阅读，更多相关《用Excel建立模拟考试系统（6页珍藏版）》请在金锄头文库上搜索。
1、用 Excel 建立模拟考试系统做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。其实根本不需要懂编程，用 Excel 2003 你也可以制作一个类似的系统。一个可以自动出题、验证考号、答题后自动评分、保存记录的模拟考试系统，当然你也可以给它加上其他功能系统设计1.建立题库打开 Excel 2003，建立“单选题”工作表(如图 1)，在 A2 输入公式=ROW()-1&“.“以自动生成序号，在 D2 输入=IF(C2=“,“,RAND()，选中 A2:D2 拖动其填充柄向下复制到其他单元格，大概有几百行也就够了，剩下的需要时再复制。按住
2、 Ctrl 键拖动工作表标签复制出两份，分别重命名为多选题、判断题。图 12.设计试卷建立“试卷”工作表，你可以按需要设置试卷，并输入单选题、多选题、判断题三个大题目，多选题需注明错、漏、多选均不得分。并留出相应的题目位置，单选题 30 题(A5:C34)，多选题 40(A36:C75)，判断题 30 题(A77:C106)。用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮”4 字回车，把它命名为“出题按钮”。再右击此按钮选择“添加文字”，在按钮上输入“出题”2 字。同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。(如图 2)图 23.显示题目在 A5 输入
3、公式=INDIRECT(“单选题!R“&ROW()-3&“C“&COLUMN(),0)，选中 A5 复制，再选中A5:C34 进行粘贴。同样在 A36 输入公式=INDIRECT(“多选题!R“&ROW()-34&“C“&COLUMN(),0)并复制到 A36:C75，在 A77 输入公式=INDIRECT(“判断题!R“&ROW()-75&“C“&COLUMN()并复制到 A77:C106。在 E4 单元格输入公式=IF(D4=C4,1,0)，这公式用来判断如果 D4 中的答案与 C4 的标准答案一致就得 1 分否则为 0 分。A5 的公式表示对单选题工作表中同列、行数差 3 的单元格(A2
4、)的引用，公式中使用了 R1C1 格式的单元格编号，其中 3、34、75 是由第一题所在的行数减 2 得来。这公式实现的是绝对位置引用，即不管在单选题工作表中进行插入、删除行或排序，A5 显示的始终都是你从单选题 A2 中直接看到的内容。因此 A5:C34、A36:C75、A77:C106 三个区域将分别与相应题库中最前面的 30(或 40)题的内容保持一致。4.答案限制答案限制选中 D5:D34 单击“数据/有效性”，在“允许”中选择“系列”，选中“提供下拉箭头”复选项，在“来源”中输入“A,B,C,D”，不含引号且其中逗号为半角格式(如图 1)。切换到“出错警告”选项卡，输入错误信息为“只
5、能输入 A、B、C、D 中的一项，其他任何符号或空格均为非法。 ”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”(如图 2)，确定完成设置。图 1图 2同样对多选题 D36:D75，判断题 D77:D106 设置数据有效性，只是“来源”要分别换成“A,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCD”和“,”。 “出错警告”也要做相应修改，特别是多选题一定要说明必须按 ABCD 的顺序输入多选项，否则无法正确评分，若觉得多选题要输入这一大串有效性设置太麻烦，不设置有效性也是可以，你只要在题目中注明不按顺序的不给分不就行了。5.准考证号验证准考证号验证建
6、一个“考生名单”工作表，在 A、B、C 列分别输入序号、准考证号、考生姓名，选中 B 列在名称框中输入“考号”，回车确定把 B 列命名为考号(如图 3)。回到“试卷”工作表选中要输入准考证号的 D2 单格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT(“考号“)。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”。在 F3 单元格输入公式=IF(D2=“,“,VLOOKUP(D2,考生名单!B:C,2,FALSE)，这公式会在输入准考证号后自动显
7、示考生姓名。图 36.随机抽题随机抽题右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，单击“新建”按钮，编辑如下代码:Sub 出题()If Range(“D2“).Value = 0 Then提示 = MsgBox(“请先输入准考证号“)GoTo 重来End If如果 D2 为空则弹出提示要求输入准考证号并直接跳到后面的“重来:”处。Sheets(“单选题“).Range(“A:D“).Sort Key1:=Sheets(“单选题“).Range(“D2“), Order1:=xlAscending, Header:=xlGuessSheets(“多选题“).Range(“
8、A:D“).Sort Key1:=Sheets(“多选题“).Range(“D2“), Order1:=xlAscending, Header:=xlGuessSheets(“判断题“).Range(“A:D“).Sort Key1:=Sheets(“判断题“).Range(“D2“), Order1:=xlAscending, Header:=xlGuess这三行分别是对单选、多选和判断题工作表的 A:D 区域按 D 列随机数升序排序。Columns(“B:B“).Rows.AutoFit对 B 列设置最适合行高，以完整显示题目。Range(“D5“).Select定位到 D5 以便输入答案
9、ActiveSheet.Shapes(“出题按钮“).Visible = False隐藏出题按钮以防重复选题ActiveSheet.Shapes(“评分按钮“).Visible = True显示评分按钮重来:End Sub试卷中的题目总是显示各题库最前面的 N 题，而在此对各题库按随机数进行随机排序后最前面的 N题自然是随机的，也就相当于是随机抽题了。7.成绩记录表成绩记录表新建一个“成绩记录”工作表(如图 4)，在 A2 输入公式=NOW()，并选中 A 列右击从“设置单元格格式”中设置为日期格式以显示当前时间。B2、C2 分别输入=试卷!D2 和=试卷!F2 以显示相应数据。D2输入公式=
10、SUM(E2:G2)对后面三个得分进行合计，E2、F2、G2 则分别输入公式=SUM(试卷!E5:E34)、=SUM(试卷!E36:E75)、=SUM(试卷!E77:E106)分别对相应题型得分进行合计。图 48.评分和记录保存评分和记录保存右击“评分”按钮，选择“指定宏”，输入宏名“评分”，单击“新建”按钮，编辑如下代码:Sub 评分()Sheets(“成绩记录“).Rows(“3:3“).Insert Shift:=xlDown在成绩记录工作表第 3 行前插入一行Sheets(“成绩记录“).Rows(“2:2“).Copy复制成绩记录工作表第 2 行Sheets(“成绩记录“).Rang
11、e(“A3“).PasteSpecial Paste:=xlPasteValues以数值方式粘贴到成绩记录工作表 A3得分 = MsgBox(“最终得分“ & Range(“成绩记录!D2“).Value & “其中:单选题“ & Range(“成绩记录!E2“).Value & “、多选题“ & Range(“成绩记录!F2“).Value &“、判断题“ & Range(“成绩记录!G2“).Value &, , “评分结果“)弹出信息框显示成绩记录!D2、E2、F2、G2 的数据，标题为“评分结果“Range(“D2,D5:D34,D36:D75,D77:D106“).ClearContents清除试卷工作表中输入的内容Rows(“3:106“).RowHeight = 0设置题目区行高为 0，以隐藏所有题目ActiveSheet.Shapes(“出题按钮“).Visible = TrueActiveSheet.Shapes(“评分按钮“).Visible = False显示出题按钮,隐藏评分按钮ActiveWorkbook.Save保存End Sub9.其他设置其他设置选中 A4 单击“窗口/冻结空格”以始终显示 1:3 行的标题和按钮。右击 C、E 列选择隐藏。为答题区以外单元格设置填充色以示区别，把评分按钮重叠到出题按钮上(如图 1)。图 1
