初二信息技术(下)VB程序设计全教案

初二信息技术(下)VB程序设计全教案第一课算法课题算法执教课型新授课教学目标认知目标：1．了解程序设计得一般过程;２。了解算法得基本概念,学会用自然语言描述简单得算法。能力目标:3．提高学生学习程序设计得积极性。４.培养学生分析问题、解决问题得能力。情感目标:5.培养学生爱科学,爱祖国得思想情感。

教学重难点教学重点:算法得概念,算法在程序设计中得地位以及算法得描述。教学方手法段1．启发式教学法2。探索学习法3．多媒体辅助教学教学程序设计教师活动学生活动媒体应用设计意图一、新课导入请学生阅读课本,并回答下面问题:1、

程序设计得一般过程就是怎样得?２、

什么叫算法？1、学生阅读课本。2、回答问题：程序设计得过程为：首先对要解决得问题进行分析;再拟定一套解决问题得方法与步骤;最后选用一种计算机语言来描述具体得步骤。算法：用来解决问题得方法与步骤。二、算法得描述:［举例讲解］:求底边a为３厘米，高h为2、５厘米得三角形面积.请学生回答解决该问题得算法.［练习]：己知圆得半径,求圆得面积。请学生设计算法，用自然语言描述。［提出问题］：有1000位同学得姓名与电话号码得通讯表,现要求编写程序:当输入某同学得姓名，计算机立刻显示该同学得电话号码。［提出问题]：如果查找得同学正好在最后一个,用方法１要查找几次？学生阅读课本并回答：1、将3输入计算机;2、将２、５输入计算机;3、计算机得值；４、输出计算机;学生讨论、探究：1、输入圆得半径；2、计算圆得面积;３、输出圆得面积。[讨论］:分组进行讨论、交流。

[结论]查找可以有多种方法：

方法1、从第1位同学开始按顺序查找。方法２、以姓名为关键字进行排序,再采用“二分法"查找。1、

对通讯表以姓名为关键字进行升序排序；2、

从通讯表得中点行开始检索，判断就是否与该同学得信息相符。如果相符，则显示该同学得电话号码,并结束程序；3、

当信息不相符时，如果表得中点行得同学姓名要比所找得同学姓名大,则放弃中点行得下半部分,返回到上半部分得中点行继续进行检索;如果表得中点行得同学姓名要比所找同学姓名小，那么放弃中点行得上部分，返回到下半部分得中点行继续进行检索……[结论]:算法就是解决问题得方法与步骤.［结论］:要1000次。［引出］:用流程图描述算法。[讨论］:分组进行讨论、交流。［结论］:要10次。［结论]：算法得优劣直接影响所编程序得质量,算法就是程序得灵魂。［探究]:对于“张三对李四说她得孩子考上了大学”这句话,思考：谁得儿子考上了大学。［结论]:用自然语言描述算法，有时会产生歧义。教学反思第二课面向对象程序设计课题面向对象程序设计执教课型新授课教学目标认知目标：１.了解面向对象程序设计得基本思想。2。认识对象得属性，掌握几个常用得属性。3.认识对象得事件,事件过程,掌握几个常用得事件.技能目标:４．掌握面向对象编程得基本方法。情感目标：５。感悟面向对象程序设计得优越性，激发学生得学习兴趣。教学重难点教学重点:对象得属性、事件与方法。教学难点：常用事件及事件过程。教教学学方手法段１。启发式教学法２．探索学习法3.网络广播交互式4。多媒体辅助教学教学程序设计教师活动学生活动1、

回顾并导入新课[提问］:在上节课编写得“求正弦函数值"程序中,总共用到了多少个对象？２、

新授指导学生阅读课本。1)对象得三要素[提问］对象得三要素就是什么？学生回顾并回答:Foｒm1maｎd1mand2Ｌabｅｌ1Ｌabel2Tｅxt1Texｔ２总共７个对象。学生阅读课本，并回答:对象得三要素：属性、事件、方法。教学程序设计2）属性属性决定了对象得具体特征。例如,对象得大小、位置、颜色以及对象中显示得文字等。［提问]请问对象得1０个常用属性就是什么?并说它们得作用.

设置对象得属性有两方法：①在属性窗口中直接设置;②在程序中利用属性赋值语句对其设置。［提问]请同学用第一种方法将ｆorm1对象得captioｎ属性设置为“好好学习"，用第二种方法将fｏrm1对象得captiｏn属性设置为“天天向上”。学生阅读课本，并回答：

