中职学校VB教案

.实用文档.?VisualBasic6.0?教案授课班级：10级计算机及应用1班授课教师：

学校教学设计表课次第1次2课时课型周次第6周授课日期年月日课题界面设计——时钟封面教学目标知识目标熟悉VB6的集成开发环境；认识VB6的构成要素；技能目标了解对象属性的设置与应用；素质〔情感、态度、价值观、职业核心能力〕目标激发学生学习兴趣，培养学生的独立思考能力和判断能力。重点难点简单的菜单和工具栏的使用；对象、对象属性的概念；教学方法设计讲授法、讨论法教学内容、教学过程、及时间分配导入：VisualBasic是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，能用于Windows环境下的各种应用软件的开发，是目前较为流行的应用软件开发平台。一、VisualBasic构成要素1、对象与属性对象：现实生活中的对象就是人们所说的“东西〞，如：太阳系、太阳、月亮。VisualBasic中的对象有：窗体、标签、命令按钮等。属性：描述对象的特征的数据，如标签的Caption、Height、Width等。VisualBasic中对象属性使用方法：对象.属性=表达式如：Form1.Caption="第一个程序"2、事件与过程事件：在VisualBasic中事先设置好的能被系统识别的动作。例如：用鼠标单击窗体的事件就是Click事件。事件过程：就是事件发生后，程序要去执行的代码。例如，用鼠标单击窗体触发Click事件，程序将执行过程PrivateSubForm_Click()中的代码，该过程称为事件过称。下面就是一个事件过程，如果用鼠标单击Command1按钮就会触发Command1的Click事件，程序要执行如下的事件过程。PrivateSubCommand_Click()Text1.Text="VisualBasic程序设计"EndSub3、方法：VisualBasic将内含的函数或者过程称为方法。如下是Form的方法：Form1.Print"Hello,VisualBasic6.0"教学活动1：认识VB的集成开发环境。学生通过看书、讨论，说出VB集成开发环境包含哪些局部，各局部的作用是什么？教学活动2：演示程序——窗体颜色变化学生通过观看演示，小组讨论分析用VB开发应用程序需要的步骤。归纳得出步骤为：1.创立应用程序界面；2.设置属性；3编写代码。教学资源作业内容如何设置对象的属性？教学后记备注课次第2次2课时课型周次第7周授课日期年月日课题界面设计——时钟封面教学目标知识目标标签的常用属性；技能目标了解标签对象属性的设置及应用；学会保存程序；素质〔情感、态度、价值观、职业核心能力〕目标激发学生学习兴趣，培养学生的团队协作能力和判断能力。重点难点标签的常用属性；属性的设置方法；教学方法设计工程教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：对于Windows环境下的应用软件，一个漂亮而醒目的封面总会使软件充满魅力。比方Word2003简洁美观的封面，它给所有office的用户都留下了深刻的印象。教学活动1完成工程：时钟封面工程描述：学习制作一款应用软件的“封面〞〔见书第2页〕，它是启动应用软件时，显示出的第一个界面，在该界面上一般显示软件名称、版本、版权等信息。学生对该工程进行分析，并实现。教师根据学生完成情况进行点评。相关知识介绍：标签：标签用于设计在用户界面上不能被使用者修改的只读的文字内容。标签的常用属性有：Alignment:标签的文字的对齐方式，0表示左边对齐，1表示右边对齐，2表示中间对齐；AutoSize：可自动调节标签的大小。值为True时，标签的大小自动与文字的大小一致，值为False时标签的大小固定，不会随文字的大小的改变而改变；BackStyle：标签的背景是否透明。0表示透明，1表示背景不透明；Caption：标签上显示的文字。标签的事件使用较少。主要事件有：Click事件：单击标签触发Click事件。工程分析：软件界面上显示文本信息一般使用标签〔Label〕，本工程通过3个标签分别显示软件名称、版本和版权信息，而背景图片、图标和标题的“欢送〞文本通过设置窗体属性实现。所用控件：窗体、标签。所用属性：Caption、Font、Aligment、Picture、BackStyle、Icon工程实现步骤：启动VB6添加文字修饰文字对齐文字设置显示文字的内部名称添加其余文字对齐3个标签设置窗体背景图片设置文字透明背景10、改变窗体大小11、窗体的图标的更改12、窗体的名称和标题栏文字的设置13、运行程序14、保存程序15、生成可执行程序16、关闭VB6教学资源作业内容标签的常用属性及意义教学后记备注课次第3次2课时课型周次第7周授课日期年月日课题界面设计——关于时钟教学目标知识目标图片框控件的常用属性；窗体的常用属性；技能目标掌握设置窗体控件的方法；素质〔情感、态度、价值观、职业核心能力〕目标激发学生学习兴趣，培养学生的自学能力、信息分析、理解问题能力。重点难点窗体的常用属性及设置；教学方法设计工程教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：在具有Windows风格的应用软件中，菜单栏的最后一个菜单一般是“帮助〞菜单，其中都有一个“关于〞菜单命令。如WindowsXP操作系统中，“我的电脑〞的帮助菜单中有一个“关于Windows〞菜单命令。教学活动1完成工程：关于时钟工程描述：“关于〞是英文“About〞的汉译。“关于〞窗口与软件封面的区别是：软件封面是应用软件启动时出现，一般在应用软件主窗口启动后自动关闭；“关于〞窗口是用于应用软件运行之后向用户提供软件版本、授权等信息，一般需要用户单击“关闭〞按钮才能关闭窗口。学生对该工程进行分析，并实现。教师根据学生完成情况进行点评。工程分析：本工程是对前一工程“时钟封面〞主要的区别是：增加了一个“关闭〞按钮和图片框，其次是增加了直线、标签及窗口标题栏的变化。工程实现：添加图片；2、添加文字；3、添加线条；4、添加按钮；5、添加代码；6、设置窗体；7、运行程序；8、保存程序教学资源作业内容窗体的常用属性有哪些？教学后记备注课次第4次2课时课型周次第7周授课日期年月日课题界面设计——用户登录教学目标知识目标1、命令按钮、文本框的常用属性及事件；技能目标掌握命令按钮、文本框控件的初步应用；素质〔情感、态度、价值观、职业核心能力〕目标激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。重点难点命令按钮、文本框的常用属性；命令按钮、文本框的应用；教学方法设计工程教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：为了管理用户个人信息，保护个人数据的平安，很多应用软件都要求用户提交账号和密码，这就需要一个用户登录的界面，比方QQ用户登录界面。教学活动1工程：制作一款“用户登录〞的窗口；工程描述：本工程要求用户输入账号和密码〔输入时密码显示为“*〞〕，单击“登录〞按钮时，显示用户输入的信息〔显示时用户密码以明码显示〕学生讨论，并说出设计步骤。教师点评，并进行分析演示：本工程用文本框接受用户输入的数据，“重填〞按钮和“登录〞按钮通过代码设置是否响应用户的操作〔即可用性〕，窗口上部使用图像控件显示图像文件。知识点介绍：文本框文本框主要用于在程序中改变显示的文字，文本框一般具有复制、剪切、删除、粘贴等编辑功能。文本框的常见属性有：Text：文本框中的文字；Multiline:值为True时，文本框可以多行显示，值为False时，文本框的文字以单行显示；PasswordChar:用于设置口令，如把文本框的PasswordChar属性设置为“*〞,那么在文本框中的任何字符都会显示为“*〞，这样便于口令的保密。文本框的常见事件：Change:文本框的Text发生改变触发该事件；命令按钮命令按钮是VisualBasic中使用最频繁的控件之一，它的常用属性有：Name：窗体的名称属性；Caption:命令按钮的标题属性；Cancel:该属性的值有True和False，设置为true是，按“ESC〞键就等价于点击该按钮；Enabled:按钮是否有效，值为True时，表示按钮有效，值为False时表示该按钮无效；Style:按钮的样式。0表示标准样式，1表示图形样式；Visible:值为True时按钮显示，值为False时按钮在运行时不显示。最常见的事件有：Click事件：用鼠标单击按钮触发该事件。程序举例：在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。图1-1程序界面设置属性，设置Lable1的Caption为“&User〞、Lable2的Caption为“&Password〞、Command1的Caption为“确定[&E]〞、设置Command2的Caption为“[&S]〞、设置Text1和Text2的Text为空，设置Text2的Passwordchar为“*〞。设置属性后的界面如图1-2所示。图1-2设置属性后的界面教学资源作业内容教学后记备注课次第5次2课时课型周次第8周授课日期年月日课题界面设计——用户登录教学目标知识目标1、命令按钮、文本框的常用属性及事件；2、认识代码窗口技能目标学会代码的添加；素质〔情感、态度、价值观、职业核心能力〕目标激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。重点难点代码的添加；教学方法设计工程教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：上节课通过设计“用户登录〞窗口，相信对于该程序的界面设计有了一定的了解，本节课希望大家通过阅读教材，将代码添加进去，实现完整的程序。理解代码含义，并说明代码所完成的功能。回忆程序：在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。图1-1程序界面设置属性，设置Lable1的Caption为“&User〞、Lable2的Caption为“&Password〞、Command1的Caption为“确定[&E]〞、设置Command2的Caption为“[&S]〞、设置Text1和Text2的Text为空，设置Text2的Passwordchar为“*〞。设置属性后的界面如图1-2所示。图1-2设置属性后的界面代码实现：编写代码如下：PrivateSubCommand1_Click()IfText1.Text="zs"AndText2.Text="123"ThenMsgBox"欢送你"ElseMsgBox"非法用户"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub保存程序。运行程序，程序正确。学生交流讨论，并自己独立实现“用户登录〞窗口的制作。教学资源作业内容制作一款“用户登录〞的窗口教学后记备注课次第6次2课时课型周次第8周授课日期年月日课题界面设计——时钟教学目标知识目标1、日期和时间函数；2、语法的概念；技能目标初步掌握赋值语句及函数的用法；学会定时器、图形控件的初步应用；素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力。重点难点函数的用法教学方法设计工程教学法、讨论法、上机操作教学内容、教学过程、及时间分配导入：时钟不仅是一个显示时间的工具，对很多人来说，时钟更是管理时间的工具，所以，很多应用软件中都附带有时钟工具软件，如Windows操作系统中自带的“日期与时间〞工具里，就有一个简单的时钟。教学活动1工程描述：要求制作一款“时钟〞软件。完成的时钟以图形动画和字符两种形式显示日期与时间。在后续章节中，可以对本工程的时钟做进一步的功能开发，如显示星期、定时闹钟等。学生对该工程进行分析，并实现。教师根据学生完成情况进行点评。工程分析：本工程使用图形控件画时钟的钟面，用直线控件画时针、分针、秒针的指针，通过定时器的作用控制秒针、分针和时针的变化，日期和时间标签中要用到日期型函数。工程实现：画钟面添加标签参加定时器添加定时器代码参加秒针参加分针和时针修改代码设置窗体保存程序相关知识：1、函数：函数是一种特定的运算，在程序中要使用一个函数时，只要给出函数名及参数，就能得到它的函数值，如sin(x)是求弧度值为x的正弦值的函数。在VB6中，一般函数由函数名和参数组成，参数需要外加括号。个别特殊的函数不需要参数时，可以直接给出函数名得到函数值，如Date函数得到当前计算机的日期值，Time函数得到当前计算机的时间值。2、语法建立程序语句时必须遵从的构造规那么称为语法。在输入语句的过程中，VB将自动对输入的内容进行语法检查，如果发现语法错误，将弹出一个信息框提示出错的原因。教学资源作业内容设计一时钟教学后记备注课次第次2课时课型周次第8周授课日期年月日课题简单程序设计——数值交换教学目标知识目标1、赋值语句技能目标初步掌握赋值语句的用法；素质〔情感、态度、价值观、职业核心能力〕目标培养学生分析问题、解决问题能力重点难点赋值语句的灵活应用教学方法设计讲授、讨论法、上机操作教学内容、教学过程、及时间分配导入方法及内容认识赋值语句：赋值语句的一般格式为：[Let]<名称>=<表达式>其中，“[Let]〞是可选项，一般情况下可省略。“<名称>〞是变量或属性的名称，“<表达式>〞是指某运算式。在使用赋值语句时，需注意以下几点：〔1〕赋值语句兼有计算与赋值的双重功能，它首先计算赋值号“=〞右边表达式的值，然后把结果赋给赋值号左边的变量〔或属性〕。〔2〕赋值号“=〞与数学上的等号意义是不一样的。〔3〕赋值号两边的数据类型必须一致，否那么会出现“类型不匹配〞错误。赋值语句语法：变量名|对象的属性名=表达式功能：将表达式的值赋给指定的变量或对象的属性。说明：赋值语句在程序设计中的使用非常广泛，每一个赋值语句可以单独放在一行中，也可以将多条赋值语句放在一行中，但每一语句间必须用“：〞冒号作为分隔符。【例】长和宽，求矩形的面积。设计步骤如下：⑴设计程序界面。选择“新建〞工程，然后在窗体中增加一个标签Label1，一个命令按钮Command1和一个文本框Text1。⑵设置对象属性。如表2.8所示。表2.8属性设置对象属性属性值Label1Caption：长=5，宽=7Label2CaptionCommand1Caption那么矩形面积=⑶编写事件代码。命令按钮Command1的Click事件代码为：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,areaAsSinglea=5b=7area=a*bLabel2.Caption=Str(area)EndSub练习：书101页教学资源作业内容教学后记备注课次第次2课时课型周次第9周授课日期年月日课题简单程序设计——数值交换教学目标知识目标1、赋值语句技能目标初步掌握赋值语句的用法；素质〔情感、态度、价值观、职业核心能力〕目标培养学生分析问题、解决问题能力重点难点赋值语句的灵活应用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容要求学生讨论分析并编程实现以下工程：从键盘分别输入两个数据，单击“交换〞按钮完成两个数值的交换。界面如下：教学资源作业内容教学后记备注课次第次2课时课型周次第9周授课日期年月日课题简单程序设计——数值交换教学目标知识目标1、赋值语句技能目标初步掌握赋值语句的用法；素质〔情感、态度、价值观、职业核心能力〕目标培养学生分析问题、解决问题能力重点难点赋值语句的灵活应用教学方法设计演示、学生讨论教学内容、教学过程、及时间分配导入方法及内容编程实现以下工程：从键盘分别输入两个数据，单击“交换〞按钮完成两个数值的交换。分析：这是一个数值交换程序。分别在TEXT1和TEXT2中输入数值1和数值2，单击“交换〞按钮，那么text1中显示的是数值2，text2中显示的是数值1；单击“去除〞按钮，那么去除text1和text2中的内容；单击“结束〞按钮，退出该程序。首先通过赋值语句将数据从文本框中取出，用不同的变量来存放数据，交换后再放入到文本框中，然后通过单击按钮来实现计算、清空和结束的功能。演示步骤如下：创立界面设置各对象的属性编写代码运行程序保存界面如下：教学资源作业内容将窗体中的数值换成字符，该如何修改界面和代码？教学后记课次第次2课时课型周次第9周授课日期年月日课题简易文本编辑器教学目标知识目标变量及常量技能目标掌握变量、常量的声明及使用。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点变量、常量的声明及使用教学方法设计讲授、上机操作教学内容、教学过程、及时间分配导入方法及内容常量及变量：1.常量常量声明格式：[Public|Private]Const常量名[astype]=value2.变量一、变量的命名规那么1.以字母或汉字开头，后可跟字母、数字或下划线组成.2.变量名最长为255个字符；3.VB中不区分变量名的大小写；4.不能使用VB中关键字；二、声明变量有两种方式：显式声明和隐式声明。(1)显式声明语法声明格式：Dim|Static|Public|Private<变量名>As<数据类型>语句功能：声明变量并分配存储空间。(2)隐式声明语法声明格式：Dim<变量名>〔或者不声明变量，而直接使用变量〕3变量作用域不同作用域变量的声明方式作用范围局部变量模块级变量公共变量声明方式Dim，StaticDim，PrivatePublic变量的声明位置过程内部模块的声明段模块的声明段本模块中其他过程能否访问不能能能其他模块能否访问不能不能能三、应用举例1、说明以下语句的作用y=3*x^3+5a=a+1

