九年级VB第七课程序的循环结构学案

1、第七课学案 算法：程序的循环结构任务掌握for-next循环语句的格式和功能，理解for-next循环语句的执行过程，学会使用for-next循环语句实现计数循环。深刻理解程序设计中循环结构的设计理念。1. 任务分析:文字 “喜迎国庆”显示在标签(Label)上.礼花灯是用 Line方法绘制在图片框上的.单击 “礼花灯”按钮,在窗体上回执礼花灯.单击 “退出”按钮,退出程序的运行.(1) 设计用户界面(2) .设计用户界面如下图:label.设置对象属性编写事件过程代码Private Sub Command1_Click() Picture1.DrawWidth = 2 '定义线粗 P

2、icture1.Scale (-10, 10)-(10, -10) '定义新坐标系 For a = 0 To Step '循环初始控制：初值为360，步长值为20，完善代码 x = 10 * Cos(a * 3.14 / 180) 'a度角对应圆上点的横坐标x y = 10 * Sin(a * 3.14 / 180) 'a度角对应圆上点的纵坐标y c = RGB(255, 0, 0) '要想绘制出五彩的线条，请为此代码添加随机函数（rnd函数）调用格式参照书上 Picture1.Line (0, 0)-(x, y), c Next '循环变量En

3、d SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Timer1_Timer() '设计"喜迎国庆的移动字幕" 完善代码End Sub(2)For/next循环语句的功能和格式P39功能：能够重复执行一组操作一般调用格式：for 循环变量 = 初值 TO 终值 step步长值 循环体 next 循环变量 说明：随着循环变量的不断变化，不断执行循环体，直到循环变量>终值，循环结束。步长值是控制循环变量在循环过程中每次增加的数值，步长值可取正值，也可取负值，默认时为1.二、 自己根据算法分析和For/ne

4、xt循环语句的功能和格式编写程序源代码。 Private Sub command1_Click( ) 触发鼠标单击命令按扭command1这一事件开始程序sum=0 计算1+2+3+.+100的和值为sum,其初值为0For i=1TO100 Step 1 加数i变化范围为：1100，每次递增1 Sum=sum+I 上次的和数加上这次的加数形成新的和数 next I i=i+1，一直循环累加，直到next i，I = 101>100,循环结束 text1.text = sum 文本框text1中添加的文字为最终累加的计算结果End Sub 结束程序保存、运行并调试程序。调试运行程序，完成

5、后，将程序保存到D: 自己文件夹第7课学案作业.frm和D:自己文件夹第7课学案作业.vbp2.程序的循环结构和for/next语句的执行流程图 P39.循环结构的程序能重复执行相同或相似的语句。被重复执行的部分称为循环体。For/next循环语句是VB中常用的循环语句之一。分析代码，画出程序流程图 Sum=0For I =1 TO 100 step 1 sum = sum + I next I Text1.text = sum for/next语句的执行流程图创作天地P59页：算法：编写事件过程代码拓展练习任务二：通过编写一些简单VB程序代码，来进一步总结VB中方法的概念和VB窗体坐标轴与平

6、面直角坐标系的区别；灵活运用circle方法和cls方法以及RGB(R,G,B)函数；掌握顺序结构程序的设计思路。1.要求：当单击“同心圆”命令按钮时，在窗体上绘制色彩不同的五个同心圆；单击“取消”命令按钮时，清除窗体上的图形；当单击“退出”命令按钮时，退出程序。设计用户界面。在窗体中添加三个命令按钮。设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1（窗体）名称FrmTongxinyuanCaption同心圆BackColor白色 &H00FFFFFF&Height4725窗体的高Width4995窗体的宽CommandBotton1（命令按钮1）名称CmdDr

7、awCaption同心圆Style1-Graghical设置Style属性后，命令按钮的颜色就显示出来了BackColor橙色 &H0080C0FF&CommandBotton2（命令按钮2）名称CmdCancelCaption取消Style1-GraghicalBackColor绿色 &H0000C000&CommandBotton3（命令按钮3）名称CmdExitCaption退出Style1-GraghicalBackColor黄色 &H0080FFFF&编写事件过程代码Private Sub CmdDraw_Click() FrmTong

8、xinyuan.DrawWidth = 3 Circle (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) '绘制红色圆End SubPrivate Sub CmdCa

9、ncel_Click() ClsEnd SubPrivate Sub CmdExit_Click() EndEnd Sub保存、运行并调试程序。以“同心圆”为名，完成后，将程序保存到D: 自己文件夹任务三：尝试完成 书上59页创作天地，2 设计用户界面：（1） 程序代码Private Sub Command1_Click() '画圆 Picture1.Cls Picture1.Circle (0, 0), 5End SubPrivate Sub Command2_Click() '画同心圆 Picture1.Cls For a = 3 To 7 Picture1.Circle

