江素华　周宏　张彬

摘  要： 随着信息技术的高速发展，计算机基础教学迫切需要与信息技术相结合，为教育教学工作提供更方便、更高效的学习与考核方法。结合VBA的功能及Office办公软件对VBA的良好兼容性，尝试使用VBA代码编写实现对案例、作业及考核的自动评分，达到作业批改的自动化、高质量和高效性，释放教师批改作业的时间用于教学与科学研究。

关键词： VBA; 自动评分; 计算机基础; 教学改革

中图分类号：P391.1          文献标识码：A     文章编号：1006-8228（2022）03-104-03

Abstract： With the rapid development of information technology， computer basic teaching urgently needs to be combined with information technology to provide more convenient and efficient learning and assessment methods for education and teaching. Combined with the function of VBA and the good compatibility of Office with VBA， this paper attempts to use VBA code to realize the automatic scoring of cases， homework and assessment， achieve the automation， high quality and efficiency of homework correction， so as to release the teachers' time of correcting homework for teaching and scientific research.

Key words： VBA; automatic scoring; computer basics; teaching reform

0 引言

如今的社会是一个高速发展的社会，科技发达，信息流通迅速，云计算、大数据等新一代信息技术迅猛发展，高科技时代的产物层出不穷，使人们之间的交流越来越方便快捷，生活和工作也越来越高质高效，计算机已经逐步渗透到生产、学习和生活的各个方面，将计算机技术用于教育教学过程是现代教育的发展趋势，那么把计算机技术用于计算机基础的教学改革中，对学生学习效果进行评价，无论从评价内容、评价方法等各方面都发展了传统测评理论和实践，是教学质量过程监控的重要手段[1]。

1 计算机基础教学现状与需求

⑴ 作业批改现状

目前我校计算机基础课程的教学活动主要采用项目驱动式教学模式，以学生操作为主，无论是案例还是作业，学生根据教师布置的题目完成操作作业，然后教师根据题目要求人工批改作业。从所要批改的作业量来看，每个教学班每周2课时的授课内容，但是平行班级很多，每学期基本上有7个教学班左右，总人数约300人左右，这样老师批改作业就要花费大量的时间，批改一次电子作业有可能需要两天的时间。教师需要时间深入思考和吃透教学内容，还有科研任务要完成，显然时间不够用，这不利于课堂教学效果的提高，因为教师深入研究教学改革的时间少了。

⑵ 教学考核现状

考核环节中，学生的作品质量是关键。学生作品以大作业的形式上交电子作品，教师人工批改，这样的考核方式含有一定的主观性，公平公正稍失均衡。所以需要一种既快捷又高质量的考核方式来实现对学生学习情况的考核。

⑶ VBA

VBA是基于Visual Basic发展而来的宏语言[2]。VBA在Office办公软件中有较好的兼容性，不同版本的Office测评系统一般仍然可以使用[3]，不影響测评成绩，所以使用VBA代码实现对学生学习评价的自动化，可以帮助我们实现原本实现不了的功能，可以让工作变得更高效，让操作变得更方便，随心所欲的定制自己的工作平台。学生作业和期末考核使用VBA的功能开发实现自动评分，可以加快处理数据的速度和准确性，将会大大提高作业批改效率和质量，帮助教师释放出大量的时间用于备课和教学与科学研究[4-5]，促进教育教学质量的提高。

2 基于VBA的教学改革研究

2.1 基于VBA的作业批改改革

⑴ 优化教学案例和作业设计

深入分析现行的计算机基础教材、全国等级考试要求、办公室常用功能等资料，对于现有的教学案例和作业进行进一步的分析，结合考试要点和办公应用实际，对教学内容进行深度分解、融合及重构，设计更为实用的教学案例和作业，实现教学内容的优化设计。如图1所示。

经过探索与实践，我们对计算机基础知识进行了分解、分析，形成新的知识架构，总体优化方案如表1所示。根据知识的分布进行题目的设计，题目设计上要兼顾作业的合理性和实际应用需求，必须有实践性强的内容，才能对学生后续课程的学习及工作以后的办公应用奠定坚实的基础。

根据知识点的优化方案，结合办公实际应用设计题目细节，在不断的实践应用中分析案例，不断的进行优化，以达到兼顾实际应用与知识架构合理的目的。常见的知识应用通过题目具体的设计出来，根据题目设计要求，准备案例素材，然后选择使用VBA的相关功能进行代码编辑，实现自动评分。

