巧用VBA功能实现信息技术课堂作业的实时评价.docVIP

巧用VBA功能实现信息技术课堂作业的实时评价 浙江省天台中学 陈笑玲 联系电话 E-mail:tzcxl00@126.com 摘要：本文针对Microsoft Excel的宏语言Visual Basic for Application（简称VBA）和信息技术课堂优越的网络环境，详细介绍如何利用VBA实现excel上机操作的实时评价和成绩统计，从而能让学生及时了解自己操作的问题所在，让教师及时掌握学生的信息反馈，开展有针对性的教学，达到更好的教学效果。 关键字：VBA 宏代码 实时评价 反馈 在信息技术这门新兴的特别的课堂里，所谓课堂作业用新课程的话说，就是“任务”。信息技术的课堂作业不仅仅是检验学生学习结果的工具，更是引领学生学会操作技能的手段。所以教师如何能通过作业及时了解学生的掌握情况？学生又如何能及时了解自己的操作是否正确？这是个非常重要的问题，但是信息技术的课堂作业不同于其它学科写在作业本上那么一目了然，要及时全部批改完，并且给出分数或者等级，这是个令信息技术教师们头痛的问题。 本人经过实践，运用Excel中的VBA功能和优越的网络环境自行制作了多个信息技术课堂作业的实时评价系统，学生做完之后当场可以判定自己的答题对错，同时教师能收集统计学生的答题情况，下面以Excel操作题为例进行说明： 登陆界面 首先制作一个登陆界面，若要打开工作簿就只显示“如图一”的登陆界面，可事先将其它工作表隐藏起来，在这个登陆界面中要求学生输入自己的学号，输入学号的作用有二个：一是学生自评后的结果以学号为名保存；二是教师统计是也是以学号作为依据。然后点击“点击进入”按钮，即可到具体的练习界面。当然登陆界面也可省略，把这个学号的信息设计在练习界面中，比如要求学生在练习界面的某个单元格输入自己的学号，但这样做学生往往会忘记输入，导致教师无法统计这位学生的得题情况。 图一 图二 图三 二、练习与自我评价 点击登陆界面的“点击进入”按钮后，随即打开的是几个用于练习的工作表，如“图二”所示。这是练习的操作区域，主要包含了四块内容：一是待操作内容；二是作业要求；三是“学生自评”按钮；四是自评结果显示。其中最重要的是“自评按钮”功能设计，主要用VBA实现以下二大功能。 制作标准答案，显示自评结果。 以第1小题，交易额(万元)?=销售量(台)*平均售价(万元/台)）为例，代码如下： For i = 0 To 12 If Sheet2.Cells(13 + i, 3) * Sheet2.Cells(13 + i, 4) = Sheet2.Cells(13 + i, 5) Then Sheet2.Cells(6, 7) = “1” ‘比较单元格是否相等如果相等则在答案显示相应的位置显示1表示正确或者显示“对”也可 Next i 这样制作后点击“学生自评”，将各题的自评结果显示出来，学生可以一目了然，知道哪些题做对了，哪些题做错。 2、统计答题结果并上传至教师机。 点击“学生自评”按钮，如果要把结果上传至教师机，让教师及时了解学生的答题情况，则再需编写以下代码即可。 xuehao = Sheet1.TextBox1.Text ‘获取学号 If xuehao = Then MsgBox 请输入正确的六位学号 xuehao = End If If xuehao Then 将答题结果读取到以学号命名的文本文件中 Open f:\ xuehao .txt For Output As #1 打开文件 ss = For i = 0 To 8 step 2 s = Sheet2.Cells(6+i, 7) ss = ss +mid(str(s),2,1) Next i Print #1, ss Close #1 将学号为名的文本文件拷贝到教师机中 “cjtj”共享文件夹中（cjtj文件夹需事先在教师机中建立） fdir = c:\ xuehao .txt srvdir = \\ teacher \cjtj\ xuehao .txt FileCopy fdir, srvdir End If 三、实时评价统计 如图三所示，是教师用于收集统计每位学生每题的答题情况，具体代码编写如下： Private Sub CommandButton1_Click() Dim sysPath As