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

1、1.建立題庫打開Excel 2003，建立“單選題”工作表(如圖1)，在A2輸入公式=ROW()-1&.以自動生成序號，在D2輸入=IF(C2=,RAND()，選中A2:D2拖動其填充柄向下復制到其他單元格，大概有幾百行也就夠了，剩下的需要時再復制。按住Ctrl鍵拖動工作表標簽復制出兩份，分別重命名為多選題、判斷題。圖12.設(shè)計試卷建立“試卷”工作表，你可以按需要設(shè)置試卷，并輸入單選題、多選題、判斷題三個大題目，多選題需注明錯、漏、多選均不得分。并留出相應(yīng)的題目位置，單選題30題(A5:C34)，多選題40(A36:C75)，判斷題30題(A77:C106)。用“自選圖形/基本形狀”中的棱臺畫

2、一個按鈕，選中在名稱框中輸入“出題按鈕”4字回車，把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫一個按鈕，把它命名為“評分按鈕”，添加文字“評分”。(如圖2)圖23.顯示題目在A5輸入公式=INDIRECT(單選題!R&ROW()-3&C&COLUMN(),0)，選中A5復制，再選中A5:C34進行粘貼。同樣在A36輸入公式=INDIRECT(多選題!R&ROW()-34&C&COLUMN(),0)并復制到A36:C75，在A77輸入公式=INDIRECT(判斷題!R&ROW()-75&C&COLUMN()并復制到A77:C106。在E4單元格輸入公式

3、=IF(D4=C4,1,0)，這公式用來判斷如果D4中的答案與C4的標準答案一致就得1分否則為0分。A5的公式表示對單選題工作表中同列、行數(shù)差3的單元格(A2)的引用，公式中使用了R1C1格式的單元格編號，其中3、34、75是由第一題所在的行數(shù)減2得來。這公式實現(xiàn)的是絕對位置引用，即不管在單選題工作表中進行插入、刪除行或排序，A5顯示的始終都是你從單選題A2中直接看到的內(nèi)容。因此A5:C34、A36:C75、A77:C106三個區(qū)域?qū)⒎謩e與相應(yīng)題庫中最前面的30(或40)題的內(nèi)容保持一致。4.答案限制選中D5:D34單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，選中“提供下拉箭頭”復選項，在

4、“來源”中輸入“A,B,C,D”，不含引號且其中逗號為半角格式(如圖1)。切換到“出錯警告”選項卡，輸入錯誤信息為“只能輸入A、B、C、D中的一項，其他任何符號或空格均為非法?！?，選中“輸入無效數(shù)據(jù)時顯示警告”復選項，選擇樣式為“停止”(如圖2)，確定完成設(shè)置。圖1圖2同樣對多選題D36:D75，判斷題D77:D106設(shè)置數(shù)據(jù)有效性，只是“來源”要分別換成“A,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCD”和“,”?！俺鲥e警告”也要做相應(yīng)修改，特別是多選題一定要說明必須按ABCD的順序輸入多選項，否則無法正確評分，若覺得多選題要輸入這一大串有效性設(shè)置太麻煩，不

5、設(shè)置有效性也是可以，你只要在題目中注明不按順序的不給分不就行了。5.準考證號驗證建一個“考生名單”工作表，在A、B、C列分別輸入序號、準考證號、考生姓名，選中B列在名稱框中輸入“考號”，回車確定把B列命名為考號(如圖3)?；氐健霸嚲怼惫ぷ鞅磉x中要輸入準考證號的D2單格，單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，取消“提供下拉箭頭”復選項，在“來源”中輸入=INDIRECT(考號)。切換到“出錯警告”選項卡，輸入錯誤信息為“你輸入的準考證號并不存在，請重新輸入”，選中“輸入無效數(shù)據(jù)時顯示警告”，并設(shè)置樣式為“停止”。在F3單元格輸入公式=IF(D2=,VLOOKUP(D2,考生名單!B:C

6、,2,FALSE)，這公式會在輸入準考證號后自動顯示考生姓名。6.隨機抽題右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，單擊“新建”按鈕，編輯如下代碼:Sub 出題()If Range(D2).Value = 0 Then提示 = MsgBox(請先輸入準考證號)GoTo 重來End If如果D2為空則彈出提示要求輸入準考證號并直接跳到后面的“重來:”處。Sheets(單選題).Range(A:D).Sort Key1:=Sheets(單選題).Range(D2), Order1:=xlAscending, Header:=xlGuessSheets(多選題).Range

7、(A:D).Sort Key1:=Sheets(多選題).Range(D2), Order1:=xlAscending, Header:=xlGuessSheets(判斷題).Range(A:D).Sort Key1:=Sheets(判斷題).Range(D2), Order1:=xlAscending, Header:=xlGuess這三行分別是對單選、多選和判斷題工作表的A:D區(qū)域按D列隨機數(shù)升序排序。Columns(B:B).Rows.AutoFit對B列設(shè)置最適合行高，以完整顯示題目。Range(D5).Select定位到D5以便輸入答案ActiveSheet.Shapes(出題按鈕)

8、.Visible = False隱藏出題按鈕以防重復選題ActiveSheet.Shapes(評分按鈕).Visible = True顯示評分按鈕重來:End Sub試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機數(shù)進行隨機排序后最前面的N題自然是隨機的，也就相當于是隨機抽題了。7.成績記錄表新建一個“成績記錄”工作表(如圖4)，在A2輸入公式=NOW()，并選中A列右擊從“設(shè)置單元格格式”中設(shè)置為日期格式以顯示當前時間。B2、C2分別輸入=試卷!D2和=試卷!F2以顯示相應(yīng)數(shù)據(jù)。D2輸入公式=SUM(E2:G2)對后面三個得分進行合計，E2、F2、G2則分別輸入公式=SUM(試卷

9、!E5:E34)、=SUM(試卷!E36:E75)、=SUM(試卷!E77:E106)分別對相應(yīng)題型得分進行合計。8.評分和記錄保存右擊“評分”按鈕，選擇“指定宏”，輸入宏名“評分”，單擊“新建”按鈕，編輯如下代碼:Sub 評分()Sheets(成績記錄).Rows(3:3).Insert Shift:=xlDown在成績記錄工作表第3行前插入一行Sheets(成績記錄).Rows(2:2).Copy復制成績記錄工作表第2行Sheets(成績記錄).Range(A3).PasteSpecial Paste:=xlPasteValues以數(shù)值方式粘貼到成績記錄工作表A3得分 = MsgBox(最

10、終得分 & Range(成績記錄!D2).Value & 其中:單選題 & Range(成績記錄!E2).Value & 、多選題 & Range(成績記錄!F2).Value &、判斷題 & Range(成績記錄!G2).Value &, , 評分結(jié)果)彈出信息框顯示成績記錄!D2、E2、F2、G2的數(shù)據(jù)，標題為評分結(jié)果Range(D2,D5:D34,D36:D75,D77:D106).ClearContents清除試卷工作表中輸入的內(nèi)容Rows(3:106).RowHeight = 0設(shè)置題目區(qū)行高為0，以隱藏所有題目ActiveSheet.Shapes(出題按鈕).Visible = T

11、rueActiveSheet.Shapes(評分按鈕).Visible = False顯示出題按鈕,隱藏評分按鈕ActiveWorkbook.Save保存End Sub9.其他設(shè)置選中A4單擊“窗口/凍結(jié)空格”以始終顯示1:3行的標題和按鈕。右擊C、E列選擇隱藏。為答題區(qū)以外單元格設(shè)置填充色以示區(qū)別，把評分按鈕重疊到出題按鈕上(如圖1)。選中D5:D34右擊選擇“設(shè)置單元格格式”，在“保護”選項卡中單擊取消“鎖定”選項，對于同樣需要添寫的D2,D36:D75,D77:D106區(qū)也同樣取消鎖定設(shè)置。然后單擊“工具/保護/保護工作表”，在中間“允許此工作表所有用戶進行”列表中只選中“選定未鎖定單元

12、格”和“設(shè)置行格式”兩個選項，輸入密碼(如圖2)，單擊確定把工作表保護起來，這樣考生就無法修改試題等相應(yīng)單元格了。單擊評分以隱藏所有題目，同時顯示出題按鈕，把文件保存為“模擬考試.xls”，退出。圖2系統(tǒng)維護1.資料輸入直接在前面做好的單選題、多選題、判斷題工作表中輸入題目和答案即可，按Alt+回車鍵換行，用空格進行水平定位。答案輸入時注意不要有多余字符，特別是多選題一定要按ABCD的順序輸入多選項，否則無法正確評分，建議參照一4步操作對C列單元格設(shè)置有效性。若以后還想用到當前的題目順序可在最后面增加一列(E列)填充序列號，需要時按此列排序即可。在“考生記錄”工作表中輸入姓名和準考證號，這可以

13、直接從相關(guān)工作表中復制過來。2.隱藏工作表把除試卷外的其他工作表隱藏起來以免考生看到。單擊“工具/宏/Visual Basic編輯器”，在彈出窗口左側(cè)選中要隱藏的工作表名，如:Sheet4(判斷題)，在屬性窗口中把Visible項的值設(shè)置為0-xlsheetHidden(如圖3)即可隱藏該工作表，重復這一步把除試卷外的其他工作表全部隱藏。以后如需顯示只要按這操作把Visible改回-1-xlsheetVisible即可。若看不到屬性窗口可按F4鍵顯示。圖3為防止學生修改，還得右擊VBAProject(模擬考試.xls)選擇“VBAProject 屬性”，在“保護”選項卡中選中“查看時鎖定工程”

14、，并輸入密碼(如圖4)，確定保存文檔退出。這樣以后沒有密碼就別想修改這些內(nèi)容了。圖4如何考試打開“模擬考試.xls”就只有一張“試卷”工作表，先輸入準考證號回車確認，正確的話就顯示姓名否則會要求你重輸。單擊出題按鈕即可顯示題目，同時出題按鈕會變成評分按鈕?？忌稍贒列選中相應(yīng)單元格直接輸入答案或單擊單元格后的下拉按鈕從列表中選擇輸入(如圖5)。題目做完后，單擊“評分”按鈕即可顯示最后得分，確定后自動保存，并回復到最初狀態(tài)。圖5小提示叩開Excel的安全門按照上面方法制作的模擬考試系統(tǒng)在運行時有一個問題，Excel 2003的默認設(shè)置會把宏的安全性設(shè)置為高，表現(xiàn)為運行時出現(xiàn)“安全性提示”對話框。解決方法是，打開Excel文檔，依次單擊“工具宏安全性”，選擇“中”并“確定”，關(guān)閉并重新打開Excel文檔后，選擇“啟用宏”即可。系統(tǒng)修改在電腦上能直接處理的題型就只有這三種，所以能改的也只有各種題的數(shù)量而已。這只要三步即可:1.撤消工作表保護，在相應(yīng)題目中選中N行，右擊選擇“復制”再選擇“插入復制單元格”，如果要減少則右擊選擇“刪除”就OK。2.選中B:D列右擊選擇“取消隱藏”，按一.3中介紹的規(guī)則修改復制二、三大題各題目區(qū)域的公式。然后重新隱藏C列和