九年级上册教案清华版

1、 课 题：第一课 唱响口号课 题唱响口号授课时间课 型新授课课时安排一课时教学目标知识与技能：1、初步认识VB的工作环境。2、掌握新建工程的方法。3、了解VB中的窗体。过程与方法：教师演示，学生练习情感态度与价值观：提高学生VB的学习兴趣和热情。教学重点保存程序文件是本课的重点。标签及其常用属性是本课的重点。教学难点一些根本概念和根本术语，这是本课的难点教具学具准 备学生电脑教学方法演示法，探究法教 学 过 程一、导入新课：为了能调动学生学习的兴趣，教师可以举一些用VB编写的成功软件的例子，让学生体会VB的强大功能。让学生试着翻开VB6.0中文版，看一看VB程序的开发环境，这时，就会遇到如何新

2、建工程的问题，经过老师提示，让学生成功进入“工程1的设计界面。教师让学生了解VB工作环境界面后，可以直接单击运行程序按钮，让他们运行这个没有功能的空程序，学生们会发现，运行程序后，只有一个空的窗体，让学生加深体会窗体的作用。接下来引入教材中的“唱响口号例题。告诉学生要想在窗体上显示奥运口号，可以使用标签控件，这样就进入了标签控件及其常用属性的学习。教师要根据自己学生的特点，让学生掌握如何将工具箱中的控件添加到窗体中适宜的位置上，怎样调整大小，了解怎样设置属性。要让学生从第一课开始就养成保存文件到正确目录的好习惯，注意工程文件与窗体文件的文件名。二、教学新课1在本课中会涉及一些根本概念和根本术语

3、，这是本课的难点。用VB编制的程序，一般都运行在一个窗口中，设计时这个窗口称为窗体Form，用户可以在窗体中添加控件来创立程序的外观。一般情况下程序的运行结果、图像、图形等都是通过窗体输出的。新建一个VB“标准EXE工程，默认有一个窗体。工具箱内默认有21个工具按钮，其中除指针工具外都是控件制作工具，利用这些控件工具在窗体上绘制的元素成为控件Control。窗体和控件都是VB系统中的对象Object。每个对象都有自身的特性，如名称、大小、颜色、位置等，成为对象的属性。用户每创立一个对象，系统会自动为这个对象设置一些属性值，对这些属性的值可以通过选定对象后在属性窗口中重新设置，也可以在程序代码中

4、进行设置。2标签及其常用属性是本课的重点。由于标签控件可以显示文字信息，往往用作窗体上其它控件的说明或提示。标签的常用属性：Alignment属性：用于指定在标签控件上显示信息的位置0左对齐；1右对齐；2居中。AutoSize属性：用于设置标签控件的大小是否自动按标签中所显示的内容的多少进行调整。BorderStyle属性：用于设置标签控件的边框样式。Caption属性：用于设置标签控件中所要显示的内容。Left属性：用于设置标签控件与窗体左边界之间的距离。名称属性：用于设置标签控件的名字。Top属性：用于设置标签控件与窗体上边界之间的距离。WordWrap属性：用于设置标签控件中所显示的内容

5、是否能够自动换行。3保存程序文件是本课的重点。习惯是要养成的，是需要一段时期来培养的。从第一节课开始，教师就应有意识地培养学生好的学习习惯，尤其是保存程序。在VB程序中，用来构建一个程序的所有相关文件称作一个工程。一个VB应用程序 可以包括多个工程，每个工程可以包含多个模块，模块分为窗体模块、标准模块、类模块。每个工程、模块分别对应一个文件。其中，工程文件vbp保存了相关文件集合的信息；窗体文件frm保存了窗体及其中所有控件的相关信息；除此之外还有标准模块文件bas、类模块的文件cls、资源文件res、ActiveX控件的文件ocx。保存VB程序时，至少要生成工程文件vbp和窗体文件frm这两

6、个文件。保存文件时，要先创立用于存放工程文件和窗体文件的文件夹，文件夹的名称与工程文件名、窗体文件名要尽量一致。4感受开发VB程序的过程，总结开发VB程序的一般步骤是本课的重点。回忆一下“唱响口号的制作过程，总结出开发VB程序的一般步骤：分析问题，准备素材。设计用户界面设置对象属性编写事件过程代码保存、运行并调试程序 后面各课的VB程序设计也都是按照这几步来完成的。保存、运行程序。将程序以“奥林匹克格言为名保存到“第1课 奥林匹克格言下。三、课堂练习：在学生电脑上独立的完成教材上的唱响口号的学习内容四、课堂小结：六、板书设计：第一课：唱响口号七、教学后记复 备课 题：第二课 舞动北京课 题舞动

