用excel建立模擬考試系統(tǒng)

1、<p>　　做教師的少不了為學(xué)生制作各種各樣的考試卷子，市面上雖有各種模擬考試系統(tǒng)，卻因程序制作復(fù)雜，將老師們拒之門外。其實根本不需要懂編程，用Excel 2003你也可以制作一個類似的系統(tǒng)。一個可以自動出題、驗證考號、答題后自動評分、保存記錄的模擬考試系統(tǒng)，當(dāng)然你也可以給它加上其他功能。</p><p><b>　　系統(tǒng)設(shè)計</b></p><p><

2、;b>　　1.建立題庫</b></p><p>　　打開Excel 2003，建立“單選題”工作表(如圖1)，在A2輸入公式=ROW()-1&"."以自動生成序號，在D2輸入=IF(C2="","",RAND())，選中A2:D2拖動其填充柄向下復(fù)制到其他單元格，大概有幾百行也就夠了，剩下的需要時再復(fù)制。按住Ctrl鍵拖動工作表

3、標(biāo)簽復(fù)制出兩份，分別重命名為多選題、判斷題。</p><p><b>　　2.設(shè)計試卷</b></p><p>　　建立“試卷”工作表，你可以按需要設(shè)置試卷，并輸入單選題、多選題、判斷題三個大題目，多選題需注明錯、漏、多選均不得分。并留出相應(yīng)的題目位置，單選題30題(A5:C34)，多選題40(A36:C75)，判斷題30題(A77:C106)。</p>

4、<p>　　用“自選圖形/基本形狀”中的棱臺畫一個按鈕，選中在名稱框中輸入“出題按鈕”4字回車，把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫一個按鈕，把它命名為“評分按鈕”，添加文字“評分”。(如圖2)</p><p><b>　　3.顯示題目</b></p><p>　　在A5輸入公式=INDIRECT(&qu

5、ot;單選題!R"&ROW()-3&"C"&COLUMN(),0)，選中A5復(fù)制，再選中A5:C34進(jìn)行粘貼。同樣在A36輸入公式=INDIRECT("多選題!R"&ROW()-34&"C"&COLUMN(),0)并復(fù)制到A36:C75，在A77輸入公式=INDIRECT("判斷題!R"&RO

6、W()-75&"C"&COLUMN()并復(fù)制到A77:C106。在E4單元格輸入公式=IF(D4=C4,1,0)，這公式用來判斷如果D4中的答案與C4的標(biāo)準(zhǔn)答案一致就得1分否則為0分。</p><p>　　A5的公式表示對單選題工作表中同列、行數(shù)差3的單元格(A2)的引用，公式中使用了R1C1格式的單元格編號，其中3、34、75是由第一題所在的行數(shù)減2得來。這公式實現(xiàn)的是絕對位

7、置引用，即不管在單選題工作表中進(jìn)行插入、刪除行或排序，A5顯示的始終都是你從單選題A2中直接看到的內(nèi)容。因此A5:C34、A36:C75、A77:C106三個區(qū)域?qū)⒎謩e與相應(yīng)題庫中最前面的30(或40)題的內(nèi)容保持一致。</p><p><b>　　4.答案限制</b></p><p>　　選中D5:D34單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，選中“提供下拉

8、箭頭”復(fù)選項，在“來源”中輸入“A,B,C,D”，不含引號且其中逗號為半角格式(如圖3)。切換到“出錯警告”選項卡，輸入錯誤信息為“只能輸入A、B、C、D中的一項，其他任何符號或空格均為非法?！?，選中“輸入無效數(shù)據(jù)時顯示警告”復(fù)選項，選擇樣式為“停止”(如圖4)，確定完成設(shè)置。</p><p>　　同樣對多選題D36:D75，判斷題D77:D106設(shè)置數(shù)據(jù)有效性，只是“來源”要分別換成“A,B,C,D,AB,AC

9、,AD,BC,BD,CD,ABC,ACD,BCD,ABCD”和“√,×”。“出錯警告”也要做相應(yīng)修改，特別是多選題一定要說明必須按ABCD的順序輸入多選項，否則無法正確評分，若覺得多選題要輸入這一大串有效性設(shè)置太麻煩，不設(shè)置有效性也是可以，你只要在題目中注明不按順序的不給分不就行了。</p><p><b>　　5.準(zhǔn)考證號驗證</b></p><p>　　

10、建一個“考生名單”工作表，在A、B、C列分別輸入序號、準(zhǔn)考證號、考生姓名，選中B列在名稱框中輸入“考號”，回車確定把B列命名為考號(如圖5)?；氐健霸嚲怼惫ぷ鞅磉x中要輸入準(zhǔn)考證號的D2單格，單擊“數(shù)據(jù)/有效性”，在“允許”中選擇“系列”，取消“提供下拉箭頭”復(fù)選項，在“來源”中輸入=INDIRECT("考號")。切換到“出錯警告”選項卡，輸入錯誤信息為“你輸入的準(zhǔn)考證號并不存在，請重新輸入”，選中“輸入無效數(shù)據(jù)時顯示

