高中信息技术《循环结构程序》设计

循环结构程序设计For /next 语句(1)计数式循环(2)循环语句的简单应用：画圆、数列求和学习目标：1、了解循环结构，理解 for/next 计数式的循环语句格式、功能；2、掌握循环语句的执行过程；循环变量的作用3、了解画圆及颜色变化的命令，能够利用 for/next命令完成多彩同心圆的设计任务。4、掌握简单的数列求和运算学习过程：l 问题 1：能否用程序设计画圆 ?画几个圆l 问题 2：能否用程序设计快速画多个同心圆l 问题 3：计算有规律的自然数的和以上都是本节课所要解决的问题和需要学习的相关知识。观看循环结构阅读下列程序：（ 1） a=5: y=10y=y+a此时 y变量值是多少？（ 2） a=5 : y=0 y=y+a ： y=y+ay=y+a : y=y+ay=y+aprint y此时 y变量值是多少：a=5 : y= 0For x=1 to 5 step 1y=y+a next xprint y该程序功能与（ 2）作用相同，重复执行：将 y值加 a再赋值给 yfor / next 语句结构For 循环变量 = 循环的初值 To 终值 step 步长 语句组（循环体）Next 循环变量理解：for x=1 to 10 step 2 y=y+x next x text1.text= y for / next 语句执行过程循环变量 =初值，记录终值、步长变量 终值循环体循环变量 =循环变量 +步长结束循环falsetrue探究 学习l 阅读或动手试一试，写出下列程序运行结果并回答问题：(1) For i=1 to 6 step 1print I,next I(2) for i=10 do 1 step -2print I,next I(3) s=0for x= 1 to 15 step 2 s=s+x next xprint s思考问题l (1) for 循环控制变量与 next 变量关系l (2) 初值、终值、步长之间的关系？l (3) 循环次数如何计算？问题解答l （ 1） for 变量与 next 变量必须一致l （ 2）初值小于等于终值，步长为正，初值大于终值，步长为负l (3) 循环次数：int( 终值 -初值 )/步长 ) + 1循环应用：例题 1：画多个同心圆画圆命令l 画圆命令 : Circle (x, y), r l 颜色命令 : RGB(red, green, blue)l red、 green、 blue：0 255 的整数，各颜色饱和程度。l 如： RGB(0,0,0)表示黑色； RGB(255,255,255)表示白色；随机色 : RGB(Rnd * 255, Rnd * 255, Rnd * 255)画圆的命令 : l Circle (3000, 3000), 2000, RGB(Rnd * 255, Rnd * 255, Rnd * 255)问题分析：1、由按钮的单击事件产生同心圆2、窗体属性设置：（ 1）窗体的 FillStyle 属性设置：shape 图形的填充样式设置 :空心、实心、其它线条0-soiid 实线1-transparent 透明2-HORI 水平直线。填充样式FillStyle属性可设置为 0， 1， 2（水平直线）、 3（垂直直线）、 4（上斜对角线）、 5（下斜对角线）、 6（十字线）、 7（交叉对角线）。 前景色生成：窗体的 FillColor属性FillColor 可以用来填充由 Circle 和 Line 图形方法生成的圆和方框。缺省情况下， FillColor 设置为 0（黑色）。 l 想一想，如下命令的含义：Circle (2000, 1500), 1000, RGB(rnd*255, rnd*255, rnd*255 ) l 20个圆心相同，而半径有规律变化的圆如何画？完成代码编写： （空心圆）Private Sub Form_Click()For i = 1 To 15Circle (3000, 2000), 1600 - 100 * I， RGB (RND*255,RND*255,RND*255)Next iEnd Sub这里圆可以从外画到内，也可以从内画到外for I=1 to 15 step 1 Form1.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Circle (3000, 2000), 1600 - 100 * Inext I注意：多个同心实心圆的半径只能从大到小，想一想为什么？实心圆：例题 2、数列计算l (1) 计算 1+2+3+1000的和l 思考：l (2) 计算 1*2*3*10?l (3) 计算 1+3+5