7、北京授课时间课 型新授课课时安排一课时教学目标知识与技能：掌握图像框根本功能及其Stretch属性的用法。1、了解事件的概念。2、掌握命令按钮及其Click事件的用法。3、理解对象的名称属性和Caption属性的异同。4、了解用LoadPicture()函数载入图片的方法。过程与方法：教师演示讲授，学生练习情感态度与价值观：初步培养学生的审美情趣，提高学生的知识迁移的能力，增强学生的团结合作和创新的意识。教学重点图像框的Stretch属性是本课的重点也是难点。教学难点事件的概念是本课的难点教具学具准 备学生电脑教学方法演示法，讲授法教 学 过 程一、导入新课：通过本课的学习让学生在完成任务的过

8、程中，进一步熟悉VB编程环境，加深对编写VB程序过程的了解。任务中又一次让学生接触到了窗体，并使用到了图像框控件和命令按钮控件。在学生使用这些控件的过程中，教师帮助学生理解这些控件在VB程序中能起到什么作用，又是怎么起作用的。首先让学生保存好本课要用到的图片文件“。教师可以给学生看一看Windows下的一些窗口，让学生体会命令按钮的作用，告诉他们，这节课我们也来制作一个带有命令按钮的小程序，然后给学生看样例，这样引入本节课的任务。和学生一起先分析程序的功能，当鼠标单击“显示会徽命令按钮后，就显示出了北京2021年奥运会会徽。再分析窗体上控件的个数，和它们的作用。告诉学生能显示图像的对象有很多，

9、“舞动北京程序使用“图像框来显示图像，引入“图像框及其相关属性的功能及用法。在本课中学生又一次设计VB程序的用户界面，要尽量引导学生能从以往应用软件的学习中进行知识的迁移，引导学生试着自己在工具箱中寻找图像框控件注意提醒学生不是图片框和命令按钮控件，并能自己在窗体中的适宜位置上添加适当的控件。教师再做总结，此时应尽量告知学生养成好习惯，尽量让自己的小程序中的各个控件大小适宜，布局合理，视觉美观。在设置对象的名称属性和Caption属性时，学生会发现同一对象的这两个属性默认值是相同的，但属性设置表中却给它们分别赋予了不同的值，这样引入名称属性和Caption属性的异同。设置好对象的属性，可以让学

10、生运行一下，发现当鼠标单击命令按钮时，没有任何反响，告诉学生要想实现这一功能就要在鼠标的单击事件中添加代码，使图像框载入图片，由此引入“事件的概念。接下来可以让学生根据教材的步骤试着翻开代码窗口，找到命令按钮的单击事件。告诉学生载入图片的函数LoadPicture()，由此讲解LoadPicture()函数的用法，注意文件的路径。代码调试好后，运行程序，教师可以让学生比拟图像框的Stretch属性值，分别在True和False时的不同结果，结合实例让学生理解此属性的作用。为了让学生稳固有关命令按钮单击事件和LoadPicture()函数用法的知识，让学生完善“舞动北京，增加去除图片的功能。编写

11、代码时，教师应告诉学生养成好习惯，每行语句要缩进几格，尽量使用注释语句。使程序既便于自己检查又易于别人阅读。二、教学新课1图像框的Stretch属性是本课的重点也是难点。图像框Image控件使用时，容易和图片框PictureBox控件混淆，教师要提醒学生，在第6课中会为这两个控件作一个比拟。图像框的Stretch属性值是True或False，决定是否调整图形的大小以适应图像框，当值为True时，调整图形大小适应图像框；当值为False时，图像框改变大小适应图形，如以下图所示。图像框的Stretch属性值为True图像框的Stretch属性值为False2事件的概念是本课的难点。事件Event就

12、是系统预先设定的、能被对象识别并执行的动作，如在命令按钮上单击鼠标、在窗体上移动鼠标、输入字符等。事件分析Event Analyse就是考虑在程序运行时，会有哪些操作，这些操作是在什么对象上进行的，每个操作需要计算机做出什么样的反响等。事件过程Event Process表示附加在某个对象上，用于对该对象的某个事件做出某种具体反响的程序代码。一般用“对象名_事件名形式来表示“作用在指定对象上的指定事件的事件过程名。具体格式如下：Private Sub 对象名_事件名 事件过程代码End Sub例如，命令按钮对象的名称是Command1，其Click事件的代码如下：Private Sub Comm

