计算机一级考试自动阅卷功能设计与实现.docVIP

计算机一级考试自动阅卷功能设计与实现 　　摘 要：实现计算机考试的自动阅卷是计算机教学改革的必然趋势，本文主要介绍了计算机一级考试自动阅卷功能的设计思路和具体功能实现。 　　关键词：计算机一级考试　自动阅卷　Visual Basic 　　中图分类号：TP311.52 文献标识码：B 　　文章编号：1673-8454（2007）09-0047-03 　　 　　一、引言 　　 　　计算机应用是一门以动手操作为主的课程，考试形式通常是上机考试，由于计算机应用是大中专院校非计算机专业的一门公共必修基础课，具有考生的数量大、任课教师少的特点，传统的人工阅卷方法是逐一打开学生的答题文件进行评阅，这种阅卷方法给从事该课程教学的教师带来了繁重的工作量，同时由于人工阅卷带来的疲劳造成阅卷效率低下和阅卷的非客观性，容易给考生的成绩带来人为的不公平性。 　　很显然，人工阅卷已不能满足当前计算机一级考试的需要，为了解决人工阅卷方法的各种弊端，目前我国部分高校自主开发了自动阅卷系统，由于在阅卷中引入自动阅卷系统，使得阅卷的效率和分数的准确率得到了极大的提高，对计算机应用的教学改革起了很大的促进作用。 　　经查阅相关文献，笔者发现目前国内前人所研究的自动阅卷系统主要有两大类，一类是针对主观题型的阅卷系统，一类是针对操作题型的自动阅卷系统，而在操作题自动阅卷的相关研究中，大部分是OFFICE操作题或WINDOWS操作题自动阅卷。[1][2][3][4][5] 它们都带有明显的局限性，实现的方法和原理也较为复杂。由于对自动阅卷的实现原理不是很清楚，以及缺少相应的软件开发人员，目前大部分高校仍然采用人工阅卷的方式进行改卷，为了改变这一现状，使从事公共计算机教学的教师深入了解自动阅卷功能的原理与实现方法，本文就如何用VB实现计算机一级考试的自动阅卷功能进行详细讨论。 　　 　　二、计算机一级考试题型分析 　　 　　计算机一级考试的题型一般分为理论型题目和操作型题目。理论型题目主要考查考生对基本概念、基本理论的掌握程度，一般以选择题的形式出现，其中包括单项选择题和多项选择题；操作题是计算机一级考试的重点，主要是考核考生的实际动手操作能力，题目主要包括文字录入、Windows文件操作、Word文字处理操作、Excel电子表格处理操作和PowerPoint文档操作等。 　　 　　三、自动阅卷功能的阅卷原理 　　 　　我们假定每一场考试结束后，考生的答题文件提交到了服务器上，每个考生的文件都存放在以考生考号和试卷类型命名的文件夹中，例如，某个考生的考号是200518100，试卷类型是A卷，则该考生的所有答题文件都提交到服务器的200518100A文件夹中，自动阅卷程序模拟教师人工改卷的整个过程，按顺序打开每个考生的文件夹，逐一按题目要求和评分标准去比较该考生文件夹下的答题文件，如果回答或操作结果符合题目要求，给予题目指定的分数，最后将考生的考号和每一项的分数进行汇总后写入到成绩文件cj.xls中，接着重复上述步骤评阅下一位同学的答题文件，直到评完所有的考生文件。 　　 　　四、自动阅卷功能的具体实现方法 　　 　　由于理论题及操作题的操作对象不同，我们在开发自动阅卷程序时采用了不同的阅卷方法,下面分别就不同题型的自动阅卷技术展开论述。 　　1.理论题的自动阅卷 　　阅卷程序通过同时打开考生的tan.xls文件和填写了标准答案的tanda.xls文件进行单元格内容匹配比较,也就是将考生每个回答项与标准答案文件中的对应项进行一一比较,只要完全相等，就可以累加题目给定的分数。以下为实现该功能的主要程序代码： 　　//打开择题答答案文件 　　Set xlApp = New Excel.Application //定义xlApp为新的Excel应用程序对象 　　Dim xztdabook As Excel.Workbook //定义工作薄对象 　　//下行代码将打开标准答案文件tanda.xls 　　Set xztdabook = xlApp.Workbooks.Open(App.Path \答案与结果\ tanda.xls) 　　tanfile = txtPath.Text FileName \tan.xls 　　Set xztbook = xlApp.Workbooks.Open(tanfile) //打开考生选择题答卷文件 　　s=0//分数变量初值设为0 　　For j = 1 To 20//通过循环遍历每道小题，这里为20道小题 　　If xztbook.Sheets(1).Cells(j, 3) = xztdabook.Sheets(1).Cells(j, 3) Then 　　s = s +