用EXCEL制作模拟考试系统

1、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 BDA DAB DBA答错、少答和多答均不得分；“判断题”工作表的答案只能有两种，本题按“正确” 和“错 误”作为答案，其他形式如“对”和“错”、“”和“X”也可以。3、题库中题目数量根据实际情况而定，多多益善。本例中题库数目为单选题60道、多选题50道、判断题45道。B髄专区（D模抵考試養魏出题漣试阪為m X+ABA2成題目店号行车中发现其他车辆陷入损坏路段而不能行般时，应 *A. 尽快离幵B, 尽力帮助G改道行驶D,绕行通过2.3.车旃在拥挤路骰i氐速行驶时，遇其也车辅强行f加臺 应 “A.呜喇叭警告，不得进入比加速行腔，肾跟前车不

3、让耳逍入G主动礼让，确保行车安全D. 挤崟“扣塞积车辆，诵其离开行车中发现有需要援助的车辆时，应 A.漏速停车,.给对方以帮助E. 加速通过C”不予理踩D.找理由拒宛自动拦汽车起动炭动机时，应将变速器操纵杆敢在位気卜讯丨试#里冼龐“珀麵用生名瓦?）血eat 帀CDE答案随机劉B0.730431C0.168955A0. 181331ECl 927E21 血模板专区A嗨圍*第至境-出黎赋版朋E X +BCDE答案随机数c1ABD0.167579ABC0. 54534SAECD0. 672029D0. 640945颍目序号超车过程中，被超车辅突然加速怎么办？Ax加速迅速超越1. 趴变换远近光灯翅越C

