Visual Basic程序设计项目化案例教程 教学课件 作者 王萍 1 7章 第6章.pptVIP

　　一、案例效果　　本案例利用循环结构的特点，使用For…Next循环语句，求N～M之间的所有整数的和，程序效果如图6-1所示。 　　二、技术分析　　1．For…Next循环语句　　1)? For…Next语句的格式　　For 循环变量=初值 To 终值 [Step 步长值]　　 [循环体]　　Next [循环变量]　　2)? For…Next语句的功能　　根据For语句中循环变量所给定的初值、终值和步长，来确定循环的次数，重复执行循环体内各语句。 　　3) 执行过程　　For…Next语句遵循“先检查，后执行”的原则。　　执行For语句时，首先计算初值、终值和步长各数值型表达式的值，再将初值赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没有超出终值，则执行循环体语句，否则执行Next下面的语句。　　执行Next语句时，将循环变量的值与步长值相加，再赋给循环变量，然后将循环变量的值与终值进行比较，如果循环变量的值没有超出终值，则执行循环体语句，否则执行Next下面的语句。 　　4) 使用说明　　(1) ?For语句与Next语句必须成对出现，缺一不可。在Next语句中，循环变量可以省略，但如果出现，要与For语句中的循环变量相一致。　　(2) 若步长值为正数，则循环变量的值大于终值时为超出；若步长值为负数，则循环变量的值小于终值时为超出。　　(3) 步长只能是正值或负值，步长不能为零，否则循环会永不停止，即产生死循环，此时可按“Ctrl+Break”鍵，强制终止程序的运行。当步长为1时，Step 1可以省略。 　　(4) 循环变量的初值、终值和步长可以为常量、变量或表达式，但不能是数组的数组元素(关于数组的知识具体参见第7章)。　　(5) 在循环体语句中可以加入Exit For语句，执行该语句后会强制程序脱离循环，执行Next下面的语句。Exit For语句通常放在选择结构语句之中使用。　　(6) ?For…Next语句适用于循环次数确定的情况。 例如：Private Sub Form_click() Sum=0 For i=1 to 10 step 1 Sum=Sum+2 Next i Print SumEnd Sub　　上面的语句段演示了For…Next语句的应用。程序中对变量Sum进行累加求和。 　　2．While…Wend循环语句　　1)? While…Wend语句的格式　　While 条件　　 [循环体]　　Wend　　2)? While…Wend语句的功能　　While…Wend语句的功能是，当条件成立时，则重复执行循环体语句，直到条件不成立时，才终止循环，执行Wend后面的语句。 　　3) 执行过程　　While…Wend语句也遵循“先检查，后执行”的原则。　　首先判断条件是否成立，如果成立，则执行循环体语句，然后再判断条件是否成立，如果仍然成立，则重复执行上述操作；如果条件不成立，则不执行循环体，转去执行Wend语句的下一条语句。 　　4) 使用说明　　(1) ?While语句与Wend语句必须成对出现，缺一不可。　　(2) 在While语句之前，要准备好初始条件，以提供给第一次检测“条件成立与否”使用。在循环体内，要有改变条件的有关语句，以便在适当的时候(如不满足条件)退出循环。 　　(3) ?While…Wend语句适用于循环次数不确定的情况。 例如：Private Sub Form_click() Sum=0:i=1 While i=10 Sum=Sum+2 i=i+1 Wend Print SumEnd Sub　　上面的语句段演示了While…Wend语句的应用。程序中对变量Sum进行累加求和。 　　3．Do…Loop循环　　Do…Loop循环有两种形式：直到型循环和当型循环。　　1) 当型Do…Loop循环　　当型Do…Loop循环语句是先判断条件，再执行循环体语句序列中的语句。使用格式如下：　　Do [While|Until] 条件　　 循环体语句　　Loop 　　选择关键字While时，当条件成立时，重复执行循环体语句；当条件不成立时，退出循环，转去执行Loop后面的语句。　　选择关键字Until时，当条件不成立时，重复执行循环体语句，直到条件成立时，退出循环，转去执行Loop后面的语句。　　在循环体语句中可以使用Exit Do语句，它的作用是退出该循环，它一般用于循环体语句中的判断语句。 例如：Private Sub Form_c