活动一 用IF语句实现简单选择结构 教学设计
1教学目标
知识与技能：
理解选择的含义
明白IF语句的定义格式
过程与方法：
体验使用IF语句编写程序的过程
能使用IF语句解决简单分支问题
情感态度和价值观：
能通过本课体会到编程的乐趣，锻炼自身的逻辑思维能力
2学情分析
教学对象为高中一年级的学生，这部分学生具有一定的逻辑思维能力，在初中阶段，也大多体验过简单的程序编写，少数学生有信息学奥赛的经历。对信息技术课程特别是算法与程序设计有浓厚的兴趣，但信息技术基础不是很扎实，个别有眼高手低的毛病。
3重点难点
重点：
什么是选择结构
IF条件语句的格式
难点：
IF语句换行与不换行的区别
4教学过程
知识与技能：
理解选择的含义
明白IF语句的定义格式
过程与方法：
体验使用IF语句编写程序的过程
能使用IF语句解决简单分支问题
情感态度和价值观：
能通过本课体会到编程的乐趣，锻炼自身的逻辑思维能力
4.1.2学时重点
重点：
什么是选择结构
IF条件语句的格式
4.1.3学时难点
难点：
IF语句换行与不换行的区别
4.1.4教学活动
活动1【导入】为我们的小游戏程序添加不同的玩法
回顾上节课学生的学习情况，展示优秀学生的案例。
提出问题：
若想向他们一样，一个程序窗口有不同的功能，用以往的顺序结构的方式是否可以实现呢？
活动2【讲授】选择结构
利用流程图说明解决上面问题需要运用到新的语句——选择结构IF语句
活动3【讲授】IF语句的格式推导
由生活中的英语语法，推导出IF语句的格式（可见，VB作为一种高级语言程序，程序的语法是来源于生活，好学好用）
活动4【活动】为小游戏设置权限
理解刚才说明的IF语句的简单格式，解决导入部分提出的问题——为你的小游戏程序添加权限：
1. 设置你自己的口令（密码或提示语），限制2个小游戏的开启。
2.如果口令错误则使用弹出窗口msgbox提示”口令错误”。
利用新的语句解决导入部分提出的问题。
活动5【讲授】阶段小结和深化
此前小游戏出现问题的统一解答（含参考答案）
补充：IF语句的格式扩展
IF条件为真THEN
语句块1
ELSE
语句块2
ENDIF
活动6【活动】为小游戏设置年龄限制
生活中我们一般会根据游戏对象的不同，设置不同的游戏内容（简单游戏分级）现在，让我们也来实现看看。
活动7【讲授】前面任务完成必要的补充内容说明
1.开区间的处理
2.闭区间的处理
活动8【作业】选做任务
增大难度，需要用到IF语句嵌套格式（非本节内容，但是关联度很大）提供给学有余力的同学完成。
课件22张PPT。第三节 选择结构 在解决一个较复杂的实际问题时，往往需要根据某些条件作出判断，或是有条件地执行某一操作。计算机程序中的选择结构能让程序根据不同的情况，执行不同的程序段，得到不同的结果。一、控制条件（一）关系运算符和关系表达式
1、关系运算符2、关系表达式
条件 关系式X与Y的和大于3
一元二次方程的判别式小于0
N为偶数
字符串变量N$的值不是ZHENG X+Y>3
B^2-4*A*C<0
N/2=INT(N/2)
N$<>”ZHENG” 关系表达式的值只有两个，即真和假。在VB中真显示为“True”表示，假显示“False”表示。在同一表达式中有多种运算符，先做算术运算，再做关系运算。课堂练习一阅读以下程序，写出运行结果Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Dim d As Boolean
A=3
B=2
C=1
D=a=c
Print d
Print a=b, c+1=b, c=2
End Sub 运行结果为：
False
False True True（二）逻辑运算符和逻辑表达式1、逻辑运算符2、逻辑表达式
条 件 表达式 60≤x<70
A、B、C为三角形三条边，该三角形为等腰三角形的条件
X、Y、Z三个数中X为最大者的条件（x>=60）and (x<70)(A=B) OR (A=C) OR (B=C)(X>Y) AND (X>Z)3、逻辑运算符的优先顺序
NOT→AND→OR有一逻辑表达式如：a Or b And Not c 此表达式首先执行Not c，再将其结果与b与运算，最后将结果与a进行或运算。其运算顺序如图：a Or b And Not c①②③课堂练习一假
真
假
真真
假
假
假真
真
真
假（三）混合运算的优先级算术运算→ 字符串运算→关系运算→逻辑运算例：c+a>b+5 Or a0 ③④当a=1,b=-8,c=3时输出结果是：True二、分支结构（条件语句）程序设计1、简单IF语句IF 条件 THEN
语句组
ENDIF格式流程图功能：如果条件成立(为真)，那么执行THEN后面的语句组，否则执行ENDIF以后的语句 输入一个数，如果这个数不等于零，那么输出它的倒数，否则不显示。 例1：1、输入X
2、判断是否x<>0？
是则（1）Y←1/x （2）输出Y
否则直接结束
3、结束算法 程序 Private Sub Form_click()
Dim x As Single
Dim y As Single
x = InputBox("x=")
If x <> 0 Then
y = 1 / x
Print "y="; y
End If
End Sub2、IF/Then/Else语句格式流程图IF 条件 THEN
语句组1
ELSE
语句组2
ENDIF功能：如果条件成立(为真)，那么执行THEN后面的语句组，否则执行Else以后的语句例2： 输入一元二次方程aX2+bX+C的三个系数，编程求解。Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("a="): b = InputBox("b="): c = InputBox("b=")
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2*a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2*a)
Print "x1="; x1, "x2="; x2
Else
Print "无实根"
End If
End Sub3、IF语句的嵌套 当程序面临多项选择的时候，可以通过IF语句的嵌套实现多分支结构。IF语句的嵌套指在一个If语句中又包含一个或多个IF语句，其一般形式如右：IF 条件 Then
IF 条件 Then
语句组1
Else
语句组2
ENDIF
Else
IF 条件 Then
语句组1
Else
语句组2
ENDIF
ENDIF内嵌
IF语句内嵌
IF语句例3： 将百分制的分数转化为等级。分数≥90以上为A等； 分数≥80且小于90为B等； 分数≥70且小于80为C等； 分数≥60且小于70为D等；分数小于60为F等。Private Sub Form_click()
Dim cj As Single
cj = Val(InputBox("a="))
If cj >= 90 Then
Print "A"
Else
If cj >= 80 Then
Print "B"
Else
If cj >= 70 Then
Print "C"
Else
If cj >= 60 Then
Print "D"
Else
Print "E"
End If
End If
End If
End If
End Sub小节一、控制条件
（一）关系运算符和关系表达式
1、关系运算符 > < = <> >= <=
关系运算没有优先顺序
2、关系表达式
（二）逻辑运算符和逻辑表达式
1、逻辑运算符 AND NOT OR
2、逻辑表达式
3、逻辑运算符的优先顺序： NOT→AND→OR
（三）混合运算的优先级
算术运算→ 字符串运算→关系运算→逻辑运算二、分支结构（条件语句）程序设计
1、简单IF语句
2、IF/Then/Else语句
3、IF语句的嵌套IF 条件 THEN
语句组
ENDIFIF 条件 THEN
语句组1
ELSE
语句组2
ENDIF作业：P73 1-5题分支结构（条件语句）程序设计1、简单IF语句IF 条件 THEN
语句组
ENDIF格式流程图功能：如果条件成立(为真)，那么执行THEN后面的语句组，否则执行ENDIF以后的语句 输入一个数，如果这个数不等于零，那么输出它的倒数，否则不显示。 例1：1、输入X
2、判断是否x<>0？
是则（1）Y←1/x （2）输出Y
否则直接结束
3、结束算法 程序 Private Sub Form_click()
Dim x As Single
Dim y As Single
x = InputBox("x=")
If x <> 0 Then
y = 1 / x
Print "y="; y
End If
End Sub2、IF/Then/Else语句格式流程图IF 条件 THEN
语句组1
ELSE
语句组2
ENDIF功能：如果条件成立(为真)，那么执行THEN后面的语句组，否则执行Else以后的语句例2： 输入一元二次方程aX2+bX+C的三个系数，编程求解。Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim d As Single, x1 As Single, x2 As Single
a = InputBox("a="): b = InputBox("b="): c = InputBox("b=")
d = b ^ 2 - 4 * a * c
If d >= 0 Then
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2*a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2*a)
Print "x1="; x1, "x2="; x2
Else
Print "无实根"
End If
End Sub