⑵ 基于VBA的代码设计

根据作业题目需求，研究VBA的相关功能，设计VBA的相关评分代码。现以Windows作业中的部分题目为例展示VBA代码编写（部分代码）。

Function file_rename_floder（file1 As String）

As Boolean '文件夹改名，文件夹创建

On Error GoTo eh1 '出错处理

Set file_create_temp=CreateObject（"Scripting

.filesystemobject"）

Dim temp1 As Boolean

If （file_create_temp.folderExists（file1）） Then

temp1=True

Else

temp1=False

End If

End Function

⑶ 自动评分的实现

为了使学生能够自己了解对知识的掌握情况，便于对不会的知识进行强化学习与练习，作业设计为学生完成作业后单击交卷按钮可以进行自我评分，弹出学生成绩每小题得分对话框，从每小题得分，学生自己就能够了解自己对知识的掌握情况，对于没有做正确的题目，可以通过与其他同学交流，观看教师在学习平台中提供的视频等一系列活动进一步学习，以此达到真正掌握知识的目的。

⑷ 教师对学生的成绩进行统计与分析

自动统计学生总分。仅仅只有交卷按钮进行评分，那么教师就需要打开评分文件一个一个点交卷，虽然能在一定程序上提高作业批改效率和质量，但打开文件、单击交卷和记录成绩等一系列操作仍然需要花费大量的时间，在实践过程中对评分代码进行优化设计，实现把每个学生的评分成绩能够汇总到一个Excel表中，完成对所有学生成绩的自动统计，这样更进一步的节省教师批改作业的时间。

统计每个小题的分数。只汇总所有学生总分，可以大大提高教师批改作业的效率和质量，但并不能为教师掌握学生的具体学习情况提供更好的帮助，为此进一步对评分代码进行优化，实现对所有学生的每小题得分进行统计，这样就可以更好的把握哪道题得分率低，哪些知识点学生掌握的牢固。对于得分率较低的题目，说明学生对该知识点掌握的不好，然后要进一步分析得分率低的原因有哪些，便于教师进行强化讲解与练习，进一步提高学生的学习效果。

2.2 基于VBA的考核评价

使用VBA的相关功能，完成了教学案例和作业的自动评分，使教师批改作业的质量和效率大提高，在对作业实现自动评分的基础上期末考核也进行了改革，实现自动评分。

期末考核内容。根据计算机基础课程性质和教学内容，期末考核涵盖四部分要点，分别是Windows操作、Word操作、Excel操作和PowerPoint操作，主要考核学生对Office常用功能的掌握情况及灵活应用知识解决实际问题的能力。

使用VBA功能完成考核评分。期末考核设计为分别对考核的四部分内容进行出题，然后编写VBA代码对各部分进行自动评分。试题采用每套题各抽取一份Windows、Word、Excel和PowerPoint进行组卷，学生考核完成后，使用教师端软件收取学生作品，然后进行统一评分。

3 结束语

使用VBA语言对计算机基础的案例、作业及考核实现自动评分，可以大大提高教师的批改效率和正确率，释放出一定的时间使教师进行科学与教学研究，对教育教学质量的提高有很大的促进作用。随着信息技术的快速发展，在今后的教育教学过程中，先进的信息技术与计算机技术将会更深入的融入到教育教学的各个环节，为此将继续深入研究计算机的新知识、新技能，进一步优化作业设计及自动评分系统，逐步改进教学的各环节，使计算机基础的教育教学工作更高效。

参考文献（References）：

[1] 白英，陈颖，张少仲.面向工程教育认证的计算机网络实验教学改革实践[J].计算机时代，2021（9）：74-76，81

[2] 刘航，张建勋.工学结合的职业教育课程开发研究——以云计算课程为例[J].计算机时代，2021（9）：77-81

[3] 王正，葛會会，郑勇明.VBA技术在计算机基础课程学习系统开发中的应用[J].电脑与电信，2016（3）：47-48

[4] 朱彦廷.Excel试题自动阅卷系统的实现[J].福建电脑，2019，35（12）：76-78

[5] 肖英.计算机基础技能测评系统的设计与实现[J].信息通信，2020（10）：104-106

3736501908208