'说明：先计算右边的值，然后再把计算结果赋给左边的变量2、例：计算圆的面积和周长1、设计界面和运行界面，如下图。2、代码：OptionExplicit------------------------------------------------PrivateSubCommand1_Click()DimpiAsSingle,rAsSingle,lAsSingle,sAsSingler=Val(t1.Text)pi=3.14l=2*pi*rs=

pi*r^2l1.Caption=Str(l)l2.Caption=Str(s)EndSub****注意****val(字符串)：把字符串转换为数值；str(数值)：

把数值转换为字符串

输入的数据是字符型,转换成数值型才能进行计算；标签的Caption属性是字符型，所以输时又要把计算结果转换成字符型。教学资源作业内容教学后记备注课次第次2课时课型周次第10周授课日期年月日课题简易文本编辑器教学目标知识目标变量及常量技能目标掌握变量、常量的声明及使用。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点变量、常量的声明及使用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容要求学生讨论并编程实现——简易文本编辑器功能：本程序可以对文本框进行复制、剪切、粘贴、删除、去除等操作。界面如下：教学资源作业内容教学后记备注课次第次2课时课型周次第10周授课日期年月日课题简易文本编辑器教学目标知识目标变量及常量技能目标掌握变量、常量的声明及使用。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点变量、常量的声明及使用教学方法设计演示、学生讨论教学内容、教学过程、及时间分配导入方法及内容编程实现——简易文本编辑器功能：本程序可以对文本框进行复制、剪切、粘贴、删除、去除等操作。分析：这是一个简易文本编辑器。在TEXT1中选择需要复制或剪切的内容，单击“剪切〞按钮可以实现剪切功能，单击“复制〞按钮可以实现复制功能；然后将光标移动到需要粘贴的位置，单击“粘贴〞按钮，即可把剪切或复制的内容粘贴到目标位置；单击“退出〞按钮结束。在这个程序中，涉及文本编辑属性中的seltext属性，该属性是用来选定字符，如果没有字符被选定的话，就是空字符。剪切、复制和粘贴就是通过一个模块级变量来实现的。步骤演示：创立用户界面设置各对象属性编写代码运行程序保存界面如下：教学资源作业内容如果再添加2个“全选〞和“清空〞按钮，应该如何修改窗体和代码？教学后记课次第次2课时课型周次第10周授课日期年月日课题简易计算器教学目标知识目标算术运算符及表达式技能目标熟悉VB语言中表达式的使用素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点表达式的应用教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容表达式及运算符：1.算术运算符及算术表达式〔1〕“/〞和“\〞运算符的区别；〔2〕“MOD〞运算符的运用〔3〕写VB表达式时，要注意的几点；2.字符运算符及字符表达式字符运算符用于将两个字符型表达式连接生成一个新字符串。其运符主要有“+〞运算符和“&〞运算符 当两个表达式的其中一个是数值型时，“+〞做为算术运算符进行加法运算，当两个表达式都是字符型时，才做为连接运算符。3.关系运算符及关系表达式

