方波　李亞男　劉加加　蘭清昭

摘要：運(yùn)用Excel完成了考試系統(tǒng)的登錄和評(píng)分的自動(dòng)化，簡(jiǎn)化現(xiàn)有考試的繁雜步驟，讓學(xué)生就能完成考試整個(gè)過(guò)程。

關(guān)鍵詞：VBA；Excel；考試系統(tǒng)；自動(dòng)化

中圖分類號(hào)：TP312 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1009-3044（2015）08-0048-02

Abstract： Using Excel to complete the automation examination system login and scoring，let the students can independently complete the whole process of examination.

Key words： VBA； Excel； the test system； automation

1 運(yùn)用現(xiàn)況及目的

在對(duì)當(dāng)前流行考試系統(tǒng)分析時(shí)，教師繁雜而重復(fù)的任務(wù)幾乎是中國(guó)的普遍現(xiàn)象。而vba的高效率和簡(jiǎn)易能在一定程度減輕教師負(fù)擔(dān)。僅僅一個(gè)Excel生成的xls文件就能讓考試時(shí)的發(fā)卷，監(jiān)考，評(píng)卷全過(guò)程實(shí)現(xiàn)自動(dòng)化，并讓學(xué)生立即知道最后得分。

2 程序運(yùn)行流程及實(shí)現(xiàn)代碼

1）打開(kāi)程序時(shí)會(huì)提示考試規(guī)則，并要求學(xué)生在兩個(gè)文本框中輸入合法參加測(cè)試學(xué)生的學(xué)號(hào)和姓名，以此驗(yàn)證考試身份（此時(shí)隱藏了考試試卷，以防考試前便看見(jiàn)試題或者非考生進(jìn)入考試）。當(dāng)學(xué)生輸入的學(xué)號(hào)與姓名不合法或不一致時(shí)，點(diǎn)擊“開(kāi)始考試”便提示錯(cuò)誤，只有學(xué)生輸入正確的學(xué)號(hào)和姓名時(shí)才能進(jìn)入考試界面。

實(shí)現(xiàn)代碼：提前將考生信息輸入到考試系統(tǒng)，再利用vba的循環(huán)語(yǔ)句，將學(xué)生在學(xué)號(hào)框中輸入的信息一一地與正確學(xué)號(hào)對(duì)比。學(xué)號(hào)不一致，則與信息表中的下一個(gè)學(xué)號(hào)相比較，當(dāng)學(xué)號(hào)一致時(shí)，判斷姓名是否一致。若一致，退出循環(huán)并開(kāi)始考試，若不一致，則提示“錯(cuò)誤”，且退出循環(huán)，不再繼續(xù)比較。

2）進(jìn)入考試后，初始化試卷，讓所有文本框?yàn)榭眨_保文本框中沒(méi)有內(nèi)容影響考生。整個(gè)試卷表格設(shè)置了保護(hù)，防止學(xué)生修改試卷內(nèi)容。此時(shí)學(xué)生只能在答題區(qū)對(duì)應(yīng)的文本框中輸入答案，直至考題最后的“交卷”。為了防止學(xué)生錯(cuò)誤點(diǎn)擊，學(xué)生點(diǎn)擊“交卷”后，會(huì)提示是否確定交卷，這也讓學(xué)生能夠確定自己正在交卷。若“否”則可以繼續(xù)考試，若“是”則系統(tǒng)立即評(píng)分并且彈出提示框提示學(xué)生的最后得分，學(xué)生完成整個(gè)考試內(nèi)容。

3）提交試卷后，系統(tǒng)自動(dòng)評(píng)分完成后提示學(xué)生得分，讓學(xué)生立即知道分?jǐn)?shù)。最后將所有文本框和命令按鈕設(shè)置為不可用狀態(tài)，讓學(xué)生不可修改已做過(guò)的題目或者修改分?jǐn)?shù)，考試得以公平化。

整個(gè)過(guò)程都是由程序自動(dòng)完成，利用vba的文本框等控件即可在一個(gè)xls文檔中測(cè)試出學(xué)生對(duì)知識(shí)掌握情況，無(wú)需教師手工發(fā)卷、收卷、評(píng)卷，該系統(tǒng)就能輕松完成整個(gè)考試過(guò)程。

參考文獻(xiàn)：

[1] 李政， 梁海英， 李昊. vba應(yīng)用基礎(chǔ)與實(shí)例教程[M]. 北京： 國(guó)防工業(yè)出版社， 2009： 313-315.

[2] star-ula. 求助用VBA隱藏和取消隱藏工作表[EB/OL]. http：//club.excelhome.net/thread-871515-1-1.html.

[3] Moneky. VBA可用的自定義Timer控件[EB/OL]. http：//club.excelhome.net/thread-327339-1-1.html.