陳鵬

摘要：客觀題考試閱卷不僅費(fèi)時(shí)費(fèi)工還容易出錯(cuò)，用光標(biāo)閱讀機(jī)閱卷，不僅涂答題卡會(huì)浪費(fèi)考生寶貴的答題時(shí)間還增加考試成本?，F(xiàn)在學(xué)校微機(jī)教室大量增加，利用機(jī)房考客觀題只要使用Excel VBA開發(fā)一個(gè)簡(jiǎn)易無紙化考試系統(tǒng)就能實(shí)現(xiàn)計(jì)算機(jī)自動(dòng)閱卷，考試結(jié)束就出成績(jī)，既快又準(zhǔn)確。

關(guān)鍵詞：Excel；VBA；無紙化考試；隨機(jī)組卷；自動(dòng)評(píng)分

一、前言

計(jì)算機(jī)基礎(chǔ)是醫(yī)學(xué)院校學(xué)生必修的一門基礎(chǔ)課，也是當(dāng)代大學(xué)生應(yīng)該具備的基本技能。由于計(jì)算機(jī)基礎(chǔ)這門課程更側(cè)重于學(xué)生的實(shí)際動(dòng)手操作能力，這要比理論知識(shí)更為重要，所以，計(jì)算機(jī)考試的重點(diǎn)應(yīng)該放在考核學(xué)生們的動(dòng)手操作能力上。自我校開設(shè)計(jì)算機(jī)應(yīng)用基礎(chǔ)課程以來，該課程的考核方式經(jīng)歷了很多變化，從開始的筆試考試，到筆試加上機(jī)結(jié)合考試，再到現(xiàn)在的完全上機(jī)無紙化考試，考試的組織工作更加便捷，同時(shí)減少了閱卷工作量。[1]

二、計(jì)算機(jī)基礎(chǔ)課程無紙化考試的優(yōu)勢(shì)

1.教考分離。由于無紙化考試可以事先將大量的考題輸入到數(shù)據(jù)庫中，這些考點(diǎn)都是圍繞著教學(xué)大綱而來，所以，教師將不再為學(xué)生劃分考試重點(diǎn)和范圍，學(xué)生將會(huì)成為學(xué)習(xí)的主體，真正圍繞教學(xué)大綱來學(xué)習(xí)，實(shí)現(xiàn)教考分離。

2.節(jié)約資源。傳統(tǒng)考試需要印制大量的紙質(zhì)試卷，傳統(tǒng)考試環(huán)節(jié)中出題、制卷、監(jiān)考、閱卷等無一不需大量的人力和時(shí)間。然而無紙化考試以大量的題庫資源為依托，自動(dòng)隨機(jī)組卷，考生作答后，系統(tǒng)可自動(dòng)評(píng)卷，公布結(jié)果，大大節(jié)約了時(shí)間、人力和紙張等資源。

3.客觀公正。因?yàn)闊o紙化考試系統(tǒng)是隨機(jī)組卷，這樣可以減少考生相互抄襲的目的。同時(shí)無紙化考試系統(tǒng)的評(píng)分系統(tǒng)是自動(dòng)進(jìn)行運(yùn)行的，相比傳統(tǒng)的紙質(zhì)考試而言要更加的準(zhǔn)確和迅速，可以有效地避免人為失誤，更為客觀、公正。[2]

三、無紙化考試系統(tǒng)設(shè)計(jì)

1.系統(tǒng)設(shè)計(jì)初衷。

幾乎是所有考試都包含大量的客觀題，計(jì)算機(jī)基礎(chǔ)這門課程也不例外，特別是醫(yī)學(xué)院校的學(xué)生，以后參加各種職稱考試也全部都是客觀題，所以本系統(tǒng)主要開發(fā)的是客觀題的無紙化考試系統(tǒng)。

由于office辦公軟件在現(xiàn)代辦公當(dāng)中幾乎無處不在，辦公室、學(xué)生機(jī)房、圖書館，所有計(jì)算機(jī)上都安裝有OFFICE辦公軟件，所以本系統(tǒng)以EXCEL VBA為開發(fā)工具，可以實(shí)現(xiàn)只要有OFFICE的地方就能完成考試，不需要考慮各種硬件軟件要求。

2.VBA簡(jiǎn)介