13、and1_Click() 事件过程代码End Sub3命令按钮的用法是本课的重点。对于命令按钮，最常用的属性就是其名称属性和Caption属性。命令按钮的名称属性值用于程序中作为该命令按钮的标识；而其Caption属性值那么是该命令按钮在窗体上显示出来的文本内容。命令按钮最常用的事件是其单击Click事件，如果程序需要通过单击命令按钮来执行某一组操作，那么需把实现这组操作的程序代码写在该命令按钮的单击事件中。4名称属性与Caption属性的异同是本课的难点。“名称和Caption是一个对象的两个不同的属性，所有的对象都有“名称属性，而有些对象却没有Caption属性。“名称属性是对象的标识名，

14、在程序中被引用，不显示在窗体上；“Caption属性是对象在窗体中显示出的文本内容。二者值可以完全不同，只是默认值相同。5图片载入函数LoadPicture()函数的用法是本课的重点。使用LoadPicture()函数载入图片关键在于图片的路径是否写对，在本课中要求学生写图片文件的绝对路径，所以在本课刚开始准备素材时图片文件的存储位置非常重要。图片存储的位置既涉及到了培养学生良好的管理文件的能力，为后面其它各课的素材准备打根底，又涉及到使用LoadPicture()函数时的路径，建议教师要提醒学生重视此处。三DIY和“创作天地1请编写VB程序，通过单击命令按钮，分别显示雅典奥运会徽和悉尼奥运会

15、徽。分析：运行程序后，单击“悉尼会徽，显示2000年悉尼奥运会会徽，单击“雅典会徽，显示2004年雅典奥运会会徽。素材准备：把图片“和“存放到“第2课文件夹中。设计用户界面。调整窗体大小，在窗体适宜位置上添加一个适宜大小的图像框和两个命令按钮。设置对象属性设置其属性如下表：对象属性名属性值属性说明Form1窗体1名称FrmHuihuiCaption奥运会徽名称ImgHuihuiImage1图像框1名称ImgHuihuiBorderStyle1-Fixed Single边框样式StretchTrue图形适应图像框尺寸CommandBotton1命令按钮1名称CmdSydneyCaption悉尼会

16、徽CommandBotton2命令按钮2名称CmdAthensCaption雅典会徽编写事件过程代码Private Sub CmdAthens_Click() '“雅典会徽命令按钮单击事件") '载入雅典会徽图片End SubPrivate Sub CmdSydney_Click() '“悉尼会徽命令按钮单击事件 ImgHuihui.Picture = LoadPicture("d:第2课Sydney.jpg") '载入悉尼会徽图片End Sub保存、运行并调试程序。将程序以“奥运会徽为名保存到“第2课 奥运会徽下。三、课堂练习：学

17、生独立完成在图像框中显示图片四、课堂小结：六、板书设计：第二课：舞动北京七、教学后记复 备课 题：第3课 精彩比赛课 题精彩比赛授课时间课 型新授课课时安排一课时教学目标知识与技能：了解用App.Path得到路径的方法。知道窗体激活事件。过程与方法：教师演示学生自主探究情感态度与价值观：热爱体育，培养爱国情感。认识到软件的作用，提高学生的知识迁移的能力。教学重点单项选择按钮的可使用和不可使用是本课的重点教学难点绝对路径与相对路径是本课的难点教具学具准 备学生电脑教学方法演示与学生上机练习教 学 过 程一、导入新课：教师可以给学生看一看Windows下有单项选择功能的对话框，或看一看网上调查问卷

18、当中的单项选择题，在让学生回忆平时做过的单项选择题，告诉学生在VB中要实现单项选择功能，可以使用单项选择按钮，给学生观看本课样例引入本课。让学生自己说出“精彩比赛窗体中共有多少个控件，分别是什么，让学生自己按照教材中图2.2在窗体中创立控件，调整大小，摆放整齐。由于本课中要用到六个单项选择按钮，快速创立六个点选按钮的方法有：在工具箱中双击六次单项选择按钮，之后在窗体中将六个单项选择按钮摆放好。按住Ctrl键，单击工具箱中的单项选择按钮，再在窗体中依次创立六个单项选择按钮。创立一个单项选择按钮后，用复制粘贴的方式创立其它5个单项选择按钮。要注意的是，选中刚创立好的单项选择按钮，执行“复制“粘贴，

