基于VBA編程的網(wǎng)絡(luò)教學(xué)試題庫(kù)批量試題錄入研究

陳莉　徐芳

摘要摘要：使用 Excel原始試題庫(kù)文件，嵌入VBA編程，生成的TXT文件用于保存符合要求的試題格式，實(shí)現(xiàn)了網(wǎng)絡(luò)教學(xué)平臺(tái)批量輸入試題格式的轉(zhuǎn)換，提高了工作效率。

關(guān)鍵詞關(guān)鍵詞：VBA；Excel；試題庫(kù)

0 引言

軍隊(duì)網(wǎng)絡(luò)教學(xué)平臺(tái)集課程內(nèi)容、教學(xué)資源管理和考試系統(tǒng)為一體，通過(guò)該平臺(tái)可以進(jìn)行一系列教學(xué)活動(dòng)。例如教員可以設(shè)計(jì)網(wǎng)絡(luò)課程供學(xué)員進(jìn)行自主學(xué)習(xí)，還可以錄入試題進(jìn)行考試，實(shí)現(xiàn)學(xué)習(xí)效果評(píng)價(jià)。試題錄入工作中發(fā)現(xiàn)，雖然系統(tǒng)提供了批量試題錄入方式，但由于錄入時(shí)需按照規(guī)定的格式，在一定程度上不能自動(dòng)批量錄入，限制了試題庫(kù)錄入的效率。針對(duì)此問(wèn)題，本文提出了基于VBA編程[1]的網(wǎng)絡(luò)教學(xué)試題庫(kù)批量錄入方法，通過(guò)對(duì)原始 Excel試題庫(kù)文件進(jìn)行VBA編程，實(shí)現(xiàn)了試題格式的轉(zhuǎn)換和網(wǎng)絡(luò)教學(xué)試題庫(kù)批量錄入，大大提高了試題錄入效率。

1試題添加方式

網(wǎng)絡(luò)教學(xué)平臺(tái)考試模塊的子模塊“試題管理”是其核心和基礎(chǔ)，通過(guò)“試題管理”可對(duì)課程章節(jié)添加各種類型試題，也可根據(jù)需要?jiǎng)h除和修改，從中抽取若干試題組成考試試卷。

試題管理模塊設(shè)置了添加試題方式：?jiǎn)蝹€(gè)添加和批量添加。對(duì)于單個(gè)添加，采用如圖1所示的方式，教員從平臺(tái)一個(gè)個(gè)輸入，題干和答案都要通過(guò)輸入框輸入，每次輸入完一道試題后都要點(diǎn)擊“確定”按鈕，額外增加了輸入時(shí)間，影響效率。

系統(tǒng)提供了另一種試題添加方式：批量添加，如圖2所示。批量添加可從批量添加框中一次性輸入多個(gè)試題。然而，系統(tǒng)規(guī)定了單選、多選和判斷題等的特定格式，格式規(guī)定和具體示例如圖3所示。填空題格式與其它類型試題格式略有不同，圖4展示了其一般格式和具體示例，一般試題都難以符合此格式?！队?jì)算機(jī)基礎(chǔ)與操作》課程的許多試題都可以通過(guò)網(wǎng)絡(luò)下載得到，一般格式為 Excel和Word類型，但這些試題都不是上述要求的試題格式。如果用手動(dòng)方式，依次將試題修正為所需要的格式，無(wú)疑會(huì)花費(fèi)大量的時(shí)間。

2基于VBA編程實(shí)現(xiàn)批量試題格式轉(zhuǎn)換

2.1 Excel文件原始試題格式

使用微軟開發(fā)的應(yīng)用程序Visual Basic for Application（VBA）[2]可以編制出令Office自動(dòng)的程序，對(duì)Office進(jìn)行二次開發(fā)[3]，完成自動(dòng)化處理Office應(yīng)用文檔功能，減少用戶的重復(fù)操作。Internet上有很多關(guān)于《計(jì)算機(jī)基礎(chǔ)與應(yīng)用》課程的試題，可充分利用網(wǎng)絡(luò)資源。網(wǎng)上下載的試題有很大部分是 Excel文件，經(jīng)過(guò)簡(jiǎn)單處理后成為如圖5所示的格式， Excel基于VBA編程，使程序自動(dòng)按照格式要求完成從原始試題到“批量添加”試題需要的格式轉(zhuǎn)換。不同類型的試題編程不同，以實(shí)現(xiàn)正確的格式轉(zhuǎn)換[4]。

2.2基于VBA編程的各類試題格式轉(zhuǎn)換

在打開 Excel試題文件后，按【Alt+F11】進(jìn)入VBE編程環(huán)境，使用“插入/模塊”菜單命令插入模塊，在模塊中定義一個(gè)過(guò)程，該過(guò)程實(shí)現(xiàn)格式的轉(zhuǎn)換輸出。

以下語(yǔ)句獲得當(dāng)前所有試題所占行數(shù)，前提是試題所在區(qū)域沒(méi)有空行。

