用EXCEL制作模拟考试系统设计

1.建设题库翻开Excel2010建设“模拟考试系统-出题测试版〃翻开此工作簿，建设“单项选择题〃工作表（如图1）在A2输入公式二R0W（）-l〃.〃以自动生成序号，在D2输入」F（C2=〃〃，〃〃，RAND（））选中A2:D2拖动向下填充几百行按住Ctrl键单击“单项选择题〃工作表标签拖动复制出两份，分别重命名为“多项选择题〃（如图2）、“判断题〃（如图3）分别输入题目和答案，按Alt+回车键换行请注意以下提示

1、以上3个工作表，在B列输入单项选择题题目（样式随意，但一道题只能占一个单元格），在C列输入对应考题的答案，答案输入时注意不要有多余字符

2、”多项选择题〃工作表的答案必须按ABCD的顺序填写，例如答案ABD不能写ADB、BAD、BDA、DAB、DBA答错、少答和多答均不得分；“判断题〃工作表的答案只能有两种，此题按“正确〃和“错误〃作为答案，其他形式如“对〃和“错〃、”/〃和“义〃也可以

3、题库中题目数量根据实际情况而定，多多益善本例中题库数目为单项选择题60道、多项选择题50道、判断题45道图1图2图

3.建设考生名单新建“考生名单〃工作表，在A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号〃，同车确定把B列命名为考号（如图4）完成后可在名称管理器内看到名字为“考号〃的名称，引用位置为“考生名单〃工作表的B歹h图

4.设计试卷建设“试卷〃工作表，按需要设置试卷，序号生成方式如题库序号单项选择题30题（A5:C34）多项选择题40（A36:C75）判断题30题（A77:C106）在B4输入“单项选择题（每题1分）〃，在B35输入“多项选择题（每题1分，错、漏、多项选择均不得分）〃，在B76输入“判断题（每题1分）〃用“自选图形/基本形状〃中的棱台画一个按钮，选中在名称框中输入“出题按钮〃4字回车把它命名为“出题按钮〃再右击此按钮选择“添加文字〃，在按钮上输入“出题〃2字同样再画一个按钮，把它命名为“评分按钮〃，添加文字“评分〃如图5图

5.显示题目如图6在B5输入公式二1刈咔区丁〃单项选择题!丫4琳-3〃〃}011］血，0复制到B5:C34〔可拖动A5填充在B36输入公式二INDIRECT〃多项选择题！1〃1^丫-347〃01皿0并复制到B36:C75O在B77输入公式二1刈11^丁〃判断题！％1«取-75久〃

01.5附，0并复制到B77:C106o在E5单元格输入公式二IFD5=〃〃0IF在5=C5$G$20向下填充到E34这公式用来判断如果15中的答案与C4的标准答案一致就得1分否则为0分，其中G2单元格内数值为1同理，在E36单元格输入公式二IFD36二〃〃0IFD36=C36$H$20向下填充到E75；在E77单元格输入公式=IFD77=/，Z；0IFD77=C77$I$20向下填充到E106可通过更改G

2、H

2、12单元格的数值来更改分值B5的公式表示对单项选择题工作表中同列、行数差3的单元格B2的引用，公式中使用了R1C1格式的单元格编号，其中

3、

34、75是由三种题型的第一题所在的行号减2得来这公式实现的是绝对位置引用，即不管在单项选择题工作表中进展插入、删除行或排序，B5显示的始终都是你从单项选择题B2中直接看到的内容因此B5:C

34、B36:C

75、B77:C106三个区域将分别与相应题库中最前面的30或40题的内容保持一致图

