VB循环结构程序设计4

1、VB循环结构程序设计(二)：Do循环Do循环语句一般用于解决循环次数未知的应用问题，如求素数、求最大公约数问题等，是根据某一条 件来决定是否指行循环体。在本节课中，我们要学习如下内容：(l)DoWhilelUntil“Loop循环的语法及执行过程(2)DoLoopWhilelUnti 1循环的语法及执行过程Do循环变量改变及循环条件的设置两种Do循环语句的差异及执行流程(6)Do循环变量改变及循环条件的设置Do循环语句语法语句形式一，先判断后执行；Do (While|Until条件语句块Exit Do语句块Loop语句形式一：先执行后判断Do语句块Exit Do语句块Loop (While|U

2、ntil条件功能：形式1为先判断后执行，有可能一次也不执行；形式2为先执行后判断，循环体至少执行一 次；Do与Loop配对While:当条件，即当条件为True时，执行循环体Until:直到条件，即直到条件为True时退出循环，否则执行循环体Exit Do：循环体遇到该语句时，退出Do.Loop循环执行Loop语句后语句注意：要防止死循环，一般在循环体外设置循环变量，在循环体内用语句不断更改循环变量的值， 从而有机会使循环条件成为真或假，退出循环。若出现死循环，可以使用Ctrl+Break键结束程序的 执行。有时，根据需要，要人为设置死循环，如反复让计算机产生七个1-35这的随机数。这时，若

3、用do While(条件)语句实现，可用如下语句：Do While .T LoopDo循环流程图【举例1】求两数最大公约数、最小公倍数Dim m, n, r, t As Integerm = Val(Textl.Text)取两个数 M,Nn = Val(Text2.Text) If m Nt = nn = mm = tEnd IfDo While n 0用辗转相除法，直到N=0,r = m Mod n m = n n = rLoopLabel3.Caption =”最大公约数”& m最大公约数存放在M中t = mm = Val(Text1.Text)n = Val(Text2.Text)Lab

4、el4.Caption = Label4.Caption & Str(m * n / t) 最小公倍数 mn/t【举例2】求自然数e的值：e=1+1/1!+1/2!+1/n!+要求误差小于0.0000001Dim i As IntegerDim n As LongDim t, e As Doublee = 0累加器e赋值为0i = 0n = 1t = 1t为第n项的值：1/n!Do While t 0.0000001没达到精度0.0000001,执行循环e = e + t累加i = i + 1n = n * I求n的阶乘t = 1 / n求 1/n!LoopPrint e= & e,”循环次数

5、为& i【举例3】学生练习1.2.求两数的最公约数、最小公倍数； 求100以内的素数，并输出；3.（三）循环嵌套求自然数 e 的值：e=1+1/1!+1/2!+.+1/n!+.,要求误差小于 0.0000001一个循环体内以包含了一个完整的循环结构称为循环的嵌套。循环嵌套要求：内层循环必须完全 包含在外层循环中；不同的循环层应采用不同的缩进方式表现出来，以增加程序的可读性不同的循环体应使用不同的循环变量【举例4】打印九九乘法表Dim Sgs As StringDim i, j As IntegerFor i = 1 To 9被乘数从1变到9For j = i To 9乘数从1变到9Sgs = i & X & j & = & Str(i *