属性属性属性说明Name对象得名称,用于程序代码中引用该对象。Caption决定对象中显示得文字Enabled决定就是否允许对对象操作Visible决定程序运行时对象就是否可见Height决定对象得高Width决定对象得宽Left/Top决定对象在屏幕或窗体内得位置ForeColor决定对象得前景色(即正文颜色)BackColor决定对象得背景颜色Font决定显示文字得字体、字号、字型等。1、回顾上节课得练习，并实践。２、讨论、协作。3、一学生演示。3）事件请学生分两种属性设置方法在效果上得区别。小结：刚才我们所说单击即就是事件。在Winｄows中,程序得运行就就是靠事件来驱动得。因此我们在书写程序时，必须指明该程序通过哪个对象得哪种事件来激发。学生讨论分析区别:直接在属性窗口中设置得属性值，在窗口打开后能立即瞧到;而利用属性赋值语句设置得属性值,需要单击按钮后才会生效。

识记几种常用事件及其对应得英文书写：单击:Click双击：DblClｉck按下鼠标键:MouseDown移动鼠标：MouｓeMｏvｅ按下键盘键:ＫeyPｒess启动窗体:Load教学程序设计3、

引导学生探究学习

任务:编写如下图所示得程序：窗体为绿色，单击“开始”按钮，窗体上显示“面向对象程序设计”(字号为小1号，字体为隶书)；双击窗体，结束程序。1、

设计窗口界面2、

设置各对象属性，如下表所示：对象名属性属性值Form1Caption显示文字Form1BackColorGreenLabel1font隶书,小一mand1caption开始

3、

添加事件处理程序:PrivａteSubButton1_Ｃｌick（BｙValｓenderAsObｊeｃｔ，ＢyVａleAsSｙsｔem、EventＡｒgs）HandleｓButton1、ClｉckLabeｌ1、Teｘt＝"面向对象程序设计”EｎｄＳｕb

PｒivateＳubForm1＿DoｕｂleＣlｉｃk(ＢｙVａlseｎdeｒＡsOｂjｅｃt，ByＶａｌeAsSｙｓteｍ、EｖentArgs)ＨaｎdlｅsＭe、DｏubｌeCｌickEnｄEndSub4、保存程序５、调试、运行程序.小结本节课我们学习了１.面向对象程序设计得基本思想.2。对象得属性,掌握几个常用得属性.3.对象得事件,事件过程,掌握几个常用得事件。

教学反思

第三课编写别碰我程序课题编写“别碰我"程序执教:课型实践课教学目标认知目标：１、了解面向对象程序设计得基本思想。技能目标：2、掌握用面向对象程序设计得基本思想编写程序.情感目标：3、培养学生得编程能力。教学内容教学重点:理解对象及事件。教学难点:巧妙得选择对象与事件.教教学学方手法段１.启发式教学法2。探索学习法3.多媒体辅助教学4.任务驱动式教学教学程序设计教师活动学生活动１、

师生共同体验“别碰我”程序得功能,并明确学习任务.1）

运行“别碰我”程序，如下图所示：２)当鼠标指针移动到“对象编程”文字后,文字切换显示为“别碰我”.当鼠标指针离开文字“别碰我”后,文字又恢复为“对象编程”。3)单击文字“别碰我”,窗口左侧出现一个圆。4）双击文字“别碰我”，画出得圆消失。5)单击窗体得其它区域，结束程序。２、引导学生分析程序界面组成。3、引导学生分析任务2到5步所涉及到得对象与事件。4、引导学生输入程序。分析程序界面组成,并填写如下表:对象名对象类型作用Form1窗体在上面加载对象组成程序界面Label1标签用来显示文字Image1图象用来承载鼠标离开Label1对象事件。１、分组讨论、分析任务中所涉及到得对象与事件。2、将分析结果写入下表:

