用EXCEL制作模拟考试系统

1、WORD格式可编辑1. 建立题库打开Excel 2010，建立“模拟考试系统-岀题测试版”。打开此工作簿，建立“单选题”工作表（如图1），在A2输入公式=R0W（）-1 &以自动生成序号，在D2输入=IF（C2="","",RAND（），选中A2:D2 拖动向下填充几百行。按住 Ctrl键单击 “单选题”工作表标签拖动复制出两份，分别重命名为“多 选题”（如图2）、“判断题”（如图3），分别输入题目和答案，按 Alt+回车键换行。请注意以下 提示：1、以上3个工作表，在B列输入单选题题目（样式随意，但一道题只能占一个单元格），在 C 列输入对应考

2、题的答案，答案输入时注意不要有多余字符。2、“多选题”工作表的答案必须按 ABCD勺顺序填写，例如答案 ABD不能写ADB BAD BDADAB DBA答错、少答和多答均不得分；“判断题”工作表的答案只能有两种，本题按“正确”和“错误”作为答案，其他形式如“对”和“错”、“"”和“X”也可以。3、题库中题目数量根据实际情况而定，多多益善。本例中题库数目为单选题60道、多选题50道、判断题45道。B©摸板专区（D模抵考试養魏出题漣试阪為m X+ABA2協題目店号行车中发现其他车辆陷入损坏路段而不能行般时，应 *A. 尽快离幵B, 尽力帮助G改道行驶D,绕行通过2.3.车旃在拥

3、挤路骰i氐速行驶时，遇其也车辅强行f加臺"> 应 “A.呜喇叭警告，不得进入比加速行腔，肾跟前车不让耳逍入G主动礼让，确保行车安全D. 挤崟“扣塞积车辆，诵其离开行车中发现有需要援助的车辆时，应 °A.漏速停车,.给对方以帮助E. 加速通过C”不予理踩D.找理由拒宛自动拦汽车起动炭动机时，应将变速器操纵杆敢在位気卜讯丨试豪单冼題為第滴乂削価用生老里力嫌狂录 帀CDE答案随机劉B0.730431C0.168955A0. 181331ECl 927E21D2T花|=IFXC2="URANDO) 血模板专区A億1圍以第至境-出黎赋版朋E X +B颍目序号超车过程中

4、，被超车辅突然加速怎么办？Ax加速迅速超越1. 趴变换远近光灯翅越C、减連放弃超车 哄持缮鸣喇叽超越 在道踣上怎拝安全跟车行驶？A、注竜观察前车动态2. E.随时做好料速准备C. 辱量龍路左侧行駛D、保持安全距离驾驶机动车逋过学校时宴注這件么2*、观察标志标线3. 职减遼樓行C、不要鸣喇叽S快邃通过 下列做法哪些可臥有效避免驾驶痕劳？A.连续驾製不超过4小时4. E、用卷不宜过饱C、保持良好的睡眠D、聲后适当林懸后驾车驾乘人员下车时要怎样做以保证安全？A.停车后立即幵门下车5. E、观幫前方吏通清州CDE答案随机数c1ABD0.167579ABC0. 54534SAECD0. 672029D0

5、. 640945I 试気童况虬手选总脚M匚者生名单.亦I记录专业知识整理分享D2一压 L 二RAND 0)BCD向懂板专区 B橙警试磁-出籃隨试版加e X + A序吕題冃答秦随机数1.2.3.4.在道路上超车时，应尽量加犬横向距 离/必要时可越实线超车。无论自动挡还是手动挡汽车都必须 用右脚踩踏制动踏板。女驾驶人穿高跟鞋驾驶车辆，不利于 安全行车。驾鞅人频繋变更车道不属于驾腔陋习错误正确正确错误5.正确0. 5176320. 1546550. 828622J夜间行车时，全车灯光突熬熄灭，应当 紧急制动，迅速停车。错误0. 175636&驾軸人一边驾车，一边打手持电话是 违法行为。正确0

6、. 83061319行车中週到障碍时，尽量提高车速， 迅速超越。错误0, 79554410.行车中，遇其他驾驶人要求帮助时， 可答应请求熱情相助。正确6 2063370, 949635正确6.0. 891669正确11.0. 545621山区行车，对方车轲主动让行时，可 低声短促鸣号以示感谢。自动挡汽车变速器操纵杆在P挡臥外的 位置不能拔下钥匙。在泥泞路上制动时,车轮易发生侧滑或用 尾,导致交通事故。漫水道路行车时，应挂高速档，快速通11 错误也珂。_| :二二 0.卜叮试謹：单选題 梦选范 判断题考生名草7成绩记录潍0. 6F30272. 建立考生名单新建“考生名单”工作表，在 A、B、C列

