Visual Basic.NET程序设计课件 第3章 程序流程控制.ppt

《Visual Basic.NET程序设计课件 第3章 程序流程控制.ppt》由会员分享，可在线阅读，更多相关《Visual Basic.NET程序设计课件 第3章 程序流程控制.ppt（265页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第 3 章 程序流程控制,3.1 分支结构 3.2 循环结构 3.3 暂停与程序结束,VB.NET语言的语句按功能可以分成3类：声明语句、操作语句和控制语句。 声明语句用于命名变量、常数或过程，或定义数据类型等。 操作语句用于描述对数据的处理。 例如: 赋值语句可以将数据值赋予变量; 输入/输出语句用于对数据的输入输出; 函数过程调用语句可以启动另一个程序模块的执行等。 控制语句用于控制程序的执行流程。程序的流程控制包含顺序结构、分支结构和循环结构3种基本结构。,在第7章中介绍的Windows应用程序中增加了事件驱动机制，可以由用户激发某个事件去执行相应的事件处理过程。 虽然事件处理过程之间并

2、不形成特定的执行次序，但在每个事件处理过程的内部，又总是包含上述三种基本结构。 事件处理过程内部的语句流程是由程序员编写代码时控制的。 本章主要介绍VB.NET 分支结构和循环结构程序设计的相关语句。,对这类问题需要按给定条件进行判断，并按判断的结果进行不同的处理。 解决这类问题需要编写分支结构程序。,3.1.1 单行结构条件语句 3.1.3 GoTo语句 3.1.2 块结构条件语句 3.1.4 情况语句,在实际问题中，往往需要根据条件的成立与否来选择不同的语句执行。 例如，给定如下公式求 x 的绝对值,3.1 分支结构,一般格式： IfThenElse 其中通常用关系表达式或逻辑表达式表示。

3、和 可以是一个语句，也可以是多个语句，多个语句时要用冒号分隔。 注意：单行结构条件语句要求在一行内书写完毕，即一行不能超过255个字符。 当或中又包含条件语句时，称之为条件语句的嵌套；嵌套深度（层数）没有限制。 但单行结构条件语句嵌套深度会受逻辑行长度的制约。,3.1.1 单行结构条件语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格

4、式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then

5、功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,无可选项时，语句的格式为： If Then 功能：如果为True，则执行；否则，执行下一行语句。,条件,False,True,下一行语句,语句,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下

6、一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，

7、执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,有可选项时，语句的功能是：若为True， 则执行；否则，执行 。,条件,False,下一行语句,语句_2,语句_1,True,输入三个数a，b，c，输出三者之中的最大者。,例3-1,算法设计 用ReadLine方法把三个数值分别输入到变量a , b , c 中； 先把a放在变量