19、会弹出对话框提醒“已经有一个控件为Option1。创立一个控件数组吗？，此时用鼠标单击“否，就会创立另一个名称为Option2的单项选择按钮了，其Caption属性为Option1。如果选择“是，就会创立一组控件数组，此局部内容会在第8课学习。六个单项选择按钮创立好了，由于大小不一或摆放不齐影响外观，这就引入了格式化控件的方法。建议教师让学生通过看书自己试一试。根据教材中的属性设置表设置对象的属性，教师只做简单提示。教师应告诉学生设置对象的名称属性要遵循一定的规那么，一般情况，不同的对象名称使用不同的前缀，这样从对象的名称上就可以区别出是哪一种控件。在单项选择按钮的单击事件中输入代码载入图片。

20、本课又一次用到了LoadPicture()函数，使用绝对路径载入图片不利于程序的共享交流，引入App.Path得到路径的方法。二、教学新课1理解单项选择按钮的可使用和不可使用是本课的难点。单项选择按钮是否被选中可以从它的Value属性值看出，如其值为true也就是1，那么其被选中，反之如其值为False也就是0，那么没被选中。所以在程序中如果实现单项选择按钮的选中状态，就可以为该控件的Value属性赋值为True或1，反之，在程序中想要实现复选框或单项选择按钮的未被选中状态，那么要为该控件的Value属性赋值为False或0。2绝对路径与相对路径是本课的难点。电脑中文件的路径就是找到文件的途径

21、，是由一个或多个目录名称和一个文件名称组成的列表，在Windows 操作系统中名称之间以反斜杠分隔。文件的路径分为绝对路径和相对路径。文件的绝对路径是指文件在硬盘上的真正路径。从该文件所在的磁盘根目录开始直到该文件所在的目录为止的路线上的所有目录名都要写出；文件的相对路径是指由当前目录开始直到该文件所在的目录为止的途径。考虑到实际教学活动中资源可能在网络效劳器上，不易写出绝对路径，另外如果使用绝对路径提交的作业执行时容易出错，不易教师检查作业，所以在本课中使用LoadPicture()函数载入图片提倡使用相对路径。3用App.Path得到相对路径是本课的重点也是难点。App.Path可得到工程

22、文件所在的目录，所以在使用LoadPicture()函数载入图片时，路径应写为：App.Path & “图片文件相对于工程文件的相对路径。4一般情况下VB程序中的初始化代码都写在窗体的载入事件Form_Load()或窗体的激活事件Form_Activate()中。运行程序后，首先触发窗体的载入事件Form_Load()，然后就执行窗体的激活事件Form_Activate()，所以我们常常在窗体的这两个事件中初始化程序。三DIY和“创作天地1完成“乒乓球、“田径、“体操、“羽毛球和“排球单项选择按钮的鼠标单击事件的过程代码。Private Sub OptPaiqiu_Click() Im

23、gGame.Picture = LoadPicture(App.Path & ".排球.gif")End SubPrivate Sub OptPingpang_Click() ImgGame.Picture = LoadPicture(App.Path & ".乒乓球.gif")End SubPrivate Sub OptTianjing_Click() ImgGame.Picture = LoadPicture(App.Path & ".田径.gif")End SubPrivate Sub OptTicao_

24、Click() ImgGame.Picture = LoadPicture(App.Path & ".体操.gif")End SubPrivate Sub OptYumao_Click() ImgGame.Picture = LoadPicture(App.Path & ".羽毛球.gif")End Sub2完成其它三个单项选择按钮的初始化。OptTicao.Value = False '使单项选择按钮"体操"不被选中 OptYumao.Value = False '使单项选择按钮"羽毛球&q

25、uot;不被选中OptPaiqiu.Value = False '使单项选择按钮"排球"不被选中3使用单项选择按钮制作VB程序显示各国国旗。分析：运行程序后图像框内什么都不显示，五个单项选择按钮都不被选中。当单击单项选择按钮时，图像框中显示相应国家的国旗。素材准备：将各国国旗图片文件存放于“第3课 国旗文件夹中。设计用户界面。在窗体上添加一个标签、一个图像框和五个单项选择按钮，调整大小，摆放适宜位置。设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1窗体1名称FrmGuoqiCaption各国国旗Image1图像框1名称ImgGuoqiStretchT