7、分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号（如图4）。完成后可在名称管理器内看到名字为“考 号”的名称，引用位置为“考生名单”工作表的B列。考圣订仪血|准考证号占EC序号淮考证号1姓雀12Q1EQC12201B0023201S0034201B004520180056201 BOOS结存玉720160078201800893018009股市场102018010木丁西11201E011122018012132016013尤匡奇14201801415201B015162Q1B016不盖皮172018017182Q1E018192018019于崇义202

8、01B020寇玉川21201B021紫根喜22201B022田佳苒232018023242018024：理卷201.8025金樽饭寺区爾樫拟老蘇统-出題测式版.川"引用位畳3xnEFGHTJKX +竭揖 R .【畔余<i厂I【就tw +徒皿.引用位蛊范国 #>±=准考证号二二考生名单订.工作蒲=考生容单l$E 汀孔考圭容单磯记录3. 设计试卷建立“试卷”工作表，按需要设置试卷，序号生成方式如题库序号。单选题30题（A5:C34），多选题40（A36:C75），判断题30题（A77:C106）。在B4输入“单选题（每题 1分）"，在 B35输入“多 选题

9、（每题1分，错、漏、多选均不得分）”，在 B76输入“判断题（每题1分）”。用“自选图形/基本形状”中的棱台画一个按钮，选中在 名称框中输入“岀题按钮”4字回车， 把它命名为“出题按钮”。再右击此按钮选择“添加文字”，在按钮上输入“出题”2字。同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。（如图5）犊檢专区 ©至蛻-出師试版xbm X +评分甲迭題(毎su分)XX模拟考试系统准考证号：答案2013D36答鬆区10I.把车时，前方车辆不让岀粗车空间，应< A.迅速超越E.停止超车C,连婪鸣喇叽超越山开启罰照灯超越行车中遇交ii事故受仿看需要抢救时，应 °