> < >= <= <>4.逻辑运算符及逻辑表达式NOT AND OR XOR EQV IMP5.运算符的优先顺序在一个表达式中，如果同时有多个运算符存在，那么它们的优先顺序由高到低依次为：算术运算符→字符运算符→关系运算符→逻辑运算符算术运算符的优先级顺序由高到低依次为：∧〔指数运算〕；-〔负数〕；*，/〔乘法，浮点除法〕；\〔整数除法〕；Mod〔取模运算〕；+，-〔加法，减法〕。其中，“*〞，“/〞具有相同的优先级；“+〞，“-〞具有相同的优先级。在关系运算符中，所有的运算符具有相同的优先级。逻辑运算符的优先级顺序由高到抵依次为：Not〔非〕，And〔与〕，Or〔或〕，Xor〔异或〕，Eqv〔同或〕，Imp〔蕴含〕。用括号控制运算的优先次序可以是程序清晰易读，而且不易出错。[例2.4]写出VB表达式4*6>3*7OrNot5>2的值。计算步骤如下：⑴算术运算：24>21OrNot5>2⑵关系运算：TrueOrNotTrue⑶逻辑运算：TrueOrFalse⑷结果：True课堂练习：教学资源作业内容教学后记备注课次第次2课时课型周次第11周授课日期年月日课题简易计算器教学目标知识目标算术运算符及表达式技能目标熟悉VB语言中表达式的使用素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点表达式的应用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容要求学生讨论并编程实现——简易计算器功能：本程序要求从键盘分别输入两个数据，单击“开始〞按钮，就可以进行加、减、乘、除的四那么运算。界面如下：教学资源作业内容教学后记备注课次第次2课时课型周次第11周授课日期年月日课题IF语句教学目标知识目标熟悉If…Then结构，If…Then…Else结构技能目标能用if语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标提高学生学习兴趣重点难点If语句的应用教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容在程序设计中经常遇到这类问题，它需要根据不同的情况采用不同的处理方法。例如，一元二次方程的求根问题，要根据判别式小于零或大于等于零的情况，采用不同的数学表达式进行计算。对于这类问题，如果用顺序结构编程，显然力不从心。必须借助分支结构。一、If

