用EXCEL制作模擬考試系統(tǒng)

1、1. 建立題庫打開Excel 2010，建立“模擬考試系統(tǒng)-岀題測試版”。打開此工作簿，建立“單選題”工作表（如圖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、題庫中題目數(shù)量根據(jù)實際情況而定，多多益善。本例中題庫數(shù)目為單選題60道、多選題50道、判斷題45道。B髄專區(qū)（D模抵考試養(yǎng)魏出題漣試阪為m X+ABA2成題目店號行車中發(fā)現(xiàn)其他車輛陷入損壞路段而不能行般時，應 *A. 盡快離幵B, 盡力幫助G改道行駛D,繞行通過2.3.車旃在擁擠路骰i氐速行駛時，遇其也車輔強行f加臺 應 “A.嗚喇叭警告，不得進入比加速行腔，腎跟前車不

3、讓耳逍入G主動禮讓，確保行車安全D. 擠崟“扣塞積車輛，誦其離開行車中發(fā)現(xiàn)有需要援助的車輛時，應 A.漏速停車,.給對方以幫助E. 加速通過C”不予理踩D.找理由拒宛自動攔汽車起動炭動機時，應將變速器操縱桿敢在位気卜訊丨試#里冼龐“珀麵用生名瓦?）血eat 帀CDE答案隨機劉B0.730431C0.168955A0. 181331ECl 927E21 血模板專區(qū)A嗨圍*第至境-出黎賦版朋E X +BCDE答案隨機數(shù)c1ABD0.167579ABC0. 54534SAECD0. 672029D0. 640945潁目序號超車過程中，被超車輔突然加速怎么辦？Ax加速迅速超越1. 趴變換遠近光燈翅越C

