循环结构 教学课件

第6节循环结构复习与思考如何画一个圆？思考如何画2个同心圆，3个同心圆……甚至更多的同心圆？为什么要学会使用循环结构？画一个圆PrivateSubForm_Click()Circle(2500,2500),100EndSub一、画同心圆的程序方法一：普通方法画2个同心圆PrivateSubForm_Click()Circle(2500,2500),100Circle(2500,2500),200EndSub方法一：普通方法画n个同心圆PrivateSubForm_Click()Circle(2500,2500),100Circle(2500,2500),200Circle(2500,2500),300……………EndSub方法一：普通方法画5个圆程序的笨办法PrivateSubForm_Click()r=500Circle(2500,2500),rr=r+500Circle(2500,2500),rr=r+500Circle(2500,2500),rr=r+500Circle(2500,2500),rr=r+500Circle(2500,2500),rEndSub方法二：使用循环结构画一个圆PrivateSubForm_Click()r=100Circle(2500,2500),rEndSub画20个同心圆PrivateSubForm_Click()r=100Circle(2500,2500),rEndSubFori=100to2000step100Nextii具体分析Fori=100To2000Step100For<循环变量>=<初值>to<终值>step<步长>

r=iCircle(2500,2500),rNextiNext<循环变量>循环体循环过程r=0Fori=1To5Step1r=r+500Circle(2500,2500),rNextiri=1=+500初值i=1i=1+1i=1+1+1i=1+1+1+1i=1+1+1+1+1第一步第二步第三步第四步第五步第一步初值以r为半径,圆心为2500,2500画一个圆终值5i=1+步长0150015002与终值比较,不大于终值执行循环体,并且加上步长.500循环过程Fori=100To2000Step100r=iCircle(2500,2500),rNexti初值i=100i=100+100=200i=200+100=300i=300+100=400…i=1900+100=2000第一步第二步第三步第四步……第一步终值For-next循环语句格式For

<循环变量>=<初值>to<终值>step<步长><循环体>Next<循环变量>循环变量的值：用来控制循环次数（数值类型变量）循环体：每次循环重复做的语句步长的设置：

步长可以是整数也可以是小数，可以是正数也可以是负数。思考：步长为1时，会有什么情况？步长为0时，会有什么情况？初值100赋给循环变量i，记录终值2000，步长值100循环变量的值是否超过终值依次执行循环体中的各语句循环变量增加一个步长值否结束循环，执行next语句下一语句是任务任务一：（简单）画出20个同心圆(for语句)任务