6.答案限制选中单项选择题答题区D5:D34单击“数据/有效性〃快捷键ALT+D-L在“允许〃中选择“序列〃，选中“提供下拉箭头〃复选项，在“来源〃中输入“ABCD〃，不含引号且其中逗号为半角格式如图7切换到“出错警告〃选项卡，输入错误信息为“只能输入限B、C、I中的一项其他任何符号或空格均为非法〃，选中“输入无效数据时显示警告〃复选项，选择样式为“停顿〃如图8确定完成设置同样对多项选择题答题区D36:D75判断题答题区D77:D106设置数据有效性，只是“来源〃要分别换成“ABCI）BACADBCBDCl）ABCACDBCDABCD和正确，错误〃多项选择题的“出错警告〃一定要改成“必须按ABCD的顺序输入多项选择项，否则无法正确评分〃［如图9到如图11）图10图

11.准考证号验证选中“试卷〃工作表中要输入准考证号的D2单元格，单击“数据/有效性〃，在“允许〃中选择“系列〃，取消“提供下拉箭头〃复选项，在“来源〃中输入INDIRECT（〃考号〃）（如图12）切换到“出错警告〃选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入〃，选中“输入无效数据时显示警告〃，并设置样式为“停顿〃（如图13）图12图13在F2单元格输入公式二IF（D2二〃〃，〃〃VL00KUP（D2考生名单!$B:$C2FALSE））在D2单元格输入准考证号后会自动显示考生姓名［如图14）图

14.随机抽题右击“出题〃按钮，选择“指定宏〃，在弹出窗口中，输入宏名为“出题〃，位置选择当前工作簿，单击“新建〃按钮，复制如下代码粘贴到框内，结果如图15保存时将文件另存为启用宏的.xlsm格式Sub出题IfRange（Z/D2，Z）.Value=0Then提示二MsgBox（〃请先输入准考证号〃）GoTo重来EndIf如果D2为空则弹出提示要求输入准考证号并直接跳到后面的〃重来:〃处Sheets（〃单项选择题〃）.Range（〃A:D〃）.SortKeyl:=Sheets（〃单项选择题”）.Range（〃D2〃），Orderl:=x1AscendingHeader:=xlGuessSheets（〃多项选择题〃）.Range（〃A:D〃）.SortKeyl:=Sheets（〃多项选择题〃）.Range（〃D2〃）Orderl:=xlAscendingHeader:=xlGuessSheets（〃判断题〃）.Range（〃A:D〃）.SortKeyl:二Sheets（〃判断题〃）.Range（〃D2〃），Orderl:=xlAscendingHeader:=xlGuess这三行分别是对单项选择、多项选择和判断题工作表的A:D区域按D列随机数升序排序Columns.Rows.AutoFit对B列设置最适合行高，以完整显示题目Range（〃D5〃）.Select’定位到D5以便输入答案ActiveSheet.Shapes（〃出题按钮〃）.Visible=False隐藏出题按钮以防重复选题ActiveSheet.Shapes（评分按钮〃）.Visible=True显示评分按钮重来EndSub图15试卷中的题目总是显示各题库最前面的N题，而在此对各题库按随机数进展随机排序后最前面的N题自然是随机的，也就相当于是随机抽题了.成绩记录表新建“成绩记录〃工作表（如图16）在A2输入公式二NOW（）并选中A列右击从“设置单元格格式〃中设置为日期格式以显示当前时间在B2输入公式二试卷!D2和C2输入公式二试卷!F2以显示相应数据D2输入公式二SUM（E2:G2）对后面三个得分进展合计，E

2、F

2、G2则分别输入公式二SUM（试卷!E5:E34）、=SUM（试卷!E36:E75）、=SUM（试卷!E77:E106）分别对相应题型得分进展合计图

