资源简介

(共20张PPT)
【案例3】体育达标测试
　　案例效果
　　涵盖知识
　　操作步骤
　　案例小结
　　实训练习
涵盖知识
变量的作用域
过程级变量
在一个过程内部定义的变量，只有在过程内部才能访问或改变那个变量的值，称过程级变量。过程级变量用Dim或Staic关键字来定义，也称为局部变量。
涵盖知识
变量的作用域
2) 模块级变量
在某一模块（窗体模块或标准模块）内使用Private语句或Dim语句声明的变量都是模块级变量，其作用域只限于该模块，只能被该模块中的所有过程调用，其他模块中的任何过程都不能调用。
涵盖知识
变量的作用域
3) 全局变量
在标准模块中定义一个全局变量，其方法与在标准模块中定义一个模块级变量相同，只是在定义时必须冠以Public，不能使用Dim和Private。
在窗体模块中定义一个全局变量，其方法与在窗体模块中定义一个模块级变量相同，只是在定义时必须冠以Public，不能使用Dim和Private。在窗体模块中定义一个全局变量时，关键词Public不能缺省。过程中不能定义全局变量。
涵盖知识
2. 常量的使用
1) 直接常量
直接常量就是直接给出一个确定的值，如布尔型值True、日期型#05/01/2003#等。
2) 符号常量
定义格式如下。
Const <常量名> [As <类型>]=[，<常量名>[As<类型>]=<表达式>]……
涵盖知识
3. 运算符与表达式
1) 算术运算符与算术表达式
运算
运算符
优先级
示例
示例结果
乘方
∧
1
X^Y
双精度1000
取负
－
2
－3
整形数－3
乘
*
3
Ｘ*Ｙ
整形数30
浮点除法
／
3
Ｘ/Ｙ
双精度数3.33333333333333
整数除法
\
4
Ｘ\Y
整形数３
取模
mod
5
X mod Y
整形数1
加法
+
6
X＋Y
整形数13
减法
－
6
X－Y
整形数7
涵盖知识
3. 运算符与表达式
2) 关系运算符与关系表达式
运算符
测试关系
表达式例子
＝
等于
X=Y
<> 或><
不等于
X<>Y或X>>
大于
X>Y
<
小于
X<=
小于等于
X<=Y
>=
大于等于
X>=Y
Like
比较样式

Is
比较对象变量

涵盖知识
3. 运算符与表达式
3) 逻辑运算符与逻辑表达式
(1) 逻辑非：Not进行“取反”运算，例如 Not 3>6 结果为True。
(2) 逻辑与：And对两个关系表达式的值进行比较，如果两个表达式的值均为True，结果为True，否则结果为False。如(5>11)And (3<5) 结果为False。
(3) 逻辑或：Or对两个表达式进行比较，如果其中一个表达式的值为True，结果就为True；只有两个表达式的值为False时，结果才为False。例如(5>11)Or (3<5) 结果 为True。
涵盖知识
3. 运算符与表达式
4) 字符串运算符与字符串表达式
字符串运算符有两个，“&”和“＋”，都用于将两个字符串接起来，合并为一个新的字符串。
涵盖知识
4. 选择结构
1) 单行选择结构If-Then-Else
格式：If<条件>Then[<语句组1>][Else<语句组2>]
功能：当条件成立时，执行Then后的语句组1，否则执行Else后的语句组2。
涵盖知识
2) 多行选择结构If-Then-End If
格式：If <条件1> then
［<语句组1>］
［ElseIf<条件2>then
［<语句组2>］］
……
［ElseIf<条件n>then
［<语句组n>］］
［Else
［<其他语句组>］］
End If
功能：首先判断＜条件1＞是否成立，若成立则执行＜语句组1＞，然后执行End If后面的语句；若＜条件1＞不成立，再判断＜条件2＞是否成立，若成立则执行＜语句组２＞，然后执行End If后面的语句，若＜条件2＞不成立，再判断＜条件3＞是否成立……如果＜条件1＞到＜条件n＞都不成立，则执行Else后面的＜其他语句组＞。
涵盖知识
3) 多分支选择结构Select Case-End Select
格式：
Select Case <测试表达式>
Case <表达式表1>
[<语句组1>]
Case <表达式表2>
[<语句组2>]
……
Case Else
[<其他语句组1>]
End Select
功能：首先计算Select Case后的＜测试表达式＞的值，若表达式1能匹配则执行＜语句组1＞，然后执行End Select后面的语句；若不能匹配，再匹配＜表达式2＞，若能匹配则执行＜语句组2＞，然后执行End Select后面的语句……如果所有表达式都不能匹配，则执行Case Else后面的＜其他语句组＞。
操作步骤
启动Visual Basic，设计程序界面
设置对象属性
对象名
对象属性名
属 性 值
Form1
Name
Form1
Caption
体育达标测试
Command1
Name
Command1
Caption
档次
Font
宋体、粗体、五号
Text1
Name
Text1
Font
宋体、粗体、五号
Label1
Caption
请输入测试成绩：
Font
宋体、粗体、五号
Label2
Caption
“ ”
Font
宋体、粗体、五号
操作步骤
3) 写代码
If结构如左图，case结构如右图
操作步骤
4) 保存程序，并生成可执行文件
将本题保存为一个名为“达标测评.frm”的窗体文件和一个名为“达标测评.vbp”的工程文件，并生成一个名为“达标测评.exe”的可执行文件。
案例小结
本案例主要介绍了变量的作用域，常量的使用，各种运算符与表达式的使用，选择结构中的单行选择结构、多行选择结构和多分支选择结构等理论知识。
本案例还主要介绍了2个操作实训点：①选择结构中的单行选择结构、多行选择结构和多分支选择结构。②如何设计输入信息提示框、输出信息提示框。
实训练习
(1) 比较以下两个程序的运行结果，并说明Static与Dim定义的过程级变量的区别。
程序一：　　　　　　　　　　　程序二：
Private Sub Form_click()　　Private Sub Form_click()
Dim a As Integer　　　　　 static a As Integer
a = a + 1 a = a + 1
Print a Print a
End Sub End Sub
实训练习
(2) 定义满足如下要求的变量。
① 定义一个能存放单位名称的过程级变量。
② 定义一个能存放出生年月的静态变量。
③ 定义一个能存放真假值的全局变量。
④ 定义一个能存放六位数整数的模块级变量。
⑤ 定义一个能存放分数的全局变量。
⑥ 定义一个能存放年龄的过程级变量。
实训练习
(3) 编程实现以下3种效果。
① 当单击窗体时，弹出一个输入对话框。当用户输入名字后，用信息提示框输出此名字。自行设计输入对话框和输出对话框的格式。
② 在文本框中输入姓名，当单击按钮时，在标签中将姓名输出。程序界面自行 设计。
③ 当单击窗体时，在弹出的输入对话框中输入姓名后，在窗体上直接将此名字 输出。
实训练习
(4) 编写一个运输公司的计费程序，界面自行设计，计费公式如下：
运费＝基本运费×货重×运输距离×（１－折扣）
其中，基本运费指每吨公里的运费，设为1元／t·km，货重量单位为t，运输距离单位为km，折扣标准如下：
运输距离<250km 0%
250km=<运输距离<500km 2%
500km=<运输距离<1000km 5%
1000km=<运输距离<2000km 8%
2000km=<运输距离<3000km 10%
3000km=<运输距离 15%
要求：用户输入货重吨数和运输距离公里数后程序能自动计算出运费。
① 用单行选择语句编制。
② 用多行选择If-Then-End If编制。
③ 用多分支Select Case-End Select编制。

展开更多......

收起↑