VB程序设计第3版第5章ppt

5.3 多分支选择语句
第 五 章 选 择 结 构 程 序 设 计
1. 格式 Select Case 测试表达式 Case 表达式表 表达式表1 [语句组 语句组1] 语句组 [Case 表达式表 表达式表2 [语句组 语句组2]] 语句组 … [Case Else [语句组 语句组n]] 语句组 End Select
18
本例条件语句可以简化为： 本例条件语句可以简化为：
第 五 章 选 择 结 构 程 序 设 计 If distance < 250 Then Discount = 0 ElseIf distance < 500 Then Discount = 0.02 ElseIf distance < 1000 Then Discount = 0.05 ElseIf distance < 2000 Then Discount = 0.08 ElseIf distance < 3000 Then Discount = 0.1 Else Discount = 0.15 End If 在书写块结构条 件语句时， 件语句时，可以 语句、 将If语句、ElseIf 语句 子句、 子句、Else子句和 子句和 End If语句左对齐， 语句左对齐， 语句左对齐 而各语句组向右 缩进若干空格， 缩进若干空格， 以使程序结构更 加清楚， 加清楚，便于阅 读和查错。 读和查错。
5.1 单行结构条件语句
第 五 章 选 择 结 构 程 序 设 计
语句组1 语句组
1. 格式 If 条件 Then [语句组 [Else 语句组 语句组1] 语句组2] 语句组 2. 功能 如果“条件”成立(True)，则执行“语句 如果“条件”成立 ，则执行“ 组1” ” T F 否则执行“语句组 ” 否则执行“语句组2”
19
4. 注意
第 五 章 选 择 结 构 程 序 设 计 1）必须以If语句开头，End If语句结束。 ）必须以 语句开头 语句开头， 语句结束。 语句结束 2）ElseIf不能写成 不能写成Else If，即中间不能有空格。 ） 不能写成 ，即中间不能有空格。 3）严格按格式要求书写，不可随意换行或将两行 ）严格按格式要求书写， 合并成一行。例如，对于条件结构： 合并成一行。例如，对于条件结构： If x >= 0 Then y=1 Else y=2 End If 以下两种写法都是错误的： 以下两种写法都是错误的： 写法一： 写法二： 写法一： 写法二： If x>=0 Then y=1 If x>=1 Then y=1 Else y = 2 Else y = 2 End If End If 20
13
第 五 章 选 择 结 构 程 序 设 计
【例5-2】某运输公司对用户计算运费，距离 】某运输公司对用户计算运费， 越远，每公里运费越低，计算标准如下 越远，每公里运费越低，计算标准如下: 距离＜ 距离＜250km 250km≤距离＜500km 距离＜ 距离 500km≤距离＜1000km 距离＜ 距离 1000km≤距离＜2000km 距离＜ 距离 2000km≤距离＜3000km 距离＜ 距离 3000km≤距离 距离 没有折扣 2%折扣 折扣 5%折扣 折扣 8%折扣 折扣 10%折扣 折扣 15%折扣 折扣
7
注意： 注意：
第 五 章 选 择 结 构 程 序 设 计
1）应作为一条语句书写。如果语句太长需 ）应作为一条语句书写。 要换行，必须在折行处使用续行符号。 要换行，必须在折行处使用续行符号。 例: If N>0 Then A=A+B:B=B+A Else _ A=A-B:B=B-A
8
第 五 章 选 择 结 构 程 序 设 计
5
第 五 章 选 择 结 构 程 序 设 计
【例5-1】设界面如下图所示，用文本框输 】设界面如下图所示， 的值， 按钮时， 入x的值，单击“计算Y”按钮时，根据以 的值 单击“计算 按钮时 下公式计算y的值 的值。 下公式计算 的值。 y= |x| x≤0 lnx x>0
Text1 Label3 Command1
IF ... THEN...IF ... THEN ...ELSE ...ELSE…
10
5.2 块结构条件语句
第 五 章 选 择 结 构 程 序 设 计
1.格式 格式 If 条件 Then 条件1 [语句组 语句组1] 语句组 条件2 [ElseIf 条件 Then [语句组 语句组2]] 语句组 …… 条件N [ElseIf 条件 Then [语句组 语句组N]] 语句组 [Else [其他语句组 其他语句组 其他语句组]] End If
特点: 根据条件是否成立， 特点 根据条件是否成立，决定程序的执行分支
1
引言
第 五 章 选 择 结 构 程 序 设 计 Y= lnx x>0 在输入变量x的值之后，需根据 的不同取值范 在输入变量 的值之后，需根据x的不同取值范 的值之后 围做不同的处理， 围做不同的处理，使用顺序结构的程序无法解决 这一问题的。 这一问题的。本章将介绍解决此类问题的语句结 构。 2 |x| x≤0 顺序结构程序的执行次序是按语句的先后排列 次序依次执行的，然而， 次序依次执行的，然而，计算机在处理实际问题 往往需要根据条件是否成立， 时，往往需要根据条件是否成立，决定程序的执 行方向，在不同的条件下，进行不同的处理。 行方向，在不同的条件下，进行不同的处理。假 如遇到这样一个问题： 如遇到这样一个问题：
例：If X<>"aaa" Then Print X
4
3） 语句组 、语句组 可以有多条语句， ） 语句组1、语句组2: 可以有多条语句，
第 五 章 选 择 结 构 程 序 设 计
各语句之间用冒号隔开。 各语句之间用冒号隔开。 例:
If N>0 Then A=A+B:B=B+A Else A=A-B:B=B-A
条件n 条件n
12
3. 说明
第 五 章 选 择 结 构 程 序 设 计
条件：关系表达式、布尔表达式、 条件：关系表达式、布尔表达式、数值 表达式或字符串表达式。 表达式或字符串表达式。 两种常见的简化形式: 两种常见的简化形式 形式一： 形式一： If 条件 Then 语句组1 语句组 Else 语句组2 语句组 End If 形式二： 形式二： If 条件 Then 语句组 End If
第 五 章 选 择 结 构 程 序 设 计
第5章
选择结构程序设计 选择结构程序设计
本章要点: 本章要点 条件语句 单行结构条件语句If...Then...Else ... 单行结构条件语句 块结构条件语句If...Then…EndIf 块结构条件语句 多分支选择语句Select Case...End Select 多分支选择语句 条件语句的嵌套
使用块结构条件语句， 使用块结构条件语句，按以上标准计算运费
14
分析： 分析：
第 五 章 选 择 结 构 程 序 设 计
设每公里每吨货物的基本运费为Price， ， 设每公里每吨货物的基本运费为 货物重为Weight， ， 货物重为 运输距离为Distance， ， 运输距离为 折扣为Discount， ， 折扣为 则总运费Freight的计算公式为 的计算公式为: 则总运费 的计算公式为 Freight= Price * Weight * Distance * (1 - Discount)
2）多条单行结构条件语句不要用冒号合并 ） 成一行。例如： 成一行。例如： a = 1 : b = -2 If a > 0 And b > 0 Then y = a + b If a > 0 And b < 0 Then y = a - b Print y 打印出y的值为 的值为3， 打印出 的值为 ，如果把以上两个单行 结构条件语句合并成一行： 结构条件语句合并成一行： If a > 0 And b > 0 Then y = a + b: If a > 0 And b < 0 Then y = a – b 没有被求值。 则y没有被求值。 没有被求值 9
17
第 五 章 选 择 结 构 程 序 设 计
ElseIf distance >= 1000 And distance < 2000 Then Discount = 0.08 ElseIf distance >= 2000 And distance < 3000 Then Discount = 0.1 Else Discount = 0.15 End If ' 计算总运费 Freight=Price*Weight*distance*(1 - Discount) ' 输出总运费 Label4.Caption = Format(Freight, "0.00") End Sub
6
代码如下： 代码如下：
第 五 章 选 择 结 构 程 序 设 计
Private Sub Command1_Click() X = Val(Text1.Text) If X <= 0 Then Y = Abs(X) Else Y = Log(X) Label3.Caption = Y End Sub
15
பைடு நூலகம் 界面设计： 界面设计：
第 五 章 选 择 结 构 程 序 设 计
Text1 Text2 Text3 Label4 Command1
16
代码设计： 代码设计：
第 五 章 选 择 结 构 程 序 设 计 Private Sub Command1_Click() Price = Val(Text1.Text) ' 输入基本运费 Weight = Val(Text2.Text) ' 输入货物重量 distance = Val(Text3.Text) ' 输入运输距离 ' 根据不同的运输距离 根据不同的运输距离distance计算折扣 计算折扣 If distance < 250 Then Discount = 0 ElseIf distance >= 250 And distance < 500 Then Discount = 0.02 ElseIf distance >= 500 And distance < 1000 Then Discount = 0.05