循环结构VB程序设计

《循环结构VB程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、3.3循环结构2.条件型循环Do…Loop用于在一定的条件下多次重复执行一组语句,共分为两类:1.计数型循环For…Next3.3.1For循环语句(一般用于循环次数已知)形式如下：For循环变量＝初值to终值[Step步长]语句块[ExitFor]语句块Next循环变量循环变量:必须是数值型语句块:可以是一条或多条语句,称之为循环体For循环流程图有ExitForFTTF循环变量得到初值循环变量在终值内语句块循环变量加步长Exitfor:当遇到该语句,退出循环,执行Next的下一条语句步长>0初值<终值=1时,可省略<0初值>终值=0死循环循环次

2、数＝int（（终值-初值）/步长+1）例:ForI=2To13Step3PrintI,NextIPrint:Print“I=“;I结果：输出I的值分别为:25811循环执行次数：循环结束输出为:I=14(初值+循环次数*步长)思考：若初值和终值颠倒，循环执行几次？若步长Step为-3，循环几次？下面程序的作用是什么？PrivateSubForm_Load()DimiAsInteger,sAsIntegerShow‘加载窗体时，显示数据s=0Fori=2To100Step2s=s+iNextiPrint"s=";sEndSub例：求自然数1-30的乘

3、积(即30的阶乘)PrivateSubForm_Click()s=1Fori=1To10s=s*iPrinti;"的阶乘是：";sNextiEndSub习题1、计算下列循环的次数（1）ForI=-3To20Step4（2）ForI=-3.5To5.5Step0.5（3）ForI=-3.5To5.5Step-0.5（4）ForI=-3To20Step02119不循环无数次2、要使下列For语句循环执行20次，循环变量的初值应当是：Fork=____To–5Step-2333、以下_____是正确的For…Next结构。A.Forx=1…NextxFo

4、rx=3To10Step3…NextyB.Forx=3To–3Step–3…NextxB3.3.2Do…Loop循环语句(用于控制循环次数未知)形式1：形式2：Do{While

5、Until}<条件>语句块[ExitDo]语句块LoopDo语句块[ExitDo]语句块Loop{While

6、Until}<条件>DoWhile…Loop流程图Do…WhileLoop流程图条件语句块语句块TF语句块语句块条件TF有ExitDoFT有ExitDoFT注意：1.形式1先判断后执行，有可能一次也不执行；形式2先执行后判断，最少执行一次循环体。2.While用于指

7、明条件为真时执行循环体；Until刚好相反。3.当省略了{While

8、Until}<条件>子句，表示无条件循环，循环体中应有ExitDo语句，否则为死循环。4.遇到ExitDo语句时退出循环，执行Loop下一条语句。例:我国有13.2亿人口,按出生率为0.5%的增长率,多少年后超过20亿PrivateSubForm_Load()DimmAsDoubleDimyearrAsIntegerShowm=1320000000#:yearr=0DoWhilem<=2000000000#m=m+m*0.005yearr=yearr+1LoopPrintyear

9、r;"年后我国的人口为：";mEndSub若将While改为Until，条件表达式怎么修改？用dountil实现PrivateSubForm_Load()DimmAsDoubleDimyearrAsIntegerShowm=132000000000#:yearr=0DoUntilm>200000000000#m=m+m*0.0005yearr=yearr+1LoopPrintyearr;"年后我国的人口为：";mEndSubDo…Loop循环解决算术运算例3-13Do…Loop与For…Next的转换ForI=1to10I=1…DoNext…I=I

10、+1LoopWhileI<=101、Do…Loop替换For…Next2、For…Next替换Do…LoopDoFor……While循环条件If循环条件为假ThenExitForNext让For语句循环无数次？题目：求两自然数m，n的最大公约数和最小公倍数。分析：用辗转相除法（欧几里德算法）求最大公约数算法思想：(1)对于已知两数m，n，使得m>n；(2)m除以n得余数r；(3)若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。思考题mnr1462620求m=14,n=6的最大公约数。Ifm

11、m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopPrint"最大公约数=",n2,