设计意图
情
境
导
入
与同学们玩真心话大冒险的游戏，让学生们体验该程序的流程与趣味性，产生兴趣，从而提高他们主动学习的积极性。
参与游戏
通过贴近学生的游戏来引入今天的课程
教学
环节
教师活动
学生活动
设计意图
学
习
新
知
学
习
新
知
一．IF多分支语句流程图的画法
小结：IF多分支流程图用菱形符号，在菱形框中设置条件，依次判断条件是否成立，当满足某个条件时，执行相应的语句，其余分支不再执行；若条件都不满足，就什么都不执行。
《IF多分支结构》教案
教学对象
高一年级的学生
课题
IF多分支结构
教学
目标
知识目标
1、识记if多分支结构的语法格式
2、能够读懂理解多分支结构程序
（command控件的新属性：style属性和backcolor属性)
(消息框函数MsgBox)
能力目标
1、根据学生的实际能力，通过阅读程序，学会模仿
2、有效、合乎规范的使用多分支结构解决编程中的实际问题
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Coled = False
情感目标
1、真心话大冒险的游戏贴近学生，程序生动有趣，既能让学生学到程序设计的方法，又能提高学生主动编程的积极性
2、在学习过程中培养学生探索求知的精神
教学
重点
1、if多分支结构的执行过程
2、if多分支结构的语法格式
教学
难点
利用if多分支来解决实际问题
教学
准备
计算机、教学课件
棒棒糖
教学
环节
教师活动
学生活动
二、If多分支结构语句的格式
if <表达式1> Then
<语句块1>
ElseIf <表达式2>Then
<语句块2>
ElseIf <表达式3>Then
<语句块3>
…
[Else
语句块n+1]
End If
小结
1、不管有几个分支，依次判断，当某条件满足，执行相应的语句，其余分支不再执行；若条件都不满足，且有Else子句，则执行该语句块，否则什么也不执行。
2、ElseIf不能写成Else If。
3、只有最后一个End If。
4、else部分可以省略。
三、真心话大冒险程序的设计
1、整体界面设计
对象有按钮和时间控件。
2、程序刚开始的时候，9个真心话大冒险的按钮是不能按的，于是将这九个按钮的enabled属性设置为false,style属性设置为1-Graphical。介绍按钮的style属性。
ElseIfx = 9Then
Command5.BackColor = vbRed
Command4.BackColor = &H8000000F
End If
End Sub
4、停止之后要点击该真心话大冒险的按钮，会弹出窗口显示你的真心话大冒险任务。讲解MsgBox函数。
学生观察并
记住语句格式
听讲记录，学会IF多分支语句的写法
ElseIfx = 2Then
Command2.BackColor = vbRed
Command1.BackColor = &H8000000F
ElseIfx = 3Then
Command3.BackColor = vbRed
Command2.BackColor = &H8000000F
ElseIfx = 4Then
Private Sub Timer1_Timer()
x = x + 1
If x = 10 Then x = 1
Ifx = 1Then
Command1.BackColor = vbRed
Command5.BackColor = &H8000000F
Command1.Enabled = True
Command2.Enabled = False
小结if多分支语句的结构
了解if语句流程图的画法
小结流程图的组成
了解if语句的结构
课堂小结
让学生回顾本节课的内容，加深印象
IF多分支流程图和语句If…then…elseif…then…elseif…then…(else…)end if
回想一下刚才学才的内容，
强调重点、难点，对知识点的重复讲解，加深学生印象
3、timer控件用来实现开始挑战之后显示的红色闪烁。按钮变红的顺序是1-2-3-6-9-8-7-4-5-1，有九种情况，所以用if多分支结构来实现。停止之后，该按钮变红，上一个按钮变回原来的颜色，且只有该按钮能点，其他八个真心话大冒险的按钮enabled要设为False，以及讲解按钮的backcolor属性。关键代码如下：
Command6.BackColor = vbRed
Command3.BackColor = &H8000000F
ElseIfx = 5Then
Command9.BackColor = vbRed
Command6.BackColor = &H8000000F
ElseIfx = 6Then
Command8.BackColor = vbRed
Command9.BackColor = &H8000000F
ElseIfx = 7Then
Command7.BackColor = vbRed
Command8.BackColor = &H8000000F
ElseIfx = 8Then
Command4.BackColor = vbRed
Command7.BackColor = &H8000000F