4.3 另辟蹊径学FOR循环语句 课件（18张幻灯片）

课件18张PPT。For循环语句另辟蹊径学--高中信息技术 算法与程序设计 浙教版Circle (3000, 3000), 300, vbRedcircle(3000,3000),300, vbred circle(3000,3000),600, vbred circle(3000,3000),900, vbred circle(3000,3000),1200, vbred circle(3000,3000),1500, vbred回顾画圆的方法circle(3000,3000),50, vbred circle(3000,3000),100, vbred circle(3000,3000),150, vbred circle(3000,3000),200, vbred circle(3000,3000),250, vbred circle(3000,3000),300, vbred …… circle(3000,3000),2950, vbred circle(3000,3000),3000, vbred【任务一】在VB环境中运行同心圆图案的代码，并尝试更改A、B、C各数值，观察同心圆的变化，尝试理解语句，并把你观察到的现象与大家分享。一、修改代码 观察变化ABC1 Private Sub Command1_Click() 2 Dim i as integer 3 For i = 1 to 5 step 1 4 Circle(0,0),10*i,vbblue 5 Sleep(1000) 6 Next i 7 End SubFor语句的一般格式For i = 1 to 5 step 1 Circle(0,0),10*i,vbred Next i循环变量=初值终值步长值循环体语句循环变量二、呈现新知三、随堂检测下面的程序段用于计算1+1/2+1/3+1/4…1/50的值，请补充完善。 ???? s = 0 ???? For i= 1 to ?? ?????? s = ??????? ???? Next i 下面程序段运行后，输出“#”的个数是___；输出s的值是___。 s=0 ? For i=1 To 10 Step 4 Print “#”; s=s+i ? Next i ? Print s 50S+1/i315【任务三】小组合作，尝试利用For语句绘制出多彩的同心圆。 VB中表示随机颜色的代码：RGB(Rnd * 255, Rnd * 255, Rnd * 255)四、小试牛刀【任务四】小组合作，尝试利用For语句绘制出具有闪烁效果的同心圆。 VB中表示随机颜色的代码：RGB(Rnd * 255, Rnd * 255, Rnd * 255)五、大展身手Private Sub Command1_Click() For j = 1 To 10 For i = 1 To 50 Circle (2000, 2000), i * 50, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next i Next j End SubFor语句的嵌套【任务四】小组合作，尝试利用For语句绘制出具有闪烁效果的同心圆。六、评价总结通过本节课的学习和体验，你有哪些收获？循环变量=初值终值步长值循环体语句循环变量每次变化的数值。当step为1时，可省略利用For语句，通过改变参数，画出富有创意的组合图案，也可以尝试修改原代码进行体验，享受程序设计的乐趣。七、拓展体验技术改变生活，创新改变世界