高中信息技术选修1课件-4.3语句-浙教版

F o r 循 环 语 句 Circle (3000, 3000), 300, vbRed circle(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各数值，观察同心圆的变化，尝试理解语句， 并把你观察到的现象与大家分享。 Dim i as integer For i = 1 to 5 step 1 Circle(0,0),10*i,vbblue Next i A B C 1 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 Sub For to step Next For i = 1 to 5 step 1 Circle(0,0),10*i,vbred Next i 循环变量=初值 终值 步长值 循 环 体 语 句 循环变量 步长值是变量前后两次变化的差值。可以是正数也可以是负数但不能为0，步 长值为1时，“step 1”可以省略不写。1 Next语句的作用是“循环变量的值+步长值→循环变量”。2 For语句循环变量又称“循环控制变量”，通过它的取值来控制循环的次数， 适合解决循环次数已知的问题。3 二、呈现新知 三、随堂检测 下面的程序段用于计算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 50 S+1/i 3 15 【任务三】小组合作，尝试利用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 Sub 【任务四】小组合作，尝试利用For语句绘制出具有闪烁效 果的同心圆。 六、评价总结 通过本节课的学习和体验，你有哪些收获？ For to step Next 循环变量=初值 终值 步长值 循 环 体 语 句 循环变量 每次变化 的数值。 当step为1时，可省 略 利用For语句，通过改变参数，画出富有创意的组合图案， 也可以尝试修改原代码进行体验，享受程序设计的乐趣。 七、拓展体验 技术改变生活，创新改变世界