资源简介

三道岭一中教学案例
课题
第十一课
双分支结构（第2课时）
课类
信息技术
教学目标
1、知识目标：
初步掌握分支结果特点
学会ifthen语句的基本用法
了解msg()函数的知识
2、能力目标：初步认识VB程序的输入、分支结果特点，编辑和运行方法
3、情感目标：通过教学激发学生探索学习现代科学知识的主动性，激发信息技术的兴趣，养成主动学习信息技术的积极态度和习惯
前提诊测
什么是顺序结果？
导入新课
按顺序办事，是我们经常采用的工作方式，在vb中我们也会见到“按顺序办事”的程序
教学方法
任务驱动法、演示操作法
教学重点
初步掌握分支结果特点
教学难点
学会ifthen语句的基本用法。了解msg()函数的知识
教学过程
一、分析示例程序“解一元二次方程”
二、设计程序“解一元二次方程”
1、设计程序界面
1.1
创建新工程
1.2
绘制窗体界面：一个文本框，两个个命令，一个标签和一个框架
2、修改对象属性
对象属性属性值Form1caption解一元二次方程Label1caption请输入a,b,c的值Font黑体，四号Label2captiona=Label2captionb=Label2captionc=Text1（名称）txtATextText2（名称）txtBTextText3（名称）txtCTextLabel5captionX1=Label6（名称）Lb1x1captionLabel7captionX2=Label8（名称）Lb1x2captionCommand2（名称）CmdOKcaption计算Command2（名称）Cmdexitcaption退出
3、编写程序代码
Private
Sub
cmdOk_Click()
a
=
Val(txtA.Text)
b
=
Val(txtB.Text)
c
=
Val(txtC.Text)
d
=
b
b
-
4
a
c
If
d
>=
0
Then
X1
=
(-b
+
Sqr(d))
/
(2
a)
X2
=
(-b
-
Sqr(d))
/
(2
a)
lblX1.Caption
=
X1
lblX2.Caption
=
X2
Else
lblX1.Caption
=
""
lblX2.Caption
=
""
MsgBox
("此方程无实根。")
End
If
End
Sub
Private
Sub
cmdExit_Click()
End
End
Sub
4.调试并保存程序
5、生成可执行程序
形成性测试
制作程序“解一元二次方程”
小
结
本课我们学习了顺序结构，在这种结构的程序中，计算机按照”从上至下“的顺序逐条执行语句。
板书设计
第十一课
双分支结构
一、分析示例程序
二、设计程序
作业
P96
2
课后反思
组长签字

展开更多......

收起↑