第6节循环结构任务一：请同学们
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
打靶的靶子设计要求：（1）靶子由4个圆组成（2）圆心坐标为（2000,1500）（3）最大的圆半径为900最小的圆半径为300圆的半径之间相差200思考流程1、怎么画圆？2、圆心？3、半径？4、如何画4个同心圆？画圆语句：circle(x,y),r圆心坐标不变(2000,1500)r=900r=700r=500r=300和老师一起来比赛！方法1：PrivateSubForm_Click()r=300Circle(2000,1500),rr=500Circle(2000,1500),rr=700Circle(2000,1500),rr=900Circle(2000,1500),rEndSub方法2：PrivateSubForm_Click()Circle(2000,1500),300Circle(2000,1500),500Circle(2000,1500),700Circle(2000,1500),900EndSub方法3：PrivateSubForm_Click()Fori=900To300step-200r=iCircle(2000,1500),rNextiEndSub读取该段程序，思考如何画出4个同心圆？循环问题：题目中若出现大量的、重复的操作VB提供的For-Next循环语句能很简便地解决循环问题For<循环变量>=<初值>To<终值>Step<步长><循环体>Next<循环变量>For—Next循环语句的格式Fori=900To300Step-200r=iCircle(2000,1500),rNexti初值终值步长循环体（每次循环时重复执行的程序段）循环变量（数值类型）循环变量（数值类型）不能为0iFori=900to300Step-200r=iCircle(2000,1500),rNextiFor—Next循环语句的执行过程圆心坐标(2000,1500)900初值(1)i=900,r=900,Circle(2000,1500),900(2)i=700,(3)i=500，r=500,Circle(2000,1500),500(4)i=3O0，r=300,Circle(2000,1500),300(5)i=100，i超过终值300，结束循环i的值增加一个步长值700500100300终值r=700,Circle(2000,1500),700i的值增加一个步长值i的值增加一个步长值循环变量i的取值范围为300<=i<=900For—Next循环语句的执行过程任务二：思考画出4个同心圆的第4种方法。（请修改补充程序，并上机运行）PrivateSubForm_Click()Fori=300Tostepr=Circle(2000,1500),rNextiEndSub同心圆效果图900200i任务三：请利用For-Next语句，画出奥迪标志（圆心坐标y轴固定为1500，半径固定为500）奥迪标志效果图拓展提高：根据自己的设计，利用For—Next循环语句设计出若干个有创意的由圆组成的图形。喇叭效果图实心圆效果图小结：（2）步长可以是正数，也可以是负数，但不能为0。（1）循环的次数由循环变量的初值，终值和步长值共同决定For—Next循环语句的格式For<循环变量>=<初值>To<终值>Step<步长><循环体>Next<循环变量>
浙公网安备 33021202002483