广东八年级信息技术下册全册教案

1、年 级 信 息 技 下 册第一课 :?小海龟画正三角形 教学目标： ?1 初步认识 small?basic 语言，了解其基本的操作使用方法。2、?理解什么是对象及其属性、操作方法。 ?3、 认识“ Turtle”对象，掌握其属性、操作方法。？4、掌握使用small?basic命令（语句）画正三角形的方法。 教学重难点 ： ?重点：掌握使用对象的属性、操作的方法； ? 难点：理解对象及其属性、操作。 ?册 教学方法： ? 演示法、任务驱动法、讲授法 ? 教学过程 ：? 一、认识 Small?Basic?开始 smallbasic 运行 二、命令的分析 Turtle.move实例教学(教师演示)

2、画三角形：Turtle.move(100) Turtle.turn(120)Turtle.move(100) Turtle.turn(120)Turtle.move(100) Turtle.turn(120)四、学生动手实践1、经过自主练习，同学们能够成功运行程序吗？最终画出什么图形呢？2、不成功的话，又存在着哪些问题呢？为什么呢？该如何解决呢？五、深入学习1、思考问题：A 、 小海龟能不能在窗口的任意位置画三角形？ B、 小海龟能不能“爬”快点？ C、 小海 龟开始“爬”时，头能否不垂直向上，能否改变方向？2、属性、操作的学习3、实例教学六、自主练习 ?任务：请同学们利用已经学习的 Turt

3、le 属性和操作，自己动手试一试，画出各种图 形。?七、?学生演示八、总结 第二课：小海龟画彩色正五边形教学目标：1、理解变量及其命名规则 ?2、掌握变量的赋值及变量的应用3、?认识 GraphicsWindow 对象及常用属性设置 ? 教学重难点 ?重点 ：变量及其应用 ? 难点：理解赋值语句，不要将赋值语句和数学中的等式混为一谈。 ? 教学方法 ?讲授法、演示法、任务驱动法 教学过程一、引入教学1、小海龟画一个正三边形。 ?2、小海龟画正五边形命令： ?命令：Turtle.move(length)Turtle.move(length)Turtle.turn(e) Turtle.turn(e

4、)Turtle.move(length)Turtle.move(length)Turtle.turn(e)Turtle.turn(e)2 疑问？ 海龟画正五边形的方法与画正三边形的方法相似：画一条边，旋转一定的角度，然后再画一 条边，旋转一定的角度 直到画完。然而，两者唯一不同的地方就是边数和旋转的角度。假如小海龟要画正 N 边形，需要修改旋转的角度，以及画的边长的大小，这时候一个一个地 修改，会不会很麻烦呢？为了简化工作，对于边长的大小和旋转的角度，我们能否分别用代 表未知数的“符号”来表示呢？二、变量1、我们将程序中代表某个值的符号称为“变量”。2、变量是程序用来保存数据的。3、规则：A

5、、变量名要以字母、汉字、数字、下划线命名，且不能以数字开头。 ?B、 变量名不能与对象、属性、操作名相同，也不能与Small?Basic中的保留字相同，例如： if 不能作为变量名。 ?C、变量名应尽量简单易懂。例子： (正三边形 )S=3?Length=100?E=360/S?Turtle.Move(Length)?Turtle.Turn(E)?Turtle.Move(Length)?Turtle.Turn(E)?Turtle.Move(Length)?Turtle.Turn(E)三、 ?赋值语句 变量就像一个存放数据的“盒子”，当我们在程序中需要使用该“盒子”中的数据时，只要 用该变量名指

6、代就行了。而在“盒子”中存放数据，我们就用到赋值语句。?比如：S=3?把把数值3存放在变量S中。？Length=100?把数值100存放在变量Length?E=360/S?先算出表达式360/S的结果(120),其中S=3，?然后把数值120存放在变量E?注意：表达式中国可以包含函数、常量、变量，用小括号“ () ”表示运算的优先次序变化。不 能用中括号 “*?+”表.?达式中使用的算术运算符是：+?-?*?/。 ?【格式】?变量名 =表达式?【作用】：将右端表达式的值存放到左边的变量中。变量被赋值之后，变量名就代表右边表 达式的值，直到又有赋值语句改变了该变量的值。 ?设置属性值：对象名 .

