第7章-程序控制语句.pptVIP

7.3 循环语句 1.While 循环结构 该循环也称为While –Wend循环，语句格式如下： While 条件表达式 　... ... ... Wend 语句说明： (1)语句的执行过程是：先计算条件表达式的值，若为True，则执行循环中的语句块，遇到Wend语句时返回While语句继续判断，若仍为真，则继续执行语句块，重复上述过程直到条件表达式的值为False,则退出循环结构，执行Wend语句的后续语句。 A e True False (3)如果条件一开始就不成立，则语句块一次也不会被执行。 (2)“条件表达式”可以是关系表达式、逻辑表达式或数值表达式。如果是数值表达式，值为0被作为False，非零值则为True。 【例7-6】用While-Wend循环语句求1+2+3+…+100，程序代码如下 例题 Private Sub Command1_Click() 　　Dim i As Integer, sum As Integer 　　sum = 0 :i=1 　　While i=100 　　　　sum = sum + i 　　　　i=i+1 　　Wend 　　　　Print sum End Sub 2. Do-Loop循环结构语句 Do-Loop循环结构语句有四种形式： Do While e ... [Exit Do] ... Loop Do ... [Exit Do] ... Loop While e Do Until e ... [Exit Do] ... Loop Do ... [Exit Do] ... Loop Until e Sum=0 I=1 Do While I=100 Sum=Sum+I I=I+1 Loop Do While e ... [Exit Do] ... Loop A e True False 求sum=1+2+…+100 A. 当型循环： A e False True Do ... [Exit Do] ... Loop While e Sum=0 I=1 Do Sum=Sum+I I=I+1 Loop While I=100 上述两当型循环结构的区别：当第一次执行循环语句条件不成立时，第一种不执行循环体，而第二种要执行一次。 B. 直到型循环： Do Until e ... [Exit Do] ... Loop Sum=0 I=1 Do Until I100 Sum=Sum+I I=I+1 Loop A e False True Do ... [Exit Do] ... Loop Until e Sum=0 I=1 Do Sum=Sum+I I=I+1 Loop Until I100 上述两直到型循环结构的区别：当第一次执行循环语句条件成立时，第一种不执行循环体，而第二种要执行一次。 A e True False 循环的出口问题 正常出口 非正常出口　Exit Do 循环的参数即循环条件问题 使用Do-Loop循环应注意的问题： 例：给定两个正整数m和n，求它们的最大公约数。 求最大公约数的问题一般用辗转相除法（也称欧几里德算法）求解。(书p107,例7-8) 例如：设m= 35，n= 15它们的 最大公约数的求法如下： r = 35 Mod 15 (余数为5 ) m = 15 : n = 5 (m=15, n=5) r≠0 ( r=5 ) r = 15 Mod 5 （余数为0 ） m = 5 : n = 0 (m=5, n=0)  r=0 所以 5 就是最大公约数 典型应用 例：输入有效位数，按下述公式计算圆周率∏的有效值。 m=val(text1.text) pai=2:p=0 Do t=s p=spr(2+p) pai=t*2/p Loop Until abs