第五节 分支嵌套的程序设计.docVIP

第一单元 迈入程序设计之门 第五节 步入多岔路口 — 分支嵌套的程序设计 单元章节 1.5 课题 第五节 步入多岔路口 — 分支嵌套的程序设计 课时 第1课时 课型 新授 教学目的 与要求 知识与技能 1．了解分支嵌套的概念 2. 学习使用If语句实现分支结构程序的嵌套。 过程与方法 学生在学习VB的过程中，自己动手操作，了解VB分支结构程序设计语言。 情感、态度与价值观 通过学习这节课，激发学生学习VB的兴趣，培养学生的创新思维能力。 教学重点 1．了解分支嵌套的概念 2． 学习使用If语句实现分支结构程序的嵌套。 3.学习用赋值语句构成的计数器。 教学难点 分支嵌套语句 教学媒体 VB软件。 教学方法 讲授法、演示法。 教 学 过 程 教学程序和内容 方法和手段 一、引入 当我们走到十字路口时，有三条路可走，请想一想，我们要判断几次才能确定走那条路。首先看第一条路是否为我们要走的路，如果不是，再看第二条路是否是我们走的路，若这条路也不是我们要走的路，那么第三条路自然是我们要走的路。因此，我们最多要做两次判断，决定我们的走向，这就是我们称之为的分支嵌套。 1分支结构的图形表示为： = 二、设计分支嵌套程序 对上一节“保险箱”程序进行改进，如果连续3次输入密码错误，则保险箱自锁，不让你再试开保险箱了。 三、活动过程 1.画流程图 保险箱密码问题流程图 2.根据流程图，为空间编写事件代码 Dim n As Integer Private Sub Command1_Click(Index As Integer) If n = 3 Then If Text1.Text = 123 Then Image1.Visible = False Image2.Visible = True MsgBox 密码正确,保险箱已开启 Else MsgBox 第 + Str(n) + 次密码错误！ n = n + 1 End If Text1.Text = Else MsgBox 保险箱自锁！ End If End Sub Private Sub Command2_Click() Image1.Visible = True Image2.Visible = False End Sub Private Sub Form_Load() n = 1 End Sub （四）、运行程序、调试程序 程序保存后，进行运行、调试程序，完成测试后，保存程序。 （五）、思考练习 课本41页的思考练习 小组讨论 教师讲解 教师演示 学生练习 课堂小结 通过本节学习，认识学习了vb中分支嵌套的程序设计。此外，我们还学习了赋值语句构成的计数器，希望同学们能把学到的知识运用在生活中，处处尽显程序的色彩。 板书设计 教后记 语句组1 条件成立？ 条件成立？ 语句组2 语句组3 否 否 是 是 输入密码 N n=1(第一次输入密码) 程序开始 保险箱开启 N 保险箱不开 保险箱自锁 程序结束