高中信息技术选修一《算法和程序设计》（广东教育出版社）第二章《程序设计基础》中第三节程序的选择结构教学课件 .pptVIP

真心话大冒险 游戏规则： 现在有五张卡片，每张卡片上 分别有一些不同的数字。你心里想一个 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、条件语句的执行过程： d 语句组1 语句组2 是 否 条件成立吗？ 任务一：新学业水平考试结果呈现 用VB程序完成信息技术学科学业水平考试由分数到结果的转换：0-59为不合格；60-100为合格。程序1： Private Sub Command1_Click() Dim Score As Integer Score = Text1.Text If _______________________Then _____________ Else _____________ End Sub Score = 0 And Score 60 Print 不合格 Print 合格 说明：我们的考试成绩的分数范围是0—100分 思考：如果输入的数不在此范围会有什么结果呢？ 数学里的0≤a60 a=0 And a60 程序 提示： 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 60 Score = 60 And Score = 100 你输入的分数不是有效成绩 程序2： 归纳总结： 条件语句的二种格式： If 条件 Then 语句组1 Else 语句组2 End If If 条件 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 Sub Score = 0 And Score 60 Print D Score = 60 And Score 80 Score = 80 And Score 90 Score = 90 And Score = 100 Print B Print A Print C 程序3： 多重选择语句格