16.评分和记录保存右击“评分〃按钮，选择“指定宏〃，输入宏名“评分〃，位置选择当前工作簿，单击“新建〃按钮，复制如下代码粘贴到框内，结果如图17:Sub评分（）Sheets（〃成绩记录“）.Rows（z，3:3，z）.InsertShift:=xlDown’在成绩记录工作表第3行前插入一行Sheets（〃成绩记录〃）.Rows（2:2）.Copy‘复制成绩记录工作表第2行Sheets（〃成绩记录〃）.Range（〃A3〃）.PasteSpecialPaste:=xIPasteValues以数值方式粘贴到成绩记录工作表A3得分=MsgBox（〃最终得分〃Range（〃成绩记录!D2〃）.Value〃其中单项选择题〃Range（〃成绩记录!E2〃）.Value〃、多项选择题〃Range（〃成绩记录!F2〃）.Value〃、判断题〃Range（〃成绩记录!G2〃）.Value〃评分结果〃）弹出信息框显示成绩记录!D

2、E

2、F

2、G2的数据，标题为〃评分结果〃Range（〃D2D5:D34D36:D75D77:D106〃）.ClearContents去除试卷工作表中输入的内容Sheets〃试卷〃.Rows3:

500.RowHeight=0Sheets“成绩记录〃.Rows〃2:2〃.RowHeight=0’设置题目区行高为0以隐藏所有题目ActiveSheet.Shapes（〃出题按钮〃）.Visible=TrueActiveSheet.Shapes（〃评分按钮〃）.Visible=False’显示出题按钮，隐藏评分按钮ActiveWorkbook.Save保存EndSub图

17.其他设置选中A4单击“窗口/冻结空格〃以始终显示1:3行的标题和按钮右击C、E列选择隐藏为答题区以外单元格设置填充色以示区别，把评分按钮重叠到出题按钮上（如图18）o图18选中D5:D34右击选择“设置单元格格式〃，在“保护〃选项卡中单击取消“锁定〃选项，对于同样需要添写的D2D36:D75D77:D106区也同样取消锁定设置（如图19）然后单击“工具/保护/保护工作表〃，在中间“允许此工作表所有用户进展〃列表中只选中“选定未锁定单元格〃和“设置行格式〃两个选项，输入密码（如图20）单击确定把工作表保护起来，这样考生就无法修改试题等相应单元格了单击评分以隐藏所有题目，同时显示出题按钮，把文件另存为“模拟考试系统-考生测试版，退出如图19如图20系统维护.隐藏工作表选中除“试卷〃工作表除外的其他工作表，右击选择隐藏，以免考生看到（如图21）图

21.保护VBA代码右击“试卷〃工作表，选择“查看代码〃，选中VBAProject（模拟考试系统-考生测试版.xlsm）右击，选择“VBAProject属性〃，在“保护〃选项卡中选中“查看时锁定工程〃，并输入密码（如图22）确定，保存文档后退出关闭文档后再重新翻开，查看代码需输入密码，这样任何人没有密码就别想修改这些代码了图

22.保护工作簿为防止考生修改，在“审阅〃选项卡中选中“保护工作簿〃，勾选“构造〃和“窗口〃选项，输入密码后确定（如图23）完成以上三步后，在没有密码的前提下，考生只能输入准考证号和进展答题，不能取消隐藏工作表、取消隐藏某列或某行、查看和修改VBA代码图23若何考试翻开“模拟考试系统-考生测试版.xlsnT就只有一张“试卷〃工作表，先输入准考证号回车确认，正确的话就显示姓名，否则会要求你重输单击出题按钮即可显示题目，同时出题按钮会变成评分按钮考生可在D列选中相应单元格直接输入答案或单击下拉按钮从列表中选择输入（如图24到图26）o题目做完后，单击“评分〃按钮即可显示最后得分，确定后自动保存，并回复到最初状态图24图25图26系统修改在电脑上能直接处理的题型就只有这三种，所以能改的也只有各种题的数量而已步骤如下:.撤消工作表保护，在相应题目中选中N行，右击选择“复制〃再选择“插入复制单元格〃，如果要减少则右击选择“删除〃就0K.选中“试卷〃工作表B:I）歹U右击选择“取消隐藏〃，按之前讲的公式修改复制各题型区域的公式.然后重新隐藏C列和保护工作表，分数记录中的公式会自动调整可不必修改。