2.3.3循环结构 (2).ppt
《2.3.3循环结构 (2).ppt》由会员分享,可在线阅读,更多相关《2.3.3循环结构 (2).ppt(12页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、程序程序程序程序 的 循环结构循环结构 用For-Next语句实现循环结构语句形式:For 循环变量=初值 to 终值 Step 步长 循环体 Exit For 循环体Next 循环变量用While语句实现循环1.语句形式:While 条件循环体Wend2.语句说明:“条件”一般为条件表达式,结果为布尔变量True或False。“条件”用于控制“循环体”是否执行。多用于循环次数不定循环次数不定的情况。用While语句实现循环3.语句执行过程:用While语句实现循环实现1*2*3*n的操作,当阶乘值5000时结束操作。txtcyctxtfac代码编写Private Sub cmdcal_Cli
2、ck()Dim i As Integer,fac As Longi=1:fac=1While fac=5000fac=fac*ii=i+1txtcyc.Text=itxtfac.Text=facWendEnd Sub初始化语初始化语句是否可句是否可以去掉?以去掉?代码编写“手动计算”按钮:单步演示累乘结果,需要窗体级变量保留成绩,及点击次数Private Sub Cmdcalh_Click()If j=0 Then fact=1If fact=5000 Thenj=j+1fact=fact*jtxtcyc.Text=jtxtfac.Text=factElseCmdcalh.Enabled=Fa
3、lseEnd IfEnd Sub该语句的作用?该语句的作用?用DO语句实现循环Do While Loop语句Do While 条件循环体语句LoopDo Loop While语句Do循环体语句Loop While 条件用用DODO语句实现循环语句实现循环用Do While Loop 语句改写“计算”按钮完整代码:Private Sub cmdcal_Click()Dim i As Integer Dim sum As Long,n As Long n=Val(txtn.Text)For i=1 To n sum=sum+i Next i txtsum.Text=sumEnd Subi=1Do While i=sum=sum+i i=i+1Loop执行过程NoYessum=sum+ii=100i=i+1用Do Loop While语句改写“计算”按钮完整代码:Private Sub cmdcal_Click()Dim i As Integer Dim sum As Long,n As Long n=Val(txtn.Text)For i=1 To n sum=sum+i Next i txtsum.Text=sumEnd Subi=1Do sum=sum+i i=i+1Loop While i=100
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2.3.3循环结构 2 2.3 循环 结构
限制150内