第5章 Visual Basic控制结构 郭清溥.

Presentation on theme: "第5章 Visual Basic控制结构 郭清溥."— Presentation transcript:

1 第5章 Visual Basic控制结构 郭清溥

2 第5章Visual Basic控制结构 【本章要点】 程序设计三种基本结构: 顺序结构 选择结构 循环结构 常用算法。 课时安排
6学时（理论），6学时（上机）

3 5.1 算法及其描述 还记得吗？ 2.1.2 程序设计 2．程序设计的步骤 （3） 描述算法 自然语言不够精确，容易产生歧义性；
程序设计 2．程序设计的步骤 （3） 描述算法 自然语言不够精确，容易产生歧义性； 伪码非常接近源代码，它要求程序员必须了解这种源代码才行； 流程图是用几何图形、线条、必要的文字来描述处理的步骤，相对来讲比较直观。 还记得吗？

4 5.1 算法及其描述 还记得吗？ 2.1.2 程序设计 2．程序设计的步骤 （3） 描述算法 流程图 表示两个具有相同标记的“连接点”相连
程序设计 2．程序设计的步骤 还记得吗？ 流程图 （3） 描述算法 表示两个具有相同标记的“连接点”相连 连接点 表示算法的流动方向 流向线 表示对框内的条件进行判断 判断框 表示对框内的内容进行处理 处理框 表示输入/输出操作 输入/输出框 表示算法的开始或结束 起止框 含义 符号名称 符号

5 5.1 算法及其描述 还记得吗？ 2.1.2 程序设计 2．程序设计的步骤 （3） 描述算法 流程图 False True 条件 A A B
程序设计 2．程序设计的步骤 还记得吗？ 流程图 （3） 描述算法 B A 条件 True False A B A 条件 True False

6 5.1 算法及其描述 还记得吗？ 2.1.2 程序设计 2．程序设计的步骤 （3） 描述算法 N-S盒图 True False B A 条件
程序设计 2．程序设计的步骤 还记得吗？ （3） 描述算法 N-S盒图 True False B A 条件 A 条件 A B

7 5.1+ 顺序结构的程序设计 顺序结构是一种线性结构。是程序设计中最简单同时也是最基本的结构。它要求顺序地执行每一个基本的加工处理单位。
语句组1 语句组n 语句组2 … … 语句组2 语句组1 开始 结束 语句组n

8 5.1+ 顺序结构的程序设计 例 Visual Basic期终成绩由三部分组成：期终考试、作业和测试成绩，它们分别占70％，10％，20％。现有一个学生的成绩依次为 89，90，78，编写程序，求其总评成绩。 例 鸡兔同笼问题：鸡和兔子被放在同一个笼中，现在已知鸡兔的总头数和总脚数。编写程序，求笼中鸡和兔子各多少只?

9 5.1+ 顺序结构的程序设计 例 编写程序，在实数范围内求解一元二次方程： aX2+bX+c=0 例
A、B、C三人上街买糖果。三人买好后，A对B、C说：“我可以按你们现有的数量再送你们每人一份。”之后，B对A、C ；C对A、B也说了同样的话。互相赠送后，每人各有64块糖果。编写程序，计算A、B、C原来各买了多少块糖果？

10 5.2 选择结构 选择结构，是一种常用的主要基本结构，是计算机科学用来描述分支现象的重要手段。其特点是：根据所给定选择条件为真(即分支条件成立)与否，而决定从各实际可能的不同操作分支中执行某一分支的相应操作。并且任何情况下恒有“无论分支多寡,必择其一；纵然分支众多,仅选其一”的特性。

11 5.2 选择结构 5.2.1 简单选择结构 单分支结构格式 功能 块方式： If <条件> Then
简单选择结构 单分支结构格式 功能 块方式： If <条件> Then <语句组1> End If 行方式： If <条件> Then <语句组1> 当条件为真时，执行语句组1；当条件为假时，顺序向下执行。

12 5.2 选择结构 简单选择结构 单分支结构流程图 语句组1 条件 True False True 条件 ？ False 语句组1

13 T Y = 5 X = 3 Y 5 X 3 T = 5.2 选择结构 5 3 5 5.2.1 简单选择结构 例如：
简单选择结构 例如： 两个数据X，Y比较大小，使得X不小于Y。 间接交换： T = Y : Y = X : X = T 比较时会涉及到交换。 T Y = 5 5 间接交换 ③ ① X = 3 3 Y 5 X 3 ② T = 5 交换

