新课标青岛版初中信息技术八年级下册（Vb程序设计）部分精品教案

《新课标青岛版初中信息技术八年级下册（Vb程序设计）部分精品教案》由会员分享，可在线阅读，更多相关《新课标青岛版初中信息技术八年级下册（Vb程序设计）部分精品教案（15页珍藏版）》请在装配图网上搜索。

1、新课标青岛版初中信息技术八年级下册（Vb程序设计）部分精品教案一、 八年级下册教学内容安排建议八年级下册有两部分知识：1、算法思想初步；2、VB程序设计。教学中建议重点学习VB程序设计，基于两点原因：1、教学时间；2、软件的通适性。但应介绍算法基础知识，建议用1课时完成，可参考第1单元第1课算法基础知识安排教学，知识点有：算法概念，表示方法：自然语言、流程图、计算机语言。其中算法的流程图是重要的，要求学生能画流程图，老师举例得出算法的三种结构：顺序结构、分支结构、循环结构。二、 VB程序教学体验1、 启动VB2、VB界面认识：三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件） 一箱：工具箱（

2、类比画图、Flash、PhotoShop）。重点认识:labelcommandbuttontextbox 一窗体设计器： 三窗口：资源管理器窗口、属性窗口、窗体布局窗口3、界面的变动：通过视图工具栏调整4、制作一个“问好.vbp”，体验：（1）如何添加控件（2）属性如何改变（3）代码如何编写通过制作这个程序，我们体验到了VB程序开发的一般步骤 三、 VB程序教学的三维目标1、 知识目标2、 技能目标3、 情感态度和价值观目标四、 教材中有关VB的8个实例分析第课大熊猫的两个愿望（四个教学环节）一、 认识VB工作界面（解决两个问题：界面的组成部分有几个？如何修改？）1、启动：类比其它软件的启动方

3、法1、程序菜单；2、双击快捷方式；3、右击2、界面：（1）三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件） 一箱：工具箱（类比画图、Flash、PhotoShop）。重点认识:labelcommandbuttontextbox 一窗体设计器： 三窗口：资源管理器窗口、属性窗口、窗体布局窗口 （2）修改二、运行程序（解决怎样运行程序的问题）1、让学生打开文件，启动程序（三种方法：工具栏按钮、菜单、F5）2、在运行状态时，引导学生观察标题栏的变化，得到工程的三种状态：设计、运行、中断（break）三、修改界面（解决控件的五个问题：怎么加？怎么删？怎么移？怎么缩放？怎么改？）1、控件的添加与删除

4、（1）添加（两种方法）：单击控件画出。引导学生回忆“画图”程序如何画几何图形，完成控件添加 双击控件（2）如何删除几何图形（三种方法）：Delete右击菜单2、控件的移动、缩放：3、修改控件的属性值：（1）教学建议：引导学生发现修改方法（自学探究）（2）难点：添加一个commandbutton控件，修改其标题、文本字体、背景色。教学中注意区别：控件名称（name）与控件标题（caption）的区别：控件名称具有唯一性，可用身份证号码与人的姓名类比。（可以分别修改控件名称和控件标题试一试）Commandbutton控件背景色在改变时，应将其style属性修改为（1-Graphical）模式。添加

5、一个label控件，修改fontforecolorbackcolorbackstyle设置控件属性：Label1.CaptionLabel1.BackStyleLabel1.ForeColorCommand1.CaptionCommand1.BackColorCommand1.Style属性与属性值什么是属性？属性值又是什么？在VB中属性是用来描述对象特性的。比如，在现实生活中我们常常会问：“这位先生的姓名是什么？”，“年龄多少？”。我们会回答这位先生叫张三，年龄30岁。这种问题放在VB中就变成：这位先生的“姓名属性”是什么？，“年龄属性”是什么？其中，“张三”就是名字属性的值，“30”就是年