语句格式：

If

条件

then

语句块1

[

Else

语句块2]

End

If说明：〔1〕“条件〞一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。判断以下条件是否成立:1、1<0；2、1=0；3、1<=0；4、3>=3；5、3<=3〔2〕语句块1、语句块2分别是“条件〞满足或不满足时，处理方法的描述，可以是假设干个语句。〔3〕If…Then

、Else、End

If

是VB的保存字。功能：〔1〕块If首先判断“条件〞，其值为真时，执行语句块1；为假时执行语句块2。当缺省[Else…]中的内容时，该分支结构只对条件满足的情况进行处理。执行过程如下图。二、实例：火车站行李费的收费标准是50kg以内〔包括50kg〕0.20/kg，超过局部0.50/kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。根据题意计算公式如下：1、界面设计：2、属性设置：3、代码：

〔1〕

〞计算"按钮的代码

Private

Sub

Command1_Click()

Dim

w

as

single，pay

as

single

w=

If

w

>

50

Then

pay

=(w

-

50)*

+

50

*

Else

pay

=

w

*

End

If

=

pay

End

Sub

〔2〕

〞清空"按钮的代码

Private

Sub

Command2_Click〔〕

=

""

=

""

End

Sub

〔3〕

〞退出"按钮的代码

Private

Sub