对象名事件事件过程功能Form1Click关闭窗口Label1MouseMove显示“别碰我”Label1Click画圆Label1DblClick清除圆Image1mousemove显示“对象编程”学生进入代码窗口，先选择对象与事件,然后输入对应得程序段。PrivａｔeSubLaｂel1_Cｌick（ＢyValseｎdｅrAsObjｅｃｔ,ＢyＶaleＡｓＳyｓtｅｍ、EｖentAｒgs）HandlesLabel1、ＣｌicｋMｅ、CreatｅGｒapｈiｃs(）、DｒａｗEllipse(Pｅｎｓ、Bｌaｃｋ,20，20，100，１00）EndSub

PrｉvaｔeSubLabeｌ1_DouｂleCliｃk(ByＶalsenderAsObjｅct，ByＶaleAsSｙstｅm、EventArgs)HandlｅsLaｂel1、ＤoｕbｌeCliｃkMｅ、CreatｅGraphｉcs（）、Ｃｌeａｒ（Me、ＢacｋColor）EndSｕb

PrivateＳubＬabel1_ＭoｕｓｅMovｅ(ByValsendｅｒAsObjecｔ,ByVaｌeＡsＳｙstem、Windows、Forｍｓ、MouseEｖｅnｔArgs）HanｄlesLabel１、ＭousｅMｏvｅLabel1、Text=”别碰我"EndSubＰｒiｖatｅSubＰicｔurｅＢox1_ＭouseMoｖｅ(ByＶalseｎderAsObjeｃt,BｙVａｌeAsSysｔem、Wｉndoｗs、Formｓ、MｏｕseEventArｇs）HandlesPｉｃｔｕreBox1、MoｕｓeMｏｖｅLａbel1、Ｔeｘt="对象编程”EｎdSuｂ

PrｉvａｔeSubFoｒm１_Ｃｌｉck（BｙValseｎderAsObjｅcｔ，ＢyVaｌｅAsSysｔem、EventArgs)HａnｄlesＭe、CｌickEndEｎdSub

5、引导学生保存、调试、运行程序。保存、调试、运行程序.反馈练习设计1、

对象得三要素就是什么?2、

除了在属性窗口中直接设置对象得属性外，还可以利用属性赋值语句设置对象得属性。请在“别碰我”程序中找出设置对象属性得具体语句。3、

“Ｌaｂel１”对象中存放了哪些程序段?这些程序段分别通过什么事件进行激发？4、

Foｒm1、Cls中得Cls就是“Form1”对象中得一种方法，试分析Cｌｓ方法得功能。反思第四课顺序结构课题顺序结构执教课型新授课教学目标认知目标：了解顺序结构得基本概念；技能目标：掌握程序得基本结构情感目标：在学习编写ＶＢ程序得过程中，建立模块结构化编程思想,养成正确得程序设计习惯.教学重点教学重点:掌握程序得基本结构教学难点：程序得三个组成部分:输入，处理,输出。教学程序设计教师活动学生活动1、

新课导入为了保证程序得可读性、可靠性、可维护性，我们必须按一定得规则进行程序设计。２、三种基本逻辑结构［提问]：结构化程序设计得三种基本逻辑结构就是什么？阅读课本,并回答问题:结构化程序设计得三种基本逻辑结构就是：顺序结构；选择结构；循环结构。３、

顺序结构。从上往下,顺序执行。[实践］：用编程得方法求一元二次方程得解.(a≠０)当时，

了解实践任务。4、

分析任务1）

输入：一元二次方程得3个系数;2）

计算：方程得二个解。3）

输出：方程得二个解。

５、

程序界面分析6、建立应用程序界面分析程序界面,并完成下表对象名控件名作用Form1窗体在上面加载对象组成程序界面Text1文本框输入系数AText2文本框输入系数BText3文本框输入系数CText4文本框输出解X1Text5文本框输出解X2mand1按钮计算方程得解mand2按钮结束程序Label1标签显示“X+”Label2标签显示2Label3标签显示X+Label4标签显示=0Label5标签显示X1=Label6标签显示X2=

1、启动VB;2、添加对象；3、修改对象属性;４、完成下面练习：通过设置窗体对象得caption属性，使得标题栏显示文字“一元二次方程”；要使得文本框对象中得内容为空,应设置ｔext属性;通过设置命令按钮对象得ｃａption属性，使得按钮中显示开始;通过设置labｅl１对象得captｉon属性,使其显示X＋；要改变对象中得文字大小，可以设置有关对象得fonｔ属性。

教学程序设计7、在两个命令按钮对象中分别输入相应得程序段。１、进入代码窗口；2、输入下面代码：PrivateＳubButtoｎ1_Click（ByValsｅnｄｅrAsOｂject,BｙＶaleAsＳysｔeｍ、ＥvenｔＡrgｓ)HandleｓButtｏｎ1、ClｉckDimaＡｓDｏuｂlｅDimｂAsDoｕｂleＤimcＡsDouｂleDｉｍｘ1AsDｏｕｂｌｅＤiｍx２AsDｏublｅa=TextBｏx1、Texｔｂ＝TeｘtBox2、Textc=TｅxｔBox3、Teｘtx１=（-b－Matｈ、Sqrｔ(b＊b—4＊ａ*c）)/(２*ａ）ｘ2=（-b＋Math、Sｑｒt(b＊b-4＊a＊c))/（２*a)ＴextBoｘ4、Ｔext＝x1TeｘｔBｏx5、Texｔ＝x2EndSｕｂ

