第07章 VB控制结构

F
语句组2 语句组2
执行二分支IF语句时 首先判断条件。若条件成立， 执行二分支 IF语句时， 首先判断条件。 若条件成立， 则执 IF语句时， Then后面的语句 或语句组1 否则执行Else 后面的语句1 Else后面的语句 行Then后面的语句1或语句组1，否则执行Else后面的语句 或者语句组2 2或者语句组2。
按钮Command1代码为： 按钮Command1代码为： Command 按钮Command2代码为： 按钮Command2代码为： Command
Private Sub Command1_Click() Private Sub Command2_Click() f = Val(Text1.Text) c = Val(Text2.Text) c = 5 * (f - 32) / 9 f = 9 * c / 5 + 32 Text2.Text = c Text1.Text = f End Sub End Sub
13
7.2 选择控制结构
三、选择结构的嵌套 If语句也可以出现在If语句的 语句也可以出现在If If语句也可以出现在If语句的 Then 或 Else 中。这就是 选择结构的嵌套，也叫条件语句的嵌套。 选择结构的嵌套，也叫条件语句的嵌套。 条件1 If 条件1 Then 条件2 if 条件2 Then 语句组1 语句组1 Else 语句组2 语句组2 End if Else 语句组3 语句组3 End If
4
7.1 顺序结构
顺序结构是一种最常用、最简单、最基本的结构。 顺序结构是一种最常用、 最简单、 最基本的结构。 在这种 结构中， 结构中 ， 程序根据语句中的命令的书写顺序依次执行的命令 序列。 次执行， 序列。程序的执行按 命令的排列顺序从上到下依 次执行，每 一次。 条 语句均被执行 一次。 前面编写的那些简单的程序， 前面编写的那些简单的程序， 即往控件中的事件过程填写代码 等，多数为顺序结构。 多数为顺序结构。 其程序结构如右图所示： 其程序结构如右图所示：
9
y=
2 2sin 2 x + 4x + 1 − 3,
x≥0
【案例7.3】按大小排序 案例7
分析：定义变量x 表示任意输入的两个数。依题意， 分析：定义变量x和y表示任意输入的两个数。依题意，当 思考：对三个任意的数，按从小到大的顺序输出。 例 ：：对三个任意的数，按从小到大的顺序输出。程序该如 从键盘任意输入两个数 ， 思考 从键盘任意输入两个数，将其按由小到大的顺序显示在 当前窗体上。 当前窗体上。 x>y时 要交换x 的值，所以要定义一个中间变量t x>y时，要交换x与y的值，所以要定义一个中间变量t 何写？？ 何写？？ Private Sub Form_Click() Dim x As Single, y As Single , t As Single Val(InputBox("输入 的值","输入框1 输入x ","输入框 x = Val(InputBox("输入x的值","输入框1")) (InputBox("输入 的值","输入框2 输入y ","输入框 y = Val (InputBox("输入y的值","输入框2")) If x>y then t=x x=y y=t End if 按由小到大顺序输出： Print "按由小到大顺序输出：" ; x ; y End Sub
14
条件1 If 条件1 Then 语句组1 语句组1 Else 条件2 if 条件2 Then 语句组2 语句组2 Else 语句组3 语句组3 End if End If
【案例7.5】分段函数选择嵌套 案例7
例：编写程序，输入X的值，按照以下表达式计算Y的值。 编写程序，输入X的值，按照以下表达式计算Y的值。 (X>0 1＋ X 2 (X>0) ① (X=0 Y= 0 (X=0) ② (X<0 1－ X 2 (X<0) ③ 分析： 我们要根据输入的X 分析 ： 我们要根据输入的 X 的值的范围确定选用哪个表达 式计算Y 式计算Y： 如果X> 成立，则利用表达式①计算Y的值； X>0 如果X>0成立，则利用表达式①计算Y的值； 否则，如果X 成立，则利用表达式②计算Y的值； 否则，如果X＝0成立，则利用表达式②计算Y的值； 否则，X<0一定成立，利用表达式③计算Y的值。 否则，X<0一定成立，利用表达式③计算Y的值。 这就形成了选择结构的嵌套。 这就形成了选择结构的嵌套。 计算按钮代码如下： 计算按钮代码如下：
语句组2 语句组2 语句组1 语句组1
……
语句组n 语句组n
5
【案例7.1】顺序结构程序示例 案例7
编程求摄氏温度与华氏温度的转换。 编程求摄氏温度与华氏温度的转换。 分析：我们用F 分析：我们用F表示华氏温度 用C表示摄氏温度 则它们的关系为： 则它们的关系为： C=5(F-32)/ )/9 C=5(F-32)/9 F=32 C/5 32+ 或：F=32+9C/5
10
【案例7.4】行李托运计费 案例7
从甲地到乙地托运行李。行李重量在50千克以内时， 50千克以内时 从甲地到乙地托运行李。行李重量在50千克以内时，每千 80元 超过50千克时，其超过部分每千克1 10元 50千克时 克 0.80 元 ； 超过 50 千克时 ， 其超过部分每千克 1.10 元 。 编 写程序，计算托运行李Ｗ千克时所付的运费。 写程序，计算托运行李Ｗ千克时所付的运费。 分析：我们用W表示行李的重量， 表示运费，依题意， 分析：我们用W表示行李的重量，F表示运费，依题意，我 们可以得到以下计算公式： 们可以得到以下计算公式： 0. 8× W (W ≤ 50 ) ① F= 50× (W-50) 50) 50×0.8＋(W-50)×1.1 (W ＞ 50) ② 界面如下： 界面如下： 对象 属性 属性值
6
7.2 选择控制结构
选择控制结构是在程序执行时，根据不同的条件， 选择控制结构是在程序执行时， 根据不同的条件， 选择执 行不同的程序语句，用来解决有选择、有转移的诸多问题。 行不同的程序语句，用来解决有选择、有转移的诸多问题。 一、单分支条件结构 其格式下列两种， 其格式下列两种，流程如右图所示 ： 语句1 行方式： 行方式：If 条件 Then 语句1 条件 T 方式： 块方式：If 条件 Then 语句组 语句组1 语句组1 End If 例：If a>b Then max=a 等价于： 等价于：If a>b Then max=a End If
Visual Basic语言程序设计 Basic语言程序设计
——2011计算机等级考试辅导 ——2011计算机等级考试辅导 2011 主讲教师： 主讲教师：许 兆 华
目
第1章 公共基础知识
录
第8章 数组
VB程序开发环境 第2章 VB程序开发环境 第9章 过程 第3章 对象及其操作 第4章 数据类型及运算 第5章 数据的输入输出 第6章 常用标准控件 第7章 VB控制结构 VB控制结构
8
【案例7.2】计算分段函数 案例7
3x 2 +4x − 5, x<0 分析：本题在选择条件时，可以选择x< 作为条件， x<0 分析 ： 本题在选择条件时 ， 可以选择 x<0 作为条件 ， 也可以 选择x≥ 作为条件。这里选择x≥ 作为条件。 x≥0 x≥0 选择x≥0作为条件。这里选择x≥0作为条件。 ①用单分支结构实现 [If x<0 Then] y=3*x^2+4*x-5 If x≥0 Then y=2*sqr(2*(sin(x))^2+4*x+1)-3 ②用双分支结构实现 If x≥0 Then y=2*sqr(2*(sin(x))^2+4*x+1)-3 Else y=3*x*x+4*x-5 End If
12
【思考与练习】选择结构程序 思考与练习】
计算z的值： 大于y z=x；否则z=y z=y。 1.计算z的值：当x大于y时，z=x；否则z=y。下列语句行错 误的是( 误的是( )。 A) If x=y Then z=x : z=y B) If x>y Then z=x Else z=y C) z=y : If x>y Then z=x D) If x<=y Then z=y Else z=x 编程实现：从键盘输入一个整数，判断它是奇数还是偶数， 2. 编程实现 ：从键盘输入一个整数， 判断它是奇数还是偶数， 并输出相应的提示信息。 并输出相应的提示信息。 给定一个年份( 从键盘输入) 判断它是否闰年。 3. 给定一个年份 ( 从键盘输入 ) ， 判断它是否闰年 。 闰年的条 件是：能被4整除但不能被100整除，或能被100 100整除 100整除且能被 件是：能被4整除但不能被100整除，或能被100整除且能被 400整除 整除。 400整除。
Form1 Label1 Label2 Command1 Command2 Caption Name Name Name Caption Name Caption 例：行李托运计费 lblW lblF cmdCalculate 计算 cmdClose 关闭
11
【案例7.4】行李托运计费 案例7
计算按钮的程序代码如下： 计算按钮的程序代码如下： Private Sub cmdStart_Click() Dim W!, F! 输入行李的重量")) W = Val(InputBox("", "输入行李的重量")) lblW. 行李重: 千克" lblW.Caption = "行李重: " & W & "千克" If W <= 50 Then F = 0. 8 * W Else 50) F = 50 * 0.8 + (W - 50) * 1.1 End If lblF.Caption = "运费：" & F & "元" lblF. 运费： End Sub