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

第一单元迈入程序设计之门第五节步入多岔路口 一分支嵌套的程序设计
单元章节
1.5
课题
第五节步入多岔路口 一 分支嵌套的程序设计
课时
第1课时
课型
新授
教学目的 与要求
知识与技能
1. 了解分支嵌套的概念
2. 学习使用If语句实现分支结构程序
的嵌套。J
过程与方法
学生在学习VB的过程中，自己动手操 作，了解VB分支结构程序设计语言。
情感、态度与价值观
通过学习这节课，激发学生学习VB 的兴趣，培养学生的创新思维能力。
教学重点
1. 了解分支嵌套的概念
2. 学习使用If语句实现分支结构程序的嵌套。
3. 学习用赋值语句构成的计数器。
教学难点
件支嵌套语句
教学媒体
J'B软件。
教学方法
讲授法、演示法。
教学过程
教学程序和内容
方法和 手段
一、引入
当我们走到十字路口时，有三条路可走，请想一想，我们要判断几次才能 确定走那条路。首先看第一条路是否为我们要走的路，如果不是，再看第二条 路是否是我们走的路，若这条路也不是我们要走的路，那么第三条路自然是我 们要走的路。因此，我们最多要做两次判断，决定我们的走向，这就是我们称 之为的分支嵌套。
1分支结构的图形表示为：
小组讨 论
教师讲
解

否条件成
教师演
示

二、设计分支嵌套程序
对上一节“保险箱”程序进行改进，如果连续3次输入密码错误，则保险箱 自锁，不让你再试开保险箱了。
三、活动过程画流程图
学生练
习

保险箱密码问题流程图根据流程图，为空间编写事件代码
Dim n As IntegerPrivate Sub Command1 Click(Index As Integer) If n <= 3 Then
If Textl.Text ="123" Then
Image1. Visible = False
Image2. Visible = True
MsgBox 〃密码正确，保险箱已开启〃
Else
MsgBox 〃第〃 + Str(n) + 〃次密码错误！ 〃
n = n + 1
End If
Textl.Text = ””
Else
MsgBox 〃保险箱自锁！ ”
End IfEnd Sub
Private Sub Command2 Click()Imagcl. Visible = True
Image2. Visible = FalseEnd Sub
Private Sub Form_Load()n = 1
End Sub
(四)、运行程序、调试程序
程序保存后，进行运行、调试程序，完成测试后，保存程序。
n—- “ ・・，••••••—
0Forml- ° D功I
■BbflbhcfOKrft Word—
（五）、思考练习
课本41页的思考练习
课堂小结
通过本节学习，认识学习了 vb中分支嵌套的程序设计。此外，我们 还学习了赋值语句构成的计数器，希望同学们能把学到的知识运用在生 活中，处处尽显程序的色彩。
板书设计

教后记