基于EXCEL VBA的標準化試卷處理系統(tǒng)的實現(xiàn)

[摘 要] 目前，越來越多的卷面考試采用網(wǎng)絡(luò)平臺考試形式，這一考試形式給教育評價環(huán)節(jié)帶來極大方便，但在應(yīng)用條件上也存在一定限制。本系統(tǒng)利用EXCEL VBA操作WORD文檔生成標準化電子文檔，并通過相應(yīng)處理完成文檔的分發(fā)和結(jié)果的數(shù)據(jù)采集，完成試卷的生成和結(jié)果的收集，以期為當網(wǎng)絡(luò)化平臺考試條件不足時電子化考試所用。

[關(guān) 鍵 詞] 標準化試卷；試卷處理系統(tǒng)；EXCEL VBA

[中圖分類號] TP31 [文獻標志碼] A [文章編號] 2096-0603（2018）32-0170-02

教育評價是教學過程中不可缺少的一個基本環(huán)節(jié)，卷面考試仍是當前教育評價的主要形式。隨著計算機及網(wǎng)絡(luò)技術(shù)的進步，很多卷面考試采用了網(wǎng)絡(luò)平臺考試形式，網(wǎng)絡(luò)平臺考試具有不受軟硬件平臺限制、不受時間和地點限制、更新方便、數(shù)據(jù)收集方便等優(yōu)點。但也存在一定不足，如需要一定的網(wǎng)站開發(fā)技術(shù)、需要能在互聯(lián)網(wǎng)訪問的服務(wù)器、需要相應(yīng)的軟硬件維護技術(shù)力量，一定程度上影響了網(wǎng)絡(luò)平臺考試的靈活性和方便性。

本系統(tǒng)利用EXCEL VBA操作WORD文檔，產(chǎn)生包含標準化試卷內(nèi)容的WORD文檔模板，對試卷模板排版后將WORD試卷分發(fā)給考生答題，完畢通過網(wǎng)絡(luò)收回各電子試卷，再通過本系統(tǒng)讀取已填寫試卷的內(nèi)容，完成考試結(jié)果的收集過程。

一、系統(tǒng)的設(shè)計

（一）EXCEL工作表設(shè)計

EXCEL工作簿中有“試題”和“名單”兩張表?！霸囶}”表中存放試題信息，“名單”表存放學生名單及學生填寫后的結(jié)果。二表結(jié)構(gòu)如下：

（二）功能的設(shè)計

試卷的生成、復(fù)制和收回后讀取結(jié)果的功能，均利用EXCEL VBA實現(xiàn)，下述代碼需在EXCEL中按ALT+F11進入VBE后輸入（考慮文章篇幅，代碼中主要顯示關(guān)鍵代碼）。

1.生成試卷

通過下述代碼，根據(jù)各小題題型不同采取不同控件，完成單選、多選和判斷題的設(shè)計，生成“試卷模板.doc”，保存在與EXCEL文件所在的同一文件夾中。

Sub生成試卷（ ）

Set wApp=CreateObject（"word. application"） 打開word

Set wordd=wApp.documents.Add新建文檔

Tm=Sheets（"試題"）.[al].CurrentRegion

dls=1段落行數(shù)

For i=2 To UBound（Tm）題 1-N

If Tm（i， 2）<>Tm（i - 1， 2）Then

wordd.Paragraphs（dls）.Range.Text=Tm（i， 2）&Chr（10）：dls=dls+1題型

End If

wordd.Paragraphs（dls）.Tange.Text=Tm（i， 3）&"."&Tm（i， 4）&Chr（10）：dls=dls+1題干

If Tm（i， 2）Like"多*"Then根據(jù)題型確定控件序號

mct="Forms.CheckBox.1"

Else

mct="Forms.OptionButton.1"

End If

For j=5 To 8選1-4

mcp=Chr（64 + j - 4）&"."&Trim（Tm（i， j））

If Len（mcp） >2 Then

Set Wpr =wordd.Paragraphs（dls）.Range最后行位置 Set Waia=wApp.ActiveDocument.InlineShapes.AddOLE Control（ClassType：=mct，Range：=Wpr）

With Waia.OLEFormat.Object

.Caption=mcp

.Name="T"&Tm（i， 1）&"_"&Chr（64 + j - 4）

.Width=Application.Min（Len（mcp）*11，390）

.AutoSize=True

.groupname="T"&Tm（i， 1）

End With

wordd.Paragraphs（dls）.Range.InsertAfter（vbCrLf）：dls=dls+1插入一段

End If

Next j

Next i

wordd.SaveAs ThisWorkbook.Path&"＼試卷模板.doc"：wApp.Quit

End Sub

2.復(fù)制試卷

根據(jù)“名單”中的考生名單將“試卷模板.doc”復(fù)制成以考生姓名為文件名的WORD文件。

Sub 復(fù)制試卷（ ）

sfile = ThisWorkbook.Path & "＼試卷模板.doc"

For i = 2 To Worksheets（"名單"）.[a1].CurrentRegion.Rows.Count

FileCopy sfile，ThisWorkbook.Path & "＼" & Worksheets（"名單"）.Cells（i， 2） & ".doc"

Next i

End Sub

3.讀取結(jié)果

