欢迎来到天天文库
浏览记录
ID:40055397
大小:1.15 MB
页数:61页
时间:2019-07-18
《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+iNextij=i实例4.1代码编写Fori=1To100step2sum=sum+iNextiFori=1To50sum=sum+2*i-1NextiFori=2To100step2sum=sum+iNexti求1到100间的奇数之和求1到100间的奇数之和
3、求1到100间的偶数之和【实例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
此文档下载收益归作者所有