第二章第3节：程序选择结构——多重选择语句

第二章第3节：程序选择结构——多重选择语句

教学基本信息

课题多重选择语句

学科信息技术年级高一

教材书名：《算法与程序设计》出版社：广东教育出版社

指导思想与理论依据

新课程理念强调结合学生生活和学习实际设计问题，通过自主探究、小组合作、教师引导等多种学习方式解决实际问题，让学生在分析问题、设计算法、编写程序、调试程序的过程中，学会用计算机解决问题，进一步掌握信息技术、增强信息意识、提高信息素养。新课程还强调教师应该通过对课程内容的合理延伸或拓展充分提高学生学习兴趣，挖掘学生潜力，培养学生发现、探究、解决问题的能力，最终实现学习方式的转变，为终身学习做好准备，本教学设计就是在此背景下设计实施的。

教学背景分析

教学内容：《多重选择语句》是第二章第3节的“程序选择结构”中的一个重要的组成部分，是在学完程序的顺序结构、程序选择结构IF语句后，是对选择结构更深入的了解和应用。多重选择语句能够很好解决当条件较丰富的情况下，如何使程序的可读性、易用性增加，更好的解决所出现的问题。通过本节的学习，让学生理解多重选择语句的结构，学会利用多重选择语句来解决实际问题，进一步激发学生的求和欲。

学生情况：高一（9）是年级中的重点班，学生信息技术基础可以，学生学习习惯好，接受能力强。前面学习了分析问题、设计算法、编写程序等解决问题的基本过程。在VB语言中的顺序结构中，学生基本上能够利用计算机完成简单计算、输入、输出功能，会使用If语句来解决两种情况的判断和选择问题。在本节课中，通过在多种条件环境下来理解if语句的不足和多重选择语句的结构与功能，达到本节课的教学目标。

教学方式：自主学习法、合作探究法、讲授法、任务驱动法

教学手段：多媒体广播系统、演示文稿

教学目标

知识与能力目标：

1、掌握VB语言的多重选择语句的格式、功能和执行过程。

2、掌握VB语言的表达式、表达式列表等程序设计语言的基本知识。

3、学会使用VB语言的多重选择语句来实现选择控制结构，解决实际问题。

过程与方法目标：

1、经历分析问题、设计算法、编写程序、调试程序等用计算机解决问题的过程，体验成功的快乐。

2、了解正确的程序书写格式，初步掌握程序调试运行的方法。

情感态度与价值观目标：

1、在老师指导下，与同学共同探究问题，让学生体验自主学习、协作学习的乐趣。

2、通过解决各种实际问题，感受计算机为生活服务的乐趣，建立使用计算机编程解决生活中实际问题的信心。

教学重点、难点

教学重点：理解多重选语句的结构。

教学难点：在理解多重选择语句结构的基础上，如何利用计算机来解决生活中的实际问题。

教学策略设计

在教学中通过如何使用键盘控制移动的坦克，用if语句进行比较，发现if语句解决这类问题的不足，引出多重选择语句，引导学生去解决这类问题。教学中采用了“小组讨论”、“学生探究”、“任务驱动”、“师生互动”等方法。

教学过程设计

教学阶段教师活动学生活动设计意图时间

一、复习旧知

提问前面所学习过的键盘事件及如何让控件移动的原理。复习提问回答问题复习旧知，

承上启下 3

二、新授课

1、提出问题：如何使用键盘上下左右和ASWD 八个按键实现两个坦克的不同方向的移动，并加载不同的图片？提问思考培养学生分

析问题的能

力

2

2、分析解决问题，小组讨论：用什么算法和程序语句来解决这个问题呢？引导学生思考，小组讨论。

小组代表回答：用选择结构中的If语句来解决这个问题。

学生练习：用If语句完成移动的坦克代码的编写。 If KeyCode = vbKeyLeft Then

Imgtank.Picture = LoadPicture(App.Path & "\pic\tankleft.jpg")

Imgtank.Left = Imgtank.Left - 200

End If

If KeyCode = vbKeyRight Then

Imgtank.Picture = LoadPicture(App.Path & "\pic\tankright.jpg")

Imgtank.Left = Imgtank.Left + 200

End If

If KeyCode = vbKeyUp Then

Imgtank.Picture = LoadPicture(App.Path & "\pic\tankup.jpg")

Imgtank.Top = Imgtank.Top - 200

End If

If KeyCode = vbKeyDown Then

Imgtank.Picture = LoadPicture(App.Path & "\pic\tankdown.jpg")

Imgtank.Top = Imgtank.Top + 200

End If

If KeyCode = vbKeyA Then

Imgtank1.Picture = LoadPicture(App.Path & "\pic\tankleft.jpg")

Imgtank1.Left = Imgtank1.Left - 200

End If

If KeyCode = vbKeyD Then

Imgtank1.Picture = LoadPicture(App.Path & "\pic\tankright.jpg")

Imgtank1.Left = Imgtank1.Left + 200

End If

If KeyCode = vbKeyW Then

Imgtank1.Picture = LoadPicture(App.Path & "\pic\tankup.jpg")

Imgtank1.Top = Imgtank1.Top - 200

End If

If KeyCode = vbKeyS Then

Imgtank1.Picture = LoadPicture(App.Path & "\pic\tankdown.jpg")

Imgtank1.Top = Imgtank1.Top + 200

End If 提问思考并实践

练习

巩固If语句

的学习

5