| 操作系统 办公 实用知识 设计 开发 WEB开发 移动开发 数据库 软件工程 网管 安全 管理 信息化 答疑 渠道 |
用Excel建立模拟考试系统(中)做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。其实根本不需要懂编程，用Excel 2003你也可以制作一个类似的系统。一个可以自动出题、验证考号、答题后自动评分、保存记录的模拟考试系统，当然你也可以给它加上其他功能。（点击查看更多软件使用技巧） 参考文章：用Excel建立模拟考试系统(上) 4.答案限制 选中D5:D34单击“数据/有效性”，在“允许”中选择“系列”，选中“提供下拉箭头”复选项，在“来源”中输入“A,B,C,D”，不含引号且其中逗号为半角格式(如图1)。切换到“出错警告”选项卡，输入错误信息为“只能输入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.准考证号验证 建一个“考生名单”工作表，在A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号(如图3)。回到“试卷”工作表选中要输入准考证号的D2单格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT("考号")。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”。在F3单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单!B:C,2,FALSE))，这公式会在输入准考证号后自动显示考生姓名。
图3
6.随机抽题 右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，单击“新建”按钮，编辑如下代码: Sub 出题() If Range("D2").Value = 0 Then 提示 = MsgBox("请先输入准考证号") GoTo 重来 End If ''如果D2为空则弹出提示要求输入准考证号并直接跳到后面的“重来:”处。 Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending, Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, ''这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。 Columns("B:B").Rows.AutoFit ''对B列设置最适合行高，以完整显示题目。 Range("D5").Select ''定位到D5以便输入答案 ActiveSheet.Shapes("出题按钮").Visible = False ''隐藏出题按钮以防重复选题 ActiveSheet.Shapes("评分按钮").Visible = True ''显示评分按钮 重来: End Sub 试卷中的题目总是显示各题库最前面的N题，而在此对各题库按随机数进行随机排序后最前面的N题自然是随机的，也就相当于是随机抽题了。 7.成绩记录表 新建一个“成绩记录”工作表(如图4)，在A2输入公式=NOW()，并选中A列右击从“设置单元格格式”中设置为日期格式以显示当前时间。B2、C2分别输入=试卷!D2和=试卷!F2以显示相应数据。D2输入公式=SUM(E2:G2)对后面三个得分进行合计，E2、F2、G2则分别输入公式=SUM(试卷!E5:E34)、=SUM(试卷!E36:E75)、=SUM(试卷!E77:E106)分别对相应题型得分进行合计。
今日推荐
|
重点推荐
领军企业技术文库
+更多领军技术文库
最新专题
电子杂志订阅
| ||||||||
