《用Excel设计标准化试卷的自动判卷系统.doc》由会员分享，可在线阅读，更多相关《用Excel设计标准化试卷的自动判卷系统.doc（5页珍藏版）》请在三一办公上搜索。
1、计 算 机 与 现 代 化2012 年第 1 期总第 197 期JISUANJI YU XIANDAIHUA文章编号: 1006-2475( 2012) 01-0199-04用设计标准化试卷的自动判卷系统Excel花，张伟娜李( 中国传媒大学计算机与网络中心，北京 100024)摘要: 在日常的教学过程中，各种测验、考试，必不可少，因而高效地进行判卷对减轻教师的工作量有非常重要的意义。使用专业的无纸化考试系统，不仅投入多，且不一定适合自己的教学。本文根据通用的标准化试卷的判卷需求，利用 Ex- cel 的数据处理、数据管理和数据安全功能，设计无纸化考试的标准化试卷模板，将 Excel 作为开发
2、平台，用 VBA 语言实 现标准化试卷的自动判卷功能，从而提高判卷效率，减少教师的工作量。该系统操作简单、使用安全、高效，在教学中很 有实用价值。关键词: Excel;VBA;标准化试卷; 自动判卷文献标识码: A中图分类号: TP317 1doi: 10 3969 / j issn 1006-2475 2012 01 053Design of Automatic Grading System for Standardized Examination Papers by ExcelLI Hua，ZHANG Wei-na( Computer and Network Center，Communic
3、ation University of China，Beijing 100024，China)Abstract: In the daily teaching process，many kinds of tests and examinations are indispensable，so grading efficiently is impor-tant for reducing teachers workload Professional paperless examination system not only needs invest more resources，but also no
4、t suits our own all teaching needs Based on the need of general grading standardized paper and using Excel features of data processing，data management and data security etc，this paper designs standardized paperless examination template And using Excel as a development platform，automatic grading syst
5、em of standard examination paper is implemented by VBA langue Auto- matic grading system not only improves teacherswork efficiency，but also reduces the workload of teachers obviously As the system is simple，safe and efficient，there are important practical values in teaching applicationsKey words: Ex
6、cel; VBA; standardized examination papers; automatic grading题为主，试卷一般由试题和答题两个文件组成。在实际操作中，可将试卷打包发布，要求学生提交答题文 件，教师判卷后可以将答题文件反馈给学生。但由于 有些学生操作马虎或不熟练，很容易出现答题时输入 的答案不规范丢分或学生答题时破坏了卷面无法进 行统计等问题。因此，设计的自动判卷系统不仅要使 得标准化试卷的制作既简单、又方便修改，还需要规引言0随着网络和计算机技术的发展，教学中使用无纸化的作业或试卷越来越普遍，但若没有专业的判卷系 统，判卷工作量将非常大。Excel 是功能非常强大的
7、电子表格软件，它不仅提供了丰富的函数、强大的数 据管理功能，还支持 VBA 语言开发应用程序，可以使 重复的工作自动完成。本文设计的自动判卷系统通 过将 Excel 与 VBA 结合起来，实现了无纸化考试中标 准化试卷的制作及自动判卷功能，极大地提高了工作 效率。范学生的操作，杜绝学生因误操作出现丢分的现象。用 Excel 设计的自动判卷系统需满足如下要求:( 1) 保 护 答 题 卷 面，如 题 号、统 计 中 使 用 的 公 式等。( 2) 限制学生答题的位置并要求答题规范，例如 答案必须在相应题号的“答案”一列中输入，单选题答案须为字母 A、B、C、D 之一; 判断题答案须为 T需求分析
8、标准化的试题题型大多以选择题、判断题和填空1收稿日期: 2011-09-28作者简介: 李花( 1972-) ，女( 朝鲜族) ，吉林龙井人，中国传媒大学计算机与网络中心讲师，硕士，研究方向: 多媒体技术; 张伟 娜( 1978-) ，女，山西运城人，讲师，硕士，研究方向: 计算机应用。( 3) 在教师判卷时，需显示正确与否，并统计答将显示答案的正确与 否，如果答案正确显示符号 “”; 否则显示符号“ ”。题结果。不仅统计出不同题型的错误个数，还要根据不同题型的分数，显示出最终得分。( 4) 为了保证数据安全，标准答案要和答题卷分 开存放。( 5) 完成批量判卷，对打开的多个答题文件能够完成批
9、量判卷。本文以 Office 2007 为开发平台，设计标准化试 卷的判卷系统，包括试题、答题和标准答案的模板，以便每次使用时直接从模板生成新的试题、答题和标准答案文件。图 2 答题卷模板创建不同题型数据表格后，通过 Excel 功能限制输入答案的位置以及答案选项，并产生动态边框线。以“单选题”数据表格为例，一般每一种题型数量不超过 100 道题，则具体操作方法如下:( 1) 利用数据有效性规则，限制答案选项。选择判卷系统的设计判卷系统需要设计试题、答题和标准答案 3 个模 板，其中关键是答题和标准答案模板的设计。2 1 试题模板的设计新建 Word 文档，保存为 Word 模板，扩展名为 d
10、otx。设计者可在 Word 文档中自行设置字体、段落、 编号等格式，并写清试题类型以及答案书写的要求。 根据设计的模板创建的试题文件，可以参考图 1。2B3: B102 区域，在数据有效性设置的“有效性条件”中选择“允许”选项为“序列”，“来源”中输入“A，B，C，D”，并取消选择“提供下拉箭头”，此功能使得学生输入答案时必须输入 A、B、C、D 四个字母之一。( 2) 取消对“答案”一列的保护。选择 B3: B102区域，在“设置单元格格式”对话框的“保护”标签中 取消“锁定”，此功能使得当 Sheet1 工作表被设置为 保护时，学生只能编辑“答案”一列。( 3) 利用条件格式，设置动态边
11、框线。选择 A3:C102 数据表格区域，在“条件格式”的“新建规则”对 话框中选择规则类型为“使用公式确定要设置格式的单元格”，在编辑框中输入“ = $“”，并A3 设置“外边框”格式。此“条件格式”的作用在于不管将来单选题题量如何增加或减少，只要输入了单选题 题号，将会自动生成表格线，只要删除了题号，表格线将自动被删除。同样的方式，在“判断题”和“填空题”数据表格 中取消“答案”一列的保护并设置动态边框线，在“判 断题”数据表格的“答案”一列中还需要使用数据有效性规则限制输入项为 T 或 F 之一。在“统计表”数据表格内，输入公式统计不同题型的错误个数以及得分。如统计“单选题错误个数”时，
12、在 N2 单元格内输入公 式: “ = COUNTIF ( C: C，“ ”) ”，在统计“得分”时，在 N9 单元格内输入公式: “ = N8-N2*N3-N4* N5-N6* N7”。图 1 试卷模板答题模板文件的设计新建 Excel 文件，保存为 Excel 模板，扩展名为所有的表格创建完之后，保存模板文件。标准答案模板文件的设计创建 Excel 文件，保存为启用宏的模板文件，扩2 22 3xltx。隐藏 Sheet2 和 Sheet3 工作表，只显示 Sheet1 工作表，并隐藏网格线。在 Sheet1 工作表内创建不同 试题类型的数据表格以及“成绩统计表”表格，如图 2所示。每一个试
13、题类型的数据表格由“题号”、“答展名为 xltm。选择 Sheet1 工作表，创建“单选题”、“判断题”和“填空题”的数据表格，这些数据表格只包含“题号”和“答案”两列，并利用“条件格式”设置 动态边框线。2012 年第 1 期李花等: 用 Excel 设计标准化试卷的自动判卷系统201为了进行自动判卷，在 Sheet1 工作表内插入“开发工具”选项卡的 ActiveX 控件中的命令按钮，在“属 性窗口”中设置 Caption 属性为“自动判卷”，双击此 命令按钮，在 Click 事件代码中输入 VBA 代码完成自 动批卷。这段代码主要完成如下功能:( 1) 从已打开的工作簿文件中，选取要判卷
14、的答题文件。( 2) 取消对答题文件中 Sheet1 工作表的保护。( 3) 比较标准答案和答题文件中的答案，完成判 卷。单选题和判断题的判卷很简单，因为这种题型只 有唯一的答案，但填空题的情况稍微复杂一些。因为有些填空题有可能出现多个可能的答案。举个例子 来说，计算机信息技术基础中有这样一道填空题，Dim fileOpenCount，i As IntegerfileOpenCount = Workbooks CountInputBox ( 请输入解除工作表保护 sheetPassword =密码! )For i = 1 To fileOpenCountWorkbooks( i) Activa
15、tefileName = ActiveWorkbook nameIf ( ( fileName 标准答案 xlsm)And ( fileName PERSONAL XLSB) ) Then和个人宏工作簿文件判卷时排除标准答案文件MsgBox ( 对文件进行批 改?，vbOKCancel，yesOrno =fileName)If ( yesOrno = vbOK) ThenApplication ScreenUpdating = FalseSheets( Sheet1) Protect Password: = sheetPassword，Con-“一个完整的计算机系统由() 和() 组成。”这t
16、ents: = False解除工作表保护一道题两个填空的答案是“硬件系统”和“软件系统”，也可以是“软件系统”和“硬件系统”，也就是说 两个填空题的答案是并列的、无关顺序的。若有这样的题，在标准答案文件中输入答案时要求答案项和答案项之间必须用顿号隔开。若此题的题号为 1，则相 应的两个填空的题号可以给出 1 _1 和 1 _2，对应的第 一个答案位置上输入“硬件系统、软件系统”，而在第二个答案位置上可以为空，表示答案来自于前一个非 空的单元格，也可以输入相同的答案“硬件系统、软 件系统”。根据此模板产生的标准答案文件，如图 3 所示。 ( 此处省略选择题和判断题判卷代码)tempX = 3 o
17、ptionAnswer = While ( Not IsEmpty( Sheets ( Sheet1) Cells ( tempX，9 ) Value) )判断填空题题号是否为空fillAnswer = Sheets( Sheet1) Cells( tempX，10) Value取得相应题号的答案Windows( 标准答案 xlsm) ActivatefillRightAnswer = Sheets ( Sheet1) Cells ( tempX，8 ) Value取得相应题号的正确答案rightOrwrong = 判卷结果startPoint = 1If ( fillRightAnswer
18、= ) Then fillRightAnswer = optionAnswer End IfendPoint = InStr( startPoint，fillRightAnswer，、)If ( endPoint = 0) ThenIf ( fillAnswer = fillRightAnswer) ThenrightOrwrongElse= rightOrwrong = End IfElseIf ( Replace( optionAnswer，、，1) = ) Then optionAnswer = fillRightAnswerElsefillRightAnswer = optionAns
19、werEnd IfrightAnswerLen = Len( fillRightAnswer)DoendPoint = InStr( startPoint，fillRightAnswer，、)If ( endPoint = 0) Then endPoint = rightAnswerLenmidRightAnswer = Mid ( fillRightAnswer，startPoint，end-图 3 标准答案相应地，自动判卷的具体代码如下:Private Sub CommandButton1_Click( ) Dim fileName，sheetPassword As String Dim
20、tempX As IntegerDim singleAnswer As StringDim trueOrfalseAnswer As StringDim fillAnswer，fillRightAnswer，midRightAnswer，rightOr-wrong，optionAnswer As String变量Dim startPoint，endPoint，rightAnswerLen As Integer填空题判卷有关的整型变量Dim yesOrno As String和填空题判卷有关的字符串和Else收卷保存。教师打开标准答案文件，并将学生答题文= Mid ( fillRightAnsw
21、er，startPoint，end-midRightAnswerPoint - startPoint)End If件依次打开。单击标准答案文件的“自动判卷”按钮，输入解除工作表密码，就可以选择答题文件完成 判卷，判卷结果如图 4 所示。If ( fillAnswer= midRightAnswer) ThenrightOrwrong = optionAnswer = Replace ( fillRightAnswer， midRightAn- swer，)Exit DoElsestartPoint = endPoint + 1End IfLoop Until ( startPoint righ
22、tAnswerLen)图 4 判卷结果Excel 判卷系统的优点本文设计的 Excel 自动判卷系统虽然没有其他 专业考试系统的随机抽题、发布、收卷等功能，但优点 也很突出。( 1) 经济实用。只需要 Office 软件和网络平台就可以实现，不需 要投入资金另外购买软件和售后服务，也不需要维护费、服务费等。( 2) 制作速度快，修改方便。根据自动判卷系统模板生成试题、答题、标准答 案文件既简单又快速，并且可以根据不同的教学需求 方便、直观地进行修改。比如选择题既有一分题也有 两分题时，重新设计答题模板的“统计表”即可。( 3) 安全性高。本系统中将标准答案和答题卷分开保存，而且在 答题文件中使
23、用数据有效性规则、单元格和工作表保护等设置避免出现学生的误操作。( 4) 判卷速度快，成绩反馈也方便。一份答题文件从打开到判卷结束统计出结果，不 过短短几秒，效率非常高。答题文件可以完整地保存 下来，以便学生查阅。4If ( startPoint rightAnswerLen)ThenrightOrwrongEnd IfEnd If= Windows( fileName) ActivateSheets ( Sheet1) Cells ( tempX，11 ) Value wrongtempX = tempX + 1WendWindows( fileName) Activate=rightOr-
24、Application ScreenUpdatingEnd If End If Next i End Sub= True上述代码在 Excel 2007 环境下运行通过。3 判卷系统的应用3 1生成试卷根据试题模板和答题模板、标准答案模板生成新文件，其中根据标准答案模板产生的文件命名为“标准答案 xlsm”( 保存为启用宏的工作簿文件，文件名 和源代码有关) 。在试题文档中输入试题内容，在标 准答案文件中输入相应的题号和每题答案，在答题文件中输入题号和每一种题型的每道题分数，也可将标准答案中的题号复制、选择性粘贴到答题文件的题号 一列。答题文件中的 Sheet1 工作表还需要设置保护 并输入密
25、码。结束语笔者设计的 Excel 自动判卷系统，在实践中得到 了很好的验证。因制作简单、修改方便、效率高，得到 了很多教师的认可。目前，在学校或企事业单位中 Office 软件非常普及，网络平台的应用也很普遍。若 不考虑随机抽题、组卷、在线控制等因素，自动判卷系 统可轻松完成教学中的作业、考试、竞赛等任务，也可 以方便地应用在企事业单位的客服测评、问卷调查等5发布和判卷打包试题文件和答题文件，通过网络平台发布。 要求学生在答题文件中输入答案，并将文件名更名为 自己的学号_专业 xlsx 提交。这个过程并不难实现， 编写一个批处理文件，可把打包文件发布到每台机子 上，为了避免出现答题文件被复制等
26、现象，可断开网3 2工作中。使用 Excel 自动判卷系统非常经济、有效，因此该系统具有很好的推广价值。( 下转第 206 页)计算机与 现 代 化2012 年第 1 期2062李海昌 网络电视的现状和前景EB / OL http: / / wwwdoc88 com / p-99694682960 html，2010-11-29刘学峰，陈晨 网络电视: 跨界发展的挑战J 网络传 播，2011( 1) : 38-40朱陈洁，叶德建 面向嵌入式机顶盒终端的 P2P 网络电34视直播系统的设计与实现J 中国图象图形学报，2007，12( 10) : 1706-1709华清远见嵌入式培训中心 嵌入式
27、Linux 应用程序开发 标准教程( 第 2 版) M 北京: 人民邮电出版社，2009 韦东山 嵌入式 Linux 应用开发完全手册M 北京: 人 民邮电出版社，2008SHDX / ZS / CZ / JG /002 / A /2008，机顶盒与 IPTV 业务运 营平台接口技术规范 V2 2SChristopher Hallinan Embedded Linux Primer: A PracticalReal-World ApproachM Prentice Hall，2006Webkit The Webkit Open Source ProjectEB / OL http: / /ww
28、w webkit org / ，2011-02-0656图 4 运行效果图用户在此页面上可以进行一些操作。结束语本文详细分析了 IPTV 方面的相关知识，对其中7389的一个功能如 EPG 所使用的重要技术 Webkit 进行了阐述和分析，并对 Webkit 引擎作了一些改进，且成 功地将 其 移 植 到 ARM11 上。 实 验 结 果 显 示 基 于 Webkit 的嵌入式浏览器是非常优越的，并且其为开 源代码，可移植性和兼容性也相当不错，因此通过改 进的嵌入式浏览器有着广泛的应用前景。以后相当 长的一段时间，笔者将进一步研究基于 Webkit 的嵌 入式 Linux IPTV 机顶盒浏览
29、器，并进行实验验证，将 其尽早转化为用户满意的产品。10 赵经纬，周余，王自强，等 基于 Webkit 的嵌入式浏览器的研 究 与 实 现J 电 子 测 量 技 术，2009，34 ( 3 ) :135-13811 侯 炯 Webkit 分 析 报 告R 中兴通讯股份有限公 司，200812 侯炯 Webkit 分析报告 R 中兴通讯股份有限公 司，200913 姜江 Webkit-Webkit for AndroidEB / OL http: / / www jjos org / android /2010 /05 /10 /312 _ webkit-webkit-for-an- droid
30、 html，2010-05-1014 杜 全 稳 DirectFB + GTK + Webkit 在 ARM 上 的 移 植参考文献:1美辛普森，美格林菲尔德 IPTV 与网络视频: 拓展广播电视的应用范围M 郎为民，焦巧译 北京: 机械 工业出版社，2008EB / OL http: / / www eifr com / article php? id = 1152，2010-10-17檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼檼( 上接第 202 页)参考文献:8李菲菲 基于计算机网络环境下的无纸化考试J 福建电脑，2005( 8) : 8
31、9，83王与巷 批量修改标准化试卷-Excel 关键时刻显身手J 大众电脑，2004( 11) : 60-611郑开涛，游碧蓉 用 Excel 来制作标准化试卷J 福建电脑，2010( 11) : 185-186杨军 用 Excel 来制作标准化试卷自动阅卷系统J 电 脑知识与技术: 学术交流，2006( 36) : 206-207张光建 基于 VB 语言无纸化考试系统设计与实现J福建电脑，2010( 11) : 147-148刘广孚，殷爱贞 巧用 Excel 处理学生成绩J 微型电 脑应用，2010，26( 10) : 58-61甘伟明 用 Excel 构建计算机等级考试自动改卷评分系 统J
32、 电脑学习，2010( 2) : 54-55陈明 无纸化考试系统综述J 计算机教育，2007 ( 5 ) :12-15陈旭平 利用 Excel 设计制作在线自测系统J 中国科 技信息，2005( 14) : 68，899210 刘占阳，孙海波，王亮，等 计算机无纸化考试系统的设计 与 实 现J 河北省科学院学 报，2003，20 ( 4 ) :217-22011 道奇，等 精通 Excel 2007 中文版M 汪青青，等译 北 京: 清华大学出版社，200812 庄东填，利业鞑 Excel 2007 中文版实用教程M 北京: 中国水利水电出版社，200813 罗刚君 Excel VBA 程序开发自学宝典M 北京: 电子 工业出版社，200914 韩加国，等 Excel VBA 从入门到精通M 北京: 化学工 业出版社，200934567