14 5.2 选择结构 5.2.1 简单选择结构 例如： 两个数据X，Y比较大小。使得X不小于Y。 用下面的语句可以实现 块方式:
简单选择结构 例如： 两个数据X，Y比较大小。使得X不小于Y。 用下面的语句可以实现 块方式: If X < Y Then T = Y : Y = X : X = T EndIf 行方式: If X < Y Then T = Y : Y = X : X = T

15 5.2 选择结构 5.2.1 简单选择结构 功能 双分支结构格式 块方式： 当条件为真时，执行语句组1；当条件为假时，执行语句组2 。
简单选择结构 双分支结构格式 功能 块方式： If <条件> Then <语句组1> Else <语句组2> End If 行方式： If <条件> Then <语句组1> Else <语句组2> 当条件为真时，执行语句组1；当条件为假时，执行语句组2 。

16 5.2 选择结构 语句组2 语句组1 条件 5.2.1 简单选择结构 双分支结构流程图 条件 语句组1 语句组2 True False
简单选择结构 双分支结构流程图 条件 语句组1 语句组2 True False 语句组2 语句组1 条件 True False

17 5.2 选择结构 简单选择结构 例如： x>0 y = x≤0 这个问题可有多种方法实现:

18 5.2 选择结构 5.2.1 简单选择结构 例如： x>0 y = x≤0 双分支结构: …… If x > 0 Then
简单选择结构 x>0 y = x≤0 例如： 双分支结构: …… If x > 0 Then y = Sin(x) + Sqr((x * x + 1) / x) Else y = Sqr(x*x+1)-5*x End If

19 5.2 选择结构 5.2.1 简单选择结构 例如： x>0 y = x≤0 可以实现，但不够优化！ 单分支结构方法1: ……
简单选择结构 例如： x>0 y = x≤0 可以实现，但不够优化！ 单分支结构方法1: …… If x > 0 Then y = Sin(x)+ Sqr((x * x + 1)/x) If x <= 0 Then y = Sqr(x*x+1)-5*x

20 5.2 选择结构 ？ 5.2.1 简单选择结构 例如： x>0 y = x≤0 可以实现，但不够优化！ 单分支结构方法2: 语句
简单选择结构 例如： x>0 y = x≤0 可以实现，但不够优化！ 单分支结构方法2: …… y = Sqr(x*x+1)-5*x If x > 0 Then y = Sin(x)+ Sqr((x * x + 1)/x) 语句 If x > 0 Then y = Sin(x)+ Sqr((x * x + 1)/x)) 起作用吗？ 当X=-1时表达式 Sin(x)+ Sqr((x * x + 1)/x)的结果是什么？ 请思考:这样修改程序行吗？为什么？ ？ …… y = Sin(x)+ Sqr((x * x + 1)/x) If x <= 0 Then y = Sqr(x*x+1)-5*x …… If x > 0 Then y = Sin(x)+ Sqr((x * x + 1)/x) y = Sqr(x*x+1)-5*x

21 5.2 选择结构 5.2.2 选择结构的嵌套 选择结构内部如果包含了选择结构，这就叫做分支结构的嵌套(或者叫做If语句的嵌套)。
选择结构的嵌套 选择结构内部如果包含了选择结构，这就叫做分支结构的嵌套(或者叫做If语句的嵌套)。 嵌套时要注意： 嵌套的每一个 If 语句必须与 EndIf 配对且使用缩格书写。

22 编写程序，输入一个X的值，按照以下表达式计算 Y 的值：
5.2 选择结构 选择结构的嵌套 编写程序，输入一个X的值，按照以下表达式计算 Y 的值： 1＋X2 (X>0) ① Y= (X=0) ② 1－X2 (X<0) ③ 例5 分析： 我们要根据输入的X的值的范围确定选用哪个表达式计算Y： 如果X>0成立，则利用表达式①计算Y的值； 否则，如果X＝0成立，则利用表达式②计算Y的值； 否则，X<0一定成立，利用表达式③计算Y的值。 这就形成了选择结构的嵌套。

23 5.2 选择结构 选择结构的嵌套 例5

