VBA在VB程序设计教学中的实践与思考

1、VBA在 VB程序设计教学中的实践与思考 VBA 应用缘起当学生学习了 VB中的if语句后，笔者要求学生用 VB来实 现成绩优、良、中、差的评价。从课堂反应看，大多数学生对编 写代码毫无兴趣， 甚至有的学生提出运用 Excel 中的判断就能实 现，为什么还要学习编写程序呢？纵使笔者解释了原因， 学生还 是不以为然， 不能引起重视。 这时笔者想到可以用程序来解决学 生熟悉但又不能实现的东西， 这个问题还必须是学生已有的编程 水平可以驾驭的， Excel 学生已经很熟悉了，但有些功能还不能 很好地实现，而借助VBA来再开发，能使学生体会到编程的魅力， 激发其学习热情。 微案例过程：投票统计在学习V

2、B中的if语句前，笔者提出了仅用Excel课堂模拟 来给 5 个候选班长统计票数， 学生通过在人名下修改所得票数来 计数（如图 1）。通过手动修改数字来计票还是很麻烦，学生学过VB中的if语句后，笔者提出问题：同学们能不能通过编程来实现，只要在 人名下的单元格上单击一次，就能自动计票一次呢？复习条件语句的基本格式：If 条件 then 语句组 1 else 语句组 2或： if 条件 then语句组 1Else语句组 2End if 同时笔者给出了如下代码引导学生模仿完成：If Target.Address = $A$3 ThenTarget.Value = Target.Value + 1

3、完整程序代码如图 2 所示。从课堂完成情况看， 大部分学生都能够独立完成作业， 而且 几乎没有学生不做作业的， 笔者同时要求有能力的学生完成如图 3 所示的拓展题。微案例（拓展）：成绩优、良、中、差评价。功能要求：在 B1 单元格中输入成绩（分数），点击后， B2 单元格按D1 ： E5中条件显示“优秀”或“较差”等判断结果。提示代码：If Sheet1.Range （ b1 ） = 90 ThenSheet 1 .Range （b2 ） = 优秀 笔者在给出了提示代码后， 部分学生自主学习， 套用多条件 判断语句的格式，独立完成了拓展题。具体代码如下：If Sheet1.Range （ b1

4、 ）=90 ThenSheet 1 .Rang （b2 ）=优秀ElseIf Sheet1.Range （ b1 ） =80 ThenSheet1.Rang （ b2 ）=良好 ElseIf Sheet1.Range （ b1 ） =70 ThenSheet1.Rang （ b2 ）=中等 ElseSheet1.Rang （ b2 ）=较差 End If事实上， 在一节课中很多学生独立完成了拓展题， 并且课下 还有部分学生继续提问、讨论。 思考 程序设计语言可以培养学生运用算法来解决实际问题的能 力，这种解决问题的方式是计算机所独有的， 也只有通过对计算 机程序设计语言和程序设计方法的学习才有

5、可能获得这种解决 问题的能力。而在常规教学中，教师如果按照课本中给的例子， 无法有效激发学生解决问题的兴趣， 所以笔者就想到依托学生熟 悉的Excel软件，借助VBA程序来实现Excel中的问题，在课堂 中以问题导学为主， 先提出问题， 引导学生和教师一起思考解决 问题的思路， 发挥学生的主体作用， 课堂教学一直在活跃的气氛 中进行。 这对教师也是一个挑战， 要善于发现学生熟悉的但不易 实现的教学实例。教师在讲解 if 单判断语句时，以投票统计为 引导，让学生在拓展中探讨多条件判断结构， 培养学生自主学习 解决问题的能力。例如，在 Excel 表格中，第一列中输入计算公 式，实现结果是只要选中要计算的公式后， 结果就输出到第二列 相应位置（如图 4）。这样的功能在 Excel 中是不能直接实现的，我们可以借助Excel VBA语言中for循环来实现，相信学生也会非常感兴趣