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

焦樂天 王英迪 焦萬(wàn)合 開賽爾

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

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

中國(guó)分類號(hào)：TP391 文獻(xiàn)標(biāo)識(shí)碼：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)用廣泛，精通運(yùn)用EXCEL會(huì)給日常工作和生活帶來(lái)極大方便。本文旨在設(shè)計(jì)研發(fā)一款功能豐富且簡(jiǎn)單易用的，基于EXCEL和VBA的自動(dòng)組卷系統(tǒng)，而與學(xué)界探討可有效運(yùn)用Microsoft Office Excel辦公軟件來(lái)提高日常工作效率的途徑和方法。

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

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

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

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

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

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

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

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

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

3 系統(tǒng)的使用

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

4 結(jié)束語(yǔ)

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

參考文獻(xiàn)：

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

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

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