第七课学案算法：程序的循环结构任务掌握for-next循环语句的格式和功能，理解for-next循环语句的执行过程，学会使用for-next循环语句实现计数循环。深刻理解程序设计中循环结构的设计理念1.任务分析:文字“喜迎国庆”显示在标签(Label)上.礼花灯是用Line方法绘制在图片框上的.单击“礼花灯”按钮,在窗体上回执礼花灯.单击“退出”按钮,退出程序的运行.(1)设计用户界面(2)①.设计用户界面如下图:②.设置对象属性③编写事件过程代码PrivateSubCommand1_Click()Picture1.DrawWidth=2'定义线粗Picture1.Scale(-10,10)-(10,-10)'定义新坐标系Fora=0ToStep'循环初始控制：初值为360，步长值为20，完善代码x=10*Cos(a*3.14/180)'a度角对应圆上点的横坐标xy=10*Sin(a*3.14/180)'a度角对应圆上点的纵坐标yc=RGB(255,0,0)'要想绘制出五彩的线条，请为此代码添加随机函数（rnd函数）调用格式参照书上Picture1.Line(0,0)-(x,y),cNext'循环变量EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubTimer1_Timer()'设计"喜迎国庆的移动字幕"完善代码EndSub(2)For/next循环语句的功能和格式P39label功能：能够重复执行一组操作一般调用格式：for循环变量=初值TO终值[step步长值]循环体next循环变量说明：随着循环变量的不断变化，不断执行循环体，直到循环变量>终值，循环结束。步长值是控制循环变量在循环过程中每次增加的数值，步长值可取正值，也可取负值，默认时为1.二、自己根据算法分析和For/next循环语句的功能和格式编写程序源代码。PrivateSubcommand1_Click()’触发鼠标单击命令按扭command1这一事件开始程序sum=0’计算1+2+3+….+100的和值为sum,其初值为0Fori=1TO100Step1’加数i变化范围为：1—100，每次递增1Sum=sum+I’上次的和数加上这次的加数形成新的和数nextI’i=i+1，一直循环累加，直到nexti，I=101>100,循环结束text1.text=sum’文本框text1中添加的文字为最终累加的计算结果EndSub’结束程序④保存、运行并调试程序。调试运行程序，完成后，将程序保存到D:\自己文件夹\第7课学案作业.frm和D:\自己文件夹\第7课学案作业.vbp2.程序的循环结构和for/next语句的执行流程图P39①.循环循环结构的程序能重复执行相同或相似的语句。被重复执行的部分称为循环体。For/next循环语句是VB中常用的循环语句之一。②分析代码，画出程序流程图Sum=0ForI=1TO100step1sum=sum+InextIText1.text=sum③for/next语句的执行流程图创作天地P59页：算法：编写事件过程代码拓展练习任务二：通过编写一些简单VB程序代码，来进一步总结VB中方法的概念和VB窗体坐标轴与平面直角坐标系的区别；灵活运用circle方法和cls方法以及RGB(R,G,B)函数；掌握顺序结构程序的设计思路。1.要求：当单击“同心圆”命令按钮时，在窗体上绘制色彩不同的五个同心圆；单击“取消”命令按钮时，清除窗体上的图形；当单击“退出”命令按钮时，退出程序。①设计用户界面。在窗体中添加三个命令按钮。②设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1（窗体）名称FrmTongxinyuanCaption同心圆BackColor白色&H00FFFFFF&Height4725窗体的高Width4995窗体的宽CommandBotton1（命令按钮1）名称CmdDrawCaption同心圆Style1-Graghical设置Style属性后，命令按钮的颜色就显示出来了BackColor橙色&H0080C0FF&CommandBotton2（命令按钮2）名称CmdCancelCaption取消Style1-GraghicalBackColor绿色&H0000C000&CommandBotton3（命令按钮3）名称CmdExitCaption退出Style1-GraghicalBackColor黄色&H0080FFFF&③编写事件过程代码PrivateSubCmdDraw_Click()FrmTongxinyuan.DrawWidth=3Circle(2500,2000),400,RGB(1,128,195)'绘制蓝色圆Circle(2500,2000),700,RGB(253,176,48)'绘制黄色圆Circle(2500,2000),1000'绘制黑色圆Circle(2500,2000),1300,RGB(0,165,81)'绘制绿色圆Circle(2500,2000),1600,RGB(237,25,47)'绘制红色圆EndSubPrivateSubCmdCancel_Click()ClsEndSubPrivateSubCmdExit_Click()EndEndSub④保存、运行并调试程序。以“同心圆”为名，完成后，将程序保存到D:\自己文件夹\任务三：尝试完成书上59页创作天地，2...
VIP
