中职学校VB教案

《Visual Basic 6.0》教案 授课班级：10级计算机及应用1班 授课教师：              学校教学设计表 课次 第 1 次 2课时 课型   周次 第 6 周 授课日期 年 月 日 课题 界面设计——时钟封面 教学目标 知识目标 熟悉VB6的集成开发环境； 认识VB6的构成要素； 技能目标 了解对象属性的设置与应用； 素质（情感、态度、价值观、职业核心能力）目标 激发学生学习兴趣，培养学生的独立思考能力和判断能力。 重点难点 简单的菜单和工具栏的使用； 对象、对象属性的概念； 教学方法设计 讲授法、讨论法 教学内容、教学过程、及时间分配 导入： Visual Basic是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，能用于Windows环境下的各种应用软件的开发，是目前较为流行的应用软件开发平台。 一、Visual Basic构成要素 1、对象与属性 对象：现实生活中的对象就是人们所说的“东西” ，如：太阳系、太阳、月亮。Visual Basic中的对象有：窗体、标签、命令按钮等。 属性：描述对象的特征的数据，如标签的Caption、Height、Width等。 Visual Basic中对象属性使用方法： 对象.属性=表达式 如： Form1.Caption= "第一个程序" 2、事件与过程 事件：在Visual Basic中事先设置好的能被系统识别的动作。例如：用鼠标单击窗体的事件就是Click事件。 事件过程：就是事件发生后，程序要去执行的代码。例如，用鼠标单击窗体触发Click事件，程序将执行过程 Private Sub Form_Click()中的代码，该过程称为事件过称。 下面就是一个事件过程，如果用鼠标单击Command1按钮就会触发Command1的Click事件，程序要执行如下的事件过程。 Private Sub Command_Click() Text1.Text= "Visual Basic程序设计" End Sub 3、方法：Visual Basic将内含的函数或者过程称为方法。 如下是Form的方法： Form1.Print "Hello,Visual Basic 6.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 项目实现步骤： 1、 启动VB6 2、 添加文字 3、 修饰文字 4、 对齐文字 5、 设置显示文字的内部名称 6、 添加其余文字 7、 对齐3个标签 8、 设置窗体背景图片 9、 设置文字透明背景 10、改变窗体大小 11、窗体的图标的更改 12、窗体的名称和标题栏文字的设置 13、运行程序 14、保存程序 15、生成可执行程序 16、关闭VB6 教学资源   作业内容 标签的常用属性及意义 教学后记   备注                   课次 第 3 次 2课时 课型   周次 第 7 周 授课日期 年 月 日 课题 界面设计——关于时钟 教学目标 知识目标 图片框控件的常用属性； 窗体的常用属性； 技能目标 掌握设置窗体控件的方法； 素质（情感、态度、价值观、职业核心能力）目标 激发学生学习兴趣，培养学生的自学能力、信息分析、理解问题能力。 重点难点 窗体的常用属性及设置； 教学方法设计 项目教学法、讨论法、上机操作 教学内容、教学过程、及时间分配 导入： 在具有Windows风格的应用软件中，菜单栏的最后一个菜单一般是“帮助”菜单，其中都有一个“关于”菜单命令。如WindowsXP操作系统中，“我的电脑”的帮助菜单中有一个“关于Windows”菜单命令。 教学活动1 完成项目：关于时钟 项目描述：“关于”是英文“About”的汉译。“关于”窗口与软件封面的区别是：软件封面是应用软件启动时出现，一般在应用软件主窗口启动后自动关闭；“关于”窗口是用于应用软件运行之后向用户提供软件版本、授权等信息，一般需要用户单击“关闭”按钮才能关闭窗口。 学生对该项目进行分析，并实现。 教师根据学生完成情况进行点评。 项目分析：本项目是对前一项目“时钟封面”主要的区别是：增加了一个“关闭”按钮和图片框，其次是增加了直线、标签及窗口标题栏的变化。 项目实现： 1、 添加图片；2、添加文字；3、添加线条；4、添加按钮； 5、添加代码；6、设置窗体；7、运行程序；8、保存程序 教学资源   作业内容 窗体的常用属性有哪些？ 教学后记   备注                   课次 第 4 次 2课时 课型   周次 第 7 周 授课日期 年 月 日 课题 界面设计——用户登录 教学目标 知识目标 1、命令按钮、文本框的常用属性及事件； 技能目标 1、 掌握命令按钮、文本框控件的初步应用； 素质（情感、态度、价值观、职业核心能力）目标 激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。 重点难点 命令按钮、文本框的常用属性； 命令按钮、文本框的应用； 教学方法设计 项目教学法、讨论法、上机操作 教学内容、教学过程、及时间分配 导入： 为了管理用户个人信息，保护个人数据的安全，很多应用软件都要求用户提交账号和密码，这就需要一个用户登录的界面，比如QQ用户登录界面。 教学活动1 项目：制作一款“用户登录”的窗口； 项目描述：本项目要求用户输入账号和密码（输入时密码显示为“*”），单击“登录”按钮时，显示用户输入的信息（显示时用户密码以明码显示） 学生讨论，并说出设计步骤。 教师点评，并进行分析演示：本项目用文本框接受用户输入的数据，“重填”按钮和“登录”按钮通过代码设置是否响应用户的操作（即可用性），窗口上部使用图像控件显示图像文件。 介绍： 1、 文本框 文本框主要用于在程序中改变显示的文字，文本框一般具有复制、剪切、删除、粘贴等编辑功能。 文本框的常见属性有： Text：文本框中的文字； Multiline:值为True时，文本框可以多行显示，值为False时，文本框的文字以单行显示； PasswordChar:用于设置口令，如把文本框的PasswordChar属性设置为“*”,则在文本框中的任何字符都会显示为“*”，这样便于口令的保密。 文本框的常见事件： Change:文本框的Text发生改变触发该事件； 2、 命令按钮 命令按钮是Visual Basic中使用最频繁的控件之一，它的常用属性有： Name：窗体的名称属性； Caption:命令按钮的标题属性； Cancel:该属性的值有True和False，设置为true是，按“ESC”键就等价于点击该按钮； Enabled:按钮是否有效，值为True时，表示按钮有效，值为False时表示该按钮无效； Style:按钮的样式。0表示标准样式，1表示图形样式； Visible:值为True时按钮显示，值为False时按钮在运行时不显示。 最常见的事件有： Click事件：用鼠标单击按钮触发该事件。 程序举例： I.设计界面 在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。 图1-1 程序界面 II.设置属性 设置属性，设置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、认识代码窗口 技能目标 1、 学会代码的添加； 素质（情感、态度、价值观、职业核心能力）目标 激发学生学习VB的热情；培养学生的自学能力，分析、理解问题能力。 重点难点 代码的添加； 教学方法设计 项目教学法、讨论法、上机操作 教学内容、教学过程、及时间分配 导入： 上节课通过设计“用户登录”窗口，相信对于该程序的界面设计有了一定的了解，本节课希望大家通过阅读，将代码添加进去，实现完整的程序。理解代码含义，并说明代码所完成的功能。 回顾程序： I.设计界面 在窗体中按照顺序添加Lable1、Text1、Label2、Text2、Command1和Command2，界面如图1-1所示。 图1-1 程序界面 II.设置属性 设置属性，设置Lable1的Caption为“&User”、Lable2的Caption为“&Password”、Command1的Caption为“确定[&E]”、设置Command2的Caption为“[&S]”、设置Text1和Text2的Text为空，设置Text2的Passwordchar为“*”。设置属性后的界面如图1-2所示。 图1-2 设置属性后的界面 代码实现： III.编写代码 编写代码如下： Private Sub Command1_Click() If Text1.Text = "zs" And Text2.Text = "123" Then MsgBox "欢迎你" Else MsgBox "非法用户" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub IV.保存程序 保存程序。 V.运行程序 运行程序，程序正确。 学生交流讨论，并自己独立实现“用户登录”窗口的制作。 教学资源   作业内容 制作一款“用户登录”的窗口 教学后记   备注                   课次 第 6 次 2课时 课型   周次 第 8 周 授课日期 年 月 日 课题 界面设计——时钟 教学目标 知识目标 1、日期和时间函数； 2、语法的概念； 技能目标 初步掌握赋值语句及函数的用法； 学会定时器、图形控件的初步应用； 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力。 重点难点 函数的用法 教学方法设计 项目教学法、讨论法、上机操作 教学内容、教学过程、及时间分配 导入： 时钟不仅是一个显示时间的工具，对很多人来说，时钟更是管理时间的工具，所以，很多应用软件中都附带有时钟工具软件，如Windows操作系统中自带的“日期与时间”工具里，就有一个简单的时钟。 教学活动1 项目描述：要求制作一款“时钟”软件。完成的时钟以图形动画和字符两种形式显示日期与时间。在后续章节中，可以对本项目的时钟做进一步的功能开发，如显示星期、定时闹钟等。 学生对该项目进行分析，并实现。 教师根据学生完成情况进行点评。 项目分析：本项目使用图形控件画时钟的钟面，用直线控件画时针、分针、秒针的指针，通过定时器的作用控制秒针、分针和时针的变化，日期和时间标签中要用到日期型函数。 项目实现： 1、 画钟面 2、 添加标签 3、 加入定时器 4、 添加定时器代码 5、 加入秒针 6、 加入分针和时针 7、 修改代码 8、 设置窗体 9、 保存程序 相关知识： 1、函数：函数是一种特定的运算，在程序中要使用一个函数时，只要给出函数名及参数，就能得到它的函数值，如sin(x)是求弧度值为x的正弦值的函数。 在VB6中，一般函数由函数名和参数组成，参数需要外加括号。个别特殊的函数不需要参数时，可以直接给出函数名得到函数值，如Date函数得到当前计算机的日期值，Time函数得到当前计算机的时间值。 2、语法 建立程序语句时必须遵从的构造规则称为语法。在输入语句的过程中，VB将自动对输入的内容进行语法检查，如果发现语法错误，将弹出一个信息框提示出错的原因。 教学资源   作业内容 设计一时钟 教学后记   备注                   课次 第 次 2课时 课型   周次 第 8 周 授课日期 年 月 日 课题 简单程序设计——数值交换 教学目标 知识目标 1、赋值语句 技能目标 初步掌握赋值语句的用法； 素质（情感、态度、价值观、职业核心能力）目标 培养学生分析问题、解决问题能力 重点难点 赋值语句的灵活应用 教学方法设计 讲授、讨论法、上机操作 教学内容、教学过程、及时间分配 导入方法及内容 认识赋值语句： 赋值语句的一般格式为： [Let] <名称>=<表达式> 其中，“[Let]”是可选项，一般情况下可省略。“<名称>”是变量或属性的名称，“<表达式>”是指某运算式。 在使用赋值语句时，需注意以下几点： （1）赋值语句兼有计算与赋值的双重功能，它首先计算赋值号“=”右边表达式的值，然后把结果赋给赋值号左边的变量（或属性）。 （2）赋值号“=”与数学上的等号意义是不一样的。 （3）赋值号两边的数据类型必须一致，否则会出现“类型不匹配”错误。 赋值语句语法：变量名|对象的属性名=表达式 功能：将表达式的值赋给指定的变量或对象的属性。 说明：赋值语句在程序设计中的使用非常广泛，每一个赋值语句可以单独放在一行中，也可以将多条赋值语句放在一行中，但每一语句间必须用“：”冒号作为分隔符。 【例】已知长和宽，求矩形的面积。 设计步骤如下： ⑴ 设计程序界面。选择“新建”，然后在窗体中增加一个标签Label1，一个命令按钮Command1和一个文本框Text1。 ⑵ 设置对象属性。如表2.8所示。 表2.8 属性设置 对象 属性 属性值 Label1 Caption 已知：长=5，宽=7 Label2 Caption   Command1 Caption 则矩形面积=       ⑶ 编写事件代码。 命令按钮Command1的Click事件代码为： Private Sub Command1_Click() Dim a As Single,b As Single,area As Single a=5 b=7 area=a*b Label2.Caption=Str(area) End Sub 练习：书101页 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 9 周 授课日期 年 月 日 课题 简单程序设计——数值交换 教学目标 知识目标 1、赋值语句 技能目标 初步掌握赋值语句的用法； 素质（情感、态度、价值观、职业核心能力）目标 培养学生分析问题、解决问题能力 重点难点 赋值语句的灵活应用 教学方法设计 上机操作 教学内容、教学过程、及时间分配 导入方法及内容 要求学生讨论分析并编程实现以下项目： 从键盘分别输入两个数据，单击“交换”按钮完成两个数值的交换。 界面如下： 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 9 周 授课日期 年 月 日 课题 简单程序设计——数值交换 教学目标 知识目标 1、赋值语句 技能目标 初步掌握赋值语句的用法； 素质（情感、态度、价值观、职业核心能力）目标 培养学生分析问题、解决问题能力 重点难点 赋值语句的灵活应用 教学方法设计 演示、学生讨论 教学内容、教学过程、及时间分配 导入方法及内容 编程实现以下项目： 从键盘分别输入两个数据，单击“交换”按钮完成两个数值的交换。 分析：这是一个数值交换程序。分别在TEXT1和TEXT2中输入数值1和数值2，单击“交换”按钮，则text1中显示的是数值2，text2中显示的是数值1；单击“清除”按钮，则清除text1和text2中的内容；单击“结束”按钮，退出该程序。首先通过赋值语句将数据从文本框中取出，用不同的变量来存放数据，交换后再放入到文本框中，然后通过单击按钮来实现计算、清空和结束的功能。 演示步骤如下： 1、 创建界面 2、 设置各对象的属性 3、 编写代码 4、 运行程序 5、 保存 界面如下： 教学资源   作业内容 将窗体中的数值换成字符，该如何修改界面和代码？ 教学后记                   课次 第 次 2课时 课型   周次 第 9 周 授课日期 年 月 日 课题 简易文本编辑器 教学目标 知识目标 变量及常量 技能目标 掌握变量、常量的声明及使用。 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 变量、常量的声明及使用 教学方法设计 讲授、上机操作 教学内容、教学过程、及时间分配 导入方法及内容 常量及变量： 1. 常量 常量声明格式： [Public | Private] Const 常量名 [as type]=value 2. 变量 一、变量的命名规则 1. 以字母或汉字开头，后可跟字母、数字或下划线组成. 2. 变量名最长为255个字符； 3. VB中不区分变量名的大小写； 4.不能使用VB中关键字； 二、声明变量有两种方式：显式声明和隐式声明。 (1) 显式声明语法 声明格式：Dim|Static|Public|Private <变量名> As <数据类型> 语句功能：声明变量并分配存储空间。 (2) 隐式声明语法 声明格式：Dim <变量名> （或者不声明变量，而直接使用变量） 3.2.3 变量作用域 不同作用域变量的声明方式 作用范围 局部变量 模块级变量 公共变量 声明方式 Dim，Static Dim，Private Public 变量的声明位置 过程内部 模块的声明段 模块的声明段 本模块中其他过程能否访问 不能 能 能 其他模块能否访问 不能 不能 能         三、应用举例 1、说明下列语句的作用 y=3*x^3+5 a=a+1     ' 说明：先计算右边的值，然后再把计算结果赋给左边的变量 2、例：计算圆的面积和周长 1、设计界面和运行界面，如图所示。 2、代码： Option Explicit ------------------------------------------------ Private Sub Command1_Click() Dim pi As Single, r As Single, l As Single, s As Single r = Val(t1.Text) pi = 3.14 l = 2 * pi * r s =   pi * r ^ 2 l1.Caption = Str(l) l2.Caption = Str(s) End Sub 　 ****注意**** val(字符串)：把字符串转换为数值； str(数值)：  把数值转换为字符串   输入的数据是字符型,转换成数值型才能进行计算；标签的Caption属性是字符型，所以输时又要把计算结果转换成字符型。 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 10 周 授课日期 年 月 日 课题 简易文本编辑器 教学目标 知识目标 变量及常量 技能目标 掌握变量、常量的声明及使用。 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 变量、常量的声明及使用 教学方法设计 上机操作 教学内容、教学过程、及时间分配 导入方法及内容 要求学生讨论并编程实现——简易文本编辑器 功能：本程序可以对文本框进行复制、剪切、粘贴、删除、清除等操作。 界面如下： 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 10 周 授课日期 年 月 日 课题 简易文本编辑器 教学目标 知识目标 变量及常量 技能目标 掌握变量、常量的声明及使用。 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 变量、常量的声明及使用 教学方法设计 演示、学生讨论 教学内容、教学过程、及时间分配 导入方法及内容 编程实现——简易文本编辑器 功能：本程序可以对文本框进行复制、剪切、粘贴、删除、清除等操作。 分析：这是一个简易文本编辑器。在TEXT1中选择需要复制或剪切的内容，单击“剪切”按钮可以实现剪切功能，单击“复制”按钮可以实现复制功能；然后将光标移动到需要粘贴的位置，单击“粘贴”按钮，即可把剪切或复制的内容粘贴到目标位置；单击“退出”按钮结束。 在这个程序中，涉及文本编辑属性中的seltext属性，该属性是用来选定字符，如果没有字符被选定的话，就是空字符。剪切、复制和粘贴就是通过一个模块级变量来实现的。 步骤演示： 1、 创建用户界面 2、 设置各对象属性 3、 编写代码 4、 运行程序 5、 保存 界面如下： 教学资源   作业内容 如果再添加2个“全选”和“清空”按钮，应该如何修改窗体和代码？ 教学后记                   课次 第 次 2课时 课型   周次 第 10 周 授课日期 年 月 日 课题 简易计算器 教学目标 知识目标 算术运算符及表达式 技能目标 熟悉VB语言中表达式的使用 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 表达式的应用 教学方法设计 讲授、上机练习 教学内容、教学过程、及时间分配 导入方法及内容 表达式及运算符： 1. 算术运算符及算术表达式 （1）“/”和“\”运算符的区别； （2）“MOD”运算符的运用 （3） 写VB表达式时，要注意的几点； 2. 字符运算符及字符表达式 字符运算符用于将两个字符型表达式连接生成一个新字符串。其运符主要有“+”运算符和“&”运算符 当两个表达式的其中一个是数值型时，“+”做为算术运算符进行加法运算，当两个表达式都是字符型时，才做为连接运算符。 3. 关系运算符及关系表达式> < >= <= <> 4. 逻辑运算符及逻辑表达式 NOT AND OR XOR EQV IMP 5. 运算符的优先顺序 在一个表达式中，如果同时有多个运算符存在，则它们的优先顺序由高到低依次为： 算术运算符→字符运算符→关系运算符→逻辑运算符 算术运算符的优先级顺序由高到低依次为： ∧（指数运算）；-（负数）；*，/（乘法，浮点除法）；\（整数除法）；Mod（取模运算）；+，-（加法，减法）。 其中，“*”，“/”具有相同的优先级；“+”，“-” 具有相同的优先级。 在关系运算符中，所有的运算符具有相同的优先级。 逻辑运算符的优先级顺序由高到抵依次为： Not（非），And（与），Or（或），Xor（异或），Eqv（同或），Imp（蕴含）。 用括号控制运算的优先次序可以是程序清晰易读，而且不易出错。 [例2.4] 写出VB表达式4*6>3*7 Or Not 5>2的值。 计算步骤如下： ⑴ 算术运算：24>21 Or Not 5>2 ⑵ 关系运算：True Or Not True ⑶ 逻辑运算：True Or False ⑷ 结果：True 课堂练习： 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 11 周 授课日期 年 月 日 课题 简易计算器 教学目标 知识目标 算术运算符及表达式 技能目标 熟悉VB语言中表达式的使用 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 表达式的应用 教学方法设计 上机操作 教学内容、教学过程、及时间分配 导入方法及内容 要求学生讨论并编程实现——简易计算器 功能：本程序要求从键盘分别输入两个数据，单击“开始”按钮，就可以进行加、减、乘、除的四则运算。 界面如下： 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 11 周 授课日期 年 月 日 课题 IF语句 教学目标 知识目标 熟悉If…Then结构，If…Then…Else结构 技能目标 能用if语句编写程序 素质（情感、态度、价值观、职业核心能力）目标 提高学生学习兴趣 重点难点 If语句的应用 教学方法设计 讲授、上机练习 教学内容、教学过程、及时间分配 导入方法及内容 在程序设计中经常遇到这类问题，它需要根据不同的情况采用不同的处理方 法。例如，一元二次方程的求根问题，要根据判别式小于零或大于等于零的 情况，采用不同的数学表达式进行计算。对于这类问题，如果用顺序结构编 程，显然力不从心。必须借助分支结构。 一、If语句 格式： If条件then 语句块1 [Else 语句块2] EndIf 说明： （1）“条件”一般为关系表达式或逻辑表达式。通常把关系表达式或逻辑表达式 的值为真时，称为条件满足；值为假时，称为条件不满足。反之亦然。 判断下列条件是否成立: 1、1<0；2、1=0；3、1<=0；4、3>=3；5、3<=3 （2）语句块1、语句块2分别是“条件”满足或不满足时，处理方法的描述，可以 是若干个语句。 （3）If…Then、Else、EndIf是VB的保留字。 功能： （1）块If首先判断“条件”，其值为真时，执行语句块1；为假时执行语句块2。 当缺省[Else…]中的内容时，该分支结构只对条件满足的情况进行处理。执行过 程如图所示。 二、实例：火车站行李费的收费标准是50kg以内（包括50kg）0.20/kg，超过 部分0.50/kg。编写程序，要求根据输入的任意重量，计算出应付的行李费。 根据题意计算公式如下： 1、界面设计： 2、属性设置： 3、代码： （1）”计算"按钮的代码 PrivateSubCommand1_Click() Dimwassingle，payassingle w=Text1.Text If w>50Then pay=(w-50)*0.5+50*0.2 Else pay=w*0.2 EndIf Text2.Text=pay EndSub （2）”清空"按钮的代码 PrivateSubCommand2_Click（） Text1.Text="" Text2.Text="" EndSub （3）”退出"按钮的代码 PrivateSubCommand3_Click（） End EndSub 教学资源   作业内容 设计一程序：根据输入的价格，求商品实际应付款（价格超过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) 2、 编写程序，要求能判断某个年份是否是闰年？ 提示：能被4整除但不能被100整除的，或者能被400整除的是闰年。 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 12 周 授课日期 年 月 日 课题 Select Case 语句 教学目标 知识目标 熟悉Select…Case 结构 技能目标 能用case语句编写程序 素质（情感、态度、价值观、职业核心能力）目标 提高学生学习兴趣 重点难点 case语句的应用 教学方法设计 讲授、上机练习 教学内容、教学过程、及时间分配 导入方法及内容 SelectCase语句是多分支语句，又称为情况语句。 格式： SelectCase测试表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 … Case表达式列表n 语句块n [CaseElse 语句块n+1] EndSelect 功能：根据“测试表达式”的值，选择第一个符合条件的语句块执行。 SelectCase语句的执行过程是：先求“测试表达式”的值，然后顺序测试该值符合哪一个Case子句中情况，如果找到了，则执行该Case子句下面的语句块，然后执行EndSelect下面的语句；如果没找到，则执行CaseElse下面的语句块，然后执行EndSelect下面的语句。 说明： “测试表达式”可以是数值表达式或字符表达式； “表达式列表”形式有以下3种： （1）一个表达式或用逗号隔开的若干表达式 selectcaseval(t1.text) case1,3,5 L1.caption=”这是奇数” case2,4,6 L1.caption=”这是偶数” endselect （2）表达式1To表达式2 selectcaset1.text case1to9 L1.caption=”此数是在1到10的范围内” case“A”to“Z” L1.caption=”请输入数字” endselect （3）Is关系运算符表达式 selectcaseval(t1.text) caseis>=30 L1.caption=”此数的范围大于30” caseis>=20 L1.caption=”此数的范围大于20” caseis>=10 L1.caption=”此数的范围大于10” endselect 【例】输入一个学生的一门课分数x（百分制），当x≥90时，输出“优秀”；当80≤x＜90时，输出“良好”；当70≤x＜80时，输出“中”；当60≤x＜70时，输出“及格”，当x＜60时，输出“不及格”。 (1)界面设计 (2)代码设计 Private Sub Command1_Click（） Dim score! score = val(Text1.Text) Select Case score Case Is >= 90 Text2.Text = "优秀" Case Is >= 80 Text2.Text = "良好" Case Is >= 70 Text2.Text = "中" Case Is >= 60 Text2.Text = "及格" Case Else Text2.Text = "不及格" End Select End Sub 练习：求分段函数的值。 教学资源   作业内容   教学后记                   课次 第 次 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中，并与用户预测的号码进行比较，如果相同的话，则提示“祝贺你，你中奖了！”否则提示“再接再历哦！”。 演示实现步骤： 1、 创建用户界面 2、 设置各对象的属性 3、 编写代码 4、 运行程序 5、 保存 界面如下： 教学资源   作业内容   教学后记                   课次 第 次 2课时 课型   周次 第 13 周 授课日期 年 月 日 课题 FOR循环 教学目标 知识目标 For 循环语句 技能目标 能利用For 循环语句编写程序 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 For…Next循环的用法 教学方法设计 讲授、上机练习 教学内容、教学过程、及时间分配 导入方法及内容 在程序中，凡是需要重复相同或相似的操作步骤，都可以用循环结构来实现。 例如：计算1+2+3+...+1000；计算1*2*3*....*1000等等。 一、结构： For循环的一般格式如下： For循环变量=初值To终值[Step步长] [循环体] Next[循环变量] 二、说明： 1．格式中各项的说明 ·循环变量：亦称为循环控制变量，必须为数值型。 ·初值、终值：都是数值型，可以是数值表达式。 ·步长：循环变量的增量，是一个数值表达式。一般来说，其值为正，初值 应小于终值；若为负，初值应大于终值。但步长不能是0。如果步长是1， Step1可略去不写。 ·循环体：在For语句和Next语句之间的语句序列。 ·Next后面的循环变量与For语句中的循环变量必须相同。 2．执行过程 For循环语句的执行过程如下： （1）系统将初值赋给循环变量，并自动记下终值和步长。 （2）检查循环变量的值是否超过终值。如果超过就结束循环，执行Next后面的语句；否则，执行一次循环体。 （3）执行Next语句，将循环变量增加一个步长值再赋给循环变量，转到（2）继续执行。 以上执行过程用流程图描述，如下图所示。 这里所说的“超过”有两种含义，即大于或小于。当步长为正值时，循环变量大于 终值为“超过”；当步长为负值时，循环变量小于终值为“超过”。 我们通过分析下面的程序来进一步理解For语句的执行过程。 Forn=1To10Step3 Printn， Nextn 具体执行情况如下： 上面程序的执行结果为： 14710 3．注意事项 For语句和Next语句必须成对出现，缺一不可，且For语句必须在Next语句之前。循环次数由初值、终值和步长确定，计算公式为： 循环次数=Int（（终值－初值）/步长）+1 举例分析： Fori=1To10 Printi; Nexti 执行此语句将输出： 12345678910 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} 条件] [语句块] [Exit Do] [语句块] Loop 语句格式2： Do [语句块] [Exit Do] [语句块] Loop [{While | Until} 条件] 说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构Do…Loop 【例】用Do…Loop循环结构实现求和sum=1+2+3+…+100。 编写程序代码。 解法一：采用当型循环Do While…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为1 sum=0 '累加器初值置为0 Do While i<=100 '当型循环 sum=sum+i i=i+1 '每次循环变量加1 Loop Label2.Caption=Str(sum) End Sub 解法二：采用直到型循环Do Until…Loop Private Sub Command1_Click() Dim i As Integer,sum As Integer i=1 '计数器初值置为1 sum=0 '累加器初值置为0 Do Until i>100 sum=sum+i i=i+1 Loop Label2.Caption=Str(sum) End Sub 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 14 周 授课日期 年 月 日 课题 鸡兔同笼 教学目标 知识目标 DO 循环语句 技能目标 能利用DO 循环语句编写程序 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 DO循环的用法 教学方法设计 上机操作，演示 教学内容、教学过程、及时间分配 导入方法及内容 要求学生编写程序解决以下问题： 题目：鸡有两条腿，兔有4条腿，鸡兔同笼。已知鸡和兔的总只数和总腿数，求鸡、兔各有多少支。 代码：Dim C As Integer, R As Integer, H As Integer, F As Integer H = Val(InputBox("请输入鸡兔总数(>=2):")) If H < 2 Then Exit Sub Do F = Val(InputBox("请输入鸡兔总腿数，" & "该数字必须是>" & 2 * H & ",并且<" & 4 * H & "的偶数")) If F = 0 Then Exit Sub If F <= 2 * H Or F >= 4 * H Or F Mod 2 Then MsgBox "输入错误，请重新输入！" Else Exit Do End If Loop R = (F - 2 * H) / 2 C = H - R Cls Print "笼中有鸡"; C; "只"; "兔"; R; "只" 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 14 周 授课日期 年 月 日 课题 评委亮分 教学目标 知识目标 熟悉一维数组的概念。 技能目标 熟悉一维数组的使用方法。 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 一维数组的使用 教学方法设计 讲授、上机练习 教学内容、教学过程、及时间分配 导入方法及内容 数组就是很多元素的变量名相同，在内存中是连续存储的若干个存储单元，每个数组元素的类型一样，为了区分这些元素，为每个元素赋予不同的下标值。 数组的声明（也叫做定义）： [Public|Private|Dim|Static] 数组名（下标1[，下标2[…]]）[as 数据类型]。 数组的定义举例: Dim a(5) As Integer Dim b(3 to 8) As Integer Dim c(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，Option Base 1，该语句有只有两个值，分别是Option Base 1和Option Base 0，其中Option Base 0是默认值。 程序举例: 下面的程序可以求一维数组的最大元素以及最大元素的下标。 编写代码 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer Dim xb As Integer For i = 1 To 10 a(i) = Val(InputBox("输入数组元素")) Next i xb = 1: zuida = a(1) For i = 2 To 10 If a(i) > zuida Then zuida = a(i)： xb = i End If Next i Print zuida, xb End Sub 练习：统计某班（假设有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）编写代码 依次双击窗体和各命令按钮，输入代码如下。 Private Sub Form_Load() Image1.Picture = LoadPicture("C:\VB\Face03.ico") End Sub        '在程序启动时,为图像框装载图标“Face03.ico” Private Sub Command1_Click()    '“True”按钮事件过程 Image1.Stretch = True End Sub Private Sub Command2_Click()    '“False”按钮事件过程 Image1.Stretch = False End Sub Private Sub Command3_Click()    '“放大”按钮事件过程 Image1.Width = Image1.Width * 2 Image1.Height = Image1.Height * 2 End Sub        '把Image1的宽度和高度值乘2再赋给其Width、Height属性 Private Sub Command4_Click()    '“缩小”按钮事件过程 Image1.Width = Image1.Width / 2 Image1.Height = Image1.Height / 2 End Sub        '把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控件编写图像浏览器程序。 程序运行时，通过选择驱动器和文件夹，再单击图像文件，即可在图像框中显示图像。单击“退出”按钮，则关闭“图像浏览器”窗口。 界面如下： 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 15 周 授课日期 年 月 日 课题 图像浏览器 教学目标 知识目标 图像框 技能目标 熟悉图像框的常见属性、方法和事件。 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 图像框的常见属性、方法和事件 教学方法设计 演示、上机操作 教学内容、教学过程、及时间分配 导入方法及内容 利用系统提供的Image控件编写图像浏览器程序。 程序运行时，通过选择驱动器和文件夹，再单击图像文件，即可在图像框中显示图像。单击“退出”按钮，则关闭“图像浏览器”窗口。 分析：当在选择文件时，需要选择“盘符”和“文件夹”来确定需要浏览的图像文件的路径，因此需要使用驱动器控件、列表框控件和文件列表框控件，并通过CHANGE事件使它们关联。 演示步骤如下： 1、创建用户界面 2、编写代码 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub File1_Click() Picture2.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) End Sub 3、保存工程、运行并调试程序 界面如下： 教学资源   作业内容   教学后记                   课次 第 次 2课时 课型   周次 第 16 周 授课日期 年 月 日 课题 MP3播放器 教学目标 知识目标 windowsMediaPlayer控件 技能目标 能用windowsMediaPlayer控件编写程序 素质（情感、态度、价值观、职业核心能力）目标 培养学生协作精神、分析问题、解决问题能力 重点难点 windowsMediaPlayer控件的常用属性 教学方法设计 上机操作 教学内容、教学过程、及时间分配 导入方法及内容 利用系统提供的windowsMediaPlayer控件编写MP3播放程序。程序运行时，通过对路径的选择，在文件列表框中只显示出MP3文件，单击其中的MP3文件，即可播放。 分析：本题再次用到了驱动器控件、目录列表框控件和文件列表框控件，同样需要Change事件来关联它们。在该题中还使用了windowsMediaPlayer控件，用于控制MP3音乐文件的播放。 步骤演示如下： 1、创建界面 2、编写代码 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() WMP1.URL = Dir1.Path & "\" & File1.FileName End Sub Private Sub Form_Load() File1.Pattern = "*.mp3" End Sub 3、保存工程，运行并调试 设计界面如图： 教学资源   作业内容                   课次 第 次 2课时 课型   周次 第 16 周 授课日期 年 月 日 课题 指法练习游戏 教学目标 知识目标 键盘事件 技能目标 能利用键盘事件编写程序 素质（情感、态度、价值观、职业核心能力）目标 激发学生的学习兴趣 重点难点 键盘事件的应用 教学方法设计 上机操作 教学内容、教学过程、及时间分配 导入方法及内容 要求学生编写程序：简易指法练习游戏 功能：“按F2键练习开始，按F3键练习结束”。每次计算机会随机产生5个小写英文字符，分别从屏幕的5个位置向下掉落，当落到图片底端时，就是一次失误，将重新产生一个字符，又开始从最上方掉落。在掉落的过程中，练习者按了相应的字符键，该字符消失并得一分，同时重新产生一个新字符，又开始从最上方往下掉落。 教学资源   作业内容   教学后记   备注                   课次 第 次 2课时 课型   周次 第 16 周 授课日期 年 月 日 课题 期末复习 教学目标 知识目标 熟悉VB的基本概念和简单应用 技能目标 学会设计相应程序解决实际问题 素质（情感、态度、价值观、职业核心能力）目标 培养学生分析问题、解决问题能力 重点难点 解决问题的分析能力 教学方法设计 演示、讨论、上机操作 教学内容、教学过程、及时间分配 题一：在Form1的窗体上画一个复选按钮，名称为Check1，标题为“显示命令按钮”，设计时设置其相应属性使之处于未选择状态；再画一个命令按钮，名称为Command1，标题为“显示”，设计时设置其相应属性使之不可见。编写适当的程序，当程序启动时，选择复选按钮时，显示命令按钮Command1，未选复选按钮时，隐藏命令按钮Command1。程序运行结果如图： 题二：求最大数 在窗体上画4个文本框，名称分别为Text1、Text2、Text3、Text4；再画一个命令按钮，名称为C1，标题为“最大数”。编写适当的程序，单击“最大数”按钮后，就在文本框Text4中显示输入到上面3个文本框中的3个整数中最大的那个。程序运行结果如图： 题三：在窗体上画两个标签，名称分别为Label1和Label2，标题分别为“请输入一个正整数N：”和“1+2+3+…+N的和为：”；画两个文本框分别为Text1和Text2，内容都设为空白；画一个命令按钮，名称为C1，标题为“计算”。编写适当的程序。程序运行时，在Text1中输入一正整数N，单击“计算”按钮，计算出1+2+3+…+N的和显示在Text2中。程序运行结果。 教学资源   作业内容   教学后记   备注