醫(yī)學(xué)院校計算機基礎(chǔ)無紙化考試平臺研究

陳鵬

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

關(guān)鍵詞：Excel；VBA；無紙化考試；隨機組卷；自動評分

一、前言

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

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

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

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

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

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

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

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

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

2.VBA簡介

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

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

3.1登錄模塊

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

3.2隨機抽題

該模塊從題庫中隨機抽取規(guī)定數(shù)量的題傳送到“試卷”表中，并將所抽取題目的標(biāo)準(zhǔn)答案傳送到“評分表”。

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

Function 倒計時（）

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

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

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

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

End If

'2、點擊結(jié)束時，停止倒計時

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

Exit Function

End If

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

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、計算倒計時

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

'5、設(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è)置每間隔一秒鐘運行一次

Application.OnTime Now + TimeValue（"00：00：01"）， "倒計時"

End Function

3.4自動評分。學(xué)生所選擇的答案傳送到“評分表”中和標(biāo)準(zhǔn)答案對比，自動判斷對錯并給出分?jǐn)?shù)。

結(jié)束語

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

參考文獻(xiàn)：

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

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

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