24 5.2 选择结构 Private Sub comStart_Click() 5.2.2 选择结构的嵌套 Dim X!, Y!
选择结构的嵌套 Private Sub comStart_Click() Dim X!, Y! X = Val(txtX.Text) If X > 0 Then Y = 1 + X * X Else If X < 0 Then Y = 0 Y = 1 - X * X End If txtY.Text = Y End Sub 例5

25 5.2 选择结构 5.2.3 多分支结构 1. Select Case 语句 功能 格式 Select Case <测试表达式>
在给出的多个备选分支中，测试表达式顺序与表达式1、表达式2比较，当某个比较的结果为真时，则执行下面相应的语句组，语句组执行完成以后，转到End Select语句后执行；如果前面的表达式都不成立，则执行语句组 N+1。 Select Case <测试表达式> Case <表达式1> <语句组1> Case <表达式2> <语句组2> …… [Case Else <语句组 n+1> ] End Select

26 5.2 选择结构 5.2.3 多分支结构 1. Select Case 语句 说明 (1) Case 语句中的表达式有三种不同的形式：
① 表达式1 [，表达式2 ] … 例如， Case 2，4，6，9 ② 表达式1 To 表达式2 例如， Case "A" To "E" ③ Is 关系表达式 例如， Case Is<=12

27 5.2 选择结构 5.2.3 多分支结构 1. Select Case 语句 说明
例如， Case 2，4，9 To 12 即当测试值为2、或4、或9、或10、或11、或12时成立。 “测试表达式”的类型应同Case表达式的类型一致。

28 5.2 选择结构 5.2.3 多分支结构 2.多分支If 语句 功能 格式
当条件1为真时，执行语句组1；当条件2为真时，执行语句组2；……；当条件均为假时，执行语句组n+1。 如果Else选项缺省，且条件均不成立，则顺序向下执行。 If <条件1> Then <语句组1> ElseIf <条件2> Then <语句组2> …… ElseIf <条件n> Then <语句组n> [ Else <语句组n+1> ] End If

29 5.2 选择结构 5.2.3 多分支结构 2.多分支If 语句 多分支If结构流程图

30 5.2 选择结构 5.2.3 多分支结构 2.多分支If 语句 多分支If结构流程图

31 5.2 选择结构 5.2.3 多分支结构 例6 编写程序，将学生的百分制成绩按要求转换成相应的等次输出。等次分为五种，具体划分为：
90 ～ 100： 优秀 80 ～ 89： 良好 70 ～ 79： 中等 60 ～ 69： 及格 0 ～ 59： 不及格

32 5.2 选择结构 5.2.3 多分支结构 例6 分析： 90 ～ 100： 优秀 80 ～ 89： 良好 70 ～ 79： 中等
90 ～ 100： 优秀 80 ～ 89： 良好 70 ～ 79： 中等 60 ～ 69： 及格 0 ～ 59： 不及格 假设程序中我们分别用R表示输入的百分制成绩，用G表示相应的等次。其中R的值用InputBox输入，输入的R和计算的结果G分别用标签显示。

33 5.2 选择结构 5.2.3 多分支结构 例6

34 5.2 选择结构 5.2.3 多分支结构 例6 这个问题可有多种方法实现: A. 多分支If结构:
Private Sub cmdStart_Click() Dim R%, G$ R = Val(InputBox("", "输入百分制成绩")) lblR.Caption = "百分制成绩： " & R If R >= 90 Then G = "优秀" ElseIf R >= 80 Then G = "良好" ElseIf R >= 70 Then G = "中等" ElseIf R >= 60 Then G = "及格" Else G = "不及格" End If lblG.Caption = "等 次： " & G End Sub 例6 这个问题可有多种方法实现: A. 多分支If结构:

35 5.2 选择结构 5.2.3 多分支结构 B. Select Case结构: 例6 Select Case R
Case Is >= 90 G= "优秀" Case 80 To 89 G= "良好" Case 70 To 79 G= "中等" Case 60 To 69 G = "及格" Case Is < 60 G= "不及格" End Select Case Is >= 80 这样修改条件语句 结果会如何？ 这样修改条件语句 结果会如何？ Case Else

36 5.2 选择结构 结果如何？ 5.2.3 多分支结构 例6 C. 单分支结构: If R< 60 Then G= "不及格"
条件语句调整顺序！