4、、减連放弃超车哄持缮鸣喇叽超越 在道踣上怎拝安全跟车行驶？A、注竜观察前车动态2. E.随时做好料速准备C. 辱量龍路左侧行駛D、保持安全距离驾驶机动车逋过学校时宴注這件么2*、观察标志标线3. 职减遼樓行C、不要鸣喇叽S快邃通过下列做法哪些可臥有效避免驾驶痕劳？A.连续驾製不超过4小时4. E、用卷不宜过饱C、保持良好的睡眠D、聲后适当林懸后驾车驾乘人员下车时要怎样做以保证安全？A.停车后立即幵门下车5. E、观幫前方吏通清州L，卜匸试卷車逸疥空选爲肝.题考生名单成绩记眾 士D2拄mIF(C2/J,RAND()Cj 向檯板专区 睦）檯警试羞统-出籃趾施刖沏x +A _BCD序勺题目0答秦”随

5、机数1在道路上超车时，应尽量加大横向距离必要时可越实线超车错误I 0. 0572799 无论自动挡还是手动挡汽车，都必须 i 用右脚踩踏制动踏板。正确CL 517632它女驾驶人穿高跟鞋驾驶车辆，不利于安全行车。正确0. 154655,驾鞅人频鑿变更车道不属干驾驶陋习4.0错误0. 828622,山区行车，对方车轲主动让行时，可J-低声晅促鸣号以示感谢。正确0, 949635罠自动挡汽车变速器操纵杆在P挡法外的e-位置不能拔下钥匙。正确0. 8916697 夜间行车时，全车灯光突熬熄灭，应当 紧急制动，迅速停车。错误0, 175636口 驾軸人一边驾车，一边打手持电话是8-违法行为。正确0.

6、8306131Q行车中遇到障碍时，尽量提高车速，迅速超越。错误0, 795544行车中，遇其他驾驶人要求帮助时， g 可答应请求熱情相助。正确0. 206337正确11.0. 545621在泥泞路上制动时,车轮易发生侧滑或用 尾,导致交通事故。漫水道路行车时”应挂高速档，快速通卜屛试曹2单选题 冷选题 阳断题者牛名单/W记录12.错误图32. 建立考生名单新建“考生名单”工作表，在 A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号（如图4）。完成后可在名称管理器内看到名字为“考号”的名称，引用位置为“考生名单”工作表的B列。1考号1*准考证

7、号D 的験寺区囲劇烤贰謝-出題测试扳品E X +占CDE浴虽；三空 FGHT丄K12Q1EQC1王胖2201B002青头3201S003五_4201B004520180056201 BOOS结存玉720160078201800893018009股市场102018010木丁西11201E01112201B012132016013尤匡奇14201801415201B015162Q1B016不篌皮172018017182Q1E01819201801920201B02021201B02122201B022232018023242018024：2筈卷201.8025里选题釦強F务睿肴工里记录-勺_ 图4

8、3. 设计试卷建立“试卷”工作表，按需要设置试卷，序号生成方式如题库序号。单选题30题（A5:C34），多选题40（A36:C75），判断题30题（A77:C106）。在B4输入“单选题（每题 1分），在 B35输入“多 选题（每题1分，错、漏、多选均不得分）”，在 B76输入“判断题（每题1分）”。用“自选图形/基本形状”中的棱台画一个按钮，选中在 名称框中输入“岀题按钮”4字回车， 把它命名为“出题按钮”。再右击此按钮选择“添加文字”，在按钮上输入“出题”2字。同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。（如图5）|出题按钮 I 倒XX模拟考试系统諭模笹专区 EB1S挹书汇

9、至蛻-出53佩版朋m X +电迭題(毎證1分)把车时，前方车辆不让岀粗车空间，应J35IL梦准淮t無jsi号ta. w.务世均不-KOfmIHL旺CT 仁多送題!Ji Wul() -341 BCxfcOXDirH0d)=IMDIEECT f 令送BJ! RARDT ()-34t*Cr4C0LlJIH (, 0=1 珂03=*冷0IF(D3&=C361rfKS 0料=Sflf C)*=ITOTRETTKUU 0 -3tt,C,MXim 0 0)=IIDITiICT L皐选H! RMJT 0 -&UTL虻XJUJIB 0, 0)=1?(075=* g IF 帥6=口瓦MHia=AOf O-76li

10、*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中的一项，其他任何符号或空格均

11、为非法。”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”（如图8），确定完成设置。昭据有效性|同样对多选题答题区 D36:D75,判断题答题区D77:D106设置数据有效性，只是“来源”要分别 换成“ a,b,c,d,b,ac,ad,bc,bd,cd,abc,acd,bcd,abCd和“正确，错误”。 多选题的“岀错警告” 一定要改成“必须按ABCD的顺序输入多选项，否则无法正确评分”。（如图 9到如图11）史搭肓效性数据有效性lJeSal1 Bir num设畫输入信息出错警告1输入法複式E输入无效数据时显示出错譽告输入无效埶協时显示下列出错嚳告：样式QL）：标题）：|停止*错误信

12、息匹：必须KA5CD的顺序输入多选顷， 背则无进正确评分全部清除L确定 取消图10全部清除诵走 取消图ii6. 准考证号验证选中“试卷”工作表中要输入准考证号的D2单元格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入INDIRECT（“考号）（如图12）。切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”（如图 13 ）。牌占址桂1I卫图12全部肴除图13在F2单元格输入公式=IF（D2=,VLOOKUP（D2,考生名单！ $B:$C,2,FALSE），在D2单元

13、格输入准考证号后会自动显示考生姓名。（如图14）得分2018036氏=IF唇匕 J VL00KUP(D2,考生名单！ $E: $G 2, FALSE)直模顒寺区配橈融彎试垂辭出题测试版站m X + A评分EI XX模拟考试系统准考证号，答秦7.随机抽题图14右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图15,保存时将文件另存为启用宏的.xlsm 格式。Sub岀题()If Ran ge(D2).Value = 0 Then提示=MsgBox（请先输入准考证号）GoTo 重来End If如果D2为空则弹岀提

14、示要求输入准考证号并直接跳到后面的“重来:处。Sheets( 单选题 ).Range(A:D).Sort Key1:=Sheets(Order1:=xlAscending, Header:=xlGuess单选题 ).Range(D2),Sheets( 多选题 ).Range(A:D).Sort Key1:=Sheets(Order1:=xlAscending, Header:=xlGuess多选题 ).Range(D2),Sheets( 判断题 ).Range(A:D).Sort Key1:=Sheets(Order1:=xlAscending, Header:=xlGuess判断题 ).Ra

15、nge(D2),这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。Columns(B:B).Rows.AutoFit对 B 列设置最适合行高，以完整显示题目Range(D5).Select定位到D5以便输入答案ActiveSheet.Shapes( 出题按钮 ).Visible = False隐藏出题按钮以防重复选题ActiveSheet.Shapes(评分按钮.Visible = True显示评分按钮碣模拟考谥至6S 出购鹹阪徵m -横剧(rtffi)=回圧r曲用)T出直Tl乩出趣(IfVd-ue = D=l&iAE.9重来:End Sub如果琨为空皿肿比卷示蔭求输真准

16、育旺号弃賀騒臥后面的毎察处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

17、走傥到匚阴堆输.扎拣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

18、则分别输入公式=SUM试 卷!E5:E34）、=SUM试卷!E36:E75）、=SUM式卷！E77:E106）分别对相应题型得分进行合计。AECDEFG1日期时祠考生塘号考生姓名单这題得分2=N0 0=试住!D2=试卷!厘=9UI(E2:G2)=SUH(试 E36:E75)=SOI (fe!lYY：aiO5)图169.评分和记录保存右击“评分”按钮，选择“指定宏”，输入宏名“评分”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图17:Sub评分（）Sheets(”成绩记录).Rows(3:3).lnsert Shift:=xlDown在成绩记录工作表第3行前插入一行Sh

19、eets(成绩记录).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的数据，标题为“评分结果Range（D2,D5：D3

20、4,D36：D75,D77：D106）.ClearContents清除试卷工作表中输入的内容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

21、行的标题和按钮。右击 C E列选择隐藏。为答题区以外单元格设置填充色以示区别，把评分按钮重叠到岀题按钮上（如图18）J_-U尸Ifi悭医区 QD模拟署试薑齡出愛涣甌甑山m x +A评分XX模拟考试系统准考证号:股市场201800951.驾驶人城区内清洗车辆时，应当在 清洗。车辅清洗点E.道踣 上随琶C.河边DJK障边V62.自动担汽车的担在时使用。A.陡坡彳亍驶E.驻车C.正常行M）.监口停车73.当驾驶车辖忏经两侧育行人且有积水的路面时，应 。A.加速通 过E.正常行殃C.减速慢行D.连续鸣喇叭84.自动拦汽车起动发动机时应将变速器操纵杆放在位蚩。 盘.挡氐F拦C朋D.任意挡95.驾驶机动车

22、时，转向盘。A.艰手可汉临时离开氐可決随青操作 G严輩欢手同时离幵D.可以斥地转幼10乩鸾驶车辆正常行驶时，对道路情况的处理要有预见性，在接近障碍 时能 。A-紧急制动能停车比急转向迅速绕过C迅速躲避不发生 碰撞D.平总停车117.趙车时，刖方车辆不让出趙车空间，应 A.迅速超越E.停止超 车C 连繞呜喇叭超越D 幵启前照灯超越128.自动档汽车的 W 搞在 时使用 A.缓坡行驶E.停车G正常行 駛D.超车呷驶车辆在道踣上行艘时，驾驶人賽按昵控制车速，在規定的n J试卷单选题疋多选査判弧题考生容单口媒记录W单选題（每题1分）4图18选中D5:D34右击选择“设置单元格格式”，在“保护”选项卡中

23、单击取消“锁定”选项，对于同样需要添写的D2,D36:D75,D77:D106区也同样取消锁定设置（如图19）。然后单击“工具/保护/保护工作表”，在中间“允许此工作表所有用户进行”列表中只选中“选定未锁定单元格”和“设置 行格式”两个选项，输入密码（如图20），单击确定把工作表保护起来，这样考生就无法修改试题等 相应单元格了。单击评分以隐藏所有题目，同时显示出题按钮，把文件另存为“模拟考试系统-考生测试版.xlsm ，退岀。如图19尿护工柞表彳工岸表II化大陌开发工具暉梧机福昕gJx 共酉 I乍簿工件1 庁Dtl?保护工作表及锁定的单元楷内容电）取消工作表保护时使用的蔭码E）-允谍此工作表的

24、所有用户进行収）:噪蠶酬格式插入行 插入超槌接刪除列刪除行确定加7AJ1F叭寺帙U 咽叭惟1正取消L D 1F12018009股市场答題区如图20系统维护1.隐藏工作表选中除“试卷”工作表除外的其他工作表，右击选择隐藏，以免考生看到。（如图21）图212. 保护VBAf弋码右击“试卷工作表，选择“查看代码，选中 VBAProject（模拟考试系统-考生测试版.xlsm）, 右击，选择“ VBAProject属性”，在“保护”选项卡中选中“查看时锁定工程”，并输入密码 （如图 22），确定，保存文档后退出。关闭文档后再重新打开，查看代码需输入密码，这样任何人没有密码 就别想修改这些代码了。:文件

25、（0 病辑视图（）插入（D 梧式9） 谓试运行 TMCD夕區胡 窗口 （W）工程 * VEAProjtct+越冋听品c J阖腐舂墓竝嬴話-；右击X|按学阳陣|按分图223保护工作簿为防止考生修改，在“审阅”选项卡中选中“保护工作簿”，勾选“结构”和“窗口”选项，输 入密码后确定（如图23）。完成以上三步后，在没有密码的前提下，考生只能输入准考证号和进行答题，不能取消隐藏工作 表、取消隐藏某列或某行、查看和修改 VBA代码。观罔美化K炳开发二具矍相机覺批注xlsm亍J丄1売亍贋藏批注图23如何考试打开“模拟考试系统-考生测试版.xlsm ”就只有一张“试卷”工作表，先输入准考证号回车确认，正确的

26、话就显示姓名，否则会要求你重输。单击岀题按钮即可显示题目同时岀题按钮会变成评分按钮。考生可在D列选中相应单元格直接输入答案或单击下拉按钮从列表中选择输入（如图24到图26）。题目做完后，单击“评分”按钮即可显示最后得分，确定后自动保存，并回复到最初状态。图2406Afi彌牺卿期哉瓏-雄站e x +却专垃承统-害生网试版山EED7JKLH11 +爭笛IXX模拟考试系统21讯力I准考证号12010007大全34*51停热自动苕汽丰时，娈速翠堤纵杆慮按下桶匙 R-在R屯乩在H07.在D拦D.甸曲1II6g”口动担汽车的“門些在 时使坤* A.陡坡行驶E.驻车C-正篇行 驶D,路停立?I73.殆制功站

27、板応m用跻站。A-左押西募氏石脚审筝U-右脚心W.右伍眼1J84.益發人氐趨车时，岌现雨万车涓匸在超车时 直 八、當眼目 后,伺机超趣E.抓速理厅班迪1逢埃鸣WWlfitffiTilMn.停止超 车，让前方车请先的丰95-行车中发观苴怛车辆陷于泥许蹈段.鳶要第助时，应 * A- T 過过乩主动帮眈，观而不见D.绕谨耳亍驶10氐行车中jg捌对问来车占迈行驶，应 1.显豊道蹈中心行9SB.主动鰭罚万让行C用大灯善示对万D一連对比託右行腔11T行车中发现其也车無陷人损坏昭嚴而不龍行驶时，应 辱快画开丘旻尢1第馭.改道行驶口一曉行通过12氐箜驶丰詣时.涼了安全起见，零驶入 塹丰“ A,可以穿抽椎乩穿 唧行鞋