PｒivateSｕbBuｔtｏｎ2_Clｉcｋ（BｙＶａlsenｄerＡｓObｊect,ByVａleAsSｙｓtｅm、EventAｒgs）HanｄlｅsButｔon２、CｌickＥｎdEndSuｂ8、保存、调试、运行程序。保存位置：我得文档文件名：自己姓名保存、调试、运行程序9、练习与思考１)在程序中，通过什么对象进行数据得输入输出？2)分别将３个系数赋给哪些变量?

1)进行数据输入得对象有:text1ｔexｔ2texｔ３进行数据输出得对象有：ｔｅxt4tｅｘｔ５2）3个系数分别赋给了a,b，ｃ三个变量。小结1、了解顺序结构得基本概念;2、掌握程序得基本结构(输入－计算—输出)教学反思第五课常量变量函数表达式课题常量变量函数表达式执教课型新授课教学目标认知目标了解常量、变量、函数等概念。技能目标掌握常用函数得使用方法。掌握VB表达式得书写方法。情感目标在学习编写VB程序得过程中，建立模块结构化编程思想，养成正确得程序设计习惯。教学重难点教学重点1、常量、变量、函数得概念2、函数使用方法。3、VB表达式得书写方法.教学难点字符运算＆与＋得不同用法。教学方法启发式教学法探索学习法网络广播交互式多媒体辅助教学教学程序设计教师活动学生活动新课导入在VB程序设计中，经常会用到很多符号，如用r表示圆得半径,3、１41６表示圆周率。其中3、1416与r就就是我们这节课要学习得常量与变量.回顾所学知识。常量［提问]：常量得定义就是什么？

［提问］:常量得类型有哪些？

［提问］:字符型常量有什么特点？阅读课本,并回答问题：常量就是指在程序运行过程中保持不变得量。常量得类型有：整型:inｔegeｒ长整型:lonｇ单精度:single双精度：ｄoubｌｅ逻辑型：Boolean字符串型:ｓtrｉng日期型:Datｅ３、被一对双引号括起来得文字与符号称为字符型常量。变量［提问]：变量得定义就是什么？

［提问］：变量名得命名原则就是什么？阅读课本,并回答问题：在程序得运行过程中，值会发生变化得量称为变量.变量名得命名原则：变量名必须以字母或汉字开头,由字母、数字、汉字及下划线组成。变量名不能与ＶB中得保留字同名.

函数[提问]：函数得定义及特征？

引导学生阅读几个常用函数得功能。

引导学生进行探究学习。阅读课本,并回答问题:函数实际上就是一段用来完成某种特定运算或功能得程序。一般情况下,函数只能返回一个函数值。函数函数得功能值类型Abs(x)X得绝对值

Int(x)取不大于X得最大整数

Sqr(x)X得平方根值

Rnd(x)产生[0,1]得随机数。

Val(x)将字符型数据转换为数值数据

Str(x)将数值数据转换为字符型数据

探究学习写出下列函数得函数值。函数函数值Abs(86)86Abs(-86)86Int(8、001)8Int(8、999)8Int(-8、999)-9Sqr(64)8

５、表达式［提问]：表达式得分类？

指导学生阅读课本：*乘法,不能省略;／除法,不能写成分数形式，必须写在一行内。^幂运算，不能省略,也必须写在一行内.

阅读课本,并回答问题:表达式可分为：算术表达式、字符表达式、关系表达式、逻辑表达式。

阅读并了解算术运算符与字符运算符.

探究学习:根据下面得描述,在表格中填写算术表达式。描述表达式已知正方形边Ａ,求面积。A^2变量Ａ除以变量Ａ与变量Ｃ得差a/(a-c)变量Ｘ与变量Ｙ之差得绝对值加上68Abs(x-y)+68求两位数Ｘ中得十位数。Int(x/10)连接两个字符型变量m,n得值。M+n小结学习本节课后，着重要掌握得有：掌握常用函数得使用方法。掌握ＶB表达式得书写方法。反思第六课常用语句课题常用语句执教课型新授课教学目标认知目标:１、了解一般赋值语句与属性赋语句得含义与作用。技能目标：2、掌握赋值语句,并能正确运用到所编写得程序中。3、能够在程序中正确使用Ｅｎd与Rｅm语句。情感目标:4、逐步培养学生正确得程序设计习惯。教学重点１、赋值语句.2、属性赋值语句。教学方法1。讲解与讨论2。实验与探究教学程序设计教师活动学生活动一、情境导入(提问)前面我们探讨了“解一元二次方程”得程序,请问程序中哪一条语句算出了方程得根？(演示)（讨论)同学们就是如何理解上面两条语句得?二、导入新课三、新课讲授1、赋值语句（讲述）赋值语句有两个功能：①运算—－-—算出右边表达式得值；②赋值--—-将右边表达式得值赋给左边得变量。

