基于EXCEL和VBA的自動組卷系統(tǒng)設(shè)計與實現(xiàn)

焦樂天 王英迪 焦萬合 開賽爾

摘要：論文主要介紹了一款基于EXCEL和VBA的自動組卷系統(tǒng)的設(shè)計思路和實現(xiàn)方法。相關(guān)內(nèi)容既可做為EXCEL教學(xué)的高階案例，也可直接用于學(xué)校教師或考試管理人員進(jìn)行試題庫管理和試卷擬制工作，以提高考試工作的質(zhì)量和效率。

關(guān) 鍵 詞：EXCEL；VBA；自動組卷系統(tǒng)

中國分類號：TP391 文獻(xiàn)標(biāo)識碼：A

Abstract： This paper mainly introduces the design and implementation method of an automatic test paper system based on EXCEL. The relevant content can be used as an advanced case of EXCEL teaching， and it can also be applied directly for schools faculty or managers to manage examination questions and make examination papers， in order to improve the quality and efficiency of the examination work.

Keyword： EXCEL；VBA；automatic test paper system

0 引言

Microsoft Office Excel辦公軟件功能強(qiáng)大、使用方便、應(yīng)用廣泛，精通運用EXCEL會給日常工作和生活帶來極大方便。本文旨在設(shè)計研發(fā)一款功能豐富且簡單易用的，基于EXCEL和VBA的自動組卷系統(tǒng)，而與學(xué)界探討可有效運用Microsoft Office Excel辦公軟件來提高日常工作效率的途徑和方法。

1 系統(tǒng)功能簡述

本系統(tǒng)以EXCEL辦公軟件為平臺，并利用包含其中的數(shù)據(jù)透視表工具和VBA編程工具開發(fā)而成（主界面如圖1所示）。系統(tǒng)可以自動統(tǒng)計并顯示題庫中包含的章節(jié)、題型名稱及不同題型的題量等題庫信息；可以便捷選定要出題的章節(jié)范圍和題型，并根據(jù)系統(tǒng)的提示，隨意設(shè)定每種題型的卷面題量和分值；可時時顯示卷面題量和分值，使教師動態(tài)掌握試卷的總題量和分值；可以將自動生成的試卷導(dǎo)出到Word字處理軟件中進(jìn)行編輯排版等。

2 界面設(shè)計與功能實現(xiàn)

在進(jìn)行系統(tǒng)設(shè)計前需做如下準(zhǔn)備工作：一是安裝包含EXCEL 2007的MS OFFICE 2007辦公軟件系統(tǒng)。二是在EXCEL 2007運行界面，單擊“Office 按鈕” ，而后單擊“EXCEL選項”，在彈出的“EXCEL 選項”界面中，點擊選中 “在功能區(qū)顯示‘開發(fā)工具選項卡”復(fù)選框，以方便利用VBA進(jìn)行系統(tǒng)設(shè)計與編程。三是建立一個EXCEL試題庫工作薄。工作薄中建一個名為“試題庫”的工作表，表中有題型、章節(jié)、難度、題干、選項（本例假設(shè)選擇題最多有4個選項）、參考答案、插圖名稱等字段，并按格式錄入試題。試題庫界面如圖2所示。

系統(tǒng)設(shè)計可分5步實現(xiàn)，具體描述為：

第一步：增加用于界面設(shè)計的工作表。新建一個工作表作為組卷系統(tǒng)的主界面，并將表命名為 “自動組卷”。在“視圖”功能選項欄的 “顯示/隱藏”組中，點擊取消標(biāo)尺、網(wǎng)格線、編輯欄、消息欄的選擇，從而使界面更加簡潔大方，更接近習(xí)慣上的應(yīng)用程序界面（這項工作也可在系統(tǒng)開發(fā)完成后展開，并可進(jìn)一步最小化功能區(qū)）。