11、警告”，并設(shè)置樣式為“停止”。在F3單元格輸入公式=IF(D2="","",VLOOKUP(D2,考生名單!B:C,2,FALSE))，這公式會在輸入準(zhǔn)考證號后自動顯示考生姓名。</p><p><b>　　6.隨機(jī)抽題</b></p><p>　　右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，單擊“新建”

12、按鈕，編輯如下代碼:</p><p><b>　　Sub 出題()</b></p><p>　　If Range("D2").Value = 0 Then</p><p>　　提示 = MsgBox("請先輸入準(zhǔn)考證號")</p><p><b>　　GoTo 重來<

13、;/b></p><p><b>　　End If</b></p><p>　　'如果D2為空則彈出提示要求輸入準(zhǔn)考證號并直接跳到后面的“重來:”處。</p><p>　　Sheets("單選題").Range("A:D").Sort Key1:=Sheets("單選題"

14、).Range("D2"), Order1:=xlAscending, Header:=xlGuess</p><p>　　Sheets("多選題").Range("A:D").Sort Key1:=Sheets("多選題").Range("D2"), Order1:=xlAscending, Header:=xl

15、Guess</p><p>　　Sheets("判斷題").Range("A:D").Sort Key1:=Sheets("判斷題").Range("D2"), Order1:=xlAscending, Header:=xlGuess</p><p>　　'這三行分別是對單選、多選和判斷題工作表的A:D

16、區(qū)域按D列隨機(jī)數(shù)升序排序。</p><p>　　Columns("B:B").Rows.AutoFit</p><p>　　'對B列設(shè)置最適合行高，以完整顯示題目。</p><p>　　Range("D5").Select</p><p>　　'定位到D5以便輸入答案</p>

17、<p>　　ActiveSheet.Shapes("出題按鈕").Visible = False</p><p>　　'隱藏出題按鈕以防重復(fù)選題</p><p>　　ActiveSheet.Shapes("評分按鈕").Visible = True</p><p><b>　　'顯示評分

18、按鈕</b></p><p><b>　　重來:</b></p><p><b>　　End Sub</b></p><p>　　試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機(jī)數(shù)進(jìn)行隨機(jī)排序后最前面的N題自然是隨機(jī)的，也就相當(dāng)于是隨機(jī)抽題了。</p><p><b&g

19、t;　　7.成績記錄表</b></p><p>　　新建一個“成績記錄”工作表(如圖6)，在A2輸入公式=NOW()，并選中A列右擊從“設(shè)置單元格格式”中設(shè)置為日期格式以顯示當(dāng)前時間。B2、C2分別輸入=試卷!D2和=試卷!F2以顯示相應(yīng)數(shù)據(jù)。D2輸入公式=SUM(E2:G2)對后面三個得分進(jìn)行合計，E2、F2、G2則分別輸入公式=SUM(試卷!E5:E34)、=SUM(試卷!E36:E75)、=SU

20、M(試卷!E77:E106)分別對相應(yīng)題型得分進(jìn)行合計。</p><p><b>　　8.評分和記錄保存</b></p><p>　　右擊“評分”按鈕，選擇“指定宏”，輸入宏名“評分”，單擊“新建”按鈕，編輯如下代碼:</p><p><b>　　Sub 評分()</b></p><p>　　She

21、ets("成績記錄").Rows("3:3").Insert Shift:=xlDown</p><p>　　'在成績記錄工作表第3行前插入一行</p><p>　　Sheets("成績記錄").Rows("2:2").Copy</p><p>　　'復(fù)制成績記錄工作表第

22、2行</p><p>　　Sheets("成績記錄").Range("A3").PasteSpecial Paste:=xlPasteValues</p><p>　　'以數(shù)值方式粘貼到成績記錄工作表A3</p><p>　　得分 = MsgBox("最終得分" & Range("

23、成績記錄!D2").Value & "其中:單選題" & Range("成績記錄!E2").Value & "、多選題" & Range("成績記錄!F2").Value &"、判斷題" & Range("成績記錄!G2").Value &, , &

24、quot;評分結(jié)果")</p><p>　　'彈出信息框顯示成績記錄!D2、E2、F2、G2的數(shù)據(jù)，標(biāo)題為"評分結(jié)果"</p><p>　　Range("D2,D5:D34,D36:D75,D77:D106").ClearContents</p><p>　　'清除試卷工作表中輸入的內(nèi)容</p&

25、gt;<p>　　Rows("3:106").RowHeight = 0</p><p>　　'設(shè)置題目區(qū)行高為0，以隱藏所有題目</p><p>　　ActiveSheet.Shapes("出題按鈕").Visible = True</p><p>　　ActiveSheet.Shapes("

26、評分按鈕").Visible = False</p><p>　　'顯示出題按鈕,隱藏評分按鈕</p><p>　　ActiveWorkbook.Save</p><p><b>　　'保存</b></p><p><b>　　End Sub</b></p>