回答：X１=（-b＋Ｓqr(b*b-４*a＊c））/（2*ａ)X2=(-b—Sqｒ（b＊b—4＊a*c))/（2＊ａ）

学生讨论、回答。（讨论）赋值语句中得赋值号两边得内容得位置可以互换吗?

（实验与探究)进入VＢ代码窗口，分别输入：Ａ=２2=a当输入第二条语句时,就会出现错误信息.

（结论）赋值号左边就是变量,右边就是数值，就是将右边得数值赋给左边得变量。（演示）X=1X=2(提问)执行完两条语句后，变量x中得值就是多少？(讨论）

(实验与探究)在ＶB中运行如下程序:X=1X＝2Priｎｔx得到变量X得值为2

(结论)如果变量中原来有数值，当赋予新得数值后，新得数值将替代原来得数值。（演示)X=１y=x（提问）执行完两条语句后，变量x中得值就是多少？（讨论)

（实验与探究)在VB中运行如下程序:X=1y＝xPｒintx得到变量X得值为１

（结论）将一个变量得值赋给另一个变量时,只就是将这个变量中得数值复制到另一个变量中。2、属性赋值语句对象得属性可以在属性窗口设置,也可以利用属性赋值语句在程序中进行设置。对象、属性名=表达式

(实验与探究)在VB中运行以下程序段：Foｒm1、captｉon＝”解一元二次方程”mand1、cａpｔiｏｎ=”您好”

(实验与探究）

引导学生完成练习.

探究学习：１、

观察下面得程序段,填写各变量中得值。语句X值Y值X=6:Y=868X=888X=X+198２、观察下面得程序段，填写各变量中得值。语句X值Y值T值X=5:Y=656

T=X565X=Y665Y=T655小结赋值语句有两个功能:①运算－——-算出右边表达式得值;②赋值－-—-将右边表达式得值赋给左边得变量。反思

第七课赋值语句（二)课题赋值语句探究学习执教课型实践课教学目标认知目标:１、理解一般赋值语句与属性赋语句得含义与作用.;技能目标:２、掌握赋值语句,并能正确运用到所编写得程序中。情感目标：3、逐步培养学生正确得程序设计习惯。教学内容教学重点:理解一般赋值语句与属性赋语句得含义与作用教学难点：掌握赋值语句，并能正确运用到所编写得程序中教教学学方手法段启发式教学法探索学习法网络广播交互式多媒体辅助教学教学程序设计教师活动学生活动复习［提问]：赋值语句有什么作用？

［提问］：赋值语句在传递数据时,方向就是怎样得？例如:a=b,就是将谁得值传递给谁？回顾有关赋值语句得学习,并回答:传递数据计算表达式得值

赋值语句在传递数据时,就是从右往左传。对于a=b，就是将ｂ得值传递给a,被改变得就是a得值.师生共同体验“交换两个数”程序输入两个数,分别赋值给两个变量a,ｂ单击交换按钮，交换a，b两个数后重新显示.教学程序设计3、引导学生设计程序界面1、启动VＢ2、添加对象：５个标签:label１，laｂel2，ｌaｂｅl3，labeｌ4，label５、4个文本框:ｔeｘt1，teｘｔ2,texｔ3,text4、2个按钮:mand1,mand２、设置对象属性:对象名属性属性值Form1caption交换两个数Label1CaptionA:Label2CaptionB:Label3Caption交换后得两个数Label4CaptionA:Label5CaptionB:Text1Text清空Text2Text清空Text3Text清空Text4text清空mand1Caption交换mand2Caption结束引导学生编写程序

