基于EXCEL上機(jī)考試系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

摘 要： 近年來，我國高等職業(yè)教育迎來全新的發(fā)展局面，招生規(guī)模的不斷擴(kuò)大使學(xué)校的教務(wù)管理負(fù)擔(dān)也越來越重。針對(duì)期末考試任務(wù)繁重情況，基于EXCEL VBA開發(fā)了試卷自動(dòng)生成系統(tǒng)，實(shí)現(xiàn)了無紙化上機(jī)考試，介紹了系統(tǒng)構(gòu)成與功能實(shí)現(xiàn)。測試表明，該系統(tǒng)具有良好的通用性和可擴(kuò)展性，提高了考試管理效率、降低了管理成本，能夠適合各類學(xué)校的多數(shù)課程教學(xué)。

關(guān)鍵詞： EXCEL； 上機(jī)考試； 系統(tǒng)構(gòu)成； 試卷設(shè)置； 成績表

中圖分類號(hào)：TP317 文獻(xiàn)標(biāo)志碼：A 文章編號(hào)：1006-8228（2014）09-79-03

Design and implementation of computer test system based on EXCEL software

Chen Qinrong， Li Huanyue

（Shantou Vocational and Technical College， Shantou， Guangdong 515041， China）

Abstract： In recent years， as our country's higher vocational education faces a new trend of development， the expansion of enrollment scale of new colleges has resulted in a heavier burden on the school educational administration management. Aiming at the onerous final exam task， test automatic generation system is designed based on EXCEL VBA to realize the paperless computer test system. The results shows that it has good versatility and expansibility， convenient and quick， low cost， high efficiency. It suits most courses in various school.

Key words： EXCEL； online examination； system structure； test settings； grade tables

0 引言

對(duì)于高等職業(yè)院校，每到學(xué)期末考試時(shí)，教務(wù)部門就會(huì)面臨任務(wù)重，缺人手，缺試室，試卷難以及時(shí)完成印刷等問題。而在這時(shí)，學(xué)校的電腦室卻有許多閑置。若把一些科目的考試變成用電腦來實(shí)現(xiàn)，那么既可充分利用學(xué)校的電腦室（及設(shè)備），獲得更多的試室，又能減輕學(xué)期末印刷試卷的任務(wù)，還可降低考試成本，提高效率，因此，我們?cè)O(shè)計(jì)開發(fā)了這一上機(jī)考試系統(tǒng)。

1 系統(tǒng)構(gòu)成與功能

系統(tǒng)由兩個(gè)EXCEL工作簿文件組成。其中一個(gè)是上機(jī)考試系統(tǒng)工作簿，另一個(gè)是成績表工作簿。其中上機(jī)考試系統(tǒng)工作簿由八個(gè)工作表組成，成績表工作簿由一個(gè)表組成。主要的工作表及基本功能如下。

1.1 試卷設(shè)置工作表

該表用于設(shè)置試卷標(biāo)題、內(nèi)容、題型、題量、考試時(shí)間以及顯示標(biāo)準(zhǔn)答案的密碼，如圖1所示。

1.2 考生名冊(cè)工作表

該表用于錄入考生的準(zhǔn)考證號(hào)和姓名，以方便考生登錄，如圖2所示。

1.6 成績表工作簿

該工作簿只有一個(gè)成績表，用于存放考生成績。該表提供自動(dòng)生成成績的命令按鈕，如圖6所示。

2 系統(tǒng)實(shí)現(xiàn)

首先按系統(tǒng)構(gòu)成建立工作簿“上機(jī)考試系統(tǒng).xlsm”。

2.1 題庫工作表的建立

各個(gè)題庫工作表首行分別設(shè)置：題號(hào)、題目、答案三欄目以及該題型的題目數(shù)量。題號(hào)單元格可填寫“=ROW（）-1”實(shí)現(xiàn)自動(dòng)編號(hào)，也方便于題庫中題目的增刪。建立題號(hào)時(shí)，將其向下填充公式即可。題目數(shù)量用=COUNTA（A：A）-1獲得。該表除需輸入的三列內(nèi)容之外，其他部分全部鎖定并用密碼保護(hù)工作表，其他題庫工作表處理方法類似。

2.2 試卷設(shè)置工作表的建立

按圖1所示建立表格，其中題型自動(dòng)從上機(jī)考試系統(tǒng)的工作表標(biāo)簽名獲得，題庫題量自動(dòng)引用各種題型工作表的題量。確定題量時(shí)設(shè)置輸入提示，題量為0時(shí)，表示不出該題型，輸入題量超出時(shí)，自動(dòng)給出提示。設(shè)置各種題型每小題的分值，整份試卷的總分自動(dòng)顯示。“設(shè)置完畢，生成考試文件”按鈕的功能：一是把當(dāng)前設(shè)置保存為上機(jī)考試系統(tǒng)工作簿文件；二是把本表的一些數(shù)據(jù)傳送到“試卷”工作表中，隱藏本工作表，隱藏題庫工作表及考生名冊(cè)工作表，同時(shí)從安全角度對(duì)相關(guān)工作表進(jìn)行密碼保護(hù)，最后把本工作簿另存為以考試標(biāo)題為主文件名的考試文件，并關(guān)閉本工作簿。