7、属性名 =表达式比如： Turtle.x=1003、自主练习：请同学们利用已经学习的Turtle 和 GraphicsWindow 属性和操作，自己动手试一试，画出各种图形。 ?五、学生演示 ?六、任务驱动 ?任务一：完成书本 P12 试一试，猜一猜 GraphicsWindow 各属性和操作的含义。?任务二：完成书本p12试一试第二题，画绿色的正五边形。？ 任务三：完成书本p12试一试第三题，在图形窗口写上“我爱编程”，设置合适的颜色和字号。提示：使用GraphicsWi ndow.Draw(x,y,text)操作，字号：GraphicsWindow.FontSize属性操作)?七、总结小海

8、龟画正多边形学习要点：1了解什么是算法，了解算法的自然语言描述和流程图描述。2.理解ForEndFor循环语句的使用方法。重点难点：本课的重点是学习控制。一、 流程图开始ForE ndFor循环语句及使用，难点是理解循环的ForE ndFor循环语句的格式如下：For?循环变量 =初值?To?终值?Step?步i=1i=3是长语句组EndFor画正三角画一的程边序如下转120For?i-T Turtle.Move(Turtle.Turn(1EndFor二、练习的编程任务：1.编程让小海龟画楼梯，楼梯踏板的宽度和高度都是 程序如下：S=530。Len gth=30For i=1 to S ste

9、p 1Turtle.Move (Le ngth)Turtle.Turn (90)Turtle.Move (Le ngth)Turtle.Turn (-90)EndFor2、编写程序，画出P19的螺旋图形S=4Len gth=50E=360/SGraphicsWi ndow.Pe nColor=RedFor i=2 to Len gth step 2Turtle.Move (i)Turtle.Turn (E)EndFor三、小结流程图作为算法描述的一种形式，非常直观，对学习编程、阅读理解程序都是很有 帮助的，“小海龟画正多边形”这个任务引出算法和流程图的概念，让我们对“算法”不感 到枯燥、抽象，

10、能够达到比较好的学习效果。第四课：累加求和学习要点：1. 理解累加的含义，掌握实现累加的方法。2. 掌握用ForEndFor循环语句实现累加求和的方法及过程。3. 学会应用ForEndFor循环语句解决与累加求和相似的计算问题。重点难点：J中最常用的对象 乂绘图也可以显示文字信息 口只能显示文字信息。? ? ?DrawResizedImage是 Draw Resized Image,是画特定大小的图形的意思 练习：*编写程序，计算：90+85+80+20将结果显示在文本窗口，显示格式如下：Sum=0For i=90 to 20 step -5Sum=sum+100*90+85+80+结束*本课

11、的重点是进一步熟悉Fol* ndFor循环语句的使用方法，难点是用赋值语句实现累加 计算，理解赋值语句：sum=sum+i。一、设计算法和流程图示信息时经常要使用连接符“ +；例如：GraphicsWindow.DrawText(100,100,1+3+ +79=+sum)TextWi ndow.WriteLi ne(1+3+79=+sum)在这里，1+3+79=是一个字符串，sum是一个代表数值的变量，它们之间的“ +一个连接符，不是运算符，事实上，当字符串与数值相加时，加号就是连接符；当数值与数 值相加时，加号就是运算符。可以让学生运行下面的语句领悟连接符的作用：GraphicsWi nd

12、ow.DrawText(100,100,1+2+100=5050)?GraphicsWi ndow.DrawText(100,100,1+2+100=5050+1000)?GraphicsWi ndow.DrawText(100,100, 5050+1000)“编写程序，计算：1+2+100将结果显示在图形窗口 流程图：程序如下:Sum=0For i=1 to 100 step 1Sum二Sum+iEndForGraphicsWi ndow.BrushColor二RedGraphicsWi ndow.Fo ntSize=30GraphicsWi ndow.DrawText(100,100,1+

13、2+二、显示信息? ? ?在small Basic中有两个显示信息的窗口，? ? ?1、一个是图形窗口 “ GraphicsWindow,可以 ? ? ? 2、一个是文本窗口 “ TextWindow,”这个窗 例如：? ? ?DrawLine是Draw Line，是画直线的意思；? ? ?DrawText是Draw Text，是显示文本的意思；Sum=Sum+iEndForTextWi ndow.WriteLi ne(90+85+20=+Sum)三、小结使用变量进行累加计算是循环语句及循环结构中的一个重要内容，？sum二sum+1或sum=sum+i对我们来说理解起来有难度，教材用流程图对计

14、算1+2+ 89的过程进行了详尽 叙述，将变量比喻成一个存放数据的“盒子”，以加深我们对赋值语句sum=sum+i的理解。在学习中还可以再增加12个类似的例子加以说明，计算结果既可以在“Graphics?Wi ndov”窗口也可以在“ Text?Window窗口中显示，我们可以通过对比两种输出方式的不同，在今后 的编程中自觉地选择合适的输出窗口。第五课：电脑出算术题学习要点:1 掌握IfThen语句的书写格式及使用方法。2掌握IfThen语句中条件的表达方法。3.学会使用Math对象的常用操作(即函数)、TextWindows对象的Read操作。 重点难点：本课的重点是IfThen语句的格式和

15、使用方法，难点是条件的表达。？编写一个程序，电脑给我们随机地出算术题，我们回答计算结果，然后电脑判断我们是 做对了还是做错了。For i=1 To 10 Step 1a=Math.GetRa ndomNumber(100)b=math.GetRa ndomNumber(100)c=a+bTextWi ndow.Write(a+b+=)d=TextWi ndow.Read()If c=d The n? ? ?TextWi ndow.WriteLi ne(正确，你好棒！) EndIfIf cd Then? ? ?TextWi ndow.WriteLi ne(你算错了，加油哦！) EndIfText

16、Window.WriteLine(正确答案是：+a+b+=+c)EndFor一、Math 对象 a=Math.GetRandomNumber(x)该语句作用是：随机产生一个1x的整数，并赋值给变量a。 其中：x为大于等于1的整数。GetRandomNumbe： Get (获取)、Random (随机)、Number (整数)。语句分析：1、a=Math.GetRandomNumber(100表示随机获得一个1-100之间的整数。2、TextWindow.Write(a+b+二)在文本窗口中显示 a+b=，其中，a， b分别是随机获 取的整数3、d=TextWindow.Read ()表示在文本

17、窗口中等待操作者输入一个数学，输入之后按回 车键，输入的内容就保存到变量 d中。二、条件判断语句不成立【格式一】If ThenEn dIf一EndIf后的语旬若条件成立，则执行 语句组然后再执行Endif后的语句 若条件不成立，则直接执行 Endif后的语句。【格式二】罪件If Then ElseEndIfa=Math.GetRa ndomNumber(100)b=math.GetRa ndomNumber(100)c=a+bTextWi ndow.Write（a+b+=）d=TextWi ndow.Read（）If c=d The n? TextWi ndow.WriteLi ne（” 正确

18、，你好棒！）Else? TextWi ndow.WriteL in e（你算错了，加油哦！）En dIfTextWindow.WriteLine（正确答案是：+a+b+=+c）练习（课本29页）1、将电脑出算术题的程序输入电脑，然后运行程序。在你理解这个程序后，请你对程序进行修改，将程序改为下列形式的算术题：？（a*b）-（a+b）=2、 设计一个简单的“人机对话”程序。首先电脑问：“你喜欢学习Small Basic吗？ y/n 如果你按“y”，电脑回答“那太好了！” ：如果你按“ n”，电脑回答“那太遗憾了。”第六课：掷骰t cu子学习要点：1 .进一步熟悉TextWindow和Math两个

19、对象的常用操作。2. 了解人机交互的方法。3. 理解循环语句 WhileEndWhile，并能灵活地使用该语句编写循环结构的程序。重点难点理解循环语句 WhileEndWhile是本课的重点，也是难点。 WhileEndWhile和ForEndFor都能实现程序的循环运行，但 WhileEndWhile循环语句更加灵活，用ForEndFor语句能够实现的循环都能用 WhileEndWhile实现。（一）导入例子：编写一个模拟掷骰子比大小的游戏.程序如下：While True? TextWindow.WriteLine(比赛开始，请甲按 Enter投掷骰子) ? TextWi ndow.Paus

20、eWithoutMessage()? a=Math.GetRa ndomNumber(6)+a)? TextWi ndow.WriteL in e(甲投掷的骰子点数是：? TextWindow.WriteLine(”请乙按 Enter 投掷骰子? TextWi ndow.PauseWithoutMessage()? b=Math.GetRa ndomNumber(6)+b)? TextWi ndow.WriteLi ne(乙投掷的骰子点数是：? If ab The n? ? TextWindow .WriteLine (甲输了!)? En dif? If b1? ? graphicswi nd

21、ow.drawEllipse(x,y,d,d)? ? d=d-2*g? ? x=x+g图7-3? ?y=y+gEn dWhile1. 在画同心圆的程序中加上一句画正方形的命令，就可以多画一个同心正方形。?g=10d=200x=100y=100While d1GraphicsWi ndow.DrawEllipse (x ,y ,d ,d)GraphicsWi ndow.DrawRecta ngle(x+250,y,d,d) d=d-2*gx=x+gy=y+gEn dWhile2.修改画同心圆的程序，画同心椭圆。g=iod=200x=100y=100 while d1GraphicsWi ndow

22、.DrawEllipse (x ,y ,d ,d/2) d=d-2*gx=x+gy=y+g/2En dWhile小结：循环语句是本课的教学重点，而循环的条件又是其中的难点，WhileEndWhile和ForEndFor都能实现程序的循环运行，但 WhileEndWhile循环语 句更加灵活，用ForEndFor语句能够实现的循环都能用 WhileEndWhile实 现。第八课：画奥运五环旗学习要点：1进一步熟悉GraphicsWindow对象的操作和属性。2. 进一步熟悉 GraphicsWindow窗口的坐标系。教学重难点：教学重点是让学生进一步熟悉 GraphicsWindow对象的操作和

23、属性，掌握学习方法，难点是坐 标的运算。一、画几何图形：?画奥运五环旗需要在不同的位置画不同颜色的圆，因此首先要掌握如何画彩色的圆，然 后学习如何计算所画圆的位置。1. GraphicsWindow对象中画几何图形的各种操作：例如：GraphicsWi ndow.DrawEllipse(0,0,60,60)画圆GraphicsWi ndow.FillEllipse(0,0,60,60)画实心圆GraphicsWi ndow.DrawRecta ngle(0,0,60,60)画正方形GraphicsWi ndow.FillRecta ngle(0,0,60,60)画实心正方形GraphicsWi

24、 ndow.DrawRecta ngle(60,60,100,60)画矩形框GraphicsWi ndow.FillRecta ngle(160,120,100,60)画实心矩形GraphicsWi ndow.DrawTria ngle(0,0,60,20,30,80)画三角形GraphicsWi ndow.FillTria ngle(0,0,60,20,30,80)画实心三角形2、GraphicsWindow对象中，用改变图形的颜色或笔的颜色、粗细 backgrou ndcolor ? ?背景颜色brushcolor ? ? ? ? ? ? ?刷子的颜色 pen color ? ? ? ?

25、? ? ? ?初笔的颜色pen width ? ? ? ? ? ? ? ? ?!笔的宽度几何图形的边框颜色，用 Pe nColor属性来设置，例如：GraphicsWi ndow.Pe nColor =Red将 画笔设置为红色如果画实心几何图形，用 BrushColor属性来设置颜色，例如：GraphicsWi ndow.BrushColor=Gree n将刷子设置为绿色二、画奥运五环旗? ? ? ?从下图可以看出，最左边的蓝色圆的坐标是（x, y）,那么黑色圆的坐标是（x+d+g,y）, 那么黄色圆的坐标是（x+d/2+g/2，y+d/2），红色圆的坐标是（x+2d+2g，y）,绿色圆的坐标

26、是(x+1.5*d+1.5*g，y+d/2)图8-1奥运五环旗的尺寸关系图:d=120g=20x=50y=50GraphicsWindow .PenWidth =12GraphicsWindow .BackgroundColor =whiteGraphicsWindow .PenColor =blueGraphicsWindow .DrawEllipse (x,y ,d ,d )GraphicsWindow .PenColor =blackGraphicsWindow .DrawEllipse (x+d+g,y,d,d)GraphicsWindow .PenColor =redGraphics

27、Window .DrawEllipse (x+2*d+2*g,y,d,d)GraphicsWindow .PenColor =yellowGraphicsWindow .DrawEllipse (x+d/2+g/2,y+d/2,d,d)GraphicsWindow .PenColor =greenGraphicsWindow .DrawEllipse (x+1.5*d+1.5*g,y+d/2,d,d)三、练习：? ? ? ?编写程序，画带橙色旗杆的奥运五环旗 分析：为了让程序能画出不同大小的五环旗，程序中的圆的直径、圆之间的间隙、位置等应 该用变量来表示。程序如下：d=60g=10x=160y

28、=50GraphicsWindow.PenWidth =5 GraphicsWindow.BackgroundColor =blackGraphicsWindow.BrushColor=white GraphicsWindow.FillRectangle(x-g,y-2*g,3*d+4*g,4*g+d+d/2)GraphicsWindow.BrushColor=orange GraphicsWindow.FillRectangle(x-g-g/2,y-2*g,g/2,(4*g+d+d/2)*2)GraphicsWindow.PenColor =blue GraphicsWindow.DrawE

29、llipse (x,y,d,d )GraphicsWindow.PenColor =black GraphicsWindow.DrawEllipse (x+d+g,y,d,d)GraphicsWindow.PenColor =redGraphicsWindow.DrawEllipse (x+2*d+2*g,y,d,d) GraphicsWindow.PenColor =yellowGraphicsWindow.DrawEllipse (x+d/2+g/2,y+d/2,d,d) GraphicsWindow.PenColor =greenGraphicsWindow.DrawEllipse (x

30、+1.5*d+1.5*g,y+d/2,d,d) 第九课：画彩色的链子学习目标：? ? 1了解什么是子程序，在什么情况下编写子程序。? ? 2掌握子程序的编写格式。? ? 3进一步熟悉 GraphicsWindow 窗口的坐标系。 学习重难点：? ? 了解什么情况下要编写子程序是教学的重点；确定彩色珠子的坐标是教学的难点。一、子程序：? ?子程序由一个以Sub关键字开头的名字标识，并以EndSub关键字结束。子程序可以在程 序的任意位置被调用。? ?格式：? ? ?Sub 子程序名? ? ? ? ?Endsub作用： 1子程序可以简化程序。? ? 在编程时我们经常遇到需要重复执行一组相同的命令的

31、情况。 这种情况下，多次重写相同 的语句是不合理的。于是将需要重复写的语句写成子程序，这样我们借助子程序可以简化程 序。2使用子程序可以提高程序的可读性。? ? 在一个较大的程序中， 将实现某些特定功能的程序代码写成子程序， 这样主程序的表述就 简化了，程序的可读性就提高了。例如：你想理解其他人写的程序或者希望你的程序能被其 他人理解，程序就应该尽量地将特定功能的代码写成子程序。3、子程序可以在主程序的任意位置被调用二、调用主程序的方法： 子程序名（） 作用：执行子程序中的所有命令编写程序：r=10x=100y=100For x=x to 400 step 3*r ball()EndForFo

32、r y=y to 300 step 3*r ball()EndForSub ballGraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor() GraphicsWindow.FillEllipse(x,y,2*r,2*r)EndSub三、画彩色珠子串 r=10 y=100For x=100 to 400 step 3*r GraphicsWindow.DrawLine(x-r,y+r,x,y+r) ball()EndForGraphicsWindow.DrawLine(x-r,y+r,x,y+r)Sub ballGraphicsWindo

33、w.BrushColor=GraphicsWindow.GetRandomColor() GraphicsWindow.FillEllipse(x,y,2*r,2*r)EndSub四、画长方形的 “链子 ” 程序如下：r=10y=100For x=100 to 400 step 3*rGraphicsWindow.DrawLine(x-r,y+r,x,y+r)ball()EndForGraphicsWindow.DrawLine(x-r,y+r,x,y+r)For y=100 to 300 step 3*r ball()GraphicsWindow.DrawLine(x+r,y+2*r,x+r

34、,y+3*r)EndForFor x=x to 100 step -3*rball()GraphicsWindow.DrawLine(x-r,y+r,x,y+r)EndForFor y=y to 100 step -3*rball()If y100 ThenGraphicsWindow.DrawLine(x+r,y,x+r,y-r)EndIfEndForSub ballGraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor() GraphicsWindow.FillEllipse(x,y,2*r,2*r)EndSub小结：在编程时我们经常

35、遇到需要重复执行一组相同的命令的情况。这种情况 下，多次重写相同的语句是不合理的。于是将需要重复写的语句写成子程序， 这样我们借助子程序可以简化程序。第十课：记录鼠标轨迹 学习目标：1了解什么是事件。 2掌握编写响应鼠标事件的程序的方法。教学重难点：1、重点：掌握编写响应鼠标事件的程序的方法。2、难点：理解什么是事件。 编写程序：通过我们移动和点击鼠标来画图。程序如下：r=10GraphicsWindow.MouseDown = OnMDGraphicsWindow.MouseMove = OnMMSub OnMD? x = GraphicsWindow.MouseX? y = Graphic

36、sWindow.MouseY? GraphicsWindow.FillEllipse(x-r, y-r, 2*r, 2*r)EndSubSub onMM? GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()? x=GraphicsWindow.MouseX? y=GraphicsWindow.MouseY? GraphicsWindow.FillEllipse(x-2,y-2,4,4)EndSub一、事件与交互1、OnMD 和 OnMM 都是子程序，主程序中调用子程序的命令是：GraphicsWindow.MouseDown?=?

37、OnMD (鼠标按下时响应)GraphicsWindow.MouseMove?=?OnMM (鼠标移动时响应)2、GraphicsWindow对象能侦测的6个事件：KeyDown 【事件】当键盘上的按键被按下时触发。KeyUp 【事件】当键盘上的按键被释放时触发。MouseDown 【事件】当鼠标键被按下时触发。MouseMove 【事件】当鼠标被移动时触发。MouseUp 【事件】当鼠标键被释放时触发。Text In put【事件】当文本被输入GraphicsWi ndow时触发。3、注意区分( 1 )主程序直接调用子程序子程序名()( 2)通过事件指定子程序对象.事件=子程序名()4、练习

38、：GraphicsWindow.MouseDown = OnMDSub OnMD? ?GraphicsWindow.ShowMessage你按下了鼠标,试测件事”)EndSubGraphicsWi ndow.ShowMessage作用是显示消息框。二、记录鼠标轨迹1、编写程序，当按下鼠标(或按下键盘上的键、或移动鼠标)时，窗口的背景色随机改变。 程序如下：GraphicsWindow.MouseDown = OnMDSub OnMD? ? GraphicsWindow.BackgroundColor=GraphicsWindow.GetRandomColor()EndSub将GraphicsW

39、indow对象的事件改为KeyDown或MouseMove,可以得到相应的事件驱动程序。2、编写统计鼠标按下事件的程序。程序如下：i=0GraphicsWindow.MouseDown = OnMDSub OnMD? ? ?i=i+1? ? ?GraphicsWindow.ShowMessage你按下+ 计次鼠标,测试事件”)EndSub3、编写程序，用鼠标可以画图形GraphicsWi ndow.MouseMove=onM ouseMove GraphicsWi ndow.MouseDow n=onM ouseDow n Sub onM ouseDow n? prevX=Graphicswi

40、 ndow.MouseX? prevY=Graphicswi ndow.MouseYEndSubSub onM ouseMove? x=graphicswi ndow.MouseX? y=graphicsw in dow.MouseY? If Mouse.lsLeftButto nDow n The n? ? ? ?GraphicsWi ndow.DrawLi ne(prevX,prevYx,y) ? En dlf? prevX=x? prevY=yEndSub第十一课：可移动的风车学习目标1. 了解Shapes对象，能用Shapes对象编写简单的动画程序。2. 了解Program对象，能用P

41、rogram对象优化动画程序的运行效果。3. 继续学习编写事件驱动的程序。 教学重难点1、本课的教学重点是：了解 Shapes对象的各种操作，并能根据 Shapes对象的各种操作的英 文含义，自主地选择Shapes对象的操作来编写动画程序；2、教学的难点是在动画的设计过程中所涉及的坐标运算。一、风车是由叶子和基座组成，画移动的风车程序比较长，可以分成如下几个步骤来完成。? ?第一步：画静止的风车。掌握 Shapes.AddRectangle和 Shapes.Move()命令的使用方法。?第二步：在程序中加上响应鼠标事件的命令。? ?第三步：编写让风车叶片旋转的程序。通过修改Shapes.Rot

42、ate和Program.Delay()命令的参数。? ?第四步：编写点击鼠标事件发生时响应的子程序 on KD。风车的叶片和基座的位置需要根据图片经过计算获得。leaf=shapes.addrecta n gle(200,10)在图形窗口添加一个宽200、高10的实心矩形，图形取名leafshapes.move(leaf,200,200)把图形leaf移到(200, 200)处?i=1用i表示旋转的角度，初值为1?While true无限循环？shapes.rotate(leaf,i)将图形leaf旋转到i度的位置i=i+1旋转的角度增加1度en dwhile循环标志二、Shapes对象1、例如：下面的程序可以画一个不断旋转的风车叶 leaf=shapes.addrectangle(200,10)sh apes.move(leaf,200,200)?i=1While trueshapes.rotate(leaf,i)?i=i+1en dwhile2、Shapes【对象】Shape对象允许您添加移动和旋转GraphicsWindow 中的形状。Sh