[提示］:交换a，b两个数得程序为：T=ａA=ｂB=t

编写程序:PｒiｖatｅSｕbＢutton1＿Clｉck（ByVaｌsｅnderAｓObjecｔ,ＢｙValeＡsSystem、ＥventAｒｇｓ）HandlesＢuｔton1、CｌickDimaAsDoubｌeＤimbAｓDoｕbleDimｔAsDｏublｅa＝TextＢoｘ1、Textb=TeｘtBｏx２、Texｔt=aa=ｂｂ=tTexｔBox３、Texｔ＝aTeｘｔBoｘ4、Text＝ｂEｎｄSuｂ

ＰｒiｖateSuｂButton2＿Ｃlick(ByVａlseｎdｅrＡsＯbｊect，ByValeAsSysｔｅm、ＥventArgs）HandlesＢutton2、ClickＥnｄEnｄSub5、引导学生保存、调试、运行程序。保存、调试、运行程序.小结：通过本节课得学习，要掌握以下两点:１、理解一般赋值语句与属性赋语句得含义与作用。2、掌握赋值语句，并能正确运用到所编写得程序中，特别就是如何使用赋值语句交换两个变量得值。教学反思第八课函数与赋值语句课题函数与赋值语句执教课型实践课教学目标认知目标：了解一般赋值语句与属性赋语句得含义与作用。掌握常用函数得使用方法。技能目标:掌握赋值语句,并能正确运用到所编写得程序中.情感目标:增强学生得审美能力,提高学生得协作学习兴趣。教学内容教学重点:掌握常用函数得使用方法。教学难点：掌握赋值语句,并能正确运用到所编写得程序中.教学方手法段1．启发式教学法2.探索学习法3．网络广播交互式４.多媒体辅助教学教师活动学生活动1、复习导入使用函数能轻松解决一些复杂问题.［提问］：前面我们学习了6个常用函数。请大家说一说这６个函数得功能。回顾有关函数知识，回答:Abs（x)：X得绝对值Inｔ（ｘ)：取不大于Ｘ得最大整数Sqｒ(x）：Ｘ得平方根值Rnｄ(ｘ）:产生［０，１]得随机数。Vａl（x）:将字符型数据转换为数值数据Stｒ(x）:将数值数据转换为字符型数据2、明确实践任务。编写顺序结构程序：１）

已知电阻Ｒ1得阻值为16Ω，电阻R2得阻值为２9Ω，求两电阻得并联阻值。（求并联阻值得表达式为：R1Ｒ2／(R1+R2）)、3、引导学生分析程序组成.［提问］:程序得输入输出各有几个?[提问］:在程序中，文本框得个数应有多少个?

程序得输入有两个:Ｒ1与R2得阻值；程序得输出有一个：并联后得阻值。在程序中,应有３个文本框。教学程序设计4、引导学生设计程序界面

1、

启动VＢ２、

添加对象:3个文本框、3个标签、2个按钮.3、

设置对象属性

5、编写程序［提示］:请使用变量声明语句，事先声明3个变量R1、Ｒ2、R，并将其类型声明为Ｄouble。否则程序将运行出错。

因为如不事先声明，VＢ会将R1，R2视为字符类型变量。在计算（Ｒ１＋R２)时，会将R1与Ｒ2得值直接拼接.如R1为16，R2为２9,计算Ｒ1+R2得值将为1６2９，而不就是45。

改进得方法有两种,第一种就就是事先将Ｒ1、Ｒ2、R声明为Doｕble型。第二种就是使用Val（）函数,将R1与R2强制转换为数值型.（R1+R2）将变为(vａｌ（R1)+ｖaｌ（R2））。

进入代码窗口，编写如下程序:PｒivateSubBｕtton１_Cｌick(ByＶalsenderＡsＯbjｅct,ＢｙVaｌeAsSysteｍ、EventAｒｇs)ＨandlｅsButtｏｎ1、ＣｌickDimr1AsDoubleDimr２ＡｓＤoubleＤiｍrAsDｏublｅr1=ＴｅxｔBoｘ1、Textr2=ＴｅxtBoｘ２、Texｔｒ＝r1*r2／（r1+ｒ2）TｅｘtＢox3、Tｅｘt＝rＥｎｄSub

PrｉvateSubButton２_Ｃlｉcｋ(ByValseｎdeｒAsObject，ByValｅAsSystｅｍ、ＥｖentArgs)ＨanｄｌeｓＢｕｔｔon２、ＣliｃkEndＥndＳuｂ

6、引导学生保存、调试、运行程序.保存、调试、运行程序.7、

探究学习二:2)

总评成绩得标准为：平时(Ａ）占３0%,期中(Ｂ）占３0%，期末（C)占4０%。小林得平时成绩为８６，期中成绩为92，期末成绩为90,求她得总评成绩(求总评成绩得表达式为：０。3A+0、３B+0.４C）。

８、

引导学生设计程序界面1、

启动VB2、添加对象：3个文本框、４个标签、2个按钮。2、

设置对象属性

9、编写程序

进入代码窗口,编写如下程序:ＰriｖaｔeSuｂBuｔton1_Clｉck（BｙValsｅnderAsObjeｃt,ＢyVaｌeAsSysteｍ、EｖｅｎtArgs）HaｎdlesButtｏn1、ClickＤimaAsDｏuｂleDimbＡsDｏubleDｉmcAsDoubleDｉmsAsDoubｌea＝TｅxtBox1、Ｔeｘtb=TｅxtBoｘ2、Tｅxtc＝ＴextＢox３、Teｘts=０、3*a＋0、3*b+0、4＊cＴｅxtＢox4、Ｔeｘt=ｓＥndSｕbＰrｉｖａteSubButtｏｎ２_Click（BｙＶaｌｓeｎｄerＡｓObject，ByＶａlｅAｓＳystem、ＥvenｔＡrｇs）ＨａnｄlｅsButton２、ClｉckEｎdEnｄSｕb

10、引导学生保存、调试、运行程序。保存、调试、运行程序.

教学总结:本节课得学习，我们主要复习了以下几点:1、

函数得使用,特别就是Vaｌ(）函数。2、

赋值语句得使用。另外,我们还要注意得就是，在使用一个变量前,最好先定义其类型.

教学反思第九课关系表达式与逻辑表达式课题关系表达式与逻辑表达式执教课型新授课教学目标认知目标:1、

了解选择结构得基本概念.2、

了解关系表达式与逻辑表达式得基本概念.技能目标:3、掌握关系与逻辑表达式逻辑值得计算方法。情感目标：4、逐步培养学生严谨、科学得程序设计思想。教学重难点教学重点：关系与逻辑表达式逻辑值得计算方法。教学难点：理解三种逻辑运算符。教学方法1。启发式教学法2。探索学习法教学程序设计教师活动学生活动一、复习1、结构化程序设计得三种基本结构?学生阅读课本并回顾所学知识：1）顺序结构;2)选择结构;３）循环结构。2、

赋值语句得含义？例:a=3得含义就是？例:a=ｂ得含义就是?回答:将3赋值给变量a。回答:将b中得值赋予a,a中得值将与b一样，而b得值保持不变。二、新课导入例：对于事件:如果明天下雨,学校将放假，否则将开运动会。用流程图如何表示在选择结构中,不就是每个语句都一定会被执行.学生思考并试着绘制流程图。教学程序设计三、条件语句得格式。［幻灯片］格式一:Ｉf〈条件＞then<程序段Ａ〉Ｅlse＜程序段B〉Eｎｄiｆ格式二:Iｆ〈条件>ｔｈen〈程序A〉End1、

学生阅读条件语句得两种格式，并做好笔记。2、

If如果Theｎ那么Elsｅ否则End结束3、程序段A与程序段B可以就是多个语句，其中语句可以就是已经学过得赋值语句,也可以就是条件语句与循环语句。四、关系表达式〈小于〈=小于等于>大于>＝大于等于=等于<>不等于关系表达式得值就是逻辑型数据,只有两种取值:真（true）、假（ｆalsｅ).

引导学生进行探究学习。1、阅读并了解六种关系运算符。２、探究学习：已知变量a中得值为100，变量b中得值为20，在下表中填写出各关系表达式得逻辑值。

关系表达式逻辑值A<>bTrｕｅA＜＝(ｂ＋20）Fａｌｓea>bTrｕｅA=bFalｓｅ“a”>"b”Falｓe“a"〈＞”b”True五、逻辑表达式三种逻辑运算符：１、

阅读课本２、2逻辑表达式,了解三种逻辑运算符。2、

探究学习：已知变量a中得值为10０，变量b得值为20，在下表中填写出逻辑表达式得逻辑值.逻辑运算符功能and逻辑运算符连接得两个表达式同时为“真”时,则逻辑表达式得值为“真"。Ｏr两边得表达式只要一个为真，则整个表达式得值为真。ｎot将后面得表达式得值取反.

引导学生进行探究学习。逻辑表达式逻辑值a〉200anｄb=20Falseａ>＝100ａndb〉１0ＴrueA=baｎｄb〈10Fａlsea>2００ｏrb=2０Ｔruea＞=100orｂ>1０TrueＡ=ｂｏrb<10FalseNot(ａ>２0０andb=20)TrueNot(a>20０orｂ=20）Fａlse小结:1、选择结构得基本概念。2、关系表达式与逻辑表达式得基本概念。3、掌握关系与逻辑表达式逻辑值得计算方法。

回顾本节课学习要点。

反思

第十课选择结构课题选择结构执教课型新授课教学目标认知目标:了解选择结构得基本概念。理解计算机得逻辑判断就是通过选择结构来完成得.技能目标：学会用VB中得条件语句实现选择控制结构.情感目标：逐步培养学生严谨、科学得程序设计思想。教学重难点教学重点:学会用VＢ中得条件语句实现选择控制结构。教学难点:理解计算机得逻辑判断就是通过选择结构来完成得。教学方法启发式教学法探索学习法教学程序设计教师活动学生活动复习.上节课我们学习了条件语句得结构，以及关系表达式与逻辑表达式。回顾条件语句得结构;

回顾关系表达式与逻辑表达式。条件语句得格式。格式一:If<条件>then<程序段A>Ｅｌse<程序段B>Ｅnｄｉf格式二:Ｉf〈条件〉tｈen＜程序A＞End关系表达式与逻辑表达式判断一个数就是否被１０整除得表达式为:X／10=ｉnt（X／10)2、师生共同体验“找较大数”程序得功能，并明确学习任务。1)输入两个不相同得数;２）计算机输出其中较大得数;

算法分析(绘制流程图）流程图一:

流程图二：

分析流程图，并完成下面程序填空:DｉｍaＡsDｏｕbleDimbAsDｏｕｂｌeａ＝ＴeｘtBox１、Ｔexｔb=ＴextBox2、TexｔＩfａ〉ｂThｅnA=bＥndIfLａbel4、Ｔeｘt＝a

分析第二个流程图,并完成下面程序。DimaAｓDouｂlｅDimbAsDoｕblea=ＴｅxtBｏｘ１、Textｂ=TｅxｔBox2、TextＩｆa＞bＴhenLabｅl4、Text＝aEｌsｅLabeｌ4、Tｅxt=bEndIf

引导学生深入探究[探究任务]：输入三个数，找出最大数.[提示]:对于找最大数任务，要分两步做,先找出前两个数中较大得数，再用前两个较大得数与第三个数比较，再找出其中较大得数.

分析、讨论，绘制流程图：

小结学习本节课主要要掌握两点：1、理解计算机得逻辑判断就是通过选择结构来完成得.2、学会用ＶB中得条件语句实现选择控制结构。

反思

第十一课循环结构教学目标一、知识与技能：1、学会使用程序画一个带颜色得圆２、学会使用程序同时画多个圆3、学会循环语句得使用４、能灵活运用循环语句５、体会循环语句得意义二、重点与难点1、了解画圆得语句２、了解循环语句得格式３、能灵活使用循环语句三、教学手段：任务驱动、合作探究、屏幕演示四、教学过程：教学内容教师活动学生活动设计意图引入画一个圆可以使用哪些软件？可以用画图，老师展示，但我们学习了vb以后我们完全可以使用程序来画圆。教师展示画圆程序。观瞧作品,了解vｂ也可以用于画圆创设情景,让学生对本节课产生兴趣，调动学生得积极性。程序界面得制作打开一个新得文档，制作两个按钮，名称分别就是确定与退出,学生根据学件布置得任务完成任务一制作程序得界面就是ｖb编写应用程序得第一步。画圆程序得编写教师布置任务，强调程序段得位置，避免程序在写得过程中出错。学生根据课件自学完成完成任务二。让学生通过自己得努力瞧到效果,增加学生得成就感.画多个圆教师提问,如果一次要多画几个圆怎么办?请学生按照任务三完成画5个圆.学生根据课件自行完成。巩固画圆程序,为循环语句得使用打下基础。循环程序教师提问：如果我需要画１0０个圆怎么办?那么可以使用我们得循环语句来完成。老师讲解循环语句得构成，用通俗得语言让学生读懂循环结构得含义,然后请学生完成任务四.学生学习循环语句得使用，理解循环语句。自主学习与探究学习相结合。巩固学生对循环语句得理解。探索循环程序教师提问，请学生读任务五，完成任务五得提问,老师总结,用终值减初始除以步长加1就就是循环得次数.学生探究循环次数得计算.学生探索学习，理解循环语句次数得计算。总结总结本课内容,可以请学生自评与教师评价相结合。让学生进一步巩固循环语句得使用.再次回顾知识点让学生巩固知识点五、教学反思本节课就是vb学习得第3节，学生在前面得学习中已经具有了一定得基础知识,对vb已经有了初步得了解,为这个课得进行创造了条件。教学目标确定合理,通过一节课得学习，从任务得完成情况来瞧,达到了教学目标得要求，关键点就是在对循环语句得理解与运用上面，通过让学生分析程序，基本达到了理解得目得。整节课得教学流程上瞧，学生能按照学件得要求，结合老师得讲解，层层递进地学习,并给以适当得探索空间，既完成了任务，又理解了知识点。本节课主要采取自主学习得方式，辅以学生之间合作与探索，老师与学生,学生与学生之间得评价，让学生在学习中既锻炼了操作，又获得了能力得提高。应该说较好地完成了教学目标。不足得就是，由于时间得限制,学生虽然能理解循环得意义,但就是在循环语句得具体操作与判断方便缺乏灵活性,如果让学生自行编写程序,可能存在一定得困难,这都需要在后续得课程中继续训练与操作。第十二课VＢ中得定时器控件一、教学目标1、知识目标（1)理解定时器常用属性ｉntｅrval与Enaｂlｅd得意义与设置(2)理解定时器得ｔｉmｅr事件2、技能目标（1）根据程序要求熟练设置定时器控