Visual Basic语言程序设计教程（第二版） 程胜利 第8章 循环

《Visual Basic语言程序设计教程（第二版） 程胜利 第8章 循环》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章循环结构本章的学习要点掌握DO循环结构掌握For循环控制结构循环的嵌套常用算法概述单击窗体，要求在窗体上显示6行星号分析：要求显示的信息是每行是由16个星号所构成的字符串，所以可以通过连续6次调用窗体的Print方法实现图形的显示PrivateSubForm_Click()Print"****************"Print"****************"Print"****************"Print"****************"Print"****************"Print"****************"EndSub若要求显示10行或更多行这样的

2、信息若打印信息的行数要求是由用户决定专门用于进行重复操作的语句结构概述所谓循环结构，表示在执行语句时，需要对其中的某个或某部分语句重复执行多次。对于此类情况可以利用各种循环结构来实现。循环结构可以分为For循环、Do循环和While循环语句结构。循环For循环Do循环While循环For…NextForEach…Next前测型循环后测型循环当型循环直到型循环当型循环直到型循环8.1Do循环Do循环可以分为前测型循环和后测型循环两种结构。前测型循环结构语法格式：True循环条件循环体False格式1(当型)DoWhile循环条件循环体LoopFalse循环条件循环体True格式2(直到型)Do

3、Until循环条件循环体Loop当型循环是当循环条件为TRUE时进入循环；直到型则是为FALSE进入循环。8.1Do循环Do循环可以分为前测型循环和后测型循环两种结构。后测型循环结构语法格式：格式1(当型)Do循环体LoopWhile循环条件格式2(直到型)Do循环体LoopUntil循环条件循环条件循环体TrueFalse循环条件循环体FalseTrue前测型循环是先判断循环条件，循环体执行次数≥0；后测型循环是先执行循环体，循环体执行次数≥1。8.1Do循环单击窗体，要求在窗体上显示6行星号前测型当型循环：将上面的代码改为前测型直到型循环、后测型当型循环和后测型直到型循环。DimiAsI

4、nteger'定义计数器变量i来记录目前已输出的行数i=0DoWhilei<6'当输出行数未达到6行，反复执行下面语句Print"****************"i=i+1'每输出一行信息，计数器i累加1Loop'返回到DoWhile行EndSubDoUntili>5Print"****************"i=i+1LoopDoPrint"****************"i=i+1Loopwhilei<6DoPrint"****************"i=i+1LoopUntili>5Val(InputBox("请输入行数："))注意：在循环体中，至少要有一条语句使得循环趋结束,

5、使循环语句在有限的时间内执行完毕，否则将会出现“死循环”。例:求S=1+(1+2)+…+(1+2+3+…+100)的值。编写代码：PrivateSubCommand1_Click()DimsAsLong,nAsInteger,kAsIntegerLabel1.Caption="s=1+(1+2)+(1+2+3)+...(1+2+3+...100)=?"s=0:n=0:k=1Don=n+k’求“小和”，即求s中的每一项的和。s=s+n’求“大和”，即求s的累加和。k=k+1’“大和”的项数(亦即“小和”中的末项值)。LoopWhilek<=100Label2.Caption="s=1+(1+2

6、)+(1+2+3)...+(1+2+3+...+100)="&sEndSub8.1Do循环Untilk>1008.1Do循环设计采用欧几里德算法求解两个自然数的最大公约数的程序算法分析：“欧几里德算法”①输入两个自然数m、n②求m除以n的余数r③m←n④n←r⑤若r≠0，则重复执行②③④(循环)，否则转⑥⑥输出m和n的最大公约数m输入两个自然数m,nr=mModnm=nn=rr<>0输出最大公约数m开始结束FalseTrue8.1Do循环设计采用欧几里德算法求解两个自然数的最大公约数的程序界面设计：利用文本框来接收数据和显示结果，利用命令按钮的单击事件完成最大公约数的计算。False输入两个

7、自然数m,nr=mModnm=nn=rr<>0输出最大公约数m开始结束TruePrivateSubCommand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""E