6、龄属性的值。此外，为了描述一个人，光有前面两项属性是不够的，往往还需要另外一些属性，如性别、身高、体重、学历等等。这时要注意的是，每一种对象所具有的属性是不同的，比花与人两种不同的对象，人具有“学历”属性而花没有，花具有“香味”属性而人没有。 在VB中每种对象有若干个属性。例如命令按钮有名称、标题以及按钮的尺寸等，不同的对象可能有不同的属性类型和属性值，用户可以根据需要对它们赋予各种不同的值。 四、修改代码体验（解决三个问题：分清有几个模型架？每个模型架表示的哪个对象的什么事件？修改的是哪个对象的什么属性？）VB过程的组成1、观看代码窗口的构成：（双击控件就可添加过程的模型架）以Command

7、1_Click()过程的模型架为例Private Sub Command1_Click()Label2.Caption = 我希望能天天有竹子可吃！Label2.ForeColor = RGB(244, 12, 56)End Sub解读：Private：私有过程，表示该过程只能在本窗体文件中被调用，应用程序中的其他窗体或模块不可调用它。 Sub：过程开始的标志。 Command1_Click()：过程名，由两部分组成，对象名和事件名，两者之间用下划线连接。 EndSub：过程结束的标志。 2、修改：（1）双击“愿望一”按钮，打开代码窗口，修改label1.caption（2）试探修改label

8、a.forecolor=RGB（244，12，56）颜色值。进入代码窗口的方法（1）双击当前窗体 （2）单击“工程”窗口的“查看代码”按钮 （3）在菜单栏中选择“视图”菜单中的“代码窗口”命令1、愿望一Command1的Click事件代码Private Sub Command1_Click()Label2.Caption = 我希望能天天有竹子可吃！Label2.ForeColor = RGB(244, 12, 56)End Sub2、愿望二Command2的Click事件代码Private Sub Command2_Click()Label2.Caption = 我希望能安静地生活！Labe

9、l2.ForeColor = RGB(244, 12, 56)End Sub五、实践创新用好评价表六、总结（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）开发VB应用程序的步骤 总结上述几个例题，开发一个VB应用程序有三个步骤： 1、设计用户界面 2、属性设置 3、编写事件过程代码 第2课 自我介绍（七个环节）一、 分析问题（解决两个问题：对程序整体的感知、分析有几个事件）让学生运行“自我介绍.frm”，运行过程中思考几个问题：1、在文本框中输入个人信息后，单击“显示”按钮，会在最下面文本框中显示什么内

10、容？什么字体被选中？2、单击另一个字体单选按钮，自我介绍的内容有什么变化？二、界面设计（解决三个问题：控件的添加、调整、设置属性）1、分析界面上有几种控件？分别是什么？“自我介绍”程序中用到的控件图标名称数量2、添加控件（学会添加控件的两种方法）3、调整布局（学会一次设置多个控件的方法）4、设置对象属性（1）、如何设置文本框多行显示(text1.multiline=true)（2）、如何使文本框置空(选中文本框，text1.text=”)（3）、如何使单选按钮选中（optionbutton1.value=true）（4）、如何修改label的字体属性（修改label.font）设置控件属性：L

11、abel1.CaptionLabel1.FontText1.TextText1.MultilineCommand1.CaptionOption1.CaptionOption1.Value三、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）1、退出2、三个optionbutton(text6.font.size=”14”,text6.font=”楷体_GB2312”)3、续行符“_”的用法4、字符串运算符“+”1、显示Command1的Click事件代码Private Sub Command1_Click()Option1.SetFocusText6.Fo

12、nt = 宋体Text6.FontSize = 14Text6.Text = 姓名： + Text1.Text + ；Email： + Text2.Text + _；爱好： + Text3.Text + ；优点： + Text4.Text + ；需要改进的地方： + Text5.TextEnd Sub2、退出Command2的Click事件代码Private Sub Command2_Click()EndEnd Sub3、Option1的Click事件代码Private Sub Option1_Click()Text6.Font = 宋体Text6.FontSize = 14Text6.Tex