2.3 考生登錄

考生打開考試文件時(shí)，自動(dòng)顯示考生登錄窗口，工作簿只顯示考生登錄工作表及試卷工作表，其他工作表是隱藏的?？忌吹卿洉r(shí)，試卷是空白的。當(dāng)考生選擇準(zhǔn)考證號(hào)或姓名登錄時(shí)，這時(shí)才真正從題庫按試卷設(shè)置隨機(jī)生成試題，同時(shí)刪除不再需要的工作表，并開始按設(shè)定的時(shí)間倒計(jì)時(shí)，考生進(jìn)行答題。

生成試題時(shí)，題目的答案也一并復(fù)制到試卷工作表的某個(gè)地方，并隱藏起來，為接下來的評(píng)分做好準(zhǔn)備。

2.4 提交試卷

計(jì)時(shí)時(shí)間到，或點(diǎn)擊“提交試卷”按鈕時(shí)，將自動(dòng)鎖定答題區(qū)，進(jìn)行評(píng)分。評(píng)分時(shí)將顯示各題型得分及總分。評(píng)分后的文件被標(biāo)記為已考及已評(píng)分的記號(hào)，整個(gè)工作簿被保護(hù)，并以準(zhǔn)考證號(hào)與考生姓名為文件名另存工作簿。同時(shí)刪除原來分發(fā)的考試文件，防止學(xué)生重復(fù)考試（當(dāng)然考生重復(fù)考試也沒有足夠的時(shí)間）?？忌鸀g覽考試結(jié)果后，關(guān)閉工作簿并按要求提交工作簿文件。

2.5 評(píng)分方法

系統(tǒng)現(xiàn)提供單選、判斷、多選、填空四種題型，對(duì)于單選與判斷評(píng)分是，對(duì)則給分，錯(cuò)則不給分也不扣分。多選題評(píng)分方法是，把每小題的分值給該題的選項(xiàng)個(gè)數(shù)平均，然后按選對(duì)多少項(xiàng)，給多少項(xiàng)的平均分，選錯(cuò)多少項(xiàng)，扣多少項(xiàng)的平均分進(jìn)行合計(jì)，該題最少為零分。具體評(píng)分時(shí)，先對(duì)考生答案的重復(fù)字母刪除，再進(jìn)行判斷。填空題規(guī)定每小題兩個(gè)填空，計(jì)分按每個(gè)填空正確得該題一半分?jǐn)?shù)，填錯(cuò)不扣分，進(jìn)行評(píng)分。

2.6 自動(dòng)成績表

首先把考生名冊(cè)復(fù)制到自動(dòng)成績表工作簿指定位置，然后點(diǎn)擊“……，產(chǎn)生成績表”按鈕，指定收集考生試卷文件的文件夾，這時(shí)將自動(dòng)獲取每份試卷的成績，產(chǎn)生出成績表。這里是通過引用考生試卷文件的成績單元格來實(shí)現(xiàn)。同時(shí)通過選擇性粘貼數(shù)值方法，斷開與各個(gè)試卷文件的聯(lián)系，使成績表具有獨(dú)立性。實(shí)現(xiàn)此功能代碼如下：

Private Sub CommandButton1_Click（）

Dim fd As FileDialog， fn， mypath As String

Dim i， s As Integer

MsgBox \"選擇考生試卷文件所在的文件夾\"

Set fd=Application.FileDialog（msoFileDialogFolderPicker）

With fd

If .Show=-1 Then

mypath=.SelectedItems（1） '選擇考生試卷文件所在文件夾

End If

End With

Set fd=Nothing

Cells（1， 10）=\"=counta（b：b）-1\"

s=Cells（1， 10） '獲取總?cè)藬?shù)

'實(shí)現(xiàn)象這樣“='C：＼Users＼Administrator＼Desktop＼TEM＼[11114黃曉

敏.xlsm]試卷'！$E$3”公式的自動(dòng)填充，引用不同工作簿中的同一

單元格

For i=4 To s+3

Cells（i， 10）=\"=b\" i \"c\" i 'B\"i\" C\"i\"

fn=Cells（i， 10） \".xlsm\"

Set MyFile=CreateObject（\"Scripting.FileSystemObject\"）

If MyFile.FileExists（mypath \"＼\" fn） Then