26、rue图形适应图像框尺寸OptionBotton1命令按钮1名称OptChinaCaption中国OptionBotton2命令按钮2名称OptSingaporCaption新加坡OptionBotton3命令按钮3名称OptDanishCaption丹麦OptionBotton4命令按钮4名称OptBritainCaption英国OptionBotton5命令按钮5名称OptCanadaCaption加拿大编写事件过程代码Private Sub OptBritain_Click() ImgGuoqi.Picture = LoadPicture(App.Path & ".国旗

27、英国.gif")End SubPrivate Sub OptCanada_Click() ImgGuoqi.Picture = LoadPicture(App.Path & ".国旗加拿大.gif")End SubPrivate Sub OptChina_Click() ImgGuoqi.Picture = LoadPicture(App.Path & ".国旗中国.gif")End SubPrivate Sub OptDanish_Click() ImgGuoqi.Picture = LoadPicture(App.Path

28、& ".国旗丹麦.gif")End SubPrivate Sub OptSingapor_Click() ImgGuoqi.Picture = LoadPicture(App.Path & ".国旗新加坡.gif")End Sub保存、运行并调试程序。将程序以“显示国旗为名保存到“第2课 显示国旗下。三、课堂练习：完本钱节课的“精彩比赛程序四、课堂小结：End 语句不调用 Unload、QueryUnload、或 Terminate 事件或任何其它 Visual Basic 代码，只是生硬地终止代码执行。窗体和类模块中的 Unload、Q

29、ueryUnload、和 Terminate 事件代码未被执行。类模块创立的对象被破坏，由 Open 语句翻开的文件被关闭，并且释放程序所占用的内存。其它程序的对象引用无效。五、布置作业：课后稳固练习本节课所学内容六、教学后记复 备课 题：第5课 五环旗下课 题五环旗下授课时间课 型新授课课时安排一课时教学目标知识与技能：了解VB中方法的概念。学会用Circle方法画圆过程与方法：教师演示学生自主探究情感态度与价值观：养学生的创新意识，帮助孩子们更好地体验情绪与表情的变化，获得更丰富的情感体验教学重点用Circle方法画圆是本课的重点教学难点VB中方法的概念是本课的难点教具学具准 备学生电脑教

30、学方法演示与学生上机教 学 过 程一、导入新课：教师可以提问学生或直接告诉学生奥运五环什么样，有什么寓意，给学生观看、演示样例，直接引入本课。鼓励学生按照教材中的样例设计用户界面，依据属性设置表来设置对象属性。由于本课中“五环旗下程序涉及到五环的圆心位置和半径大小的问题，所以建议教师提醒学生，要按照教材中提供的数据来设置窗体的宽和高。和学生一起分析运行程序时，当单击“绘制五环命令按钮，在窗体上就要显示奥运五环，所以在“绘制五环命令按钮的单击事件中要输入画五个圆的代码，引入在窗体上如何画圆，用什么方法画圆，窗体上的坐标系又是什么样的。能够在窗体上画圆了，又怎样去设置圆的颜色和粗细呢？教师提出问题

31、，引入RGB函数设置颜色的方法，引入利用DrawWidth属性设置线条粗细的方法。依次画完五个圆以后，让学生体会程序是一步一步按顺序执行各条语句的，这就是程序的顺序结构。在结构化程序设计中，有三种根本结构，分别是顺序结构、分支结构和循环结构二、教学新课1本课中第一次接触到了命令按钮的Style属性，由此属性值可以控制设置该控件的外观。当Style属性值为0-Standard时，该命令按钮的外观是标准Windows风格的；当Style属性值为1-Graghical时，该命令按钮的外观是图形的，可以带有自定义图片。2VB中方法的概念是本课的难点。VB中的方法是附属于对象的行为和动作，也可以将其理解

32、为指示对象动作的命令。一般调用形式：对象方法名。3了解VB中的坐标系是本课的难点。教师要先向学生介绍窗体上的坐标系，引导学生把数学中坐标系的知识迁移过来，并提醒学生还要和数学中的平面直角坐标系加以区分：在VB中无论横轴还是纵轴都只有正值，没有负值；纵轴的正方向是向下的。4用Circle方法画圆是本课的重点。画圆前，第一要先确定在哪个对象上绘图，第二确定圆心位置，第三确定半径，如果要绘制彩色的圆，那么第四就要再加上一个设定颜色的参数。Circle方法可以画圆、椭圆、圆弧，其调用形式如下：l 画圆：对象. Circle(x，y)，半径，颜色说明：这里的对象是指即将在上面使用Circle方法绘图的对

