课题
分支结构(一)
课型
新授
教 学 目 标
知识与技能
了解分支结构的结构和功能,掌握分支结构的语句格式;了解关系表达式、逻辑表达式的概念。
过程与方法
通过生活中的实例,了解分结构的概念,掌握分解结构的语句格式。
情感态度价值观
培养学生自主分析问题、解决问题的意识和能力,进一步明确编程的基本思路。
重点难点分析
分支结构的结构和功能;关系表达式和逻辑表达式。
教学准备
网络教室,软件要求安装VB6.0,求三角形面积的程序。
教学过程设计
课堂随记
一、导入
从现实生活引入实际问题,引出单双分支结构。
出门带伞问题:如果下雨,带伞出门,否则直接出门
上完体育课,如果是最后一节课,下课去吃饭,否则继续上课
二、新授
(一)分支结构流程图
1.单行形式:
If 条件表达式 Then 语句1 [Else 语句2]
2.块形式:
If 条件表达式 Then
语句块 1
[ Else
语句块2]
End if
其中条件表达式通常是关系表达式、逻辑表达式或布尔表达式,也可以是数值表达式。
分支结构编写程序注意点
1.If和End If 要一一对应
2.必须要有条件表达式进行判断,条件表达式中若为数值表达式,则非0为真,0为假
(二)举例讲解
举例讲解:
例1.输入一个数到变量a,输出它的绝对值。
x ^ 2 x > 3
例2.计算分段函数 y=
2x +1 x<=3
三、课堂总结
让学生回顾本节课的内容,总结出自己在实践过程中的心得和遇到的问题,加深印象。
通过贴近现实生活的实例,从而引出今天的课题。
学生观察并记住语句格式。
讲解关系表达式、逻辑表达式知识。
了解if语句的用法,让学生形成在编程过程中,设计算法后,先画出流程图,再编写程序的习惯。
回答问题,讨论心得。
课后活动与 作业
书本P29随堂练习1。
课题
分支结构(二)
课型
新授
教 学 目 标
知识与技能
通过“登陆窗口”分支结构实例,掌握分支结构程序设计方法。
过程与方法
通过制作一个登陆窗口的程序实例,初步掌握简单的分支结构程序设计方法。
情感态度价值观
在利用分支结构程序解决应用问题的过程中,体验分支结构程序设计思想在日常生活中的应用,逐步形成严谨的逻辑思维能力。
重点难点分析
分支结构程序的执行过程;分支结构的程序实现;关系表达式和逻辑表达式。
教学准备
网络教室,安装VB6.0,实例程序。
教学过程设计
课堂随记
一、导入
复习上节课有关分支结构的知识。
今天我们一起来看一个分支结构程序实例:设计登录窗口。
二、新授
(一)任务分析
制作登录窗口:在文本框输入账号和密码后,能校验是否正确。
(1)利用文本框输入账号和密码后,单击“登录”命令按钮。
(2)如果账号和密码都正确,则显示登录成功信息,否则就显示“您登录的账号或密码有误,请重新输入”。
(二)绘制流程图
根据任务分析,我们可以绘制出流程图,开始要输入账号和密码,然后进行一次判断,输入的账号和密码是否与设定的账号密码相符合,如果都符合了,则显示“admin恭喜登录成功!”,否则就显示“您输入的账号或密码有误,请重新输入!”,结束程序。
(三)设计界面
接下来我们进入界面设计:这个程序的界面,需要在窗体Form1中添加3个标签控件,2个文本框控件和1个按钮控件,然后对各对象进行相应的属性设置。
对象名
属性名
属性值
Form1
Caprion
登录名
Label1
Caprion
账号:
Label2
Caprion
密码:
Label3
Caprion
登录窗口
Text1
名称
ID
Text
(空)
Text2
名称
PWD
Text
(空)
Command1
名称
cmdLogin
Caprion
登陆
(四)编写代码
完成界面设计我们要开始代码编写了:首先我们将登录账号设为“admin”,登录密码为“gmzh123”,如果输入的账号密码都正确就显示登录成功,两个条件要同时满足,所以我们用and连接,完整的语句如屏幕所示。这里的显示功能我们用MsgBox函数来实现。如果两者中有一个不满足条件,则显示输入有误,请重新输入,并将文本框中的内容清除,完整的语句如下所示。
Private Sub Command1_Click()
If ID.Text = "admin" And PWD.Text = "gmzh123" Then
MsgBox (“admin恭喜登陆成功!")
Else
MsgBox ("您输入的账号或密码有误,请重新输入!")
ID.Text = ""
PWD.Text = ""
End If
End Sub
(五)调试运行
学生实践,调试运行,并保存上交。
三、课堂总结
对本节课进行小结,加深学生对分支结构程序的印象。
复习回顾上节课知识。
引导学生分析问题,得出用分支结构解决该问题的过程。
根据上述算法分析结果,学生绘制流程图。
引导学生搭建界面,设置对象属性。
强调IF语句的规范使用,引入MsgBox 函数进行信息的输出。
查看程序运行结果。
归纳总结。
课后活动与 作业
书本P29随堂练习2:
优化用海伦公式求三角形面积的程序,输入三条线段的长度,先判断能否组成一个三角形,若能组成三角形再利用海伦公式计算出三角形的面积。
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, p As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
p = (a + b + c) / 2
If (a + b > c) And (a + c > b) And (b + c > a) Then //判断是否能组成三角型
Text4.Text = Str(Sqr(p * (p - a) * (p - b) * (p - c)))
Else
Text4.Text = "数据错误,不能组成三角形"
End If