VisualBasic程序设计教程课件作者何瑞麟佘学文主编方士杰李巍副主编第6章节.pptVIP

第6章 循环结构 尚辅网 / 第6章 循环结构 6.1 While…Wend语句 6.2 Do…Loop语句 6.3 For…Next语句 6.4 强制退出循环语句 6.5 循环语句的嵌套 6.6 循环语句的综合程序举例 循环结构是用于描述一些需要重复操作的或者是可以利用重复操作所描述的问题。循环过程是根据预先给定的条件，控制某些特定操作的重复执行次数。其中控制方式可分成两种：一种是当满足给定条件时，执行特定的操作，当不满足给定条件时，操作终止；另一种则是不满足给定条件时，执行特定操作，直到满足给定条件时，操作终止。在Visual Basic共给出了三种不同的循环语句：While…Wend语句 Do…Loop语句 For…Next语句 6.1 While…Wend语句 While…Wend语句用来描述前测型当循环结构，其语法格式为： While ＜条件＞ ＜循环体＞ Wend 前测型当循环结构流程图 While…Wend循环语句的执行过程是：若“条件”为真(逻辑值非0)时，执行循环体；当遇见Wend语句时，返回到While语句开始，对“条件”再进行测试；若仍为真，则再重复执行循环体；若“条件”为假(逻辑值为0)，则循环终止，执行Wend下面的语句。 例题1：设计程序计算表达式1+2+3+…+100的值。 说明： ①程序的代码设计： ②算法流程图： Private Sub Command1_Click() Dim sum As Integer, n As Integer sum = 0 n = 1 While n = 100 sum = sum + n n = n + 1 Wend Print “表达式：1 + 2 + 3 + … + 100=; sum End Sub ---程序代码与算法流程图之间转换关系--- ③程序的运行界面 ： ①程序的代码设计： ②算法流程图： 例题2：：编写程序，计算表达式 的值。 Private Sub CmdInput_Click() Dim sum As Single, n As Single Dim f As Integer sum = 0 n = 1 f = 1 While n = 99 sum = sum + f * n / (n + 1) n = n + 1 f = -f Wend Print 所求表达式的值为：; sum End Sub ---程序代码与算法流程图之间转换关系--- ③程序的运行界面 ： 在使用While…Wend循环语句时，应注意以下几个问题： ①由于While…Wend语句表示的是一种前测型当循环结构，进入循环前先要测定循环条件，因此，在进入循环前，必须正确设置循环条件（为循环变量赋初值）。 ②在循环体内必须存在修改循环条件的语句，也就是有修改循环变量的语句(如：n=n+1)，这样才能使循环正常的执行和正常的终止。如果控制循环的变量值始终保持不变，就不可能达到循环终止的条件，从而造成死循环，这是应当避免的。 ③构成一个循环，并使一个循环能正常执行和正常终止，在循环结构中必须包括三个部分：循环参数的初始化部分、循环条件判断部分与循环参数的修改部分。三个部分是建立一个循环必不可少的组成部分，其中任何一个不正确，都会影响循环的正常执行。 6.2 Do…Loop 语句 Do…Loop语句是循环结构中最灵活的一种，可以表示多种不同形式的循环结构。即可以表示前测型循环结构，也可以表示后测型循环结构，即可以当型循环结构，也可以表示直到型循环结构。因此，它有四种不同的形式。 6.2.1 Do While…Loop与Do Until…Loop语句 Do While…Loop与Do Until…Loop语句都是表示前测型循环结构，其中，前者是当型循环结构，后者是直到型循环结构。 两种循环结构的流程图： Do While…Loop与Do Until…Loop语句的书写格式为： ① Do While…Loop语句的格式： Do [While 条件] [循环体]