vb-4-循环结构程序设计

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

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

2、句实现循环结构【实例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.Caption="1+2+3……+"&txt

4、n.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()DimiAsInteger,sumAsLong,n

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

6、b1！+2！+3！+……+15!PrivateSubcmdCal_Click()DimFacAslong,sumAslongDimiAsIntegerFac=1Fori=1To15Fac=Fac*isum=sum+FacNextilblSum.Caption=sumEndSub分析程序运行结果i=1fac=1*1sum=1i=2fac=1*2sum=1+2i=3fac=1*2*3=3！sum=1!+2!+3!i=4fac=1*2*3*4=4!sum=1+2+3!+4!i=5fac=4!*5=5!sum=1+2!+3!+4!+5!………………用While语句实现循环语句形式：While条件[循

7、环体]Wend语句说明：“条件”一般为条件表达式，结果为布尔变量True或False。“条件”用于控制“循环体”是否执行。多用于循环次数不定的情况。用While语句实现循环语句执行过程：用While语句改写实例4.1“计算”按钮完整代码:PrivateSubcmdcal_Click()DimiAsIntegerDimsumAsLong,nAsLongn=Val(txtn.Text)Fori=1Tonsum=s