用EXCEL制作模拟考试系统

WORD格式可编辑1. 建立题库打开Excel 2010，建立“模拟考试系统-岀题测试版”。打开此工作簿，建立“单选题”工作表（如图1），在A2输入公式=R0W（）-1 &以自动生成序号，在D2输入=IF（C2=,RAND（），选中A2:D2 拖动向下填充几百行。按住 Ctrl键单击 “单选题”工作表标签拖动复制出两份，分别重命名为“多 选题”（如图2）、“判断题”（如图3），分别输入题目和答案，按 Alt+回车键换行。请注意以下 提示：1、以上3个工作表，在B列输入单选题题目（样式随意，但一道题只能占一个单元格），在 C 列输入对应考题的答案，答案输入时注意不要有多余字符。2、“多选题”工作表的答案必须按 ABCD勺顺序填写，例如答案 ABD不能写ADB BAD BDADAB DBA答错、少答和多答均不得分；“判断题”工作表的答案只能有两种，本题按“正确”和“错误”作为答案，其他形式如“对”和“错”、“”和“X”也可以。3、题库中题目数量根据实际情况而定，多多益善。本例中题库数目为单选题60道、多选题50道、判断题45道。B摸板专区（D模抵考试養魏出题漣试阪為m X+ABA2協題目店号行车中发现其他车辆陷入损坏路段而不能行般时，应 *A. 尽快离幵B, 尽力帮助G改道行驶D,绕行通过2.3.车旃在拥挤路骰i氐速行驶时，遇其也车辅强行f加臺 应 “A.呜喇叭警告，不得进入比加速行腔，肾跟前车不让耳逍入G主动礼让，确保行车安全D. 挤崟“扣塞积车辆，诵其离开行车中发现有需要援助的车辆时，应 A.漏速停车,.给对方以帮助E. 加速通过C”不予理踩D.找理由拒宛自动拦汽车起动炭动机时，应将变速器操纵杆敢在位気卜讯丨试豪单冼題為第滴乂削価用生老里力嫌狂录 帀CDE答案随机劉B0.730431C0.168955A0. 181331ECl 927E21D2T花|=IFXC2=URANDO) 血模板专区A億1圍以第至境-出黎赋版朋E X +B颍目序号超车过程中，被超车辅突然加速怎么办？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. 640945I 试気童况虬手选总脚M匚者生名单.亦I记录专业知识整理分享D2一压 L 二RAND 0)BCD向懂板专区 B橙警试磁-出籃隨试版加e X + A序吕題冃答秦随机数1.2.3.4.在道路上超车时，应尽量加犬横向距 离/必要时可越实线超车。无论自动挡还是手动挡汽车都必须 用右脚踩踏制动踏板。女驾驶人穿高跟鞋驾驶车辆，不利于 安全行车。驾鞅人频繋变更车道不属于驾腔陋习错误正确正确错误5.正确0. 5176320. 1546550. 828622J夜间行车时，全车灯光突熬熄灭，应当 紧急制动，迅速停车。错误0. 175636&驾軸人一边驾车，一边打手持电话是 违法行为。正确0. 83061319行车中週到障碍时，尽量提高车速， 迅速超越。错误0, 79554410.行车中，遇其他驾驶人要求帮助时， 可答应请求熱情相助。正确6 2063370, 949635正确6.0. 891669正确11.0. 545621山区行车，对方车轲主动让行时，可 低声短促鸣号以示感谢。自动挡汽车变速器操纵杆在P挡臥外的 位置不能拔下钥匙。在泥泞路上制动时,车轮易发生侧滑或用 尾,导致交通事故。漫水道路行车时，应挂高速档，快速通11 错误也珂。_| :二二 0.卜叮试謹：单选題 梦选范 判断题考生名草7成绩记录潍0. 6F30272. 建立考生名单新建“考生名单”工作表，在 A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号（如图4）。完成后可在名称管理器内看到名字为“考 号”的名称，引用位置为“考生名单”工作表的B列。考圣订仪血|准考证号占EC序号淮考证号1姓雀12Q1EQC12201B0023201S0034201B004520180056201 BOOS结存玉720160078201800893018009股市场102018010木丁西11201E011122018012132016013尤匡奇14201801415201B015162Q1B016不盖皮172018017182Q1E018192018019于崇义20201B020寇玉川21201B021紫根喜22201B022田佳苒232018023242018024：理卷201.8025金樽饭寺区爾樫拟老蘇统-出題测式版.川引用位畳3xnEFGHTJKX +竭揖 R .【畔余=准考证号二二考生名单订.工作蒲=考生容单l$E 汀孔考圭容单磯记录3. 设计试卷建立“试卷”工作表，按需要设置试卷，序号生成方式如题库序号。单选题30题（A5:C34），多选题40（A36:C75），判断题30题（A77:C106）。在B4输入“单选题（每题 1分），在 B35输入“多 选题（每题1分，错、漏、多选均不得分）”，在 B76输入“判断题（每题1分）”。用“自选图形/基本形状”中的棱台画一个按钮，选中在 名称框中输入“岀题按钮”4字回车， 把它命名为“出题按钮”。再右击此按钮选择“添加文字”，在按钮上输入“出题”2字。同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。（如图5）犊檢专区 至蛻-出師试版xbm X +评分甲迭題(毎su分)XX模拟考试系统准考证号：答案2013D36答鬆区10I.把车时，前方车辆不让岀粗车空间，应J35梦准淮t無jsi号ta. w.务世均不-KOfmIHL旺CT 仁多送題!Ji Wul() -341 BCxfcOXDirH0d)=IMDIEECT f 令送BJ! RARDT ()-34t*Cr4C0LlJIH (, 0=1 珂03=*冷0IF(D3&=C36.rfKr3l O料=Sflf C)*=ITOTRETTKUU 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!E4Kii ()-?bTCKLUW；(J, a)=IMDIEECT L判断通! RARDT ()-754-C4C0LiniH ( 0=nDifi衍o,if (diOMidfi. ji j? o)5. 答案限制选中单选题答题区D5:D34单击“数据/有效性（快捷键 ALT+DL）,在“允许”中选择“序 列”，选中“提供下拉箭头”复选项，在“来源”中输入“A,B,C,D ”，不含引号且其中逗号为半角格式（如图7）。切换到“岀错警告”选项卡，输入错误信息为“只能输入A、B、C D中的一项，其他任何符号或空格均为非法。”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”（如图8），确定完成设置。隈菇肓效性|同样对多选题答题区 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（考号）（如图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 XX模拟考试系统准考证号，答秦图14右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图15,保存时将文件另存为启用宏的.xlsm 格式。Sub岀题()If Ran ge(D2).Value = 0 Then提示=MsgBox（请先输入准考证号）GoTo 重来End If如果D2为空则弹岀提示要求输入准考证号并直接跳到后面的“重来:处。Sheets(“单选题).Range(A:D).Sort Key1:=Sheets(“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 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=l&iAE.9ActiveSheet.Shapes(评分按钮.Visible = True显示评分按钮重来:End Sub如果琨为空皿肿比卷示蔭求输真准育旺号弃賀騒臥后面的毎察处L*tt 卑迭题：l. Ru沪孟:BJ K#yl =貉旳熬单选曲).Ruy CBE )3 Q能 L: kietnAb qSheets參迭35). ELhcues(*A：B*).Swt Eeyl: =5Jtcel5 L备送题KojifcDEJOrder L: =xlii5cend皿匕u* 11 cM(jr5fir). a*n/* ta： cj . sjn-t c*yi -=sji*iisit* rie), mdL.讯这三行井别昱刃:单这*瘗迭和乱朋呈工作耒的a 1区曲1勺貝施机扛升序排庄。CLu*jis fB B*). Rmk. utFi LKCliSn).S61et 走傥到匚阴堆输.扎拣AetkvSbA.t.StiC*出时钮J. Viikll* = B*l“隐君岀蚓誨以防壬巨隽呈评另45甜h Yiiith = Trut显示评曲卿End Sub图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日期时祠考生塘号考生姓名单这題得分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).Copy复制成绩记录工作表第2行Sheets(成绩记录).Range(A3).PasteSpecial Paste:=xlPasteValues以数值方式粘贴到成绩记录工作表 A3得分=MsgBox（最终得分“ & Range（“成绩记录！D2）.Value & “ 其中：单选题& Range（“ 成绩记录!E2）.Value & 、多选题& Range（成绩记录!F2）.Value & 、判断题& 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,以隐藏所有题目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.驾驶人城区内清洗车辆时，应当在 清洗。车辅清洗点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.趙车时，刖方车辆不让出趙车空间，应 A.迅速超越E.停止超 车C 连繞呜喇叭超越D 幵启前照灯超越128.自动档汽车的 W 搞在 时使用 A.缓坡行驶E.停车G正常行 駛D.超车呷驶车辆在道踣上行艘时，驾驶人賽按昵控制车速，在規定的n J试卷单选题疋多选査判弧题考生容单口媒记录单选題（每题1分）4图18选中D5:D34右击选择“设置单元格格式”，在“保护”选项卡中单击取消“锁定”选项，对于同样需要添写的D2,D36:D75,D77:D106区也同样取消锁定设置（如图 19）。然后单击“工具/保护/ 保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格”和“设置 行格式”两个选项，输入密码（如图20），单击确定把工作表保护起来，这样考生就无法修改试题等 相应单元格了。单击评分以隐藏所有题目，同时显示出题按钮，把文件另存为“模拟考试系统-考生测试版.xlsm ，退岀。如图19新建批注于上I乍簿工作L5显示墨渣II化K师开发工具暉相机. 福昕s煤护工昨表&保护工作表及锁定的单元格内容电）取消工作表保护时使用的蔭码E）-工岸表允谍此工作表的所有用户进行収）:HH閒元格1庁D1殳盍单元格格式2013009答題区脸市场1确走取消S亦、/兀幵帥寺帙！?严护叭惟征插入行 插入超槌接刪除列刪除行如图20系统维护1. 隐藏工作表选中除“试卷”工作表除外的其他工作表，右击选择隐藏，以免考生看到。（如图21）O|聖音代码凹空门 彳乍P務动或复制（MT “工咋義标签飯色CD 4.右击显示L单击2按住 hift王单击匸多选题-判断题，者生名单1图212. 保护VBAf弋码右击“试卷工作表，选择“查看代码，选中 VBAProject（模拟考试系统-考生测试版.xlsm）, 右击，选择“ VBAProject属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码 （如图 22），确定，保存文档后退出。关闭文档后再重新打开，查看代码需输入密码，这样任何人没有密码 就别想修改这些代码了。:文牛（0 扁辑观图（）插入（D 梧式（Q）谓试运行 TMCD夕腐创亭回裔口吨iJJg - VBAProject+越肝ATehH （複掀考试系绕-考生iitJR.xl）XI右击图223保护工作簿为防止考生修改，在“审阅”选项卡中选中“保护工作簿”，勾选“结构”和“窗口”选项，输 入密码后确定（如图23）。完成以上三步后，在没有密码的前提下，考生只能输入准考证号和进行答题，不能取消隐藏工作 表、取消隐藏某列或某行、查看和修改 VBA代码。匸作裘观圏姜化穴忙开发工具矍相机 J jM -一 = . * ,图232D乍薄如何考试打开“模拟考试系统-考生测试版.xlsm ”就只有一张“试卷”工作表，先输入准考证号回车确认，正确的话就显示姓名，否则会要求你重输。单击岀题按钮即可显示题目同时岀题按钮会变成评分按钮。考生可在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-行车中发观苴怛车辆陷于泥许蹈段.鳶要第助时，应 * A- T 過过乩主动帮眈，观而不见D.绕谨耳亍驶10氐行车中jg捌对问来车占迈行驶，应 1.显豊道蹈中心行9SB.主动鰭罚万让行C用大灯善示对万D一連对比託右行腔11T行车中发现其也车無陷人损坏昭嚴而不龍行驶时，应 辱快画开丘旻尢1第馭.改道行驶口一曉行通过12氐箜驶丰詣时.涼了安全起见，零驶入 塹丰“ A,可以穿抽椎乩穿 唧行鞋剖可以心不輕芽舟毬IL可限茅取熟娃139.擇规制动踣転时，鉴扳A-踣丁前逹意观蓟-聒下或抬起部不捋呗惑,姑下时注三观玛0.抢起时沖斎观疾理uo*ntii生时一ttic1* . i內壬Brriit时宜*t? srr丿餓奋览朋图25桂脱考试至航-君生I试版対诃X +Q 口AE1D1 FJK1 iKnsKiuBXX模拟考试系统准考证号；2018Q07 尢全答题区T22?评分建先题得分34呈中;单iSS.13.密i$甌&.判睡遷15彭某驾卿一絹重型半挂全引车，毙运37,7吨货物（機载2 吨），行至丸广离速埜踣一下坡路嚴，追显匝撞一话由李某！ 应急车道内行恥的重型自卸货车（赏縮內装载乱H立方責十; 乗24 A）.适成16人死亡* 13人受怖。眈事故中的王耳 行为是什么 A.彭某超連行腔氛鬱某驾驶机动车超栽 在应急车适内疔驶D*車某货车车展内违注載人L7339.74在道踣上怎样安全艰车行驶？ A.注意现察前车动态比 啃时 福速淮备以尽虽靠踣左侧行駛臥保持安全距离行车中不应该有以下哪些行为q A.醫常观輛后视橫B.变更 不开启鹑向灯C.左習從时闾搭在车门窗上科目四新版題屋打 内部学习使用！第1訂页D、検时间抓变速杆L40.75767?1T78昊某驾驶一辆大客车乘载站人（檢戟22人）行至163县 道7茲里加300米处时，机动车失控坠入山沟，造成10人死 亡、2L人受饬*事后缰酒措检鴻I昊某血洒酒精含蚩対26呈克/ 百童升，吴某的主要谨法行为罡什么？ A.超速讦驶B.客车超员 以痕务驾驶D、画后驾观驾驶人一边驾车一边打手持电话是通注厅为. 狂凤袭来，可能会便行駛中的车诵产生横冋偏移* 涓水道踣行车时应挂高速挡，快遑诵过凉曹适胳厅车，由于俱雪对光线的反射，根易造成驾腰人目眩而产错正正锥图26系统修改在电脑上能直接处理的题型就只有这三种，所以能改的也只有各种题的数量而已。步骤如下1. 撤消工作表保护，在相应题目中选中N行，右击选择“复制”再选择“插入复制单元格，如果要减少则右击选择“删除”就 0K2. 选中“试卷”工作表B:D列，右击选择“取消隐藏”，按之前讲的公式修改复制各题型区域的 公式。3. 然后重新隐藏C列和保护工作表，分数记录中的公式会自动调整可不必修改。