vb第5章循环结构程序设计

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

1、第5章循环结构程序设计5．1循环结构程序设计的概念循环结构可以避免重复操作，循环重复执行的程序块称为“循环体”。从而简化程序，节约内存。循环结构的语句有：1.Do…Loop2.While…Wend3.For...Next4.ForEach…Next等。其中最常用的是Do…loop和For...Next。循环结构应根据循环类型与条件，确保循环体得以终止（即非死循环）。5．2Do...Loop语句DO…Loop语句有两种语法形式:1.前测型2.后测型5．2．1前测型DO…Loop循环首先判断条件，根据条件决定是否执行循环。其流程图如图5-1所示。图5-1前测型循环结构流程图

2、其语法为Do［｛While

3、Until｝（条件）］［（语句列1）］［ExitDo］［（语句列2）］Loop说明：（l）DoWhile…Loop是当型循环语句，当条件为真（True）时执行循环体，条件为假（False）时，终止循环。DoUntil…Loop是直到型循环语句，条件为假时执行循环体，直到条件为真时，终止循环。（2）（条件）是条件表达式，为循环的条件。其值为True或False。（3）（语句列）是一条或多条命令（循环体），它们将被重复当或直到条件为True。（4）在循环体中可以有ExitDo语句，随时跳出Do…Loop循环。*【例5－l】求累加和1＋2＋3＋..

4、.＋100（如图5－2）。分析：采用累加的方法，用变量S来存放累加的和（开始为0），用变量n来存放“加数”（加到s中的数）。这里n又称为计数器，从1开始到100为止。根据以上分析画出流程图如图5－3所示设计步骤如下：窗体界面的设计参见前面章节，这里仅给出命令按钮的Click事件代码:PrivateSubCommand1_Click()DimsAsInteger,nAsIntegers=0:n=1DoWhilen<=100s=s+nn=n+1LoopLabel1.Caption="1+2+3+...+100="&sEndSub还可以改为直到型：PrivateSubComm

5、and1_Click()DimsAsInteger,nAsIntegers=0:n=1DoUntiln>100s=s+nn=n+1LoopLabel1.Caption="l+2+3+...+l00="&sEndSub略【例5－2】输入一个正整数，利用“当型”循环判断是否素数。分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。判断一个自然数n（n>3）是否素数，只要依次用2～n的开平方作除数去除n,若n不能被其中任何一个数整除，则n即为素数，如图5－4所示。设计步骤如下：窗体界面的设计参见前面章节，这里给出命令按钮的CliCk事件代码PrivateSubCo

6、mmand1_Click()DimnAsLongSelectCaseVal(Text1.Text)CaseIs<3MsgBox"请输入一个大于2的整数！",vblnformation＋VbOKOnly,"注意"CaseIs>2MsgBox”此数太大！”，vblnformation＋vbOKOnly，”注意”CaseElsen=Val(Text1.Text)s=0:i=2DoWhilei<=Sqr(n)Ands=0IfnModi=0Thens=1Elsei=i+1EndIfLoopa＝"是一个素数"Elsea=”不是素数”EndIfLabel1.Caption=Str(n

7、)&aEndSelectText1.SetFocusEndSub另外，为了使用文本框得到焦点后，文本立即被选中，编写Text1的GotFocus事件代码如下：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub5．2．2后测型Do…Loop循环后测型DO…Loop循环结构，首先执行循环体，然后判断条件，根据条件决定是否继续执行循环，其语法为：DO[（语句列1）][ExitDO][（语句列2）]Loop[｛WhileUntil｝（条件）]说明：同前测型略例5－3】输入

8、有效数字的位数，利用下述公式计算圆周率pi的近似值：分析：首先找出公式中无穷乘积各项的规律：设第n项的分母为pn，则第n＋1项的分母为Pn+1=2+pn若设n项积为Sn，则前n项乘积为Sn+1＝2Sn/pn+1图5－7计算圆周率的流程图设计步骤如下：（1）建立应用程序用户界面与设置对象属性。参照第3章的方法建立用户界面与设置对象属性，如图5－8所示。（2）编写程序代码。根据流程图，可以写出命令按钮Command1的Click事件代码为PrivateSubCommand1_Click()DimmAsInteger.m=Val(Text1.T