33、象，如窗体、图片框等。省略对象默认指在窗体使用Circle方法绘图。x，y是圆心。l 画椭圆：对象.Circle(x，y)，半径，颜色，纵横比l 画圆弧：对象.Circle(x，y)，半径，颜色，起始角，终止角说明：起始角和终止角均为弧度数。三DIY和“创作天地1教材中绘制奥运五环程序填空：DrawWidth = 6 '窗体的DrawWidth属性值设为6 Circle (1620, 1780), 550, RGB(1, 128, 195) '蓝色圆Circle (2260, 2300), 550 , RGB(253, 176, 48) '绘制半径为550的黄色圆Cir

34、cle (2910, 1780), 550 , RGB(0，0，0) '绘制以2910，1780为圆心的黑色圆Circle (3550, 2300), 550 , RGB(0, 165, 81) '绘制以3550，2300为圆心的绿色圆Circle (4200，1780), 550 , RGB(237, 25, 47) '绘制以4200，1780为圆心的红色圆2修改半径的大小和各圆的圆心位置，自己试着画出五环。代码略。3在窗体上绘制5个同心圆。分析：当单击“同心圆命令按钮时，在窗体上绘制色彩不同的五个同心圆；单击“取消命令按钮时，去除窗体上的图形；当单击“退出命令按钮时

35、，退出程序。设计用户界面。在窗体中添加三个命令按钮。设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1窗体名称FrmTongxinyuanCaption同心圆BackColor白色 &H00FFFFFF&Height4725窗体的高Width4995窗体的宽CommandBotton1命令按钮1名称CmdDrawCaption同心圆Style1-Graghical设置Style属性后，命令按钮的颜色就显示出来了BackColor橙色 &H0080C0FF&CommandBotton2命令按钮2名称CmdCancelCaption取消Style1-G

36、raghicalBackColor绿色 &H0000C000&CommandBotton3命令按钮3名称CmdExitCaption退出Style1-GraghicalBackColor黄色 &H0080FFFF&编写事件过程代码Private Sub CmdDraw_Click() FrmTongxinyuan.DrawWidth = 3 Circle (2500, 2000), 400, RGB(1, 128, 195) '绘制蓝色圆 Circle (2500, 2000), 700, RGB(253, 176, 48) '绘制黄色圆 Cir

37、cle (2500, 2000), 1000 '绘制黑色圆 Circle (2500, 2000), 1300, RGB(0, 165, 81) '绘制绿色圆 Circle (2500, 2000), 1600, RGB(237, 25, 47) '绘制红色圆End SubPrivate Sub CmdCancel_Click() ClsEnd SubPrivate Sub CmdExit_Click() EndEnd Sub保存、运行并调试程序。以“同心圆为名，将程序保存到“第5课 同心圆中。四教学补充VB之所以广受欢送 ，除了方便的控件、美观的图形用户界面之外，还在

38、于其强大的绘图功能支持，VB的绘图功能使得应用程序的画面更加多姿多彩。在VB中既可以使用形状控件、直线控件制作规那么图形 ，又可以使用内建的绘图方法绘制图形 ，还可以使用窗体、图片框、图像框有关控件来处理各种格式的图形文件。在本课中介绍了一些常用的绘图方法，现在我们来了解一下VB中的图形控件。 1Shape控件此控件可以制作矩形、正方形、椭圆形、圆形、圆角矩形、圆角正方形6种形状。具体形状可由其Shape属性来决定。Shape属性：形状 BorderColor属性：边界色BorderWidth属性：边界宽度BorderStyle属性：边界类型FillColor属性：填充色FillStyle属性

39、：填充类型2Line控件用来制作直线。主要属性有：BoderColor属性：边界色BorderWidth属性：边界宽度BorderStyle属性：边界类型X1、X2、Y1、Y2属性：端点坐标三、课堂练习：完本钱节课的“五环旗下的程序五、布置作业：课后看书稳固本节课内容六、教学后记复 备课 题：第6课 喜迎奥运课 题喜迎奥运授课时间课 型新授课课时安排一课时教学目标知识与技能：1. 了解图片框的根本功能及用法。2. 了解图片框与图像框的区别。3. 学会用Scale方法设置坐标系。4. 掌握用Line方法画线。过程与方法：1、理解程序的循环结构。2、掌握循环语句For/Next情感态度与价值观：提