Command3_Click〔〕

End

End

Sub

教学资源作业内容设计一程序：根据输入的价格，求商品实际应付款〔价格超过1000打9折，超过2000打8折，超过5000打7折〕教学后记课次第次2课时课型周次第11周授课日期年月日课题IF语句教学目标知识目标熟悉If…Then结构，If…Then…Else结构技能目标能用if语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标提高学生学习兴趣重点难点If语句的应用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容编程实现：1、(a不为0)提示：如果那么输出“方程无实数根〞，否那么输出方程两实根。

将x1,x2的值转换成VB表达式为x1=(-b+sqr(b^2-4*a*c))/(2*a)x2=(-b-sqr(b^2-4*a*c))/(2*a)编写程序，要求能判断某个年份是否是闰年？提示：能被4整除但不能被100整除的，或者能被400整除的是闰年。教学资源作业内容教学后记备注课次第次2课时课型周次第12周授课日期年月日课题SelectCase语句教学目标知识目标熟悉Select…Case结构技能目标能用case语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标提高学生学习兴趣重点难点case语句的应用教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容Select

Case语句是多分支语句，又称为情况语句。格式：Select

Case

测试表达式

Case

表达式列表1

语句块1

Case

表达式列表2

语句块2

…

Case

表达式列表n

语句块n

[Case

Else

语句块n+1]End

