三道岭一中教学案例 课题 第十一课 双分支结构（第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 课后反思 组长签字
~~ 您好，已阅读到文档的结尾了 ~~