40、高学生的信息素养和信息能力。 培养学生分工合作，协作学习的能力。 培养学生发现问题，自主探究的学习方法和创新精神。教学重点用Line方法画直线是本课的重点教学难点1、用Scale方法改变坐标系是本课的难点2、随机函数Rnd的使用是本课的难点3、循环语句For/Next语句的使用是本课的重点也是难点。教具学具准 备学生电脑教学方法讲授法、演示法教 学 过 程一、导入新课：回忆上节课，学习了画圆的方法，引导学生思考在VB中一定也有画线的方法，这节课就会学习到，运行样例，告诉学生在“第5课中“奥运五环的“五环画在了窗体上，而本课的迎宾礼花灯将绘制在图片框上二、教学新课1图片框在本课中第一次出现，学生

41、容易与图像框混淆。图片框可以显示位图、图标以及JPEG 或 GIF 文件的图形。如果控件缺乏以显示整幅图像，那么裁剪图像以适应控件的大小。为了使 图片框能够自动调整大小以显示整幅图形，可将它的 AutoSize 属性设置成 True。图片框和窗体一样是一个容器，其中可以再放置其它控件，也可以在其中输入文字，绘制点、直线、图形等，也可以改变它的坐标系，这一功能是图像框达不到的。2用Line方法画直线是本课的重点，用Line方法画直线在第5课的“视野拓展中介绍过。l 画线的格式：Linex1，y1x2，y2，颜色说明：以x1，y1为起点x2，y2为终点画直线。l 用Line方法还可以画矩形，格式：

42、Linex1，y1x2，y2，颜色，BF说明：如果加上参数B，表示以x1，y1和x2，y2为对顶点画空心矩形；如果同时再加上参数F，那么说明画一个实心矩形。3用Scale方法改变坐标系是本课的难点，学生不容易理解。在第5课中曾经遇到过VB中的坐标系，这和我们在数学中用到坐标系有些不同，如果能让这个坐标系变化一下，与数学中的坐标系一样，那样会使我们在作图和看图时都会感到很方便。在讲授Scale方法时，建议教师可让学生在窗体激活事件Activate事件中或其它适宜事件中，画两条直线和一个点，代码如下：Private Sub Form_Activate() PicHua1.Line (-1500,

43、0)-(1500, 0), RGB(255, 0, 0) PicHua1.Line (0, 1500)-(0, -1500), RGB(255, 0, 0)Width = 10 PicHua1.PSet (0, 0), RGB(0, 255, 0)End Sub运行程序，学生们会发现两条线的交点上有个绿点，就是坐标原点0，0，现在在此段程序前加一句话：PicHua1.Scale (-1500, 1500)-(1500, -1500)两条直线的位置就是新的坐标系的坐标轴，绿点就是坐标原点。再让学生修改Scale方法中的参数，改变新的坐标轴和坐标原点的位置，体会Scale方法的使用。4循环语句Fo

44、r/Next语句的使用是本课的重点也是难点。在使用循环时一定要先明确循环体，也就是哪一组操作需要重复执行；第二要查看是否有循环变量；第三要明确循环变量的初值和终值；第四要写好步长值，也就是循环变量每次增加或减少多少，如果不写步长值，那么默认步长值为1；最后要查看For/Next语句书写格式有没有错误，哪里需要空格，哪里需要换行都不能有错。5随机函数Rnd的使用是本课的难点。Rnd 函数根据系统时钟随机返回一个小于1大于0的数值。200*Rnd将随机产生一个数范围在0，200，200*Rnd+100随机产生一个数范围在100，300。例：要产生A，B之间的一个随机数。不包括A和B，A和B是不相等

45、的两个整数，且B大于A。B-A*Rnd+AB-A*Rnd+A就是一个A，B之间的一个随机数。在VB程序中如果没有Randomize函数，Rnd将使用第一次调用Rnd函数时的种子值产生的随机数。为了使系统每次都改变随机种子值，在调用Rnd函数前需要使用Randomize函数。6计时器控件的功能和用法是本课的重点也是难点。计时器每隔一定的时间间隔就触发一次Timer事件，我们可以根据这个特性依照时间控制某些操作。计时器的Interval属性决定它多长时间触发一次它的Timer事件，Interval属性的取值范围是1到65536，单位为毫秒。例如：Interval属性值为100，那么计时器的Time

46、r事件每隔0.1秒被触发一次；“喜迎奥运程序中计时器控件的Interval属性值为100，那么计时器的Timer事件每隔0.1秒被触发一次，也就是可以让写有字幕标签控件的Left属性每隔0.1秒改变一次，从而形成移动的效果。1在Timer事件中添加代码，使滚动字幕不断变换颜色。代码如下：LblWelcome.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)2请用For / Next循环语句修改第5课中的同心圆。分析：运行程序，在窗体上绘制出十一个绿色同心圆包括圆心点。设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1窗体名称FrmT

