醫學院校計算機基礎無紙化考試平臺研究

陳鵬

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

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

一、前言

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

二、計算機基礎課程無紙化考試的優勢

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

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

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

三、無紙化考試系統設計

1.系統設計初衷。

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

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

2.VBA簡介

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

3.系統的實現

3.1登錄模塊

學生以自己的學號和姓名登陸進入考試系統。

3.2隨機抽題

該模塊從題庫中隨機抽取規定數量的題傳送到“試卷”表中，并將所抽取題目的標準答案傳送到“評分表”。

3.3系統定時。抽題結束后，系統將在考試系統的狀態欄中顯示倒計時。并在規定的考試時間到達時，系統自動關閉并自動保存學生的所做題目。具體代碼如下：

Function 倒計時（）

Set ws3 = ThisWorkbook.Worksheets（"系統參數"）

'1、當時間到時，運行"時間到"程序，結束考試

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

Call 時間到結束考試

End If

'2、點擊結束時，停止倒計時

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

Exit Function

End If

'32、當“暫?！钡褂嫊r時，停止倒計時，否則，繼續計時

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、設置倒計時的格式及顯示倒計時

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

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

End Function

3.4自動評分。學生所選擇的答案傳送到“評分表”中和標準答案對比，自動判斷對錯并給出分數。

結束語

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

參考文獻：

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

[2] 李娜，余升.計算機基礎考試系統的設計與實現[J].甘肅科技，2008，24（24）：52-54.

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