13、t = 姓名： + Text1.Text + ；Email： + Text2.Text + _；爱好： + Text3.Text + ；优点： + Text4.Text + ；需要改进的地方： + Text5.TextEnd Sub4、Option2的Click事件代码Private Sub Option2_Click()Text6.Font = 黑体Text6.FontSize = 14Text6.Text = 姓名： + Text1.Text + ；Email： + Text2.Text + _；爱好： + Text3.Text + ；优点： + Text4.Text + ；需要改进的地方

14、： + Text5.TextEnd Sub5、Option3的Click事件代码Private Sub Option3_Click()Text6.Font = 楷体_gb2312Text6.FontSize = 14Text6.Text = 姓名： + Text1.Text + ；Email： + Text2.Text + _；爱好： + Text3.Text + ；优点： + Text4.Text + ；需要改进的地方： + Text5.TextEnd Sub四、调试与运行（解决程序的修正问题）程序的三种状态：设计、运行、break五、保存文件保存窗体文件（*.frm）和保存工程文件(*.v

15、bp)六、生成可执行文件保存可执行文件（*.exe）:可执行文件有什么作用七、实践与创新八、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）1、属性设置和编写代码中的问题2、拓展：多余代码的去除第3课谜语大擂台（一）一、引入新课我们来做一个猜谜游戏，看哪位同学能用最快的时间猜出来。这个游戏的设计特点让学生总结一下： 三个CommandBotton“谜语”、“答案”、“退出” 单击事件发生后，程序运行结果怎样？如何制作这一程序呢？二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是

16、什么对象的何种属性？如何做？）程序有三个事件：谜语、答案、退出三个按钮的_Click事件三个事件改变的控件属性： 谜语：Text1 显示出现谜语的时间 Text2 显示现在时间 Text3 显示耗时 答案：Text2 将出现答案的时间定格 Text3 将从出谜语到显示答案的时间定格 Text4 显示答案 退出：退出程序分析：Textbox需要几个？ Lable需要几个？ Commandbutton需要几个？还要用到Timer控件，Image控件。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）用到的控件和属性设置（对于常用的Label、TextBox、CommandB

17、utton，基本的是两项：修改标题、美化）Label1.CaptionLabel1.FontLabel1.ForeColor Text1.FontText1.ForeColorImage1.PictureImage1.StretchTimer1.InterValIimer1.EnabledCommand1.Caption四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）1、谜语Command1的Click事件代码Private Sub Command1_Click()Text1.Text = Time$Timer1.Enabled = TrueLabe

18、l5.Caption = 高山不见一寸土， + vbCrLf + 平地不见半亩田， + vbCrLf + 江河湖海没有水， + _ vbCrLf + 世界各国在眼前。 + vbCrLf + vbCrLf + (打一学习工具)End Sub2、答案Command2的Click事件代码Private Sub Command2_Click()Timer1.Enabled = FalseText4.Text = 地图End Sub3、退出Command3的Click事件代码Private Sub Command3_Click()End Sub4、Timer1控件的代码Private Sub Timer

19、1_Timer()Text2.Text = CStr(Time$)Text3.Text = CStr(Val(Text3.Text) + 1) + 秒End Sub教师讲授timer1程序控件代码以及在程序中的作用。教师引导val()、cstr()、timer$的使用方法，vbcrlf常数的作用。五、修正调试（解决程序的修正问题）增加一个清除按扭，将使谜语、计时信息都返回到初始态。分组讨论，小组合作完成任务。六、实践与创新（大显身手）设计一个程序，用来显示系统时间。分组讨论，互助合作，完成任务七、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸

20、，这个程序的进一步完善，或其它方面的应用。总结获）1、编写程序过程中用到的控件的属性设置及用法2、用到的函数val()、cstr()、timer$的使用方法，vbcrlf常数的作用3、字符串的概念，字符串合并运算。拓展：程序的缺陷第课 节约用水算水价一、导入新课为了提高节水意识，促进人们形成良好的用水习惯，物价部门对居民用水实行阶梯式水价：若用水量小于或等于12吨，价格为2.85元/吨；若用水量大于12吨，大于12吨的部分，价格为：2.852元/吨。现在我们就替物价部门设计一个这样的计算水费的程序。二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？

21、）分析收取水费问题，画出其流程图。学生分组讨论画出流程图。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性：根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。设置控件属性：Label1.Caption Text1.Text Text1.Locked Command1.Caption Form1.Caption 四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）代码编写，调试，运行。学生参考课本，自主学习探究。教师引导学生理解If语句的用法

22、，引导学生理解赋值语句，总结VB中常见的数据类型。教师准备几个If条件语句小程序，让学生去读程序，引导学生加深对If 语句的理解。1、计算Command1的Click事件代码Private Sub Command1_Click()Dim x, y As Singlex = Val(Text1.Text)If x = 12 Theny = 2.85 * xElsey = 12 + 2.85 * 2 * xEnd IfText2.Text = CStr(y)End Sub2、清空Command2的Click事件代码Private Sub Command2_Click()Text1.Text = T

23、ext2.Text = End Sub3、退出Command3的Click事件代码Private Sub Command3_Click()EndEnd Sub4、窗体Form1的Load事件代码Private Sub Form_Load()Label3.Caption = 说明： & vbCr & 小于或等于12吨，价格为2.85元/吨； & vbCrLf & _大于12吨的部分，价格为：2.852元/吨。End Sub五、实践与创新设计一个程序“我怎么样？”输入学生成绩，如果成绩大于等于96分，就输出“very good!”，如果成绩小于96分，就输出“dont give up”。分组讨论，

24、互助合作，完成任务六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到分支结构If语句3、用到的函数、数据类型、变量、定义变量、变量赋值、算术运算符第五课 谜语大擂台（二）一、导入新课（解决一个问题：做什么？）本单元第3课我们设计过一个猜谜游戏，但那个游戏不够完善。让学生说出不完善的地方。这节课我们开发一个改进程序，教师把做好的程序展示给同学们看。二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？

25、如何做？）教师演示程序，学生理解这个谜语玩的过程。分组讨论用流程图描述程序。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性：根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。设置控件属性：Label1.CaptionText1.TextText1.VisibleCommand1.CaptionForm1.Caption四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）学生参考课本自主学习探究，输入程序运行调试。完成任务的同学当老师小助手

