业课职中计算机([VB程序设计基础]语言基础)

《业课职中计算机([VB程序设计基础]语言基础)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、中山市建斌中等职业技术学校08级VB程序设计科教案课题【项目3-1】算术四则运算器本课2教时教学方法任务驱动法，项目教学法，分层练习法授课类别新授课教具电脑平台能力目标掌握VB运算符和表达式。掌握VB常用内部函数重点难点Vai函数的使用，运算符和表达式的书写教淫内容与过程导入数据类型的作用教师讲授要点丨淫生练习项目丨重点II一、项目效果：本项F1是一个可以进行四则算术运算「的程序，程序运行效果如图3-1所示,对输入文本松的数据可以进行加、减、乘、除等数学运算。二、项目分析：1、数据类型决定了具有这种类型的常量、变量、字符串、数组等数据对象的存储形式、取

2、值范围及能进行的运算。标准数据类型字符型数据(String)整型数(Integer)长整型(Long)单精度浮点数(Single)双精度浮点型(Double)货币型(Currency)字节型(Byte)日期型(Date)逻辑型(Boolean)变体型(Variant)2、常罐与变罐在VisualBasic中进行运算的对象有两大类：常量与变量。(1)常量常量是在程序运行过程中，其值保持不变的量，如数值、字符串等。(2)变量1.创建程序界面；新建一个“标准EXE”工程，丨并在窗体中添加2个标签控件、6：如何使用个文本松和4个命令按钮，按图3-2:VAL函数

3、所示进行设置。：-注意：-耍把表达i式写到相i应的按扭；事件里。1.设置对象的属性标签控件的Caption属性，文木框和按钮控件的标题属性，文本框控件的Tabindex属性。2.程序代码编辑Text3.Text=Val(Text1.Text)+Val(Text2.Text)'加法Text4.Text=Val(Text1.Text)-Va变虽是在程序执行过程中其值可以变化的量。在应用程序的执行过程中，变量用來存储程序执行中的临时数据。变量随程序调入内存，并被分配一定的存储空间。所以，在使用变量Z前，耍考虑变量的名称和数据类型，即声明变量。使用Dim语句显

4、式声明变量。格式：Dim变量名［As数据类型］例如：DimnAsInteger或写成Dimn%三、项1=1演示四、项目实现。五、作品展示。完成程序代码的调试和修改。六、项目拓展。加强引导，探索发现和解决新问题。七、项目小结。1(Text2.Text)'减法Text5.Text二Vai(Textl.Text)*Vai(Text2.Text)'乘法Text6.Text=Val(Textl.Text)/Val(Text2.Text)'除法1.程序代码调试输入程序代码后，完成程序代码的调试和修改。2.运行与调试3.保存文件。4.项目拓展。加强引导，探索发现和解

5、决新问题。5.作品展示。6.项目评价。板书设计1、数据类型；小2、常量的定义和使用；结3、变量的定义和使用；4、使用Dim语句显式声明变量。1、数据类型；2、常量的定义和使用;3、变量的定义和使用;上机完成以上练习。中山市建斌中等职业技术学校08级VB程序设计科教案课题【项口3-2】计算总秒数本课g教时教学方法任务驱动法，项11教学法，分层练习法授课类别新授课教具电脑平台能力目标掌握常量和变量的使用。掌握数据类型的声明。重点难点掌握常量和变量的使用。掌握数据类型的声明.教学内容M过程导入数据类型的作用.教师讲授要点学生练习项目重点11授课内容1•创建程

6、序界血如何正确地定义变如何使用变量进行程序编写&符号的使用给对象供付予焦点一、项ri效果：设计一个输入时分秒后可以计算出总秒数的程序。其中包括4个标签控件、3个文本框和两个命令按钮，运行界而如图3-4所示。要求输入任一时间分秒后数据后，点击“计算”按钮后显示出的计算总秒数。点击“退出”则退出程序。(焦点赋予第1个文木框：Textl.SetFocus)二、项目分析1、数据类型决定了具有这种类型的常量、变量、字符串、数纽等数据对彖的存储形式、取值范围及能进行的运算。2、常量与变量在VisualBasic中进行运算的对象有两大类：常量与变量。(1)常量常量是

7、在程序运行过程小，其值保持不变的量，如数值、字符串等。(2)变量变量是在程序执行过程小其值可以变化的量。在应用程序的执行过程中，变量用來存储程序执行中的临时数据。变量随程序调入内存，并被分配一定的存储空间。所以，在使用变量之前，要考虑变最的名称和数据类型，即声明变量。使用Dim语句显式声明变量。格式：Dim变量名［As数据类型］例如：DimnAsInteger或写成Dimn%三、项目演示四、项目实现1.创建程序界而-、项目设计2.设置对彖的属性Label!的属性：Bodcrstyle:1-fixed3.程序代码编辑Publich,m,s,xAsTnt

8、egerPrivateSubCommandl_Click()h=Vai(Textl.Text)