'MsgBox \"文件存在\"

Cells（i， 4）=\"='\" mypath \"＼[\" Cells（i， 10） \".xlsm]

試卷'！$E$3\"

End If

Next

'進(jìn)行數(shù)值性粘貼，斷開與試卷文件的聯(lián)系

Sheets（\"成績表\"）.Range（Cells（4， 4）， Cells（s+3， 4））.Copy

Sheets（\"成績表\"）.Range（Cells（4， 4）， Cells（s+3， 4））

.PasteSpecial Paste：=xlPasteValues

Selection.PasteSpecial Paste：=xlPasteFormats

Worksheets（\"成績表\"）.Columns（10）.ClearContents '清除臨時(shí)內(nèi)容

'加邊框

Sheets（\"成績表\"）.Unprotect \"fhd842\"

With Range（Cells（3， 2）， Cells（s+3， 4））

.HorizontalAlignment=xlCenter '水平居中

.VerticalAlignment=xlCenter '垂直居中

With .Borders

.LineStyle=xlContinuous '邊框細(xì)線

.Weight=xlThin '細(xì)邊框

End With

End With

Sheets（\"成績表\"）.Protect \" fhd842\"

Cells（3， 4）.Select

End Sub

2.7 操作界面設(shè)計(jì)

本系統(tǒng)在界面上也進(jìn)行了一些處理，通過獲取屏幕分辨率，控制“試卷設(shè)置”、“試卷”、成績表表格在屏幕水平方向居中，改善了系統(tǒng)在EXCEL環(huán)境的外觀效果。

3 系統(tǒng)使用

⑴ 打開上機(jī)考試系統(tǒng)工作簿，按各種題型格式要求，建立題庫，包括題目和答案。

⑵ 錄入考生名冊(cè)。

⑶ 通過試卷設(shè)置工作表界面，設(shè)定試卷標(biāo)題，考試內(nèi)容和題量以及分值。點(diǎn)擊“生成試卷”按鈕。

⑷ 把生成的試卷文件通過電腦室網(wǎng)絡(luò)分發(fā)給考生進(jìn)行考試。

⑸ 考生打開試卷文件，選擇自己的準(zhǔn)考證號(hào)或姓名登錄。登錄后，考生看到實(shí)際試卷并進(jìn)行答卷。最后通過“提交試卷”按鈕繳卷，并得知成績，同時(shí)生成考生準(zhǔn)考證號(hào)和姓名命名的工作簿文件。

⑹ 考生按要求提交自己的試卷文件。

⑺ 教師收集試卷文件后，打開自動(dòng)成績表工作簿（事先已復(fù)制了考生名冊(cè)），點(diǎn)擊生成成績表按鈕，選定收集試卷的文件夾，即可得到成績表。如圖8所示。

4 結(jié)束語

采用本系統(tǒng)進(jìn)行上機(jī)考試，可大大降低學(xué)校期末考試的工作壓力，充分利用學(xué)校電腦室資源。由于不需印刷紙質(zhì)試卷，從而節(jié)省了人力，降低了考試成本與費(fèi)用。另外，采用隨機(jī)產(chǎn)生試題，從整體來看，不但知識(shí)點(diǎn)覆蓋面更廣，也提高了成績的可信度，減輕了監(jiān)考難度，提高了考試質(zhì)量。此外，考試成績自動(dòng)生成，節(jié)省了評(píng)審試卷的人力消耗，提高了效率。

本系統(tǒng)若公開查詢標(biāo)準(zhǔn)答案的密碼，則可將其用于學(xué)生平時(shí)學(xué)習(xí)或自測。

顯然，本系統(tǒng)有許多優(yōu)點(diǎn)，但它比較適合于客觀型試題的內(nèi)容，尚未能對(duì)包含圖像的內(nèi)容進(jìn)行處理。這些方面有待改進(jìn)和擴(kuò)展。

參考文獻(xiàn)：

[1] 張玉葉，馬春清.基于EXCEL的試卷自動(dòng)生成系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].

計(jì)算機(jī)時(shí)代，2013.2：25-27

[2] 張寧.用EXCEL制作試卷必須解決的幾個(gè)問題[J].計(jì)算機(jī)時(shí)代，

2013.3：39-41

[3] 杰誠文化.Excel2007財(cái)務(wù)管理范例應(yīng)用[M].中國青年出版社，2008.

[4] 叢飚. 基于VBA改進(jìn)的學(xué)分績點(diǎn)統(tǒng)計(jì)程序[J].吉林師范大學(xué)學(xué)報(bào)（自

然科學(xué)版），2010.4.

[5] 張玉葉，郝強(qiáng).試卷自動(dòng)生成系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].濟(jì)南職業(yè)學(xué)院學(xué)

報(bào)，2008.5.