Select功能：根据“测试表达式〞的值，选择第一个符合条件的语句块执行。

Select

Case语句的执行过程是：先求“测试表达式〞的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，那么执行该Case子句下面的语句块，然后执行End

Select下面的语句；如果没找到，那么执行Case

Else下面的语句块，然后执行End

Select下面的语句。说明：

“测试表达式〞可以是数值表达式或字符表达式；

“表达式列表〞形式有以下3种：〔1〕一个表达式或用逗号隔开的假设干表达式select

case

val(t1.text)

case

1,3,5

L1.caption=〞这是奇数〞

case

2,4,6

L1.caption=〞这是偶数〞end

select〔2〕表达式1

To

表达式2select

case

case

1

to

9

=〞此数是在1到10的范围内〞

case

“A〞

to

“Z〞

=〞请输入数字〞end

select〔3〕Is

关系运算符

表达式select

case

val(t1.text)

case

is>=30

=〞此数的范围大于30

case

is>=20

=〞此数的范围大于20

case

is>=10

=〞此数的范围大于10end

select【例】输入一个学生的一门课分数x〔百分制〕，当x≥90时，输出“优秀〞；当80≤x＜90

时，输出“良好〞；当

70≤x＜80

时，输出“中〞；当60≤x＜70

时，输出“及格〞，当

x＜60

时，输出“不及格〞。(1)界面设计

(2)代码设计PrivateSubCommand1_Click〔〕

Dimscore!

score=val(Text1.Text)

SelectCasescore

CaseIs>=90

Text2.Text="优秀"

CaseIs>=80

Text2.Text="良好"

CaseIs>=70

Text2.Text="中"

CaseIs>=60

Text2.Text="及格"

CaseElse

Text2.Text="不及格"

EndSelect

EndSub练习：求分段函数的值。教学资源作业内容教学后记课次第次2课时课型周次第12周授课日期年月日课题体育彩票模拟器教学目标知识目标常用函数技能目标常用函数的使用素质〔情感、态度、价值观、职业核心能力〕目标培养学生的学习兴趣重点难点函数的使用教学方法设计讲授，学生讨论，上机练习教学内容、教学过程、及时间分配导入方法及内容

数学上的函数，是指对一个或多个自变量进行特定的计算，获得一个因变量的值。在VB程序设计中，扩充了函数的定义，使用起来更为灵活。VB为用户预定义了一批内部函数，供用户随时调用。

函数都带有一个或几个自变量，称之为“参数〞。函数对这些参数运算，返回一个结果值。函数的一般调用格式为：

<函数名>([<参数表<])

如：sqr(9)

rgb(0,0,0)

date()

其中，函数的参数可以是常量、变量或表达式。假设有多个参数，参数之间以逗号分隔。

这些函数按其分类主要有以下几个类别的函数：一、转换函数二、数值函数**注意**要产生[a,b]区间范围内的随机整数，可以使用公式：int((b-a+1)*rnd+a)。例如：要产生[10,100]区间的随机整数，可以使用公式int(91*rnd+10)获得。三、字符串函数四、日期时间函数五、其他函数作业：

教学资源作业内容课次第次2课时课型周次第12周授课日期年月日课题体育彩票模拟器教学目标知识目标常用函数技能目标常用函数的使用素质〔情感、态度、价值观、职业核心能力〕目标培养学生的学习兴趣重点难点函数的使用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容要求学生讨论编程实现——体育彩票模拟器功能：模拟摇号，自动生成3个一位数，与预测号码作比拟，如果号码相同，那么提示用户“祝贺你，你中奖了！〞否那么提示“再接再历哦！〞界面如下：教学资源作业内容教学后记备注课次第次2课时课型周次第13周授课日期年月日课题体育彩票模拟器教学目标知识目标常用函数技能目标常用函数的使用素质〔情感、态度、价值观、职业核心能力〕目标培养学生的学习兴趣重点难点函数的使用教学方法设计演示、学生讨论、上机操作教学内容、教学过程、及时间分配导入方法及内容编程实现——体育彩票模拟器功能：模拟摇号，自动生成3个一位数，与预测号码作比拟，如果号码相同，那么提示用户“祝贺你，你中奖了！〞否那么提示“再接再历哦！〞分析：单击“预测〞按钮，通过输入对话框，输入一个三位的预测号码后显示在预测号码文本框TEXT4中；单击“摇号〞按钮，自动生成3个一位数分别显示在文本框TEXT1、TEXT2、TEXT3中，并与用户预测的号码进行比拟，如果相同的话，那么提示“祝贺你，你中奖了！〞否那么提示“再接再历哦！〞。演示实现步骤：创立用户界面设置各对象的属性编写代码运行程序保存界面如下：教学资源作业内容教学后记课次第次2课时课型周次第13周授课日期年月日课题FOR循环教学目标知识目标For循环语句技能目标能利用For循环语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点For…Next循环的用法教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容在程序中，但凡需要重复相同或相似的操作步骤，都可以用循环结构来实现。例如：计算1+2+3+...+1000；计算1*2*3*....*1000等等。一、结构：

