vb循环结构程序设计.ppt

《vb循环结构程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第4章循环结构程序设计本章内容循环结构用For-Next语句实现循环结构用DoWhile-Loop语句实现循环结构嵌套的循环结构循环结构用For-Next语句实现循环结构语句形式：For循环变量=初值to终值[Step步长][循环体][ExitFor][循环体]Next循环变量语句说明：循环变量必须为数值型。当步长为正时，初值小于终值，反之初值大于终值；步长缺省时为1。循环体由一条或多条语句组成。执行到ExitFor语句时退出循环体，执行For语句的下一语句。循环次数：int为取整。用For-Next语句实现循环结构用For-Next语句实现循环结构语句执行过程：用For-Ne

2、xt语句实现循环结构【实例4.1】求1+2+3+……+n的和。窗体界面如图4-2实例4.1代码编写分析求1+2+3+……+100的和，描述如下：Sum=Sum+1Sum=Sum+2Sum=Sum+3……Sum=Sum+100Sum=Sum+jj=1，2，……100Fori=1tonSum=Sum+jNextiFori=1tonSum=Sum+iNextiｊ＝ｉ实例4.1代码编写Fori=1To100step2sum=sum+iNextiFori=1To50sum=sum+2*i-1NextiFori=2To100step2sum=sum+iNexti求１到１００间的奇数之和求１

3、到１００间的奇数之和求１到１００间的偶数之和【实例4.1】界面设计fratopicfraresultlabtopiclabntxtntxtsumcmdcalcmdquit实例4.1代码编写“计算”按钮完整代码:PrivateSubcmdcal_Click()DimiAsInteger,sumAsLong,nAsLongn=Val(txtn.Text)Fori=1Tonsum=sum+iNextitxtsum.Text=sumEndSub实例4.1代码编写“计算结果”框架中的标签（labn）内容随txtn输入值变化PrivateSubtxtn_Change()labn.Capti

4、on="1+2+3……+"&txtn.TextEndSub问题：修改程序（1）单击“计算”按钮时，检测n的值，如果为空或不合法，弹出提示对话框实例4.1代码编写PrivateSubcmdcal_Click()DimiAsInteger,sumAsLong,nAsLongIftxtn.Text=""ThenMsgBox"请输入一个正整数",vbOKOnly,"提示信息"txtn.SetFocusElsen=Val(txtn.Text)Fori=1Tonsum=sum+iNextitxtsum.Text=sumEndifEndSubPrivateSubcmdcal_Click()D

5、imiAsInteger,sumAsLong,nAsLongn=Val(txtn.Text)Fori=1Tonsum=sum+iNextitxtsum.Text=sumEndSub实例4.1代码编写问题：修改程序（2）计算完毕后，“计算”按钮的标题改为“清空”，同时两个文本框的内容清空如何检测按钮的状态是需要显示“计算”还是“清空”？解决方法：设置一个布尔变量true对应“计算”，false对应“清空”例：1*2*3……*100PrivateSubcmdCal_Click()DimFacAsIntegerDimiAsIntegerFac=1Fori=1To100Fac=Fac*

6、iNextilblSum.Caption=FacEndSub1！+2！+3！+……+15!PrivateSubcmdCal_Click()DimFacAslong,sumAslongDimiAsIntegerFac=1Fori=1To15Fac=Fac*isum=sum+FacNextilblSum.Caption=sumEndSub分析程序运行结果用While语句实现循环语句形式：While条件[循环体]Wend语句说明：“条件”一般为条件表达式，结果为布尔变量True或False。“条件”用于控制“循环体”是否执行。多用于循环次数不定的情况。用While语句实现循环语句执行

7、过程：用While语句改写实例4.1“计算”按钮完整代码:PrivateSubcmdcal_Click()DimiAsIntegerDimsumAsLong,nAsLongn=Val(txtn.Text)Fori=1Tonsum=sum+iNextitxtsum.Text=sumEndSubi=1Whilei<=ｎsum=sum+ii=i+1wend用While语句实现循环【实例4.2】实现1*2*3*……*n的操作，当阶乘值>5000时结束操作。txtcyctxtfac实例4.2代码编写P