第6章 循环结结构

《第6章 循环结结构》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第6章循环结结构在VisualBasic程序的三种结构中,循环结构是一种重要结构。循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：1.在一定的条件下，重复执行一组语句2.必然出现不满足条件的情况，使循环终止VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。VisualBasic支持的循环结构有：☆Do…Loop☆For...Next☆While…Wend重点掌握：Do…Loop、For.Next、While…Wend等前三种循环6.1Do…Loop循环结构6．1．1当型循环结构Do…Loop

2、循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：⑴.DoWhile…Loop语句⑵.Do…LoopWhile语句⑶.DoUntil…Loop语句⑷.Do…LoopUntil语句⑴.DoWhile…Loop语句语法格式：DoWhile〈条件表达式〉循环体〉[ExitDo]〈循环体〉Loop说明：①条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。②DoWhile和Loop应成对出现。③循环体中要有控制循环的语句，以避免出现死循环。④由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环

3、可以一次也不执行循环体。⑤ExitDo表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句例6-1求1+2+3+……+100PrivateSubForm_Click()Dimsum,nAsIntegersum=0:n=1DoWhilen<=100sum=sum+nn=n+1LoopText1.Text=Str(sum)EndSub例6-2计算若干各个学生每门课的平均平均分。PrivateSubForm_Click()Dimscore,sum,NAsIntegerDimaverageAsSingleN=0sum=0score=Input

4、Box("请输入第"&N+1&"个同学的成绩","成绩输入")DoWhilescore<>-1sum=sum+scoreN=N+1score=InputBox("请输入第"&N+1&"个同学的成绩","成绩输入")Loopaverage=sum/NPrint"平均分=";averageEndSub例6-2a使用exitdo的程序。求出PrivateSubForm_Click()DimnAsIntegerDimsAsIntegern=1s=0DoWhiles<1000s=s+n*nn=n+1LoopPrint"s=";s,"n=";nEndSu

5、b6．1．2直到型循环语句Do…LoopWhile语句语法格式1：Do〈循环体〉[ExitDo]〈循环体〉LoopWhile〈条件表达式〉语法格式2：Do〈循环体〉[ExitDo]〈循环体〉Loopuntil〈条件表达式〉①至少要执行循环体一次。②与DoWhile循环的区别：DoWhile循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。例6-3用直到型循环实现1+3+5+7+……+999，当和大于5000时退出。PrivateSubCommand1_Click()Dims,nAsIntegers=0:n=

6、1Dos=s+nIfs>5000ThenExitDon=n+2LoopWhilen<=999Print"s=";sEndSubPrivateSubCommand2_Click()Dims,nAsIntegers=0:n=1Dos=s+nIfs>5000ThenExitDon=n+2LoopUntiln>999Print"s=";sEndSub例6-4人口增长问题。PrivateSubCommand1_Click()DimpAsDoubleDimrAsSingleDimnAsIntegerp=1280000000r=Val(Text1.Text

7、)/100n=0Dop=p*(1+r)n=n+1LoopUntilp>=1500000000Text2.Text=nEndSub6．1．3while循环结构语法格式：While(条件表达式)[循环体]Wend说明：此种格式不能使用exit跳出循环。例6-5将例6-1用while…wend实现PrivateSubCommand1_Click()Dimsum,nAsIntegersum=0:n=1Whilen<=100sum=sum+nn=n+1WendText1.Text=Str(sum)EndSub6．2For…Next循环结构语法格式：Fo

8、r循环变量=初值To终值[Step步长]<循环体>[ExitFor]<循环体>Next[循环变量]例题：编程计算：S=1+2+3+…+100DimS%,I%S=0'