For循环的一般格式如下：

For

循环变量=初值

To

终值

[Step

步长]

[循环体]

Next

[循环变量]

二、说明：1．格式中各项的说明

·

循环变量：亦称为循环控制变量，必须为数值型。

·

初值、终值：都是数值型，可以是数值表达式。

·

步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值

应小于终值；假设为负，初值应大于终值。但步长不能是0。如果步长是1，

Step

1可略去不写。

·

循环体：在For语句和Next语句之间的语句序列。

·

Next后面的循环变量与For语句中的循环变量必须相同。2．执行过程For循环语句的执行过程如下：〔1〕系统将初值赋给循环变量，并自动记下终值和步长。〔2〕检查循环变量的值是否超过终值。如果超过就结束循环，执行Next后面的语句；否那么，执行一次循环体。〔3〕执行Next语句，将循环变量增加一个步长值再赋给循环变量，转到〔2〕继续执行。

以上执行过程用流程图描述，如以下图所示。

这里所说的“超过〞有两种含义，即大于或小于。当步长为正值时，循环变量大于终值为“超过〞；当步长为负值时，循环变量小于终值为“超过〞。我们通过分析下面的程序来进一步理解For语句的执行过程。

For

n=1

To

10

Step

3

Print

n，

Next

n具体执行情况如下：

上面程序的执行结果为：

1

4

7

103．考前须知

For语句和Next语句必须成对出现，缺一不可，且For语句必须在Next语句之前。循环次数由初值、终值和步长确定，计算公式为：

循环次数=Int〔〔终值－初值〕/步长〕+1举例分析：

For

i

=

1

To

10

Print

i;

Next

i执行此语句将输出：

1

2

3

4

5

6

7

8

9

10

i是循环变量，它的初值为1，执行print语句，输出1；然后使i的值增加1，直到i的值超过终值10，就不再执行循环，它的流程如下图：

教学资源作业内容(1)

求s=1+3+5+…+101的值

(2)

求s=1*3*5*…*101的值