單選題的格式轉(zhuǎn)換：首先輸出“#”和試題類型信息，使用VBA語(yǔ)句從原始 Excel試題文件中分別讀取A、B、C、D四個(gè)選項(xiàng)內(nèi)容，并在每個(gè)選項(xiàng)內(nèi)容前面加上各自的選項(xiàng)符號(hào)和點(diǎn)號(hào)。如果某一選項(xiàng)是正確的選項(xiàng)，則還需要在前面加上“*”；最后按照輸出指定的格式到新建的TXT文件中[5]，難度系數(shù)和章節(jié)號(hào)先省略，因?yàn)榇藘身?xiàng)需要人為設(shè)置，核心程序如下：

判斷題的格式轉(zhuǎn)換和單選題的格式轉(zhuǎn)換是類似的，都是使用VBA語(yǔ)句從原始 Excel試題文件中讀取答案單元格中的內(nèi)容，根據(jù)內(nèi)容在正確的答案前加上格式所要求的*號(hào)。

多選題的格式轉(zhuǎn)換，與單選題和判斷題的不同之處是對(duì)放置答案的單元格處理，要判斷選項(xiàng)是否在答案中，如果在，則在正確的選項(xiàng)前加“*”。以選項(xiàng)A的判斷為例：使用Mid函數(shù)，Mid（Cells（i，7），k，1）表示從Cells（i，7）（即存放答案的單元格內(nèi)容）中的第k位開始取1個(gè)字符，也就是從第1個(gè)字符開始遍尋存放答案的單元格內(nèi)容，如果有字符是A或a，則選項(xiàng)A為其中一個(gè)正確的答案，在該選項(xiàng)內(nèi)容前加上表示正確答案的“*”，其它答案選項(xiàng)處理類似，其核心程序段如下：

按格式輸出TXT文件，與單選題操作類似，此處省略具體語(yǔ)句。

填空題格式轉(zhuǎn)換與其它格式都不同，題干中需要填的空是由若干個(gè)“_”字符連在一起的，需要轉(zhuǎn)換的格式是把需要填空的空用“{答案}”替換。

首先獲取填空題原始題目中用于填空的“_”的個(gè)數(shù)numberof_，使用mid函數(shù)依次取number of_個(gè)字符，判斷其是否等于number of_個(gè)連續(xù)的字符串，如果是，則使用Replace函數(shù)把{答案}替換number of_個(gè)連續(xù)的字符串，最后按照要求的格式輸出到TXT文件中?；赩BA的填空題格式批量轉(zhuǎn)換代碼如下：

2.3對(duì)窗體按鈕指定編制的宏

模塊編寫調(diào)試成功后，最后一步是對(duì)窗體按鈕指定宏，單擊菜單“視圖”/“工具欄”/“窗體”勾選，在文件的空白區(qū)域畫出按鈕后就可以指定宏了[6]，把編好的模塊過(guò)程指定給該按鈕，單擊該按鈕就可以輸出符合批量輸入試題的格式。

2.4格式轉(zhuǎn)換應(yīng)用

當(dāng)指定編制完成后，單擊按鈕，就可以把原始的 Excel文件中的試題格式轉(zhuǎn)換為符合軍隊(duì)網(wǎng)絡(luò)教學(xué)平臺(tái)要求的批量輸入試題格式，將其存儲(chǔ)到TXT文件中，把TXT文件中的內(nèi)容復(fù)制，粘貼到試題批量添加輸入框中，如圖2所示。單擊“確定”按鈕就可以實(shí)現(xiàn)試題自動(dòng)批量錄入。

3結(jié)語(yǔ)

在原始的 Excel試題文件基礎(chǔ)上，嵌入了VBA編程，通過(guò)程序完成了批量輸入試題的格式轉(zhuǎn)換，大大提高了試題管理效率。在軍隊(duì)網(wǎng)絡(luò)教學(xué)平臺(tái)《計(jì)算機(jī)基礎(chǔ)與操作》網(wǎng)絡(luò)課程試題庫(kù)錄入中采用該方法，只需幾個(gè)簡(jiǎn)單的按鈕操作就可以完成，提高了工作效率。雖然本文是針對(duì)軍隊(duì)網(wǎng)絡(luò)教學(xué)平臺(tái)設(shè)計(jì)的，但對(duì)于其它平臺(tái)的操作也有借鑒意義。

參考文獻(xiàn)參考文獻(xiàn)：

[1]林海寧.基于VBA技術(shù)的 Excel自動(dòng)評(píng)閱系統(tǒng)[J].現(xiàn)代計(jì)算機(jī)，2012 （21）：7880.

[2]何小松.通用試題庫(kù)管理系統(tǒng)的開發(fā)與研究[J].淮南師范學(xué)院學(xué)報(bào)，2003，5（19）：5051.

[3]劉銘.基于VBA對(duì) Excel 2007二次開發(fā)應(yīng)用研究[J].現(xiàn)代電子技術(shù)，2010，33（10）：5558.

[4]耿霞，王志軍，宋維.自學(xué)考試命題及自動(dòng)排版系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].中國(guó)教育信息化，2007 （21）：4143.

[5]伍云輝.完全手冊(cè) Excel VBA典型實(shí)例大全 [M].北京：電子工業(yè)出版社，2008：446459.

[6]韋立梅.使用Excel VBA管理工資資料[J].電腦與電信，2013 （6）：7075.

責(zé)任編輯（責(zé)任編輯：杜能鋼）