- 1、本文档共44页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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中包含的变量如果在循环体内被改变,不会影响循环的执行次数;但循环控制变量若在循环体内被重新赋值,则循环次数有可能发生变化。 十进制整数可准确转换为二进制数形式,而带小数点的十进制数在转换为单(双)精度数时则多半存在数制转换误差。若使用非整型数做循环控制变量和循环参数,那么循
文档评论(0)