27、<p><b>　　9.其他設(shè)置</b></p><p>　　選中A4單擊“窗口/凍結(jié)空格”以始終顯示1:3行的標(biāo)題和按鈕。右擊C、E列選擇隱藏。為答題區(qū)以外單元格設(shè)置填充色以示區(qū)別，把評分按鈕重疊到出題按鈕上(如圖7)。</p><p>　　選中D5:D34右擊選擇“設(shè)置單元格格式”，在“保護(hù)”選項卡中單擊取消“鎖定”選項，對于同樣需要添寫的D2,D36:

28、D75,D77:D106區(qū)也同樣取消鎖定設(shè)置。然后單擊“工具/保護(hù)/保護(hù)工作表”，在中間“允許此工作表所有用戶進(jìn)行”列表中只選中“選定未鎖定單元格”和“設(shè)置行格式”兩個選項，輸入密碼(如圖8)，單擊確定把工作表保護(hù)起來，這樣考生就無法修改試題等相應(yīng)單元格了。單擊評分以隱藏所有題目，同時顯示出題按鈕，把文件保存為“模擬考試.xls”，退出。</p><p><b>　　系統(tǒng)維護(hù)</b><

29、/p><p><b>　　1.資料輸入</b></p><p>　　直接在前面做好的單選題、多選題、判斷題工作表中輸入題目和答案即可，按Alt+回車鍵換行，用空格進(jìn)行水平定位。答案輸入時注意不要有多余字符，特別是多選題一定要按ABCD的順序輸入多選項，否則無法正確評分，建議參照一4步操作對C列單元格設(shè)置有效性。若以后還想用到當(dāng)前的題目順序可在最后面增加一列(E列)填充序列

30、號，需要時按此列排序即可。在“考生記錄”工作表中輸入姓名和準(zhǔn)考證號，這可以直接從相關(guān)工作表中復(fù)制過來。</p><p><b>　　2.隱藏工作表</b></p><p>　　把除試卷外的其他工作表隱藏起來以免考生看到。單擊“工具/宏/Visual Basic編輯器”，在彈出窗口左側(cè)選中要隱藏的工作表名，如:Sheet4(判斷題)，在屬性窗口中把Visible項的值設(shè)

31、置為0-xlsheetHidden(如圖9)即可隱藏該工作表，重復(fù)這一步把除試卷外的其他工作表全部隱藏。以后如需顯示只要按這操作把Visible改回-1-xlsheetVisible即可。若看不到屬性窗口可按F4鍵顯示。</p><p>　　為防止學(xué)生修改，還得右擊VBAProject(模擬考試.xls)選擇“VBAProject 屬性”，在“保護(hù)”選項卡中選中“查看時鎖定工程”，并輸入密碼(如圖10)，確定保存

32、文檔退出。這樣以后沒有密碼就別想修改這些內(nèi)容了。</p><p><b>　　如何考試</b></p><p>　　打開“模擬考試.xls”就只有一張“試卷”工作表，先輸入準(zhǔn)考證號回車確認(rèn)，正確的話就顯示姓名否則會要求你重輸。單擊出題按鈕即可顯示題目，同時出題按鈕會變成評分按鈕。考生可在D列選中相應(yīng)單元格直接輸入答案或單擊單元格后的下拉按鈕從列表中選擇輸入(如圖11)

33、。題目做完后，單擊“評分”按鈕即可顯示最后得分，確定后自動保存，并回復(fù)到最初狀態(tài)。</p><p><b>　　小提示</b></p><p>　　叩開Excel的安全門</p><p>　　按照上面方法制作的模擬考試系統(tǒng)在運行時有一個問題，Excel 2003的默認(rèn)設(shè)置會把宏的安全性設(shè)置為高，表現(xiàn)為運行時出現(xiàn)“安全性提示”對話框。解決方法是，

34、打開Excel文檔，依次單擊“工具→宏→安全性”，選擇“中”并“確定”，關(guān)閉并重新打開Excel文檔后，選擇“啟用宏”即可。</p><p><b>　　系統(tǒng)修改</b></p><p>　　在電腦上能直接處理的題型就只有這三種，所以能改的也只有各種題的數(shù)量而已。這只要三步即可:</p><p>　　1.撤消工作表保護(hù)，在相應(yīng)題目中選中N行，右

35、擊選擇“復(fù)制”再選擇“插入復(fù)制單元格”，如果要減少則右擊選擇“刪除”就OK。</p><p>　　2.選中B:D列右擊選擇“取消隱藏”，按一.3中介紹的規(guī)則修改復(fù)制二、三大題各題目區(qū)域的公式。然后重新隱藏C列和保護(hù)工作表。分?jǐn)?shù)記錄中的公式會自動調(diào)整可不必修改。</p><p>　　3.修改一.8評分的宏代碼中最后</p><p>　　Range("D2,D

36、5:D34,D36:D75,D77:D106").ClearContents</p><p>　　Rows("3:106").RowHeight = 0</p><p><b>　　中的區(qū)域范圍即可。</b></p><p>　　本文中的兩個宏代碼其實最主要部分就只是排序、設(shè)置行高、插入行、復(fù)制、選擇性粘貼等基本操