收回試卷文檔后放在與EXCEL文件所在的同一文件夾中，利用“讀取結(jié)果”可將該文檔中各考生填寫的內(nèi)容讀回“名單”中。

Sub讀取結(jié)果（ ）

Set wApp=CreateObject（"word，application"） 打開word

Set Ws=Worksheets（"名單"）

Ws.Range（"c2：ae2000"）.ClearContents

For fi=2 To WS.[al].CurrentRegion.Rows.Count逐文件

wApp.documents.Open ThisWorkbook.Path&"＼"&Ws.Cells（fi， 2）&".doc"

For Each i In wApp.ActiveDocument.InlineShapes逐控件

With i.OLEFormat.Object

If.Name Like"T*"And.Value Then

Is=Mid（.Name，2，Len（.Name）-3）：xs=Right（.Name，1）

Ws.Cells（fi， Is + 2）.Value=Trim（Ws.Cells（fi， Is + 2））&xs

End If

End With

Naxt i

Nest fi

wApp.Quit

End Sub

二、系統(tǒng)的優(yōu)點

該系統(tǒng)的優(yōu)點主要體現(xiàn)在操作簡便靈活、對使用者計算機技術(shù)要求低和零成本三個方面。

（一）操作簡便靈活

該系統(tǒng)對教師來說，平時只需要使用EXCEL組織試題內(nèi)容，較為復(fù)雜的試題內(nèi)容如圖形、表格和公式可通過對WORD試卷模板的排版來實現(xiàn)，WORD試卷模板的生成、試卷的更名復(fù)制和結(jié)果采集均能由系統(tǒng)自動完成。而且由于試題存放在EXCEL工作表中，修改和調(diào)整極為方便。

（二）對使用者的計算機技術(shù)要求低

該系統(tǒng)對教師來說，需要具體WORD和EXCEL的基本操作技能；對學生來說，需要具備基本的WORD操作，因此從目前情況來看，所有教師和學生應(yīng)都具備這一考試形式所需能力。

（三）零成本

該系統(tǒng)從功能上來看，除了文件分發(fā)和收集過程要通過網(wǎng)絡(luò)來實現(xiàn)之外，試卷生成、試卷填寫和試卷結(jié)果采集仍屬于單機操作，只要使用者的計算機能正常使用OFFICE，即可完成上述操作。因此通過本方式實施考試，不需增加額外的硬件和軟件投入，在使用過程中也不需要額外的技術(shù)維護費用支出。

三、系統(tǒng)的擴展應(yīng)用

（一）對非標準化試卷內(nèi)容的處理

大多試卷都由標準化主觀題和非標準客觀題組成，完全標準化的試卷相對來說較少。對非標準化的主觀題，可利用文本框來實現(xiàn)指定位置結(jié)果的收集。只需將VBA代碼中ActiveX控件類型設(shè)為Textbox，即在“生成試卷（ ）”功能中，增加題型判斷，將mct = "Forms.CheckBox.1"改成mct="Forms.textbox.1"，同時設(shè)置文本框控件的屬性，即可實現(xiàn)文本型主觀題設(shè)計和結(jié)果收集。

（二）試題亂序的實現(xiàn)

對標準化試卷的考試來說，要防止學生偷看他人結(jié)果或相互傳遞答案等作弊，最好的方式是打亂各份試卷中客觀題小題題序和選項順序。要實現(xiàn)這一效果，可在EXCEL中增加“試卷庫”表，試卷庫來自試題庫，按各考生分別生成試題，在根據(jù)試題庫生成試卷庫時，可隨機生成小題順序和選項順序，從而實現(xiàn)隨機試題和選項順序這一效果。

（三）試卷唯一性的實現(xiàn)

電子文件形式的考試，還需要防止學生通過復(fù)制文件或復(fù)制試卷內(nèi)容的方式進行作弊。單純的WORD文檔不具備標記特殊信息這一功能。在本系統(tǒng)中，試題內(nèi)容是通過各Active X控件來實現(xiàn)的，可利用控件屬性來給試題增加一些特殊標記。比如可以根據(jù)學生生成唯一碼，將這唯一碼寫入控件名稱OLEFormat.Object.Name中，使各份試卷同一試題的控件名稱均不相同。試卷收回后對控件名稱進行判斷即可知道該試題屬于哪位學生，從而確保學生只有親手完成自己的電子試卷才為有效卷。

四、需說明的問題

本辦法適用于OFFICE 2003及以上版本，但因WORD在自動恢復(fù)文檔時可能會改變試題控件類型，因此如遇試卷文件在填寫時意外關(guān)閉，要重新復(fù)制試卷文件做題，不要使用WORD自帶的恢復(fù)功能。

對EXCEL中的結(jié)果判分及運用即為單元格值的匹配運用，方法較多且較為簡單。故本文僅涉及試卷生成、分發(fā)和結(jié)果收集，未涉及對結(jié)果的匹配判分。

參考文獻：

[1]崔明山.運用ASP設(shè)計網(wǎng)絡(luò)考試系統(tǒng)思路淺探[J].職教論壇，2007（4）：58-59.

[2]馮迎春.利用EXCEL VBA自動判分[J].中國教育信息化，2014（2）：75-76.