10、(0, 0), a Next aEnd SubPrivate Sub Command3_Click() '画直线 Picture1.Cls Picture1.Line (-8, 0)-(8, 0)End SubPrivate Sub Command4_Click() '画三角形 Picture1.Cls Picture1.Line (0, 8)-(8, -5) Picture1.Line (8, -5)-(-8, -5) Picture1.Line (-8, -5)-(0, 8)End SubPrivate Sub Command5_Click() '画矩形 Pictu

11、re1.Cls Picture1.Line (-6, 3)-(6, -3), , BEnd SubPrivate Sub Command6_Click() '画实心矩形 Picture1.Cls Picture1.Line (-6, 3)-(6, -3), , BFEnd SubPrivate Sub Form_Load() '修改坐标系 Picture1.Scale (-10, 10)-(10, -10)End Sub知识点：第一课时知识点：（上机尝试练习）用Scale方法改变坐标系是本课的难点，不容易理解。VB中的坐标系和我们在数学中用到坐标系有些不同，如果能让这个坐标系变

12、化一下，与数学中的坐标系一样，那样会使我们在作图和看图时都会感到很方便。使用在窗体激活事件（Activate事件）中或其它适宜事件中，画两条直线和一个点，代码如下：Private Sub Form_Activate() PicHua1.Line (-1500, 0)-(1500, 0), RGB(255, 0, 0) PicHua1.Line (0, 1500)-(0, -1500), RGB(255, 0, 0) PicHua1.DrawWidth = 10 PicHua1.PSet (0, 0), RGB(0, 255, 0)End Sub运行程序，会发现两条线的交点上有个绿点，就是坐标原

13、点（0，0），现在在此段程序前加一句话：PicHua1.Scale (-1500, 1500)-(1500, -1500)两条直线的位置就是新的坐标系的坐标轴，绿点就是坐标原点。修改Scale方法中的参数，改变新的坐标轴和坐标原点的位置，体会Scale方法的使用。1. 画圆的Circle方法2. 功能：绘制圆形、椭圆和圆弧。画圆的一般格式：对象.CircleStep（x,y）,半径，颜色说明：（1）这里的对象是指即将在上面使用Cirlce方法绘制的对象，如窗体、图片框等。省略对象时，系统默认在窗体上使用Circle方法绘图。（2）（x,y）是圆心坐标。2.第一课时：作业:1.图像框(Image

14、)控件与图片框(Picture)控件的区别： 控件除了可以显示图片，还可以其中放置多个其他控件，成为其他控件的容器， 控件只能显示图片， 控件使用的系统资源少，它仅支持 控件一部分属性、事件、和方法。2.图像框控件（image）通过streth属性改变图片的显示方式，图片框控件（picture）通过 属性改变图片的显示方式。3.Scale方法功能： 。一般格式： 。4.Line方法：一般格式 。5.能够重复执行相似或相同的语句的程序称为_,被重复执行的部分称为_。对于那些需要重复执行多次并且结构相同或相似的语句，可以考虑使 构来编程， 6.随机函数（Rnd）函数功能： 。7.每个对象都有各自的

15、 和 。 决定对象的特性， 描述对象的行为动作。对象的3大要素是指_、_、_.8.loadpicture（ ）函数的功能是 ；Rnd（x）函数的功能是 ；sin（a）cos（a）的功能是计算角的 和 ；是sqr（x）是 函数；abs（x）是 函数。9.在VB 中，为求整数（x）的绝对值应使用 A.exp(x) B.len(x) C.aqr(x) D.abx(x)第二课时作业1.cls方法的功能是_.2.RGB(255,255,255)表示_,RGB(0,0,0)表示_.3.在程序执行过程中,根据语句的执行顺序可以形成不同的程序结构,包含_、_、_三种常见的程序结构。5.如果要设置命令按钮的颜色

16、为红色，应设置命令按钮的（ ）A. Style属性和Graphics属性 B. Picture属性 C. Style属性和BackColor属性 D. Graphics属性6下列属性名中，（ ）的功能是设置图形背景。A. Font属性B. caption属性 C. borderstyle属性 D.Style属性7.判断 ：1.获取颜色可以调用RGB函数，小李的作业中是这样调用的：RGB（255，256，0）（ ）8.判断：事件是系统事先设置好的，可以被对象识别的动作，即：被对象识别并执行的动作；方法是附属于对象的行为和动作，可以理解为指示对象要执行动作的命令（ ）9.绘制同心圆，将下列代码填写完整Private Sub CmdDraw_Click() FrmTongxinyuan.DrawWidth = 3 Ci