26、辅导其他同学。教师引导学生读程序，理解Select语句的用法、三个函数Int(),Rnd() msgbox()的用法。教师总结分支结构If语句和Select语句的用法，区别。两者可替代。教师准备两个If 和Select语句的小程序，让学生读程序，看哪组同学说出正确结果，加深对两个分支结构语法的理解。1、谜语Command1的Click事件代码Private Sub Command1_Click()Dim x As Integerx = Int(1 + 3 * Rnd()Text2.Text = CStr(x)Select Case xCase 1Label1.Caption = 哥俩一般高，

27、& vbCr & 每天三出操， & vbCr & _团结互助好， & vbCr & 人人都需要。 & vbCr & vbCr & （打一生活用具）Case 2Label1.Caption = 身体细又长， & vbCr & 肚里黑心肠， _& vbCr & 尖嘴多灵巧， & vbCr & 写字画画它帮忙。 & vbCr & vbCr & （打一学习用具）Case 3Label1.Caption = 两脚尖尖， & vbCr & 一走一站， _& vbCr & 看看脚印， & vbCr & 尽是圈圈。 & vbCr & vbCr & （打一学习用具）End SelectEnd Sub2、退出Co

28、mmand3的Click事件代码Private Sub Command3_Click()EndEnd Sub3、确认Command2的Click事件代码Private Sub Command2_Click()Dim x As Integerx = Val(Text2.Text)Select Case xCase 1If Text1.Text = 筷子 ThenMsgBox 对了！你真聪明！, vbOKOnly, 祝贺ElseMsgBox 不对！请再试一次！, vbOKOnly, 很遗憾End IfCase 2If Text1.Text = 铅笔 ThenMsgBox 对了！你真聪明！, vbO

29、KOnly, 祝贺ElseMsgBox 不对！请再试一次！, vbOKOnly, 很遗憾End IfCase 3If Text1.Text = 圆规 ThenMsgBox 对了！你真聪明！, vbOKOnly, 祝贺ElseMsgBox 不对！请再试一次！, vbOKOnly, 很遗憾End IfEnd SelectEnd Sub4、谜底Command4的Click事件代码Private Sub Command4_Click()Dim x As Integerx = Val(Text2.Text)Select Case xCase 1MsgBox 筷子, vbOKOnly, 答案Case 2M

30、sgBox 铅笔, vbOKOnly, 答案Case 3MsgBox 圆规, vbOKOnly, 答案End SelectEnd Sub五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到分支结构Select语句，并与If 语句的区别，两种语句的替换用法。3、程序中用到的Int(),Rnd() msgbox()函数。第6课 会计小助理一、导入新课（解决一个问题：做什么？）算盘是我

31、国古代伟大发明之一，由于它的独特优势今天而仍然成为会计人员的必修课，他们经常用算盘练习计算从1开始连续加到某个整数的和，他们计算的结果是否正确？现在我们设计一个程序求“从1连续加到某个整数的和”，来验证打算盘的准确度。二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）师生讨论分析问题，用流程图描述“会计小助手”程序。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性：根据程序界面，在属性窗口中设置每个控件的属性值。设置控件属性：Label1.CaptionTe

32、xt1.TextText1.LockedCommand1.CaptionForm1.Caption四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）学生参考课本自主学习探究，for next语句，累加器z=z+x的用法. 把原程序修改为1到100之间奇数的和。分组讨论，看哪个小组的同学先做出来。合小组交流合作完成任务。1、求和Command1的Click事件代码Private Sub Command1_Click()Dim x, y, z As Longy = Val(Text1.Text)z = 0For x = 1 To yz = z + xNex

33、t xText2.Text = CStr(z)End Sub2、清空Command2的Click事件代码Private Sub Command2_Click()Text1.Text = Text2.Text = End Sub3、退出Command3的Click事件代码Private Sub Command3_Click()EndEnd Sub五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）设计一个程序，求从10加到1000的和六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）1、编写

34、程序过程中用到的控件的属性设置及用法 2、程序中用的到循环结构for next语句。第7课 欲与珠峰试比高一、导入新课（解决一个问题：做什么？）珠穆朗玛峰海拨8844.43米，如果你将一张纸不断地对折，经过若干次的对折就能高于珠穆朗玛峰的高度，对折多少次就能做到呢？今天我们就开发这样一个程序，来计算一下需要对折的次数。二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）师生讨论分析问题，画出程序流程图。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性：根据程序

35、界面，在属性窗口中设置每个控件的属性值。设置属性：Label1.CaptionText1.TextText1.LockedText1.BackColorCommand1.Caption四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）学生参考课本自主学习探究，分组讨论Do Loop语句的用法。1、对折Command1的Click事件代码Private Sub Command1_Click()Dim i As IntegerDim h1, h2 As Singleh1 = Val(Text1.Text)h2 = 8844.43 * 10000If h1

36、= h2Text2.Text = CStr(i)End Sub2、退出Command2的Click事件代码Private Sub Command2_Click()EndEnd Sub五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）从1连续累加到某个最小的数，使它们的和不小于10000.六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到循环结构do loop 语句用法。第8课 我的媒体播放器一、导入新课（解决一个问题：做什么？

37、）在计算机上你们用什么软件播放歌曲，用什么软件播放VCD视频？我们利用VB来制作一个既能播放歌曲又能听歌的播放器。二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）教师展示做好的播放器。师生讨论要使用的7个控件。三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）1、构建界面：学生操作，添加控件，完成界面设计。2、设置对象属性。四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）学生自主学习，分组讨论参考课本来完成。完成任务的同学当老师小助手辅导其他同学。教师引导学生理解Commond

38、ialog控件、MMcontrol控件的使用。1、打开Command1的Click事件代码Private Sub Command1_Click()MMControl1.Command = closeCommonDialog1.ShowOpenIf Option1.Value = True Then MMControl1.DeviceType = If Option1.Value = True Then MMControl1.DeviceType = WaveAudioIf Option1.Value = True Then MMControl1.DeviceType = MMControl1.

39、FileName = CommonDialog1.FileNameMMControl1.Command = openMMControl1.hWndDisplay = Picture1.hWndMMControl1.Command = playEnd Sub2、退出Command2的Click事件代码Private Sub Command2_Click()EndEnd Sub3、Form1的DblClick事件代码Private Sub Form_DblClick()MMControl1.Command = closeMMControl1.Shareable = TrueEnd Sub4、For

40、m1的加载事件代码Private Sub Form_Load()CommonDialog1.Filter = mp3|*.mp3End Sub5、Option1的Click事件代码Private Sub Option1_Click()CommonDialog1.Filter = mp3|*.mp3End Sub6、Option2的Click事件代码Private Sub Option2_Click()CommonDialog1.Filter = wav|*.wavEnd Sub7、Option1的Click事件代码Private Sub Option3_Click()CommonDialog1

41、.Filter = mpg|*.mpgEnd Sub五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）利用CommonDialog控件，调出Font设置对话框。并评价。六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）编写程序过程中用到的控件的属性设置及用法Commondialog控件、MMcontrol控件、Pictrue控件和Frame控件一、标签属性1、Name，这是每个控件都有的，即设置标签对象的名称。2、Alignment，用于设置标签中文字显示的对齐方式。0、标签文字左对齐，

42、这是缺省值；1、标签文字向右对齐；2、标签居中。3、AutoSize，用于设置标签的外框尺寸是否随标题大小自动改变。True表示标签的尺寸将随标题的更改而更改。False表示不更改，这是默认值。建议一般情况下都尽量设置为True。注意：一旦设置了该属性为True，则前面的Alignment属性自动失效。道理相信不用我说大家也一定会明白。4、BackColor，上一章已经说过，就是设置背景颜色。5、BordStyle，用于设置背景颜色是否透明显示。0为以透明方式显示，1是不以透明方式显示（缺省值）。一般情况下建议设置为0，这样就不会因为别人的电脑设置不同而显示出不用。6、BorderStyle，

43、用于设置标签的边框形式，当为0时表示不含边框，这是默认值，1显示为立体下陷的固定边框。7、Caption，这是标签的最重要属性了，因为它的作用就是显示要表达的文字，即标题。8、ForeColor，设置前景色。通过设置这个属性，标签显示才能多姿多彩。9、Font，设置标签字体。10、WordWrap，决定标签控件是否扩大以显示标签文字。二、文本框属性1、Name，这是每个控件的基本属性，用来设置文本框对象的名称。2、Alignment，用于设置文本框中文字显示的对齐方式。0、标签文字左对齐，这是缺省值；1、标签文字向右对齐；2、标签居中。3、BackColor，就是设置背景颜色。4、ForeCo

44、lor，设置前景色。5、MultiLine，设置文本框是否允许多行文本，如果设置为True，则允许多行文本输入，False为不允许（默认值）。一般情况下，多数文本框是应用于单行输入，如输入口令、姓名、简短信息等等，但如果是大篇文章输入的话，如制作文本编辑器就应该设置为True。注意：文本框是有大小限制的，如果超过64K的话就会出错。6、PasswordChar，用于设置替代用户输入的密码字符，通常用于密码输入。一般情况下多数设置为“*”号，缺省值为空。如果你想让用户输入密码的话，可要记得设置该属性哦。7、ScrollBars，用于设置文本框是否含有滚动条。共有四个值：0为不含滚动条（默认值），

45、1为水平滚动条，2为垂直滚动条，3为水平、垂直滚动条都有。一般与MultiLine配合使用。8、MaxLength，用于设置文本框中可以容纳的字符数，缺省值为0，表示无限制，如果是其他整数值，则表示文本框最多可以容纳的字符数。9、BorderStyle，用于设置文本框的边框形式，默认值为1，表示有边框，0为无边框，这时跟标签差不多了吧。10、Text，这是文本框最重要的属性，也就是文本框里面的文本内容。大部分利用文本框编程的都是利用这个属性来进行编程。按钮(Command)属性1、Name，用来标识按钮的名称。一般建议用Cmd+用途的英文单词来起名，如确定按钮就起名：CmdOK，这样容易理解，

46、并且也利于自己编程。2、Caption，标题，主要作用就是给大家一个简短的按钮作用说明。3、Default，是否将当前按钮设置成窗体中的缺省按钮。如果一旦设置为True，则其他按钮的Default属性都会自动设置为False。这时候，一旦按回车，则该按钮会被优先触发。4、Cancel，是否将当前按钮设置成窗体中的取消命令按钮。如果一旦设置为True，则当程序运行时，按下Esc就会触发该按钮的Click事件。5、Enabled，设置按钮是否允许触发事件。如果有时候你不想让按钮执行你在Click事件中添加的代码，你可以将Enabled设置成False就可以啦。6、BackColor，设置背景颜色。

47、我想不少新手一定会产生疑问，为什么我设置了背景颜色，按钮仍然是原来的灰色。答案其实很简单，因为你另外一个属性还没有设置好，那么这个属性是什么呢？答案就是：Style。7、Style，设置按钮的外观是标准的Windows风格还是图形风格。0为标准风格（默认值），1为图形风格。现在相信不用我说你们也一定会明白了吧，你只有将Style设置成1，你设置的BackColor属性才起作用。那么我们能不能在按钮上添加图片呢？答案是肯定的，因为 Visual Basic 已经提供了一个设置图片的属性。那就是：Picture属性。8、Picture，用来设置按钮上显示的图片。注意：这里与BackColor一样，

48、Style属性必须先设置成1才能看到效果。9、Visible，设置按钮是否可视。如果你不想让按钮执行你在Click事件中添加的代码，并且又不想将Enabled设置成False，你可以将Visible设置成False就可以啦。这样连按钮都无法看到，看你怎么点。事件只要在设计窗体中双击按钮，就会自动弹出Click事件，那就是按钮默认的单击事件。注意，按钮与其他控件不同之处：它是没有DblClick事件的，也就是没有鼠标双击事件。1、Click事件，当用鼠标单击按钮时触发。2、MouseMove事件，当鼠标在按钮上移动鼠标时触发该事件。在这里你可以添加代码作相应的提示。当然你也可以用ToolTipT

49、ext属性来作提示的。但那要停留一下才出现。而在MouseMove事件中你完全可以即刻显示提示了。试一下下面的代码吧。先在窗体上添加一个按钮及一个标签，然后在添加以下代码：Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.Caption = 你现在正将鼠标放在按钮上。End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.Caption = 请你将鼠标在按钮上移动一下试试。End Sub一、导入新课（解决一个问题：做什么？）二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）四、编写代码（解决两个问题：添加对象的事件，修改对象的属性。代码怎样写？）五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）