资源简介 课件18张PPT。For循环语句另辟蹊径学----高中信息技术 算法与程序设计 浙教版Circle (3000, 3000), 300, vbRedcircle(3000,3000),300, vbredcircle(3000,3000),600, vbredcircle(3000,3000),900, vbredcircle(3000,3000),1200, vbredcircle(3000,3000),1500, vbred回顾画圆的方法circle(3000,3000),50, vbredcircle(3000,3000),100, vbredcircle(3000,3000),150, vbredcircle(3000,3000),200, vbredcircle(3000,3000),250, vbredcircle(3000,3000),300, vbred……circle(3000,3000),2950, vbredcircle(3000,3000),3000, vbred【任务一】在VB环境中运行同心圆图案的代码,并尝试更改A、B、C各数值,观察同心圆的变化,尝试理解语句,并把你观察到的现象与大家分享。一、修改代码 观察变化ABC1 Private Sub Command1_Click()2 Dim i as integer3 For i = 1 to 5 step 1 4 Circle(0,0),10*i,vbblue5 Sleep(1000)6 Next i7 End SubFor语句的一般格式For i = 1 to 5 step 1 Circle(0,0),10*i,vbredNext 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 s50S+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 iNext jEnd SubFor语句的嵌套【任务四】小组合作,尝试利用For语句绘制出具有闪烁效果的同心圆。六、评价总结通过本节课的学习和体验,你有哪些收获?循环变量=初值终值步长值循环体语句循环变量每次变化的数值。当step为1时,可省略利用For语句,通过改变参数,画出富有创意的组合图案,也可以尝试修改原代码进行体验,享受程序设计的乐趣。七、拓展体验技术改变生活,创新改变世界 展开更多...... 收起↑ 资源预览