蘭清昭

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

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

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

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

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

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

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

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

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

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

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

3 自動計時

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

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

4 身份識別

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

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

附1：身份識別、自動計時的關鍵代碼（打開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 "評卷口令出錯！試卷將關閉！"

Application.Quit

End If

End If

End Sub

Sub runtimer（）

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

End Sub

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

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控件設計

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

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

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

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

附3：自動產(chǎ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 其它安全控制

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

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

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

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

8 總結(jié)

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