第二步：插入并設(shè)置用于統(tǒng)計顯示題型、章節(jié)、題量信息的數(shù)據(jù)透視表。在“插入”選項卡的“表”組中，單擊“數(shù)據(jù)透視表”下的“數(shù)據(jù)透視表”選項，激活“創(chuàng)建數(shù)據(jù)透視表”對話框。在“選擇一個表或區(qū)域” 下的“表/區(qū)域”框中鍵入試題庫數(shù)據(jù)所在的區(qū)域或表名引用，也可單擊后面的“壓縮對話框”圖標(biāo)隱藏對話框后，在工作表上選擇相應(yīng)的區(qū)域（本例為“試題庫！$A$1：$L$294”）。在“選擇存放數(shù)據(jù)透視表位置” 下選擇“現(xiàn)有工作表”，并在“位置”后的文本框中鍵入存放數(shù)據(jù)透視表位置（本例為“自動組卷！$B$2”），單擊“確定”返回主界面。一個空的數(shù)據(jù)透視表已添加到您輸入的位置，而且顯示數(shù)據(jù)透視表字段列表。分別將“選擇要添加到報表的字段”中的“題型”、“章節(jié)”和“題干”3個字段選中、繼而拖到“行標(biāo)簽”、“列標(biāo)簽”和“數(shù)值”下的區(qū)域中，關(guān)閉“數(shù)據(jù)透視表字段列表”窗口，一個包含本題庫中所有章節(jié)、題型及數(shù)量信息，并可選擇查看任意題型、章節(jié)題量的數(shù)據(jù)透視表建立完成，再將計數(shù)項及行、列標(biāo)簽的內(nèi)容分別修改為“請選擇章節(jié)”、“請選擇題型”和“全部”，使系統(tǒng)更加友好直觀（如圖1左上角所示）。

第三步：添加用于設(shè)置試卷題型、題量的功能區(qū)。在數(shù)據(jù)透視表后插入2個字段（如圖1所示），將標(biāo)題命名為“擬出題量”和“卷面分值”，用于組卷時輸入所選題型在試卷中的題量和分值。底部輸入顯示“試面題量”和“卷面總分”的公式（限于篇幅，公式設(shè)計和實現(xiàn)在此則不做贅述）。

第四步：插入并設(shè)置用于顯示試題及答案的分組框和文本框。點擊“開發(fā)工具”，選擇插入“分組框”控件。按鼠標(biāo)右鍵，在適當(dāng)位置拖畫出一個顯示試題的分組框，并將標(biāo)題重命名為“試題”。重復(fù)上述過程，在適當(dāng)位置畫出“答案”分組框。而后在2個分組框的上面插入2個文本框控件Textbox1和Textbox2，用來顯示試卷的試題和答案。將文本框的Multiline屬性設(shè)置為True。

3 系統(tǒng)的使用

在“自動組卷”界面上，依次點擊“請選擇章節(jié)”和“請選擇題型”下拉列表框，選擇出題的范圍和題型。此后，即在對應(yīng)題型后面的表格中輸入每種題型的“擬出數(shù)量”和“卷面分值”。單擊“自動組卷”命令按鈕，系統(tǒng)會根據(jù)設(shè)定的章節(jié)范圍、題型、題量、分值要求，自動從試題庫中選題生成試卷，并將試題和答案分別顯示在系統(tǒng)界面的文本框中，以供預(yù)覽。確認(rèn)試題滿足考試要求后，點擊“導(dǎo)出到WORD”命令按鈕，系統(tǒng)會自動將試題和答案導(dǎo)出到指定位置并以“課程名稱+（組卷時間）”命名的Word文件中。打開上述文件，進(jìn)行必要的編輯排版后，打印輸出便可。

4 結(jié)束語

綜上可知，本文僅就“自動組卷”系統(tǒng)中組卷功能模塊的設(shè)計思路和實現(xiàn)方法進(jìn)行了重點闡述。其他如圖3所示，研究中可進(jìn)一步實現(xiàn)試題逐一顯示、修改、刪除、增加等題庫維護(hù)功能的窗體模塊設(shè)計與功能拓展雖并未在文中提及，但可作為后續(xù)研究的推介論題方向。如此，系統(tǒng)功能將更加強(qiáng)大和完善。

參考文獻(xiàn)：

[1]羅剛君.Excel VBA范例大全[M]. 北京：電子工業(yè)出版社，2008.

[2]孫成玉.Excel數(shù)據(jù)處理全能手冊[M].北京：中國鐵道出版社，2009.

[3 ]Excel Home. EXCEL函數(shù)與公式實戰(zhàn)技巧精粹[M].北京：人民郵電出版社，2008.