4、、減連放棄超車哄持繕鳴喇嘰超越 在道踣上怎拝安全跟車行駛？A、注竜觀察前車動態(tài)2. E.隨時做好料速準備C. 辱量龍路左側行駛D、保持安全距離駕駛機動車逋過學校時宴注這件么2*、觀察標志標線3. 職減遼樓行C、不要鳴喇嘰S快邃通過下列做法哪些可臥有效避免駕駛痕勞？A.連續(xù)駕製不超過4小時4. E、用卷不宜過飽C、保持良好的睡眠D、聲后適當林懸后駕車駕乘人員下車時要怎樣做以保證安全？A.停車后立即幵門下車5. E、觀幫前方吏通清州L，卜匸試卷車逸疥空選爲肝.題考生名單成績記眾 士D2拄mIF(C2/J,RAND()Cj 向檯板專區(qū) 睦）檯警試羞統(tǒng)-出籃趾施刖沏x +A _BCD序勺題目0答秦”隨

5、機數(shù)1在道路上超車時，應盡量加大橫向距離必要時可越實線超車錯誤I 0. 0572799 無論自動擋還是手動擋汽車，都必須 i 用右腳踩踏制動踏板。正確CL 517632它女駕駛人穿高跟鞋駕駛車輛，不利于安全行車。正確0. 154655,駕鞅人頻鑿變更車道不屬干駕駛陋習4.0錯誤0. 828622,山區(qū)行車，對方車軻主動讓行時，可J-低聲晅促鳴號以示感謝。正確0, 949635罠自動擋汽車變速器操縱桿在P擋法外的e-位置不能拔下鑰匙。正確0. 8916697 夜間行車時，全車燈光突熬熄滅，應當 緊急制動，迅速停車。錯誤0, 175636口 駕軸人一邊駕車，一邊打手持電話是8-違法行為。正確0.

6、8306131Q行車中遇到障礙時，盡量提高車速，迅速超越。錯誤0, 795544行車中，遇其他駕駛人要求幫助時， g 可答應請求熱情相助。正確0. 206337正確11.0. 545621在泥濘路上制動時,車輪易發(fā)生側滑或用 尾,導致交通事故。漫水道路行車時”應掛高速檔，快速通卜屛試曹2單選題 冷選題 陽斷題者牛名單/W記錄12.錯誤圖32. 建立考生名單新建“考生名單”工作表，在 A、B、C列分別輸入序號、準考證號、考生姓名，選中B列在名稱框中輸入“考號”，回車確定把B列命名為考號（如圖4）。完成后可在名稱管理器內看到名字為“考1考號1*準考證號D 的験寺區(qū)囲劇烤貳謝-出題測試扳品E X +

7、占CDE浴雖；三空 FGHT丄K12Q1EQC1王胖2201B002青頭3201S003五_4201B004520180056201 BOOS結存玉720160078201800893018009股市場102018010木丁西11201E01112201B012132016013尤匡奇14201801415201B015162Q1B016不篌皮172018017182Q1E01819201801920201B02021201B02122201B022232018023242018024：2筈卷201.8025里選題釦強F務睿肴工里記錄-勺_ 圖43. 設計試卷建立“試卷”工作表，按需要設置試卷

8、，序號生成方式如題庫序號。單選題30題（A5:C34），多選題40（A36:C75），判斷題30題（A77:C106）。在B4輸入“單選題（每題 1分），在 B35輸入“多 選題（每題1分，錯、漏、多選均不得分）”，在 B76輸入“判斷題（每題1分）”。用“自選圖形/基本形狀”中的棱臺畫一個按鈕，選中在 名稱框中輸入“岀題按鈕”4字回車， 把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫一個按鈕，把它命名為“評分按鈕”，添加文字“評分”。（如圖5）|出題按鈕 I 倒XX模擬考試系統(tǒng)準考證號：耐用諭模笹專區(qū) EB1S挹書匯至蛻-出53佩版朋m X +電迭題

9、(毎證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*r =MPKLH：九商我也騙曲0

10、-10 0）=1JIU1 K2Crt-PlffiSS!E4Kii ()-?bTCKLUW；(J, a)=IMDIEECT L判斷通! RARDT ()-754-C4C0LiniH ( 0=nDifi衍o,if (diOMidfi. ji j? o)5. 答案限制選中單選題答題區(qū)D5:D34單擊“數(shù)據(jù)/有效性（快捷鍵 ALT+DL）,在“允許”中選擇“序 列”，選中“提供下拉箭頭”復選項，在“來源”中輸入“ A,B,C,D ”，不含引號且其中逗號為半角 格式（如圖7）。切換到“岀錯警告”選項卡，輸入錯誤信息為“只能輸入A、B、C D中的一項，其他任何符號或空格均為非法?！保x中“輸入無效數(shù)據(jù)時顯

11、示警告”復選項，選擇樣式為“停止”（如圖8），確定完成設置。昭據(jù)有效性|同樣對多選題答題區(qū) D36:D75,判斷題答題區(qū)D77:D106設置數(shù)據(jù)有效性，只是“來源”要分別 換成“ a,b,c,d,b,ac,ad,bc,bd,cd,abc,acd,bcd,abCd和“正確，錯誤”。 多選題的“岀錯警告” 一定要改成“必須按ABCD的順序輸入多選項，否則無法正確評分”。（如圖 9到如圖11）史搭肓效性1 Bir num設畫輸入信息出錯警告1輸入法複式E輸入無效數(shù)據(jù)時顯示出錯譽告輸入無效埶協(xié)時顯示下列出錯嚳告：樣式QL）：標題）：|停止*錯誤信息匹：必須KA5CD的順序輸入多選頃， 背則無進正確評分

12、全部清除L確定 取消圖10全部清除誦走 取消圖ii6. 準考證號驗證選中“試卷”工作表中要輸入準考證號的D2單元格，單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，取消“提供下拉箭頭”復選項，在“來源”中輸入INDIRECT（“考號）（如圖12）。切換到“出錯警告”選項卡，輸入錯誤信息為“你輸入的準考證號并不存在，請重新輸入”，選中“輸入無效數(shù)據(jù)時顯示警告”，并設置樣式為“停止”（如圖 13 ）。牌占址桂1I衛(wèi)圖12全部肴除圖13在F2單元格輸入公式=IF（D2=,VLOOKUP（D2,考生名單！ $B:$C,2,FALSE），在D2單元格輸?shù)梅?018036氏=IF唇匕 J VL00KUP(

13、D2,考生名單！ $E: $G 2, FALSE)直模顒寺區(qū)配橈融彎試垂辭出題測試版站m X + A評分EI XX模擬考試系統(tǒng)準考證號，答秦7.隨機抽題圖14右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，位置選擇當前工作簿，單擊“新建”按鈕，復制如下代碼粘貼到框內，結果如圖15,保存時將文件另存為啟用宏的.xlsm 格式。Sub岀題()If Ran ge(D2).Value = 0 Then提示=MsgBox（請先輸入準考證號）GoTo 重來End If如果D2為空則彈岀提示要求輸入準考證號并直接跳到后面的“重來:處。Sheets( 單選題 ).Range(A:D).So

14、rt 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判斷題 ).Range(D2),這三行分別是對單選、多選和判斷題工作表的A:D區(qū)域按D列隨機數(shù)升序排序。Column

15、s(B:B).Rows.AutoFit對 B 列設置最適合行高，以完整顯示題目Range(D5).Select定位到D5以便輸入答案ActiveSheet.Shapes( 出題按鈕 ).Visible = False隱藏出題按鈕以防重復選題顯示評分按鈕碣模擬考謚至6S 出購鹹阪徵m -橫劇(rtffi)=回圧r曲用)T出直Tl乩出趣(IfVd-ue = D=l&iAE.9重來:End SubL*tt 卑迭題：l. Ru滬孟:BJ K#yl =貉旳熬單選曲).Ruy CBE )3 Q能 L: kietnAb qSheets參迭35). ELhcues(*A：B*).Swt Eeyl: =5Jtc

16、el5 L備送題KojifcDEJOrder L: =xlii5cend皿匕u* 11 cM(jr5fir). a*n/* ta： cj . sjn-t c*yi -=sji*iisit* rie), mdL.訊這三行井別昱刃:單這*瘞迭和亂朋呈工作耒的a 1區(qū)曲1勺貝施機扛升序排莊。CLu*jis fB B*). Rmk. utFi LKCliSn).S61et 走儻到匚陰堆輸.扎揀AetkvSbA.t.StiC*出時鈕J. Viikll* = B*l“隱君岀蚓誨以防壬巨雋呈評另45甜h Yiiith = Trut顯示評曲卿End Sub圖15試卷中的題目總是顯示各題庫最前面的 N題，而在此

17、對各題庫按隨機數(shù)進行隨機排序后最前面的N題自然是隨機的，也就相當于是隨機抽題了。8.成績記錄表新建“成績記錄”工作表（如圖16），在A2輸入公式=NOW（）并選中A列右擊從“設置單元格 格式”中設置為日期格式以顯示當前時間。在B2輸入公式= 式卷!D2和C2輸入公式= 式卷!F2以顯示相應數(shù)據(jù)。D2輸入公式=SUM（E2:G2對后面三個得分進行合計，E2、F2、G2則分別輸入公式=SUM試 卷!E5:E34）、=SUM試卷!E36:E75）、=SUM式卷！E77:E106）分別對相應題型得分進行合計。AECDEFG1日期時祠考生塘號考生姓名單這題得分2=N0 0=試住!D2=試卷!厘=9UI(

18、E2:G2)=SUH(試 E36:E75)=SOI (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以數(shù)值方式粘貼到成績記錄工作表 A3得分=Ms

19、gBox（最終得分“ & Range（“成績記錄！D2）.Value & “ 其中：單選題& Range（“ 成績記錄！E2）.Value & 、多選題& Range（成績記錄！F2）.Value & 、判斷題& Range（“成績 記錄!G2）.Value,評分結果）彈岀信息框顯示成績記錄！D2、E2、F2、G2的數(shù)據(jù)，標題為“評分結果Range（D2,D5：D34,D36：D75,D77：D106）.ClearContents清除試卷工作表中輸入的內容Sheets（“試卷 “）.Rows（3:500）.RowHeight = 0Sheets（ 成績記錄 ）.Rows（2：2）.RowHei

20、ght = 0 設置題目區(qū)行高為0，以隱藏所有題目ActiveSheet.Shapes（岀題按鈕 “）.Visible = TrueActiveSheet.Shapes（評分按鈕 ）.Visible = False顯示岀題按鈕 , 隱藏評分按鈕ActiveWorkbook.Save保存End Sub圖1710.其他設置選中A4單擊“窗口 /凍結空格”以始終顯示1:3行的標題和按鈕。右擊 C E列選擇隱藏。為答題區(qū)以外單元格設置填充色以示區(qū)別，把評分按鈕重疊到岀題按鈕上（如圖18）fi慳醫(yī)區(qū) QD模擬署試薑齡出愛渙甌甑山m x +A評分XX模擬考試系統(tǒng)準考證號:股市場201800951.駕駛人城

21、區(qū)內清洗車輛時，應當在 清洗。車輔清洗點E.道踣 上隨琶C.河邊DJK障邊V62.自動擔汽車的擔在時使用。A.陡坡彳亍駛E.駐車C.正常行M）.監(jiān)口停車73.當駕駛車轄懺經(jīng)兩側育行人且有積水的路面時，應 。A.加速通 過E.正常行殃C.減速慢行D.連續(xù)鳴喇叭84.自動攔汽車起動發(fā)動機時應將變速器操縱桿放在位蚩。 盤.擋氐F攔C朋D.任意擋95.駕駛機動車時，轉向盤。A.艱手可漢臨時離開氐可決隨青操作 G嚴輩歡手同時離幵D.可以斥地轉幼10乩鸞駛車輛正常行駛時，對道路情況的處理要有預見性，在接近障礙 時能 。A-緊急制動能停車比急轉向迅速繞過C迅速躲避不發(fā)生 碰撞D.平總停車117.趙車時，刖方

22、車輛不讓出趙車空間，應 A.迅速超越E.停止超 車C 連繞嗚喇叭超越D 幵啟前照燈超越128.自動檔汽車的 W 搞在 時使用 A.緩坡行駛E.停車G正常行 駛D.超車呷駛車輛在道踣上行艘時，駕駛人賽按昵控制車速，在規(guī)定的n J試卷單選題疋多選査判弧題考生容單口媒記錄W單選題（每題1分）4圖18選中D5:D34右擊選擇“設置單元格格式”，在“保護”選項卡中單擊取消“鎖定”選項，對于同樣需要添寫的D2,D36:D75,D77:D106區(qū)也同樣取消鎖定設置（如圖19）。然后單擊“工具/保護/保護工作表”，在中間“允許此工作表所有用戶進行”列表中只選中“選定未鎖定單元格”和“設置 行格式”兩個選項，輸

23、入密碼（如圖20），單擊確定把工作表保護起來，這樣考生就無法修改試題等 相應單元格了。單擊評分以隱藏所有題目，同時顯示出題按鈕，把文件另存為“模擬考試系統(tǒng)-考生測試版.xlsm ，退岀。如圖19尿護工柞表彳II化大陌開發(fā)工具暉梧機福昕工岸表gJx 共酉 I乍簿工件1 庁Dtl?保護工作表及鎖定的單元楷內容電）取消工作表保護時使用的蔭碼E）-允諜此工作表的所有用戶進行収）:噪蠶酬格式插入行 插入超槌接刪除列刪除行確定加7AJ1F叭寺帙U 咽叭惟1正取消L D 1F12018009股市場答題區(qū)如圖20系統(tǒng)維護1.隱藏工作表選中除“試卷”工作表除外的其他工作表，右擊選擇隱藏，以免考生看到。（如圖21

24、）圖212. 保護VBAf弋碼右擊“試卷工作表，選擇“查看代碼，選中 VBAProject（模擬考試系統(tǒng)-考生測試版.xlsm）, 右擊，選擇“ VBAProject屬性”，在“保護”選項卡中選中“查看時鎖定工程”，并輸入密碼 （如圖 22），確定，保存文檔后退出。關閉文檔后再重新打開，查看代碼需輸入密碼，這樣任何人沒有密碼 就別想修改這些代碼了。:文件（0 病輯視圖（）插入（D 梧式9） 謂試運行 TMCD夕區(qū)胡 窗口 （W）工程 * VEAProjtct+越冋聽品c J闔腐舂墓竝嬴話-；右擊X|按學陽陣|按分圖223保護工作簿為防止考生修改，在“審閱”選項卡中選中“保護工作簿”，勾選“結構

25、”和“窗口”選項，輸 入密碼后確定（如圖23）。完成以上三步后，在沒有密碼的前提下，考生只能輸入準考證號和進行答題，不能取消隱藏工作 表、取消隱藏某列或某行、查看和修改 VBA代碼。觀罔美化K炳開發(fā)二具矍相機覺批注xlsm亍J丄1売亍贋藏批注圖23如何考試打開“模擬考試系統(tǒng)-考生測試版.xlsm ”就只有一張“試卷”工作表，先輸入準考證號回車確認，正確的話就顯示姓名，否則會要求你重輸。單擊岀題按鈕即可顯示題目同時岀題按鈕會變成評分按鈕。考生可在D列選中相應單元格直接輸入答案或單擊下拉按鈕從列表中選擇輸入（如圖24到圖26）。題目做完后，單擊“評分”按鈕即可顯示最后得分，確定后自動保存，并回復到

26、最初狀態(tài)。圖2406Afi彌犧卿期哉瓏-雄站e x +卻專垃承統(tǒng)-害生網(wǎng)試版山EED7JKLH11 +爭笛IXX模擬考試系統(tǒng)21訊力I準考證號12010007大全34*51停熱自動苕汽豐時，孌速翠堤縱桿慮按下桶匙 R-在R屯乩在H07.在D攔D.甸曲1II6g”口動擔汽車的“門些在 時使坤* A.陡坡行駛E.駐車C-正篇行 駛D,路停立?I73.殆制功站板応m用躋站。A-左押西募氏石腳審箏U-右腳心W.右伍眼1J84.益發(fā)人氐趨車時，岌現(xiàn)雨萬車涓匸在超車時 直 八、當眼目 后,伺機超趣E.抓速理廳班迪1逢埃鳴WWlfitffiTilMn.停止超 車，讓前方車請先的豐95-行車中發(fā)觀苴怛車輛陷于泥許蹈段.鳶要第助時，應 * A- T 過過乩主動幫眈，觀而不見D.繞謹耳亍駛10氐行車中jg捌對問來車占邁行駛，應 1.顯豊道蹈中心行9SB.主動鰭罰萬讓行C用大燈善示對萬D一連對比託右行腔11T行車中發(fā)現(xiàn)其也車無陷人損壞昭嚴而不龍行駛時，應 辱快畫開丘旻尢1第馭.改道行駛口一曉行通過12氐箜駛豐詣時.涼了安全起見，零駛入 塹豐“ A,可以穿抽椎乩穿 唧行鞋剖可以心不輕芽舟毬IL可限茅取熟娃139.擇規(guī)制動踣転時，