蘭清昭

摘要：在MS-Word中引用VBA控件技術(shù)完成考試系統(tǒng)自動計時、試卷登錄身份識別、客觀題自動評分、主觀題手動評分、自動形成考生成績冊電子文檔。讓考生考試和教師評卷都在一個Word文檔中進行，將廣大教師從當(dāng)前繁重的各種出題、制卷、監(jiān)考發(fā)卷、收卷、評卷、計算總成績、記錄總成績等工作中解脫出來。

關(guān)鍵詞：VBA；MS-Word；控件；自動；代碼；文本框；命令按鈕

中圖分類號：TP317 文獻標(biāo)識碼：A 文章編號：1009-3044（2015）11-0084-02

1 當(dāng)前各種考試的現(xiàn)狀分析

當(dāng)前無論是各級學(xué)校各種課程考試，還是各種公司人才招聘考試，通常筆試都采用考生在紙質(zhì)試卷上答題，紙質(zhì)試卷通常用Word軟件制作。評卷人員再在紙質(zhì)試卷上評閱并給分，最后將得分手動記錄到紙質(zhì)成績冊上。如果要對得分作分析的話還需手工輸入計算機形成電子成績冊。因此要完成考試過程須經(jīng)過制卷、監(jiān)考發(fā)卷、收卷、評卷、記成績等煩瑣的工作。

如果在Word制作的試卷文檔文件的基礎(chǔ)上加入VBA控件技術(shù)，借助計算機及網(wǎng)絡(luò)工具，讓考生答題、教師評卷、成績記錄都在一個Word文件中完成，最后還能自動形成成績冊文檔，既可節(jié)約很多紙張，同時也大大減少評閱人員的繁鎖工作?，F(xiàn)在很多省份的高考評卷已經(jīng)采用計算機及網(wǎng)絡(luò)完成了。當(dāng)今計算機應(yīng)用如此普及，用計算機及網(wǎng)絡(luò)自動完成考試全過程是完全可能的。

2 無紙化考試系統(tǒng)總體設(shè)計

該方法設(shè)計的無紙考試系統(tǒng)集成在一個Word文檔中，由封面、多頁試卷、用于提交的VBA按鈕控件等構(gòu)成。

封面頁上有用于試卷使用者身份識別的兩個VBA選項按鈕控件；有考生輸入考號姓名及評卷人員編號姓名的兩個VBA文本框控件；有開始答題和開始評卷的兩個VBA命令控鈕控件；考試和評卷注意事項；注意事項是否閱讀的VBA復(fù)選框控件。如下圖1所示是封面部分截圖。

試卷由多頁構(gòu)成，每小題都由題目（不能修改部分）、答題和得分的VBA文本框控件組成，如下圖2所示為簡答題。

圖1 考試系統(tǒng)封面 圖2 簡答題

3 自動計時

打開一個未啟用的試卷時會出現(xiàn)如下圖3所示的考試時間提示對話框，提示整個考試的時間，并且開始計時，到時計算機會自動收卷。

圖3 考試時間提示框 圖4 評卷人員登陸窗口

4 身份識別

打開考試系統(tǒng)的Word文檔時，如果是一張未啟用的試卷，考生就可以選擇考生的身份后在考生編號姓名后的VBA文本框控件中輸入考號和姓名，勾選“考生注意事項已閱讀”復(fù)選框后出現(xiàn)考生身份信息確認(rèn)的提示框，確認(rèn)無誤后，單擊“開始答題”可以進行考試。同時標(biāo)題欄上顯示考生信息，試卷文檔已更名為考生的考號和姓名，這可以控制代考情況出現(xiàn)，在考試進行中監(jiān)考人員憑標(biāo)題欄上信息與考生的有效證件可以確認(rèn)考生的身份是否相符，同時原始的試卷會自動刪除。

考慮到試卷中有主觀題需手動評卷的情況，考生答題后，教師要打開試卷進行評閱，為了防止考生反復(fù)打開文檔，教師評閱時打開需密碼驗證才能打開，因此教師打開已用過的試卷時系統(tǒng)會出現(xiàn)如圖4所示的提示框，要求輸入評卷密碼，方可打開試卷評閱。這也在考試時間上控制了考試的公平性。

附1：身份識別、自動計時的關(guān)鍵代碼（打開MS-Word Visual basic編輯器）

Sub autoopen（）

If Len（Trim（ActiveDocument.TextBox1.Text）） = 0 Then

MsgBox "考試時間2小時，到時計算機會自動收卷！"， vbInformation， "歡迎使用本系統(tǒng)"

Call runtimer

Else

ps = InputBox（"該試卷已考試，要評卷、查卷請輸入口令"， "登錄密碼"）

If Trim（ps） = "123456" Then

Exit Sub

Else

MsgBox "評卷口令出錯！試卷將關(guān)閉！"

