江苏省无锡立信职教中心校教案 (11)

《江苏省无锡立信职教中心校教案 (11)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、江苏省无锡立信职教中心校教案课题For…Next、Do…Loop、While…Wend三种循环课型讲授、练习授课日期授课时数2教学目标熟悉While…Wend循环的用法掌握For…Next、Do…Loop循环的用法教学重点For…Next、Do…Loop循环的用法教学难点循环的嵌套学情分析要分清几种循环的区别板书设计For…Next、Do…Loop、While…Wend三种循环3.2.1For...Next循环结构举例3.2.3While…Wend循环控制结构举例总结江苏省无锡立信职教中心校备课笔记教学内容学生活动3.2.1For...Next循环

2、结构语句格式：Forcounter=startToend[Stepincrement]语句块1[ExitFor]语句块2Next[counter]说明：在使用这种循环结构时，要求知道执行循环的次数。【例3.2】求sum=1+2+3+…+100。用For…Next循环结构实现程序代码如下：PrivateSubCommand1_Click()DimsumAsInteger,IAsIntegersum=0ForI=1To100sum=sum+INextILabel2.Caption=Str(sum)EndSub3.2.2Do…Loop循环结构语句格式1：

3、Do[{While

4、Until}condition][statements][ExitDo]学生练习江苏省无锡立信职教中心校备课笔记教学内容[statements]Loop语句格式2：Do[statements][ExitDo][statements]Loop[{While

5、Until}condition]说明：在循环次数不能确定的情况下进行的，那么这时便需要用到循环控制结构Do…Loop【例3.5】用Do…Loop循环结构实现求和sum=1+2+3+…+100。编写程序代码。解法一：采用当型循环DoWhile…LoopPrivateSubComm

6、and1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoWhilei<=100'当型循环sum=sum+ii=i+1'每次循环变量加1LoopLabel2.Caption=Str(sum)EndSub解法二：采用直到型循环DoUntil…LoopPrivateSubCommand1_Click()DimiAsInteger,sumAsIntegeri=1'计数器初值置为1sum=0'累加器初值置为0DoUntili>100sum=sum+ii=i+1LoopLabel2.C

7、aption=Str(sum)EndSub3.2.3While…Wend循环控制结构此语句是为了保持与低版本VisaulBasic兼容而保留的。在实际应用中，它与DoWhile…Loop结构非常相似归纳总结