47、ongxinyuanCaption同心圆BackColor白色 &H00FFFFFF&Height5805窗体的高Width5865窗体的宽编写事件过程代码Private Sub Form_Activate() Scale (-12, 12)-(12, -12) '修改坐标系 DrawWidth = 2 '设置画笔粗细为2 c = RGB(0, 255, 0) '设置颜色为绿色 For i = 0 To 10 '循环十一次画圆 Circle (0, 0), i, c Next iEnd Sub保存、运行并调试程序。以“同心圆为名，将程序保存到“第

48、6课 同心圆中。3请用计时器控件制作欢欢骑车的程序。分析：运行程序时欢欢从窗体右上角骑车到左下角。素材准备：将欢欢骑车图片“存放于“第6课 欢欢骑车中设计用户界面。在窗体中添加一个标签、一个图像框和一个计时器。设置对象属性设置其属性如下表。对象属性名属性值属性说明Form1窗体1名称FrmHuanhuanCaption欢欢骑车BackColor白色 &H00FFFFFF&Height4620窗体的高Width5415窗体的宽Label1标签1名称LblHuanhuanBackColor白色 &H00FFFFFF&Caption欢欢，加油！Font隶书、一号字Fo

49、reColor红色 &H000000FF&Image1图像框1名称ImgHuanhuanPicture选择“自行车.JPG图片StretchTrueTimer1计时器1Interval100编写事件过程代码Private Sub Timer1_Timer() ImgHuanhuan.Left = ImgHuanhuan.Left - 50 ImgHuanhuan.Top = ImgHuanhuan.Top + 30End Sub保存、运行并调试程序。以“欢欢骑车为名，将程序保存到“第6课 欢欢骑车中。三、课堂练习：完成“喜迎奥运的程序设计四、课堂小结：五、布置作业：课后稳固“喜

50、迎奥运的程序六、板书设计：第6课 喜迎奥运七、教学后记复 备课 题：第7课 走进奥运课 题走进奥运授课时间课 型新授课课时安排一课时教学目标知识与技能：学会多窗体的设置。能在一个窗体为另一个窗体设置属性过程与方法：教师演示讲授、学生自主探究情感态度与价值观：培养学生发现问题，自主探究的学习方法和创新精神教学重点在某一个窗体的程序代码里为另一个窗体中的控件设置属性的格式教学难点在某一个窗体的程序代码里为另一个窗体中的控件设置属性的格式教具学具准 备学生电脑教学方法讲授法、演示法教 学 过 程一、导入新课：建议通过为本教材最后的“奥运知识系统设计系统屏保界面的需求，引入本课的学习内容，首先引入的是

51、为工程添加一个屏幕保护界面的操作和主窗体的设置，然后在原窗体设计密码检验程序，最后通过建立两窗体之间的联系的需求引入了在一个窗体中为另一个窗体设置属性的方法和卸载窗体的方法。通过“密码检验的程序设计引入了程序的分支结构和条件语句的运用，这也是本课的重点内容二、教学新课在本课中窗体的添加和主窗体的设置都是通过在工程窗口单击右键在快捷菜单中的选中相应的选项来完成的，在教学中可以引导学生通过工程菜单中的选项来实现窗体的添加和主窗体的设置。在程序中通过显示和隐藏方法来实现窗体的显示切换的。在“密码检验的程序设计中通过输入密码正误的判断来选择输出不同的提示内容，引入了条件语句和条件表达的规那么。Rem

52、密码检验Private Sub cmdok_Click()If txtpw.Text = "123456" ThenMsgBox ("欢送进入奥运知识系统！")ElseMsgBox ("请输入正确的密码！")txtpw.Text = "" '将密码输入的文本框清成空白txtpw.SetFocus '焦点落在密码输入的文本框上 End IfEnd Sub以上程序中的txtpw.SetFocus方法是为了让程序运行后将光标落在文本框txtpw中的，这是为方便用户输入密码而设置的。本程序比拟简单便于学生对条件语句执行顺序的理解,所以在学习时要把程序的分支结构的条件语句作为教学的主要内容。在建立“密码检验窗体与“屏保窗体的联系的时候主要是让学生学会l 卸载当前窗体的命令Unload Me 卸载当前窗体并不结束但当前工程的执行，如果在该方法后执行显示某一窗体的命令那么可调出该窗体执