陈鹏

摘要：客观题考试阅卷不仅费时费工还容易出错，用光标阅读机阅卷，不仅涂答题卡会浪费考生宝贵的答题时间还增加考试成本。现在学校微机教室大量增加，利用机房考客观题只要使用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、当“暂停”倒计时时，停止倒计时，否则，继续计时

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自动评分。学生所选择的答案传送到“评分表”中和标准答案对比，自动判断对错并给出分数。

结束语

通过无纸化考试，实现了考试管理和考生成绩管理与分析统计的自动化，大大减少了考试成本，使教师从繁重的出卷、评卷工作中解放出来，有更多时间来推进教学改革，加强科研工作，提高教学质量。无纸化考试应成为院校考试的一种重要的考试方式。

参考文献：

[1] 余廷忠. 基于VBA的智能考试及自动评分系统设计[J]. 毕 节 学 院 学 报， 2014，8（32）：73-80.

[2] 李娜，余升.计算机基础考试系统的设计与实现[J].甘肃科技，2008，24（24）：52-54.

[3] 张贻忠. 利用Excel VBA制作无纸化客观题考试系统[J].电脑编程技巧与维护，2012，17：45-54.endprint