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

图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