Visual Basic for Applications（VBA）是Visual Basic的一種宏語言，是微軟開發(fā)出來在其桌面應(yīng)用程序中執(zhí)行通用的自動(dòng)化（OLE）任務(wù)的編程語言。主要能用來擴(kuò)展Windows的應(yīng)用程式功能，特別是Microsoft Office軟件。VBA可以使用宏記錄器記錄用戶的各種操作并將其轉(zhuǎn)換為VBA程序代碼。這樣用戶可以容易地將日常工作轉(zhuǎn)換為VBA程序代碼，使工作自動(dòng)化。[3]

3.系統(tǒng)的實(shí)現(xiàn)

3.1登錄模塊

學(xué)生以自己的學(xué)號(hào)和姓名登陸進(jìn)入考試系統(tǒng)。

3.2隨機(jī)抽題

該模塊從題庫中隨機(jī)抽取規(guī)定數(shù)量的題傳送到“試卷”表中，并將所抽取題目的標(biāo)準(zhǔn)答案?jìng)魉偷健霸u(píng)分表”。

3.3系統(tǒng)定時(shí)。抽題結(jié)束后，系統(tǒng)將在考試系統(tǒng)的狀態(tài)欄中顯示倒計(jì)時(shí)。并在規(guī)定的考試時(shí)間到達(dá)時(shí)，系統(tǒng)自動(dòng)關(guān)閉并自動(dòng)保存學(xué)生的所做題目。具體代碼如下：

Function 倒計(jì)時(shí)（）

Set ws3 = ThisWorkbook.Worksheets（"系統(tǒng)參數(shù)"）

'1、當(dāng)時(shí)間到時(shí)，運(yùn)行"時(shí)間到"程序，結(jié)束考試

If ws3.Cells（19， 2） = ws3.Cells（16， 2） * 3600 Then

Call 時(shí)間到結(jié)束考試

End If

'2、點(diǎn)擊結(jié)束時(shí)，停止倒計(jì)時(shí)

If ws3.Cells（18， 2） <> 0 Then

Exit Function

End If

'32、當(dāng)“暫?！钡褂?jì)時(shí)時(shí)，停止倒計(jì)時(shí)，否則，繼續(xù)計(jì)時(shí)

If ws3.Cells（22， 2） = 0 Then

ws3.Cells（19， 2） = ws3.Cells（19， 2） + 1

Else

ws3.Cells（19， 2） = ws3.Cells（19， 2）

End If

'4、計(jì)算倒計(jì)時(shí)

ws3.Cells（20， 2） = ws3.Cells（16， 2） * 3600 - ws3.Cells（19， 2）

'5、設(shè)置倒計(jì)時(shí)的格式及顯示倒計(jì)時(shí)

a = Int（ws3.Cells（20， 2） / 3600）

b = Int（ws3.Cells（20， 2） / 60 - a * 60）

c = Round（ws3.Cells（20， 2） - a * 3600 - b * 60， 0）

aa = Format（CStr（a）， "00"）

bb = Format（CStr（b）， "00"）

cc = Format（CStr（c）， "00"）

UserForm1.Label7.Caption = aa + "：" + bb + "：" + cc

'6、設(shè)置每間隔一秒鐘運(yùn)行一次

Application.OnTime Now + TimeValue（"00：00：01"）， "倒計(jì)時(shí)"

End Function

3.4自動(dòng)評(píng)分。學(xué)生所選擇的答案?jìng)魉偷健霸u(píng)分表”中和標(biāo)準(zhǔn)答案對(duì)比，自動(dòng)判斷對(duì)錯(cuò)并給出分?jǐn)?shù)。

結(jié)束語

通過無紙化考試，實(shí)現(xiàn)了考試管理和考生成績(jī)管理與分析統(tǒng)計(jì)的自動(dòng)化，大大減少了考試成本，使教師從繁重的出卷、評(píng)卷工作中解放出來，有更多時(shí)間來推進(jìn)教學(xué)改革，加強(qiáng)科研工作，提高教學(xué)質(zhì)量。無紙化考試應(yīng)成為院?？荚嚨囊环N重要的考試方式。

參考文獻(xiàn)：

[1] 余廷忠. 基于VBA的智能考試及自動(dòng)評(píng)分系統(tǒng)設(shè)計(jì)[J]. 畢 節(jié) 學(xué) 院 學(xué) 報(bào)， 2014，8（32）：73-80.

[2] 李娜，余升.計(jì)算機(jī)基礎(chǔ)考試系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].甘肅科技，2008，24（24）：52-54.

[3] 張貽忠. 利用Excel VBA制作無紙化客觀題考試系統(tǒng)[J].電腦編程技巧與維護(hù)，2012，17：45-54.endprint