教学后记备注课次第次2课时课型周次第13周授课日期年月日课题DO循环教学目标知识目标DO循环语句技能目标能利用DO循环语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点Do…Loop循环的用法教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容Do…Loop循环结构语句格式1：Do[{While|Until}条件][语句块][ExitDo][语句块]Loop语句格式2：Do[语句块][ExitDo][语句块]Loop[{While|Until}条件]说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构Do…Loop【例】用Do…Loop循环结构实现求和sum=1+2+3+…+100。编写程序代码。解法一：采用当型循环DoWhile…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoWhilei<=100'当型循环sum=sum+ii=i+1'每次循环变量加1LoopLabel2.Caption=Str(sum)EndSub解法二：采用直到型循环DoUntil…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoUntili>100sum=sum+ii=i+1LoopLabel2.Caption=Str(sum)EndSub教学资源作业内容教学后记备注课次第次2课时课型周次第14周授课日期年月日课题鸡兔同笼教学目标知识目标DO循环语句技能目标能利用DO循环语句编写程序素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点DO循环的用法教学方法设计上机操作，演示教学内容、教学过程、及时间分配导入方法及内容要求学生编写程序解决以下问题：题目：鸡有两条腿，兔有4条腿，鸡兔同笼。鸡和兔的总只数和总腿数，求鸡、兔各有多少支。代码：DimCAsInteger,RAsInteger,HAsInteger,FAsIntegerH=Val(InputBox("请输入鸡兔总数(>=2):"))IfH<2ThenExitSubDoF=Val(InputBox("请输入鸡兔总腿数，"&"该数字必须是>"&2*H&",并且<"&4*H&"的偶数"))IfF=0ThenExitSubIfF<=2*HOrF>=4*HOrFMod2ThenMsgBox"输入错误，请重新输入！"ElseExitDoEndIfLoopR=(F-2*H)/2C=H-RClsPrint"笼中有鸡";C;"只";"兔";R;"只"教学资源作业内容教学后记备注课次第次2课时课型周次第14周授课日期年月日课题评委亮分教学目标知识目标熟悉一维数组的概念。技能目标熟悉一维数组的使用方法。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点一维数组的使用教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容数组就是很多元素的变量名相同，在内存中是连续存储的假设干个存储单元，每个数组元素的类型一样，为了区分这些元素，为每个元素赋予不同的下标值。数组的声明〔也叫做定义〕：[Public|Private|Dim|Static]数组名〔下标1[，下标2[…]]〕[as数据类型]。数组的定义举例:Dima(5)AsIntegerDimb(3to8)AsIntegerDimc(8)说明：a(5)共有6个元素，分别是a(0)、a(1)、a(2)、a(3)、a(4)和a(5)，b数组共有6个元素分别是b(3)、b(4)…b(8)，c数组共有c(0)、c(1)…c(8)共9个元素。如果不习惯以0为下标起点，可以设置下标为1，OptionBase1，该语句有只有两个值，分别是OptionBase1和OptionBase0，其中OptionBase0是默认值。程序举例:下面的程序可以求一维数组的最大元素以及最大元素的下标。编写代码OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimxbAsIntegerFori=1To10a(i)=Val(InputBox("输入数组元素"))Nextixb=1:zuida=a(1)Fori=2To10Ifa(i)>zuidaThenzuida=a(i)：xb=iEndIfNextiPrintzuida,xbEndSub练习：统计某班〔假设有30人〕程序设计课程考试的平均成绩，并输出高于平均分的成绩。教学资源作业内容教学后记备注课次第次2课时课型周次第14周授课日期年月日课题最高分和最低分教学目标知识目标IF语句；FOR语句；一维数组技能目标能灵活应用IF语句；FOR语句；一维数组编写程序素质〔情感、态度、价值观、职业核心能力〕目标提高学生学习兴趣重点难点IF语句、FOR语句及一维数组的应用教学方法设计上机操作教学内容、教学过程、及时间分配导入方法及内容编写以下程序：1、求N！的值，其中N由键盘输入。2、在窗体上打印一个有规律的图案，见以下图：教学资源作业内容教学后记备注课次第次2课时课型周次第15周授课日期年月日课题图像浏览器教学目标知识目标图像框技能目标熟悉图像框的常见属性、方法和事件。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点图像框的常见属性、方法和事件教学方法设计讲授、上机练习教学内容、教学过程、及时间分配导入方法及内容图像框〔ImageBox〕只能用于显示图形，没有图片框所拥有的其他功能；因此，图像框比图片框显示速度快、占用内存少。属性〔1〕Picture属性和图片框的Picture属性相同。〔2〕stretch属性指定是否缩放图形来适应控件大小。属性值为True或False。False：缩放控件来适应图形的大小。此值为缺省值。True：缩放图形来适应控件的大小。此值可能会使显示的图形变形失真。应用举例设计程序，演示图像框在stretch属性不同选值时的状态。分析：需要建立四个按钮，其中二个实现设定图像框的stretch属性值为True或False；另二个用来放大、缩小图像框，以演示stretch属性值为True时图形随图像框缩放。〔如图〕〔a〕stretch值为False时〔b〕值为True并放大时〔c〕值为True并缩小时stretch属性演示〔1〕界面设计在窗体上添加一个图像框、四个命令按钮。控件的大小、位置和命令按钮的Caption属性可参考图4-3。〔2〕编写代码依次双击窗体和各命令按钮，输入代码如下。PrivateSubForm_Load()Image1.Picture=LoadPicture("C:\VB\Face03.ico")EndSub '在程序启动时,为图像框装载图标“〞PrivateSubCommand1_Click() '“True〞按钮事件过程Image1.Stretch=TrueEndSubPrivateSubCommand2_Click() '“False〞按钮事件过程Image1.Stretch=FalseEndSubPrivateSubCommand3_Click() '“放大〞按钮事件过程Image1.Width=Image1.Width*2Image1.Height=Image1.Height*2EndSub '把Image1的宽度和高度值乘2再赋给其Width、Height属性PrivateSubCommand4_Click() '“缩小〞按钮事件过程Image1.Width=Image1.Width/2Image1.Height=Image1.Height/2EndSub '把Image1的宽度和高度值的一半赋给其Width、Height属性按F5键运行程序，程序界面如图4-3〔a〕所示，此时单击“放大〞按钮，虽然图像框已经扩大一倍〔其不可见〕，但是因其Stretch值默认为False，所以图形并不随图像框的扩大而扩大。随后点击“True〞按钮，将Stretch值更改为True，这时图形会为适应图像框的大小而放大，如图4-3〔b〕所示。正如图4-3〔c〕所示，按“缩小〞按钮，图形会随图像框的缩小而变小。不管图形及图像框是在扩大还是已缩小，只要单击“False〞按钮，都会使图像框缩放到图形原始大小的尺寸，来适应图形的正常显示，如图4-3〔a〕。运行无误后，请保存工程，以备后用。教学资源作业内容教学后记备注 课次第次2课时课型周次第15周授课日期年月日课题图像浏览器教学目标知识目标图像框技能目标熟悉图像框的常见属性、方法和事件。素质〔情感、态度、价值观、职业核心能力〕目标培养学生协作精神、分析问题、解决问题能力重点难点图像框的常见属性、方法和事件教学方法设计讨论、上机操作教学内容、教学过程、及时间分配导入方法及内容导入方法及内容要求学生讨论并利用系统提供的Image

控件编写图像浏览器程序。程序运行时，通过选择驱动器和文件夹，