Visual BasicNET程序设计教程第4章.ppt

图4-6 exit while跳转示意图 2．带Exit while语句的While循环 有时候程序在循环的时候需要提前退出循环，这时候可以用到Exit while语句。Exit while语句插入在循环语句序列中，程序执行到这个语句后立即停止循环(不管循环条件condition的值是什么)，转去执行End While后的语句。转向功能示意图如4-6所示。 例4-7 求s=1+2+3+…+i，当i是多少时，s的值刚好大于1000。 分析：显然我们并不知道s=1+2+3+…+i中，当i的值为多少时，s的值刚好大于1000，但是可以肯定的是1+2+3+…+1000的值大于1000，因此循环次数小于或者等于1000次，所以我们把循环条件设置为i = 1000，然后在循环语句序列中判断s的值。如果s大于1000则不管循环条件成立与否直接退出循环即可，此时的i值就是题目所要求的解。程序如下： Dim s As Integer Dim i As Integer While i = 1000 ‘这个条件可以放置很宽，因为 1+2+3+…s = s + i If s 1000 Then Exit While 若s1000则直接退出，退出后的i值即为所求 i = i + 1 End While MsgBox(i) 程序也可以写成： Dim s As Integer Dim i As Integer While 5 循环条件设置为非零(任何非0的值均可)，也就是死循环 s = s + i If s 1000 Then Exit While 虽然前面设置的是死循环，但是s1000时，循环会从这里退出 i = i + 1 End While MsgBox(i) 程序还可以写成： Dim s As Integer Dim i As Integer While True s = s + i If s 1000 Then Exit While i = i + 1 End While MsgBox(i) 4.2.2 Do While循环 1．前置Do While循环 前置Do While循环的语法为： Do While condition [循环语句序列] loop 其中condition是一个返回值为True或者False的表达式或者是可以转化为True和False的表达式。程序首先判断条件是否成立，若条件不成立(值为False或者0)，则程序不执行循环语句序列，而是直接执行Loop后的语句。若条件成立(值为True或者非0)则程序执行循环语句序列，循环语句序列执行完后，再进行下一次的条件的判断，根据判断条件的值来决定是否进行下一次循环。前置Do While循环可以一次循环语句序列也不执行，当第一次判断循环条件时，如果循环条件不成立，则一次循环也不执行，这一点是与后置Do While循环不同的。 图4-7 前置do while循环流程图 例4-8 求s=1+3+5…+99的值。 分析：为了求和，首先置初始值s=0，i=1，很容易想到用循环来求和，第一次将i=1的值加到s中去，然后i=i+2，i的值变为3，…循环条件可以设置为i=99，当i=99时，i的值要加到s中去，当条件i=99不成立时即i=101时，i是不需要加到s中去的，所以循环应该结束。程序如下： Dim s，i As Integer s = 0:i=1 置初始值 Do While i = 99 循环条件为i=99，循环成立就执行循环语句序列 s = s + i i = i + 2 Loop MsgBox(s) 2．后置Do While循环 后置Do While循环的语法为： Do [循环语句序列] Loop While condition 其中condition是一个返回值为True或者False的表达式或者是可以转化为True和False的表达式。程序首先执行一次循环语句序列，然后判断条件是否成立，若条件不成立(值为False或者0)，则程序不执行循环语句序列，而是直接执行Loop后的语句。若条件成立(值为True或者非0)则程序执行循环语句序列，循环语句序列执行完后，再进行下一次的条件的判断，根据判断条件的值来决定是否进行下一次循环