8、max中，然后分别与b,c进行比较，把其中最大的数存放在变量max中； 用WriteLine方法输出max的值。,开始,输入a,b,c,max=a,1,1,bmax,max=b,cmax,max=c,输出max,结束,False,True,False,True,求三个数最大值算法,Imports System.Console Module Module1 Sub Main() Dim a!, b!, c!, max! Write(请输入第 1 个数：) a = Val(ReadLine() Write(请输入第 2 个数：) b = Val(ReadLine() Write(请输入第 3 个数

9、：) c = Val(ReadLine() max = a 设a为最大值 比较后保留最大值 If b max Then max = b If c max Then max = c WriteLine(0、1与2之中最大值是：3, a, b, c, max) End Sub End Module,运行程序,分析： 当a0时，x = b/a ；当a = 0，b0时，方程无解。 因为用0作除数会产生溢出的运行错误，所以在计算x的值之前，要先判断a是否为0。,例3-2,输入系数a和b，编程序解方程ax + b = 0。,算法设计,开始,输入系数a,b,a0,输出“方程无解”信息,求方程的根,结束,Tr

10、ue,False,Imports System.Console Module Module1 Sub Main() Dim a!, b!, x! Write(请输入系数a：) a = Val(ReadLine() Write(请输入系数b：) b = Val(ReadLine() If a 0 Then x = -b / a : WriteLine( x = 0, x) Else _ WriteLine(方程无解！) End Sub End Module,运行程序,一般格式： If Then ElseIf Then . ElseIf Then Else End If,其中 ， ， ， 一般为关

11、系表达式或逻辑表达式 。 ， 为一个语句或多个语句。 一行可以写一个语句，也可以写多个语句，但多个语句要用冒号分隔。 不能把语句写在Then或Else后面。,又如: If ( x 0 ) And ( y z ) Then amount = ( x + y + z * 2 ) / 2 : WriteLine(“amount = 0, amount) End If,例如: If ( x 0 ) And ( y z ) Then amount = ( x + y + z * 2 ) / 2 WriteLine(“amount = 0, amount) End If,3.1.2 块结构条件语句,功能：

12、根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,

13、False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,Tr

14、ue,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+

15、1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语

16、句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,Tr

17、ue,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,功能：根据给定的条件选择不同的语句执行。,下一个语句,执行情况：,条件_1,条件_2,条件_n,语句_n

18、,False,True,语句_1,语句_2,语句_n+1,True,True,False,False,说明： 在VB.NET中，数值表达式可以看成逻辑表达式的特例，非0值表示True，0值表示False。 即条件语句中的不但可以是逻辑表达式或关系表达式，还可以是数值表达式。 例如： If a + b Then WriteLine( true) Else WriteLine( false) End If, 语句块中的不能与其前面的Then写在同一行上，否则VB.NET认为是一个单行结构的条件语句。,对于块结构语句，必须以End If结束，而单行结构不需要End If。,块结构条件语句中的Else

19、If子句数量没有限制，可以根据需要加入任意多个。,例如： If score = 90 Then n1 = n1 + 1 ElseIf score = 80 Then n2 = n2 + 1 ElseIf score = 70 Then n3 = n3 + 1 ElseIf score = 60 Then n4 = n4 + 1 Else n5 = n5 + 1 End If,块结构条件语句有两种常用形式。,常用形式1： If Then End If,常用形式2： If Then Else End If 可见，块结构条件语句完全可以代替单行结构条件语句。,从键盘上输入三个数，若这三个数能构成三角

20、形的三条边长，则求这个三角形的面积；否则，打印相应的错误信息。,分析： 三个数能构成三角形的三条边长的充分必要条件： 1. 三个数均大于0； 2. 任意两条边的和大于第三边。,例3-3,如果这三条边能构成三角形，则求三角形的面积公式：,其中p = ( a + b + c ) / 2,Imports System.Console Imports System.Math Module Module1 Sub Main() Dim a As Single, b As Single, c As Single Dim p As Single, s As Single Write(请输入三角形的第一条边

21、：) a = Val(ReadLine() Write(请输入三角形的第二条边 ：) b = Val(ReadLine() Write(请输入三角形的第三条边 ：) c = Val(ReadLine(),If a 0 And b 0 And c 0 Then If a + b c And b + c a And a + c b Then p = (a + b + c) / 2 s = Sqrt(p * (p - a) * (p - b) * (p - c) WriteLine(三角形的三条边长为：0, 1, 2, a, b, c) WriteLine(三角形的面积为：0, s) Else Wr

22、iteLine(不能构成三角形！) End If Else WriteLine(数据无效！) End If End Sub End Module,运行程序,设计一个程序，从键盘输入学生分数，统计学生总人数和各分数段人数，即优秀（90-100分）、良好（80-89分）、中等（70-79分）、及格（60-69分）和不及格（59分以下）的人数。,例3-4,算法： 输入分数; 如果分数100 ，统计结束; 统计总人数和各分数段人数; 返回,Imports System.Console Module Module1 Sub Main() Dim score! Dim n1%, n2%, n3%, n4%

23、, n5%, total% WriteLine(请输入分数：（-1 结束）) WriteLine(输入数据：“),L1: score = Val(ReadLine() If score 100 Then GoTo L2 Else total = total + 1 If score = 90 Then n1 = n1 + 1 ElseIf score = 80 Then n2 = n2 + 1 ElseIf score = 70 Then n3 = n3 + 1 ElseIf score = 60 Then n4 = n4 + 1 Else n5 = n5 + 1 End If GoTo L1

24、 End If,L2: WriteLine(总人数：0, total) WriteLine(优秀：0, n1) WriteLine(良好：0, n2) WriteLine(中等：0, n3) WriteLine(及格：0, n4) WriteLine(不及格：0, n5) End Sub End Module,运行程序,L1: score = Val(ReadLine() If score 100 Then GoTo L2 Else total = total + 1 If score = 90 Then n1 = n1 + 1 ElseIf score = 80 Then n2 = n2 +

25、 1 ElseIf score = 70 Then n3 = n3 + 1 ElseIf score = 60 Then n4 = n4 + 1 Else n5 = n5 + 1 End If GoTo L1 End If,L2: WriteLine(总人数：0, total) WriteLine(优秀：0, n1) WriteLine(良好：0, n2) WriteLine(中等：0, n3) WriteLine(及格：0, n4) WriteLine(不及格：0, n5) End Sub End Module,If score = 60 Then n4 = n4 + 1 ElseIf sc

26、ore = 70 Then n3 = n3 + 1 ElseIf score = 80 Then n2 = n2 + 1 ElseIf score = 90 Then n1 = n1 + 1 Else n5 = n5 + 1 End If,对吗？为什么?,L1: score = Val(ReadLine() If score 100 Then GoTo L2 Else total = total + 1 If score = 90 Then n1 = n1 + 1 ElseIf score = 80 Then n2 = n2 + 1 ElseIf score = 70 Then n3 = n3

27、 + 1 ElseIf score = 60 Then n4 = n4 + 1 Else n5 = n5 + 1 End If GoTo L1 End If,L2: WriteLine(总人数：0, total) WriteLine(优秀：0, n1) WriteLine(良好：0, n2) WriteLine(中等：0, n3) WriteLine(及格：0, n4) WriteLine(不及格：0, n5) End Sub End Module,If score = 90 Then n1 = n1 + 1 If score = 80 Then n2 = n2 + 1 If score =

28、70 Then n3 = n3 + 1 If score = 60 Then n4 = n4 + 1 If score 60 Then n5 = n5 + 1,对吗？为什么?,L1: score = Val(ReadLine() If score 100 Then GoTo L2 Else total = total + 1 If score = 90 Then n1 = n1 + 1 ElseIf score = 80 Then n2 = n2 + 1 ElseIf score = 70 Then n3 = n3 + 1 ElseIf score = 60 Then n4 = n4 + 1

29、Else n5 = n5 + 1 End If End If,L2: WriteLine(总人数：0, total) WriteLine(优秀：0, n1) WriteLine(良好：0, n2) WriteLine(中等：0, n3) WriteLine(及格：0, n4) WriteLine(不及格：0, n5) End Sub End Module,If score = 90 Then n1 = n1 + 1: GoTo L1 If score = 80 Then n2 = n2 + 1 : GoTo L1 If score = 70 Then n3 = n3 + 1 : GoTo L1

30、 If score = 60 Then n4 = n4 + 1 : GoTo L1 If score 60 Then n5 = n5 + 1 : GoTo L1,对吗？为什么?,当条件语句所执行的语句里又包含条件语句时，称为条件语句的嵌套。 这时应注意各条件之间嵌套的逻辑关系。 例如，以下单行结构条件语句： If Then If Then Else 执行的条件: = True And = True 而执行的条件: = True And = False。 这是因为语言系统规定: Else总是与最靠近的Then配对。,如果希望执行的条件: = False 则应该用块结构条件语句，写成： If Th

31、en If Then Else End If 或者： If Then If Then End If Else End If,使用条件语句时，不但要注意条件之间的逻辑关系，也应养成良好的程序书写风格，使程序便于阅读，便于查错。,一般格式： GoTo 其中可以是一个标识符或整型数，用来标识某一程序行。 功能：无条件地转到由指定的程序行，并从该行开始往下执行。,例如： Goto L L: WriteLine( “*”) ,3.1.3 GoTo语句,说明： (1) 程序中必须为每一个GoTo语句提供转向入口，并且对于一个GoTo语句，其相应的转向入口是唯一的。,例如： Goto L L: WriteL

32、ine( “*”) L: WriteLine( “$”) ,（2）入口语句要为行首语句。,例如： Goto L x=x+1: L: WriteLine( “*”) 错误 ,(3) 只能在过程内部使用，即不能从一个过程用GoTo语句转到另一个过程。,在实际问题中，假如给定条件要在两种情况中做出选择，可以使用条件语句来解决。 假如给定条件要在多种情况中做出选择，也可以使用条件语句来解决，但一般要使用条件语句的嵌套，这样编出来的程序比较繁琐和冗长，而且不容易看懂它的意思。 为了使程序简练和直观一些，可以采用情况语句。,例如，给定x的值，按下列分段表达式求y的值,3.1.4 情况语句,使用条件语句：

33、If x 2 Then y=1 ElseIf x3 Then y=x ElseIf x4 Then y=x*x Else y=x*x*x End If,使用情况语句： Select Case x Case Is 2 y=1 Case Is 3 y=x Case Is 4 y=x*x Case Else y=x*x*x End Select,可见，使用情况语句简练和直观一些。,一般格式、功能和执行情况,一般格式： Select Case Case Case Case Case Else End Select,功能：先计算测试表达式的值，若该值为表达式1 中指定的值，就执行语句块1； 若该值为表达

34、式表2中指定的值，就执行语句块2， 若该值为表达式n中指定的值，就执行语句块n; 否则，就执行语句块 n+1。,可以是数值表达式或字符串表达式。 中的值的类型必须与的类型相同。 每个语句块由一行或多行语句组成。,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,True,执行情况：,

35、测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,True,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,True,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,True,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式

36、_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,False,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,False,True,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,False,True,执行情况：,测试表达式=?,表达式_1,表达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,False,False,执行情况：,测试表达式=?,表达式_1,表

37、达式_2,表达式_n,语句_1,语句_2,语句_n,语句_n+1,执行下一语句,False,False,False,说明： 称为Case域值，可以是下列3种形式之一。 ， 域值为逗号分隔的值表，相当于“或”的关系，即当的值等于域值的其中之一时，就执行该Case分支的语句。 例如： Case 2, 4, 6, 8 表示测试表达式的值等于2、4、6、8时执行相应分支的语句。 但不能写成： Case 2 Or Or 4 Or 6 Or 8错误,Select Case Score10 Case 8 ,9, 10 Write(“very good!” ) Case 6 , 7 Write(“good!“

38、) Case 0 ,1,2,3,4, 5 Write(“no good!”) End Select, To 关键字To用于指定域值的范围， 。 若测试表达式的值落在至之间（包括和），则执行该Case分支的语句。,例如：Select Case Score10 Case 8 to 10 Write(“very good!” ) Case 6 to 7 Write(“good!“) Case 0 to 5 Write(“no good!” ) End Select,Is 关键字Is表示当测试值满足指定条件时，执行该Case分支的语句。 例如： Case Is 10 表示当的值 10时执行相应Case

39、分支的语句。 Case Is = 5 表示当的值=5时执行相应Case分支的语句。,例如： Select Case x Case Is 2 y=1 Case Is 3 y=x Case Is 4 y=x*x Case Else y=x*x*x End Select,在一个Case域值中，上述三种形式可以混合使用。,例如： Select Case x Case Is 10，15 To 20 y=x*x End Select,编写程序计算货物运费。设货物运费每吨单价P（元）与运输距离d（公里）之间有如下关系：,输入要托运的货物重量为 W 吨、托运的距离为d公里，计算总运费T： T = P * W

40、* d,例3-5,算法设计, 输入货物重量w和托运距离d 按公式确定单价p 按公式计算总运费 输出总运费,Imports System.Console Module Module1 Sub Main() Dim w!, d!, p#, t# Write(请输入货物重量（吨）：) w = Val(ReadLine() Write(请输入托运距离（千米）：) d = Val(ReadLine(),Select Case d Case Is 100 p = 30 Case Is 200 p = 27.5 Case Is 300 p = 25 Case Is 400 p = 22.5 Case Els

41、e p = 20 End Select,t = p * w * d WriteLine(货物重量：0吨, 托运距离：1千米, w, d) WriteLine(总运费：0元, t) End Sub End Module,运行程序,Select Case d Case Is 100 p = 30 Case Is 200 p = 27.5 Case Is 300 p = 25 Case Is 400 p = 22.5 Case Else p = 20 End Select,t = p * w * d WriteLine(货物重量：0吨, 托运距离：1千米, w, d) WriteLine(总运费：0

42、元, t) End Sub End Module,由于Select Case语句用测试值对Case子句顺序测试，类似嵌套If语句，Case子句的放置顺序与判断逻辑有关。,Select Case d Case Is 400 p = 30 Case Is 300 p = 27.5 Case Is 200 p = 25 Case Is 100 p = 22.5 Case Else p = 20 End Select,对吗？为什么?,用Select Case语句重写例3-4中的Main过程。,Imports System.Console Module Module1 Sub Main() Dim sc

43、ore! Dim n1%, n2%, n3%, n4%, n5%, total% WriteLine(请输入分数：（-1 结束）) WriteLine(输入数据：) L1: score = Val(ReadLine() If score 100 Then GoTo L2 Else total = total + 1,例3-6,Select Case score Case Is = 90 n1 = n1 + 1 Case Is = 80 n2 = n2 + 1 Case Is = 70 n3 = n3 + 1 Case Is = 60 n4 = n4 + 1 Case Else n5 = n5 + 1 End Select End If GoTo L1,L2: WriteLine(总人数：0, total) Wri