10、A.换时将仿看送医 晴抢救或拨打总救电话企尽童避开，少惹麻烦C”绕过现场行9和“惜 故避幵现场 横担时.A.K得低*下视E.慢推.慢拉C.注意看描也.猛推* 猛拉自动拦汽车起动发动机时，应将变速器操纵杆放住位亀*JL. 拦E. F拦C. HSD. 任琶挡车辆行驶过程中，笃皴人应当把废纸或废弃物扔到 ° A.车窗外 街适上B一融车按芾的拉塩箱(黛里匚无人看营的道賂上D,车内座 位下或车厢内行车中发现其他军稱陷人损坏路段而车龍行胞时.131.尽快离幵E.尽力帮助C. 改诅行驶D. 绕行通过4. 显示题目(如图6)在 B5输入公式 INDIRECT(“单选题!R"&ROW

11、()-3&"C"&COLUMN(),0),复制到 B5:C34 (可拖动 A5 填充)。在 B36输入公式 INDIRECT("多选题!R"&ROW()-34&"C"&COLUMN(),0并复制到 B36:C75。在 B77输入公式 INDIRECT("判断题!R"&ROW()-75&'C'&COLUMN(),0并复制到 B77:C106。在E5单元格输入公式=IF(D5="",0,IF(D5=C5,$G$2,0)，

12、向下填充到 E34,这公式用来判断如果 D5中的答案与C4的标准答案一致就得1分否则为0分，其中G2单元格内数值为1。同理，在E36单 元格输入公式=IF(D36="",0,IF(D36=C36,$H$2,0)，向下填充到 E75；在E77单元格输入公式 =IF(D77="",0,IF(D77=C77,$I$2,0)，向下填充到E106。可通过更改G2 H2、I2单元格的数值来更改分值。B5的公式表示对单选题工作表中同列、行数差3的单元格(B2)的引用，公式中使用了 R1C1格式的单元格编号，其中3、34、75是由三种题型的第一题所在的行号减2得来。这公

13、式实现的是绝对位置引用，即不管在单选题工作表中进行插入、删除行或排序，B5显示的始终都是你从单选题 B2中直接看到的内容。因此 B5:C34、B36:C75、B77:C106三个区域将分别与相应题库中最前面的30(或40)题的内容保持一致。E112B曰AEcIiE1XX模拟考试系统2翩3延_|鮎证号 2aoiacae$4%| 5-MH 0 + "一 *-ITOTRICTc()-SfcrC*tajLOilf 0p m-indirect rMSflieMOTfcaxim f), o)=IF (D5- 二 0PIT DMSXIO)34=E.of=TOTKECT 厂单送題 LJi XMY&q

14、uot;产 HCO1EK f),D)=DiHliCT广单选tt'REDTO Sn'C-h7LJL.ruM :, '=】FD*", q IFCK34fC3 *C鵝 0>J35梦准淮t無jsi号"ta. w.务世均不-KOfmIHL旺CT 仁多送題!Ji 'Wul() -341 BCxfcOXDirH0d)=IMDIEECT f 令送BJ! R'ARDT ()-34t*Cr4C0LlJIH (>, 0=1 珂03=*冷0IF(D3&=C36.rfKr3l O»料=Sflf C)*=ITOTRETT>KU

15、U» 0 -3tt,C,MXim 0 0)=IIDITiICT L皐选H! RMJT 0 -&UTL虻XJUJIB 0, 0)=1?(075=* g IF 帥6=口瓦=AOf O-76li*r =MPKLH："九商我也'騙曲0-10 0）=1JIU1 K2Crt-PlffiSS!E"4Kii ()-?bTCKLUW；(J, <3、=1 仇MT=", 3 lPCPThCn,晅劲 Q)J106IrtT-Mf () T&tf=TMLiREcr r 利 Brfiis '-ipof o -丁皱 pmurH o. >a)=

16、IMDIEECT L判断通! RARDT ()-754-C4C0LiniH ( 0=nDifi衍"o,if (diOMidfi. ji j? o)5. 答案限制选中单选题答题区D5:D34单击“数据/有效性"（快捷键 ALT+D>L）,在“允许”中选择“序 列”，选中“提供下拉箭头”复选项，在“来源”中输入“A,B,C,D ”，不含引号且其中逗号为半角格式（如图7）。切换到“岀错警告”选项卡，输入错误信息为“只能输入A、B、C D中的一项，其他任何符号或空格均为非法。”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”（如图8），确定完成设置。隈菇肓效性|同样

17、对多选题答题区 D36:D75,判断题答题区D77:D106设置数据有效性，只是“来源”要分别换成“ a,b,c,d,b,ac,ad,bc,bd,cd,abc,acd,bcd,abCd和“正确，错误”。 多选题的“岀错警告”一定要改成“必须按ABCD的顺序输入多选项，否则无法正确评分”。（如图 9到如图11）数摒有效性#設誉肓效性图10觀摒有效性目全部清除©）I诵走取消图116. 准考证号验证选中“试卷”工作表中要输入准考证号的D2单元格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT（"考号"）（如

18、图12）。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”（如图13）。图12全部清除©诵走取消图13在F2单元格输入公式=IF（D2="","",VLOOKUP（D2,考生名单！ $B:$C,2,FALSE），在D2单元格输入准考证号后会自动显示考生姓名。（如图14）2018036I 得分1條=IF(D2=tf "LOOKUP(D2,考生名单！$E:$C, 2, FALSE)直擾板专区ffi榆尊试至辭出越測试版站m X +A7.随机抽题评分EI X

19、X模拟考试系统准考证号，答秦图14右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图15,保存时将文件另存为启用宏的.xlsm 格式。Sub岀题()If Ran ge("D2").Value = 0 Then提示=MsgBox（"请先输入准考证号"）GoTo 重来End If如果D2为空则弹岀提示要求输入准考证号并直接跳到后面的“重来:"处。Sheets(“单选题").Range("A:D").Sort Key1:=Sheets

20、(“Order1:=xlAsce nding, Header:=xlGuess单选题").Range("D2"),Sheets(" 多选题").Range("A:D").Sort Key1:=Sheets("Order1:=xlAsce nding, Header:=xlGuess多选题").Range("D2"),Sheets(" 判断题").Range("A:D").Sort Key1:=Sheets("Order1:=xlAsce

21、 nding, Header:=xlGuess判断题").Range("D2"),这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。Colum ns("B:B").Rows.AutoFit对B列设置最适合行高，以完整显示题目Ra nge("D5").Select定位到D5以便输入答案ActiveSheet.Shapes("岀题按钮.Visible = False隐藏出题按钮以防重复选题码帥君泣至贰出回鹹阪徵m -横如代码口 回旦r曲用)T 出直ri九b出趣0IfVd-ue = D=£

22、l&iAE.9ActiveSheet.Shapes("评分按钮.Visible = True显示评分按钮重来:End Sub'如果琨为空皿肿比卷示蔭求输真准育旺号弃賀騒臥后面的毎察"处L*tt 卑迭题"：l. Ru沪孟:B"J K#yl =貉旳熬单选曲).Ruy CBE" )3 Q"能 L: kietnAb qSheets參迭35"). ELhcues(*A：B*).Swt Eeyl: =5Jtcel5 L备送题"KojifcDE"JOrder L: =xlii5cend皿匕£u

23、* 11 cM(jr5fir). a*n/* ta： cj . sjn-t c*yi -=sji*<iisit* rie"), mdL.讯'这三行井别昱刃:单这*瘗迭和乱朋呈工作耒的a 1区曲1勺貝施机扛升序排庄。C«Lu*jis fB B*). Rmk. ut«Fi LK«CliSn).S61«et '走傥到匚阴堆输.扎拣AetkvSbA.t.StiC*出时钮"J. Viikll* = B*l“'隐君岀蚓誨以防壬巨隽呈°评另45甜"h Yiiith = Trut显示评曲卿End Su

24、b图15试卷中的题目总是显示各题库最前面的 N题，而在此对各题库按随机数进行随机排序后最前面的N题自然是随机的，也就相当于是随机抽题了。8. 成绩记录表新建“成绩记录”工作表（如图16），在A2输入公式=NOW（）并选中A列右击从“设置单元格 格式”中设置为日期格式以显示当前时间。在B2输入公式= 式卷!D2和C2输入公式= 式卷!F2以显示相应数据。D2输入公式=SUM（E2:G2对后面三个得分进行合计，E2、F2、G2则分别输入公式=SUM试 卷!E5:E34）、=SUM试卷!E36:E75）、=SUM式卷！E77:E106）分别对相应题型得分进行合计。AECDEFG1日期时祠考生塘号考生

25、姓名单这題得分2=N0¥ 0=试住!D2=试卷!厘=9UI(E2:G2)=SUH(试 ®'E36:E75)=S0I (<fe!lYY：aiO5)图169. 评分和记录保存右击“评分”按钮，选择“指定宏”，输入宏名“评分”，位置选择当前工作簿，单击“新建” 按钮，复制如下代码粘贴到框内，结果如图17:Sub评分（）Sheets(” 成绩记录").Rows("3:3").lnsert Shift:=xlDown在成绩记录工作表第3行前插入一行Sheets("成绩记录").Rows("2:2").

26、Copy复制成绩记录工作表第2行Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues以数值方式粘贴到成绩记录工作表 A3得分=MsgBox（"最终得分“ & Range（“成绩记录！D2"）.Value & “ 其中：单选题"& Range（“ 成绩记录!E2"）.Value & "、多选题"& Range（"成绩记录!F2"）.Value & "、判

27、断题"& Range（"成绩 记录!G2"）.Value,"评分结果"）弹岀信息框显示成绩记录！D2、E2、F2、G2的数据，标题为“评分结果Ran ge("D2,D 5:D34,D36:D75,D77:D106").ClearCo ntents清除试卷工作表中输入的内容Sheets(“试卷 “).Rows("3:500").RowHeight = 0Sheets(”成绩记录").Rows("2:2").RowHeight = 0'设置题目区行高为0,以隐藏所

28、有题目ActiveSheet.Shapes("岀题按钮 “).Visible = TrueActiveSheet.Shapes("评分按钮 “).Visible = False显示出题按钮，隐藏评分按钮ActiveWorkbook.Save保存End Sub图1710. 其他设置选中A4单击“窗口 /冻结空格”以始终显示1:3行的标题和按钮。右击 C E列选择隐藏。为答 题区以外单元格设置填充色以示区别，把评分按钮重叠到岀题按钮上（如图18）。J_-'U血碎区0D模拟暂试超出做!能備站” X +A评分XX模拟考试系统准考证号:股市场201800951.驾驶人城区内清

29、洗车辆时，应当在 清洗。车辅清洗点E.道踣 上随琶C.河边DJK障边62.自动担汽车的担在时使用。A.陡坡彳亍驶E.驻车C.正常行M）.监口停车73.当驾驶车辖忏经两侧育行人且有积水的路面时，应 。A.加速通 过E.正常行殃C.减速慢行D.连续鸣喇叭84.自动拦汽车起动发动机时应将变速器操纵杆放在位蚩。 盘.挡氐F拦C朋D.任意挡95.驾驶机动车时，转向盘。A.艰手可汉临时离开氐可決随青操作 G严輩欢手同时离幵D.可以斥地转幼10乩鸾驶车辆正常行驶时，对道路情况的处理要有预见性，在接近障碍 时能 。A-紧急制动能停车比急转向迅速绕过C迅速躲避不发生 碰撞D.平总停车117.趙车时，刖方车辆不让

30、出趙车空间，应 ° A.迅速超越E.停止超 车C 连繞呜喇叭超越D 幵启前照灯超越128.自动档汽车的 W 搞在 时使用 A.缓坡行驶E.停车G正常行 駛D.超车呷驶车辆在道踣上行艘时，驾驶人賽按昵控制车速，在規定的n « J'试卷单选题疋多选査判弧题考生容单口媒记录单选題（每题1分）4图18选中D5:D34右击选择“设置单元格格式”，在“保护”选项卡中单击取消“锁定”选项，对于同样需要添写的D2,D36:D75,D77:D106区也同样取消锁定设置（如图 19）。然后单击“工具/保护/ 保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格

31、”和“设置 行格式”两个选项，输入密码（如图20），单击确定把工作表保护起来，这样考生就无法修改试题等 相应单元格了。单击评分以隐藏所有题目，同时显示出题按钮，把文件另存为“模拟考试系统-考生测试版.xlsm "，退岀。如图19新建批注于上I乍簿工作'L5显示墨渣II化K师开发工具暉相机. 福昕®s煤护工昨表&保护工作表及锁定的单元格内容电）取消工作表保护时使用的蔭码E）-工岸表允谍此工作表的所有用户进行収）:HH閒元格1庁D1殳盍单元格格式2013009答題区脸市场1确走取消S亦、/兀幵帥寺帙！?严护叭惟征插入行 插入超槌接刪除列刪除行如图20系统维护1.

32、 隐藏工作表选中除“试卷”工作表除外的其他工作表，右击选择隐藏，以免考生看到。（如图21）O|聖音代码凹空门 彳乍P務动或复制（MT “工咋義标签飯色CD 4.右击显示L单击2按住 £hift王单击匸多选题-判断题，者生名单1图212. 保护VBAf弋码右击“试卷"工作表，选择“查看代码"，选中 VBAProject（模拟考试系统-考生测试版.xlsm）, 右击，选择“ VBAProject属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码 （如图 22），确定，保存文档后退出。关闭文档后再重新打开，查看代码需输入密码，这样任何人没有密码 就别想修改这些

33、代码了。:文牛（0 扁辑观图（¥）插入（D 梧式（Q）谓试运行® TMCD夕腐创亭回裔口吨iJJg - VBAProject+越肝ATehH （複掀考试系绕-考生iitJR.xl）XI右击图223保护工作簿为防止考生修改，在“审阅”选项卡中选中“保护工作簿”，勾选“结构”和“窗口”选项，输 入密码后确定（如图23）。完成以上三步后，在没有密码的前提下，考生只能输入准考证号和进行答题，不能取消隐藏工作 表、取消隐藏某列或某行、查看和修改 VBA代码。匸作裘观圏姜化穴忙开发工具矍相机 J jM -一 = . * ,图232D乍薄如何考试打开“模拟考试系统-考生测试版.xlsm

34、”就只有一张“试卷”工作表，先输入准考证号回车确认，正确的话就显示姓名，否则会要求你重输。单击岀题按钮即可显示题目同时岀题按钮会变成评分按钮。考生可在D列选中相应单元格直接输入答案或单击下拉按钮从列表中选择输入（如图24到图26）。题目做完后，单击“评分”按钮即可显示最后得分，确定后自动保存，并回复到最初状态。图2406匚 AQ fi n複专巨 S3撕诸试屣炼-奪生离试版刃汶x +車拟考试承统-害生刃试JS.KbEED7JKLH11 +爭昏IXX模拟考试系统21讯力I准考证号12010007大全34*51停热自动苕汽丰时，娈速翠堤纵杆慮按下桶匙° R-在R屯乩在H07.在D拦D.甸曲1II6g”口动担汽车的“門些在 时使坤* A.陡坡行驶E.驻车C-正篇行 驶D,路停立I73.殆制功站板応m用跻站。A-左押西募氏石脚审筝U-右脚心右伍眼1J84.益發人氐趨车时，岌现雨万车涓匸在超车时 直 八、當眼目 后,伺机超趣E.抓速理厅班迪1逢埃鸣WWlfitffiTilMn.停止超 车，让前方车请先的丰95-行