Application.Quit

End If

End If

End Sub

Sub runtimer（）

Application.OnTime Now + TimeValue（"02：00：00"）， "saveit"

End Sub

附2：試卷安全使用控制及根據(jù)考生編號與姓名自動更改試卷標(biāo)題信息的關(guān)鍵代碼：

Sub saveit（）

ChangeFileOpenDirectory CurDir（）

fn = Trim（TextBox1.Text）

ChangeFileOpenDirectory CurDir（）

ActiveDocument.SaveAs2 FileName：=fn， FileFormat：= _

wdFormatXMLDocumentMacroEnabled， LockComments：=False， Password：=""， _

AddToRecentFiles：=True， WritePassword：=""， ReadOnlyRecommended：=False， _

EmbedTrueTypeFonts：=False， SaveNativePictureFormat：=False， SaveFormsData _

：=False， SaveAsAOCELetter：=False， CompatibilityMode：=14

Kill "XX試卷.docm"

End Sub

5 答題和得分VBA控件設(shè)計

一般標(biāo)準(zhǔn)化的判斷題、選擇題、填空題考生答題的VBA文本框控件需設(shè)置其Maxlength屬性值為1或一個指定的長度值；而對于簡答、闡述、作文題考生答題的VBA文本框控件需設(shè)置其Mulitline屬性為True，為了節(jié)約篇幅還需設(shè)置其Scrollbars屬性為2，讓其可以滾動顯示與輸入，同時在答題控件上方提示分段換行方法為“Ctrl+Enter”；所有考生答題VBA文本框控件初始時其Enabled屬性為True，而主觀題得分控件初始時其Enabled屬性為False。這就控制了考生只能在規(guī)定的地方答題，不能隨便給主觀題打分。

6 評分及自動生成考試成績冊

在對所有已考試試卷開始評卷之前，在試卷存放位置創(chuàng)建一個名為“XX課程XX班XX考試成績.txt”文本文件，然后再打開考生已考過的試卷開始評卷。

客觀題自動評分，主觀題由有資格的評卷人員給出各小題及大題分?jǐn)?shù)，單擊考試系統(tǒng)最后的“評卷結(jié)束”VBA命令按鈕控件，系統(tǒng)自動將考生“編號姓名、總成績”以及評卷人員的“編號姓名”等信息自動寫入事先已創(chuàng)建好的文本文件中。

附3：自動產(chǎn)生成績冊關(guān)鍵代碼

ChangeFileOpenDirectory CurDir（）

Open “XX課程XX班XX考試成績.txt” for append as #1

Ksxm=trim（activedocument.textbox1.text） ‘考生編號姓名

Jsxm=trim（activedocument.textbox2.text） ‘評卷人員編號姓名

Zcj= ‘各題得分總和

Write #1，ksxm，zcj，jsxm

Close #1

7 其它安全控制

初始化，設(shè)置所有考生答題及得分的VBA文本框控件的Locked屬性值為True，只有單擊“開始答題”按鈕控件后，才讓考生答題文本框控件的Locked屬性值為False?？刂瓶忌仨氄_輸入考生信息后方可答題。

提交試卷安全控制，單擊考試系統(tǒng)文檔最后的“提交試卷”會出現(xiàn)提交試卷注意事項對話框，讓學(xué)生確認(rèn)后交卷，同時將考生答題文本框的Locked屬性設(shè)置為True，并自動關(guān)閉考試界面，不可再進行考試，使得考試能公平進行。

試卷保護保密，以MS-Word 2010制作的考試系統(tǒng)文檔為例，使用“開發(fā)工具|保護|限制編輯”后勾選“僅允許在文檔中進行此類型的編輯”，在下拉列表框中選擇“填寫窗體”，并單擊“是，啟動強制保護”，設(shè)置保護密碼并保存考試系統(tǒng)文檔即可。這樣使得考生對試卷的卷面無法修改，而且禁用了很多Word軟件的功能，讓考試試卷不會被隨便修改。

主觀題答案保護，由于主觀題答案也集成在考試系統(tǒng)文檔中，為了讓學(xué)生在考試過程中不能看到在代碼中的客觀題答案，對考試系統(tǒng)文檔的代碼也可以進行保密。通過設(shè)置考試系統(tǒng)文檔工程的屬性，設(shè)置“查看工程屬性的密碼”即可。這樣考生就不能看見客觀題的答案。

8 總結(jié)

作者用以上研究結(jié)果制作的《大學(xué)計算機基礎(chǔ)》課程考試系統(tǒng)文檔對學(xué)生進行單元測試，通過互聯(lián)網(wǎng)或局域網(wǎng)發(fā)卷和收卷，在各次單元測試的考試中取得成功，大大減少了教師的工作量。詳細(xì)的制作可以和作者進一步取得聯(lián)系進行交流。