第5章 选择分支及循环.ppt

Visual Basic Programming 第5章 选择分支与循环 本章主要内容 5.1 分支结构与分支结构语句 5.2 循环结构与循环结构语句 5.3 程序示例 5.1 分支结构与分支结构语句 分支结构是程序的基本算法结构之一。VB提供了实现分支结构的相关语句。 If-Then-Else-End If 结构语句 Select-Case-End Select 结构语句 If-Then-Else-End If 结构语句 该结构语句的一般形式 该结构的变形1 该结构的变形2 [例5-1] 已知三角形三个边的长度，设计求此三角形面积的程序 [例5-2]一个有多个分支的示例程序 If结构语句的一般形式 If结构的变形1 If结构的变形2 [例5-1] 已知三角形三个边的长度，设计求此三角形面积的程序 算法流程图 程序代码 [例5-1] 算法流程图 [例5-2]一个有多个分支的示例程序 程序代码 [例5-2] 程序代码 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x 1 Then Text2.Text = “这是小于1的数” ElseIf x = 10 Then Text2.Text = “这是1到10之间的数” Else Text2.Text =”这是大于10的数” End If End Sub Select-Case-End Select 结构语句 本结构语句提供了实现多分支结构的另一种方法。它的一般形式是： 例5-2的程序代码也可使用本结构语句实现 例5-2的程序代码使用本结构语句实现 Private Sub Command1_Click() Dim x As Integer x = Val(text1.Text) Select Case x Case Is 1 Text2.text = 这是小于1的数 Case 1 To 10 Text2.Text = 这是1到10之间的数 Case Else Text2.Text = 这是大于10的数 End Select End Sub 5.2 循环结构与循环结构语句 循环结构也是程序的基本算法结构。所谓循环，就是重复地执行某些操作。 当型循环和直到型循的不同执行方式 Do-Loop循环结构语句 For-Next循环结构语句 循环嵌套 当型循环和直到型循的不同执行方式 当型循环的不同执行方式 直到型循环的不同执行方式 1. Do-Loop 循环结构语句 Do-Loop循环结构语句的四种形式 Exit Do语句 [例5-3] 求两个自然数的最大公约数程序 Exit Do语句 循环体中，可以包括一条或多条Exit Do语句，如果程序执行到Exit Do语句时，就会直接退出循环，转而执行Loop语句的下一条语句。 Exit Do语句最常用的形式是与If-Then语句相结合，即： If e Then Exit Do 在执行循环体时，如果条件e被满足，则执行Exit Do语句直接退出循环。 [例5-3] 求两个自然数的最大公约数程序 本问题的算法采用欧几里德算法求解 由于输入的数据M和N要求是自然数，所以在程序中应加入对数据的合法性进行检验的部分；考虑到程序的应用范围，数据类型可选用长整型。 本例中使用了求余（数）运算符Mod。使用Mod运算符时，切记应在它的前后各加一个空格 程序代码 [例5-3] 程序代码 2. For-Next 循环结构语句 如果事先已知循环次数，则可使用For-Next 循环结构语句。它的一般形式是： For-Next循环结构语句的执行方式 注意 [例5-4] [例5-5] For-Next循环结构语句的执行方式 计算e1、e2和e3的值； 给v赋初值； 判v的值是否超过e2，即当e30时，判ve2否；当e30时，判ve2否，如果未超过，则执行循 环体；如果超过了，则退出循环。 执行Next语句，v增加一个步长，即执行v = v + e3；转而执行判别操作。 注意 循环参数e1、e2和e3中包含的变量如果在循环体内被改变，不会影响循环的执行次数；但循环控制变量若在循环体内被重新赋值，则循环次数有可能发生变化。 十进制整数可准确转换为二进制数形式，而带小数点的十进制数在转换为单(双)精度数时则多半存在数制转换误差。若使用非整型数做循环控制变量和循环参数，那么循