37 5.2 选择结构 5.2.3 多分支结构 例6 D. If语句的嵌套 If R>= 90 Then G= "优秀" Else
End If 例6 D. If语句的嵌套

38 5.2 选择结构 5.2.4 条件函数 VB中提供的条件函数：IIF()函数和Choose()函数，前者代替IF语句，后者可代替Select Case语句，均适用于简单的判断场合。

39 5.2 选择结构 5.2.4 条件函数 1. IIf()函数 格式 IIf（<条件>，<条件真值时的表达式>，<条件假值的表达式>） 功能 IIf函数首先要计算“条件”、“条件真值时的表达式”、“条件假值的表达式”的值，当“条件”的值为“真”时，则IIf函数返回“条件真值时的表达式”；当“条件”为“假”时，则IIf函数返回“条件假值时的表达式”

40 5.2 选择结构 5.2.4 条件函数 1. IIf()函数 例如： 取x,y中大的数，将其存入MaxNum变量中。
A. If X>Y Then MaxNum = X Else MaxNum = Y B. If X>Y Then MaxNum = X Else MaxNum = Y End If C. MaxNum = IIf(X > Y, X, Y)

41 5.2 选择结构 5.2.4 条件函数 2. Choose()函数 格式
功能 Choose()函数会根据“整数表达式”的值来决定返回的值（Choose函数会自动将“整数表达式”的值进行取整操作）。如果“整数表达式”的值是1，则返回“选项列表”中的第1个选项；如果“整数表达式”的值是2，则会返回“选项列表”中的第2个选项；……以此类推。若“整数表达式”的值小于1或大于列出的选项数目，则Choose()函数返回Null。

42 5.2 选择结构 5.2.4 条件函数 2. Choose()函数 例如
Nop的取值范围为1～4，使其对应转换成“＋”、“－”、“×”、“÷” 符号，我们可以使用如下语句： Op$ = Choose(Nop, "＋", "－", "×", "÷") 当Nop的值为1时，返回字符串“＋”，将其存入Op$变量中；当Nop的值为3时，返回字符串“×”，将其存入Op$变量中；……

43 5.2 选择结构 5.2.5 GoTo语句的程序实现 格式 Go To｛<标号> | <行号>｝ 功能
该语句的功能是无条件地转移到标号或行号指定的语句行。

44 5.2 选择结构 有限制的使用。 5.2.5 GoTo语句的程序实现 说明 “行标号”的格式 <行标号>:
“行标号”的格式 <行标号>: GoTo语句会破坏程序的结构，因此在VB中要 有限制的使用。 3. 多数情况下GoTo语句可以用循环语句替代。

45 5.2 选择结构 5.2.5 GoTo语句的程序实现 例7 显示输入数据的算术平方根。 我们可以利用函数Sqr计算数据的算术平方根
Private Sub cmdStart_Click() Dim X%, XSqrt! X = InputBox("输入一个正整数") XSqrt = Sqr(X) lblResult.Caption = X & "的算术平方根=" & XSqrt End Sub

46 如果输入的数据是负数，则会弹出“出错提示”对话框
5.2 选择结构 5.2.5 GoTo语句的程序实现 例7 显示输入数据的算术平方根。 Err 对象的 Number 如果输入的数据是负数，则会弹出“出错提示”对话框

47 5.2 选择结构 5.2.5 GoTo语句的程序实现 例7 显示输入数据的算术平方根。
Private Sub cmdStart_Click() Dim X%, XSqrt! X = InputBox("输入一个正整数") XSqrt = Sqr(X) lblResult.Caption = X & "的算术平方根=" & XSqrt End Sub 我们应该对输入的数据加以过滤 ReInput: If X < 0 Then MsgBox "错误！请重做", , "警告" GoTo ReInput End If

48 第5章作业1 P116 习题：一、二

49 第5章作业1 1. 修改讲义中的例4.6，当输入的参数使得一元二次方程没有实数解时，给出提示信息。
2. 从甲地到乙地托运行李。行李重量在50千克以内时，每千克0.80元；超过50千克时，其超过部分每千克1.10元。编写程序，计算托运行李Ｗ千克时所付的运费。 3. 输入一年份，编写程序，要求判断出是否为闰年。闰年的条件是能被4整除，但不能被100整除；或者能被４整除又能被400整除（如：1992年，2000年均为闰年）。