粤教版信息技术选修1 2.3 程序的选择结构课件（共15张ppt)

课件15张PPT。2.3 程序的选择结构真心话大冒险游戏规则：
现在有五张卡片，每张卡片上 分别有一些不同的数字。你心里想一个 1—31之间的整数，然后将有此数字的卡片都选中，我即可知道你想的数字是多少。
你信吗?我们快来试试吧！程序分析Private Sub Command1_Click()
Dim s, s1, s2, s3, s4, s5 As Single
s = 0
If Check1.Value = 1 Then s1 = 1 Else s1 = 0
?
If Check2.Value = 1 Then s2 = 2 Else s2 = 0
?
If Check3.Value = 1 Then s3 = 4 Else s3 = 0
?
If Check4.Value = 1 Then s4 = 8 Else s4 = 0
?
If Check5.Value = 1 Then s5 = 16 Else s5 = 0
?
s = s1 + s2 + s3 + s4 + s5
Print " 你想的数是："; s
End Sub程序的选择结构2、条件语句的格式：
If 条件 Then 语句组1 Else 语句组2
1、条件语句的执行过程：任务一：新学业水平考试结果呈现用VB程序完成信息技术学科学业水平考试由分数到结果的转换：0-59为不合格；60-100为合格。程序1：

Private Sub Command1_Click()
Dim Score As Integer
Score = Text1.Text
If _______________________Then _____________ Else _____________
End SubScore >= 0 And Score < 60Print "不合格"Print "合格"说明：我们的考试成绩的分数范围是0—100分思考：如果输入的数不在此范围会有什么结果呢？数学里的0≤a<60a>=0 And a<60提示：Private Sub Command1_Click()
Dim Score As Integer
Score = Text1.Text
If___________________________ Then
Print " 不合格"
ElseIf ____________________________Then
Print " 合格"
Else
Print ___________________________
End If
End Sub
If Score >= 0 And Score < 60Then Print "不合格" Else Print "合格"分析比较Score >= 0 And Score < 60Score >= 60 And Score <= 100 "你输入的分数不是有效成绩"程序2：归纳总结：条件语句的二种格式：
If 条件 Then
语句组1
Else
语句组2
End IfIf 条件 Then 语句组1 Else 语句组2
任务二：现在的学业水平考试结果呈现我们现在及以往的学业水平考试结果以A、B、C、D呈现，假设0—59为D；60—79为C；80—89为B；90—100为A。
试着用刚才的If ……Then……语句编写Private Sub Command1_Click()
Dim Score As Integer
Score = Text1.Text
If ___________________________Then _____________
If ___________________________Then _____________
If ___________________________Then _____________
If ___________________________Then _____________
End SubScore >= 0 And Score < 60Print " D"Score >= 60 And Score < 80Score >= 80 And Score < 90Score >= 90 And Score <= 100Print " B"Print " A"Print " C"程序3：多重选择语句格式Select Case 表达式
Case 表达式列表1
语句组1
Case 表达式列表2
……
Case Else
语句组N+1
End Select其中：（1）表达式或表达式列表可以是数值型或字符型，列表可以是多个用逗号分开的表达式。（2）表达式列表与表达式的类型必须相同
（3）表达式列表又称为值域，有如下三种形式：
①表达式1，表达式2……
②表达式1 To 表达式2
③Is关系表达式
例如： ”Case 1,3,5”
”Case 10 To 20”
”Case Is>=10”用多重选择Select Case 语句实现以A、B、C、D等级形式的学业水平考试结果呈现Private Sub Command1_Click()
Dim Score As Integer
Score = Text1.Text
Select Case Score
Case _________
Print " 你的考试结果为等级D"
Case _________
Print " 你的考试结果为等级 C"
Case _________
Print " 你的考试结果为等级 B"
Case _________
Print " 你的考试结果为等级 A"
Case Else
Print " 输入的分数不是有效成绩"
End Select
End Sub程序4：0 To 5960 To 7980 To 8990 To 100Score >= 0 And Score < 603、关系表达式：
4、逻辑表达式：
Not（非）取操作数相反的值。
And（与）当两个操作数都为真时，结果才为真。
Or （或）当两个操作数都为假时，结果才为假。关系表达式的值既不是数值型量，也不是字符型量，而是逻辑型（Boolean）。逻辑型只有两个可能的值：
假（False）和真（True）。5、逻辑运算的顺序：（1）当条件中只有逻辑运算符时，运算的顺序为： Not、And、Or例如：a+b>c+d And a>=5（2）当条件中既有算术运算符，又有关系运算符和逻辑运算符时，运算顺序是： 算术运算 关系运算 逻辑运算例如： a And b Or Not c课堂小结：运用条件语句的关键是：条件的表示Select Case 表达式
Case 表达式列表1
语句组1
Case 表达式列表2
……
Case Else
语句组N+1
End SelectIf 条件 Then
语句组1
Else
语句组2
End IfIf 条件 Then 语句组1 Else 语句组2
我们的人生也处处面临着选择,如何更好的选择自己的人生道路是非常重要的，就像我们今天学的选择结构一样，选择最佳条件走向我们最好的人生！拓展练习：用VB程序求 a,b,c中最大的数。（可先写出流程图）求最大数