中职学校VB教案.doc

《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]
            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= Text1.Text
         If  w > 50 Then
                        pay =(w - 50)* 0.5 + 50 * 0.2
         Else
                        pay = w * 0.2
         End If
         Text2.Text = pay
 End Sub
 （2） ”清空"按钮的代码
 Private Sub Command2_Click（）
         Text1.Text = ""
         Text2.Text = ""
 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)

2、 编写程序，要求能判断某个年份是否是闰年？
提示：能被4整除但不能被100整除的，或者能被400整除的是闰年。

教学资源

作业内容

教学后记

备注

课次
第 次 2课时
课型

周次
第 12 周
授课日期
年 月 日
课题
Select Case 语句
教学目标
知识目标
熟悉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  表达式2
select  case  t1.text
     case 1 to 9
        L1.caption =”此数是在1到10的范围内”
     case  “A”  to  “Z” 
        L1