新课标青岛版初中信息技术八年级下册（Vb程序设计）精品教
案
一、 八年级下册教学内容安排建议
八年级下册有两部分知识：1、算法思想初步；2、VB程序设计。教学中建议重点学习VB程序设计，基于两点原因：1、教学时间；2、软件的通适性。但应介绍算法基础知识，建议用1课时完成，可参考第1单元第1课算法基础知识安排教学，知识点有：算法概念，表示方法：自然语言、流程图、计算机语言。其中算法的流程图是重要的，要求学生能画流程图，老师举例得出算法的三种结构：顺序结构、分支结构、循环结构。 二、 VB程序教学体验 1、 启动VB
2、VB界面认识：三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件）
一箱：工具箱（类比画图、Flash、PhotoShop）。重点认识:label\\commandbutton\extbox 一窗体设计器：
三窗口：资源管理器窗口、属性窗口、窗体布局窗口 3、界面的变动：通过视图工具栏调整 4、制作一个“问好.vbp”，体验： （1）如何添加控件 （2）属性如何改变 （3）代码如何编写
通过制作这个程序，我们体验到了VB程序开发的一般步骤 三、 VB程序教学的三维目标 1、 知识目标 2、 技能目标 3、 情感态度和价值观目标 四、 教材中有关VB的8个实例分析
第１课 大熊猫的两个愿望（四个教学环节）
一、 认识VB工作界面（解决两个问题：界面的组成部分有几个？如何修改？） 1、启动：类比其它软件的启动方法1、程序菜单；2、双击快捷方式；3、右击 2、界面：（1）三栏：标题栏、菜单栏、工具栏（可类比学过的工具软件）
一箱：工具箱（类比画图、Flash、PhotoShop）。重点认识:label\\commandbutton\extbox 一窗体设计器：
三窗口：资源管理器窗口、属性窗口、窗体布局窗口 （2）修改
二、运行程序（解决怎样运行程序的问题）
1、让学生打开文件，启动程序（三种方法：工具栏按钮、菜单、F5） 2、在运行状态时，引导学生观察标题栏的变化，得到工程的三种状态：设计、运行、中断（break） 三、修改界面（解决控件的五个问题：怎么加？怎么删？怎么移？怎么缩放？怎么改？） 1、控件的添加与删除 （1）添加（两种方法）：单击控件画出。引导学生回忆“画图”程序如何画几何图形，完成控件添加
双击控件 （2）如何删除几何图形（三种方法）：Delete\\右击\\菜单
2、控件的移动、缩放： 3、修改控件的属性值：
（1）教学建议：引导学生发现修改方法（自学探究）
（2）难点：添加一个commandbutton控件，修改其标题、文本字体、背景色。教学中注意区别： ○1控件名称（name）与控件标题（caption）的区别：控件名称具有唯一性，可用身份证号码与人的姓名类比。（可以分别修改控件名称和控件标题试一试）
○2Commandbutton控件背景色在改变时，应将其style属性修改为（1---Graphical）模式。 添加一个label控件，修改font\\forecolor\\backcolor\\backstyle 设置控件属性： Label1.Caption Label1.BackStyle Label1.ForeColor
Command1.Caption Command1.BackColor Command1.Style
属性与属性值 什么是属性？属性值又是什么？在VB中属性是用来描述对象特性的。比如，在现实生活中我们常常会问：“这位先生的姓名是什么？”，“年龄多少？”。我们会回答这位先生叫张三，年龄30岁。这种问题放在VB中就变成：这位先生的“姓名属性”是什么？，“年龄属性”是什么？其中，“张三”就是名字属性的值，“30”就是年龄属性的值。此外，为了描述一个人，光有前面两项属性是不够的，往往还需要另外一些属性，如性别、身高、体重、学历等等。这时要注意的是，每一种对象所具有的属性是不同的，比花与人两种不同的对象，人具有“学历”属性而花没有，花具有“香味”属性而人没有。
在VB中每种对象有若干个属性。例如命令按钮有名称、标题以及按钮的尺寸等，不同的对象可能有不同的属性类型和属性值，用户可以根据需要对它们赋予各种不同的值。
四、修改代码体验（解决三个问题：分清有几个模型架？每个模型架表示的哪个对象的什么事件？修改的是哪个对象的什么属性？） VB过程的组成
1、观看代码窗口的构成：（双击控件就可添加过程的模型架） 以Command1_Click()过程的模型架为例
Private Sub Command1_Click()
Label2.Caption = \"我希望能天天有竹子可吃！\" Label2.ForeColor = RGB(244, 12, 56) End Sub 解读：
Private：私有过程，表示该过程只能在本窗体文件中被调用，应用程序中的其他窗体或模块不可调用它。
Sub：过程开始的标志。
Command1_Click()：过程名，由两部分组成，对象名和事件名，两者之间用下划线连接。 End Sub：过程结束的标志。 2、修改：
（1）双击“愿望一”按钮，打开代码窗口，修改label1.caption （2）试探修改labela.forecolor=RGB（244，12，56）颜色值。 进入代码窗口的方法 （1）双击当前窗体
（2）单击“工程”窗口的“查看代码”按钮
（3）在菜单栏中选择“视图”菜单中的“代码窗口”命令 1、愿望一Command1的Click事件代码 Private Sub Command1_Click()
Label2.Caption = \"我希望能天天有竹子可吃！\" Label2.ForeColor = RGB(244, 12, 56) End Sub
2、愿望二Command2的Click事件代码 Private Sub Command2_Click()
Label2.Caption = \"我希望能安静地生活！\" Label2.ForeColor = RGB(244, 12, 56) End Sub
五、实践创新 用好评价表
六、总结（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 开发VB应用程序的步骤
总结上述几个例题，开发一个VB应用程序有三个步骤： 1、设计用户界面 2、属性设置
3、编写事件过程代码
第2课 自我介绍（七个环节）
一、 分析问题（解决两个问题：对程序整体的感知、分析有几个事件）
让学生运行“自我介绍.frm”，运行过程中思考几个问题：
1、在文本框中输入个人信息后，单击“显示”按钮，会在最下面文本框中显示什么内容？什么字体被选中？
2、单击另一个字体单选按钮，自我介绍的内容有什么变化？ 二、界面设计（解决三个问题：控件的添加、调整、设置属性）
1、分析界面上有几种控件？分别是什么？
“自我介绍”程序中用到的控件 图标 名称 数量 2、添加控件（学会添加控件的两种方法） 3、调整布局（学会一次设置多个控件的方法） 4、设置对象属性 （1）、如何设置文本框多行显示(text1.multiline=true) （2）、如何使文本框置空(选中文本框，text1.text=””) （3）、如何使单选按钮选中（optionbutton1.value=true） （4）、如何修改label的字体属性（修改label.font） 设置控件属性：
Label1.Caption Label1.Font
Text1.Text
Text1.Multiline
Command1.Caption
Option1.Caption Option1.Value
三、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
1、退出
2、三个optionbutton(text6.font.size=”14”,text6.font=”楷体_GB2312”) 3、续行符“_”的用法 4、字符串运算符“+”
1、显示Command1的Click事件代码 Private Sub Command1_Click() Option1.SetFocus Text6.Font = \"宋体\" Text6.FontSize = \"14\"
Text6.Text = \"姓名：\" + Text1.Text + \"；Email：\" + Text2.Text + _
\"；爱好：\" + Text3.Text + \"；优点：\" + Text4.Text + \"；需要改进的地方：\" + Text5.Text End Sub
2、退出Command2的Click事件代码 Private Sub Command2_Click() End End Sub
3、Option1的Click事件代码 Private Sub Option1_Click() Text6.Font = \"宋体\" Text6.FontSize = \"14\"
Text6.Text = \"姓名：\" + Text1.Text + \"；Email：\" + Text2.Text + _
\"；爱好：\" + Text3.Text + \"；优点：\" + Text4.Text + \"；需要改进的地方：\" + Text5.Text End Sub
4、Option2的Click事件代码 Private Sub Option2_Click() Text6.Font = \"黑体\" Text6.FontSize = \"14\"
Text6.Text = \"姓名：\" + Text1.Text + \"；Email：\" + Text2.Text + _
\"；爱好：\" + Text3.Text + \"；优点：\" + Text4.Text + \"；需要改进的地方：\" + Text5.Text End Sub
5、Option3的Click事件代码 Private Sub Option3_Click() Text6.Font = \"楷体_gb2312\" Text6.FontSize = \"14\"
Text6.Text = \"姓名：\" + Text1.Text + \"；Email：\" + Text2.Text + _
\"；爱好：\" + Text3.Text + \"；优点：\" + Text4.Text + \"；需要改进的地方：\" + Text5.Text End Sub
四、调试与运行（解决程序的修正问题）
程序的三种状态：设计、运行、break 五、保存文件
保存窗体文件（*.frm）和保存工程文件(*.vbp) 六、生成可执行文件
保存可执行文件（*.exe）:可执行文件有什么作用 七、实践与创新
八、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 1、属性设置和编写代码中的问题 2、拓展：多余代码的去除
第3课谜语大擂台（一）
一、引入新课
我们来做一个猜谜游戏，看哪位同学能用最快的时间猜出来。
这个游戏的设计特点让学生总结一下： 三个CommandBotton“谜语”、“答案”、“退出” 单击事件发生后，程序运行结果怎样？如何制作这一程序呢？
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
程序有三个事件：谜语、答案、退出三个按钮的_Click事件 三个事件改变的控件属性：
谜语：Text1 显示出现谜语的时间 Text2 显示现在时间 Text3 显示耗时
答案：Text2 将出现答案的时间定格
Text3 将从出谜语到显示答案的时间定格 Text4 显示答案 退出：退出程序 分析：Textbox需要几个？ Lable需要几个？ Commandbutton需要几个？还要用到Timer控件，Image控件。
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
用到的控件和属性设置（对于常用的Label、TextBox、CommandButton，基本的是两项：修改标题、美化） Label1.Caption Label1.Font
Label1.ForeColor
Text1.Font
Text1.ForeColor
Image1.Picture Image1.Stretch
Timer1.InterVal Iimer1.Enabled
Command1.Caption
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
1、谜语Command1的Click事件代码 Private Sub Command1_Click() Text1.Text = Time$ Timer1.Enabled = True
Label5.Caption = \"高山不见一寸土，\" + vbCrLf + \"平地不见半亩田，\" + vbCrLf + \"江河湖海没有水，\" + _ vbCrLf + \"世界各国在眼前。\" + vbCrLf + vbCrLf + \"(打一学习工具)\" End Sub
2、答案Command2的Click事件代码 Private Sub Command2_Click() Timer1.Enabled = False Text4.Text = \"地图\" End Sub
3、退出Command3的Click事件代码 Private Sub Command3_Click() End Sub
4、Timer1控件的代码
Private Sub Timer1_Timer() Text2.Text = CStr(Time$)
Text3.Text = CStr(Val(Text3.Text) + 1) + \"秒\" End Sub
教师讲授timer1程序控件代码以及在程序中的作用。
教师引导val()、cstr()、timer$的使用方法，vbcrlf常数的作用。 五、修正调试（解决程序的修正问题）
增加一个清除按扭，将使谜语、计时信息都返回到初始态。分组讨论，小组合作完成任务。 六、实践与创新（大显身手）
设计一个程序，用来显示系统时间。分组讨论，互助合作，完成任务
七、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获） 1、编写程序过程中用到的控件的属性设置及用法
2、用到的函数val()、cstr()、timer$的使用方法，vbcrlf常数的作用 3、字符串的概念，字符串合并运算。 拓展：程序的缺陷
第４课 节约用水算水价
一、导入新课
为了提高节水意识，促进人们形成良好的用水习惯，物价部门对居民用水实行阶梯式水价：若用水量小于或等于12吨，价格为2.85元/吨；若用水量大于12吨，大于12吨的部分，价格为：2.85×2元/吨。现在我们就替物价部门设计一个这样的计算水费的程序。
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
分析收取水费问题，画出其流程图。 学生分组讨论画出流程图。
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性：
根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。 设置控件属性：
Label1.Caption
Text1.Text Text1.Locked
Command1.Caption
Form1.Caption
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
代码编写，调试，运行。
学生参考课本，自主学习探究。
教师引导学生理解If语句的用法，引导学生理解赋值语句，总结VB中常见的数据类型。 教师准备几个If条件语句小程序，让学生去读程序，引导学生加深对If 语句的理解。 1、计算Command1的Click事件代码
Private Sub Command1_Click() Dim x, y As Single x = Val(Text1.Text) If x <= 12 Then y = 2.85 * x Else
y = 12 + 2.85 * 2 * x End If
Text2.Text = CStr(y) End Sub
2、清空Command2的Click事件代码
Private Sub Command2_Click() Text1.Text = \" \" Text2.Text = \" \" End Sub
3、退出Command3的Click事件代码
Private Sub Command3_Click() End End Sub
4、窗体Form1的Load事件代码
Private Sub Form_Load()
Label3.Caption = \"说明：\" & vbCr & \"小于或等于12吨，价格为2.85元/吨；\" & vbCrLf & _
\"大于12吨的部分，价格为：2.85×2元/吨。\" End Sub
五、实践与创新
设计一个程序“我怎么样？”
输入学生成绩，如果成绩大于等于96分，就输出“very good!”，如果成绩小于96分，就输出“don’t give up”。分组讨论，互助合作，完成任务
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到分支结构If语句
3、用到的函数、数据类型、变量、定义变量、变量赋值、算术运算符
第五课 谜语大擂台（二）
一、导入新课（解决一个问题：做什么？）
本单元第3课我们设计过一个猜谜游戏，但那个游戏不够完善。让学生说出不完善的地方。 这节课我们开发一个改进程序，教师把做好的程序展示给同学们看。
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
教师演示程序，学生理解这个谜语玩的过程。分组讨论用流程图描述程序。 三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性：
根据程序界面，在属性窗口中设置每个控件的属性值。采用自主探究和合作学习形式。 设置控件属性： Label1.Caption
Text1.Text Text1.Visible
Command1.Caption
Form1.Caption
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
学生参考课本自主学习探究，输入程序运行调试。完成任务的同学当老师小助手辅导其他同学。
教师引导学生读程序，理解Select语句的用法、三个函数Int(),Rnd() msgbox()的用法。 教师总结分支结构If语句和Select语句的用法，区别。两者可替代。 教师准备两个If 和Select语句的小程序，让学生读程序，看哪组同学说出正确结果，加深对两个分支结构语法的理解。
1、谜语Command1的Click事件代码
Private Sub Command1_Click() Dim x As Integer
x = Int(1 + 3 * Rnd()) Text2.Text = CStr(x) Select Case x Case 1
Label1.Caption = \"哥俩一般高，\" & vbCr & \"每天三出操，\" & vbCr & _
\"团结互助好，\" & vbCr & \"人人都需要。\" & vbCr & vbCr & \"（打一生活用具）\" Case 2
Label1.Caption = \"身体细又长，\" & vbCr & \"肚里黑心肠，\" _
& vbCr & \"尖嘴多灵巧，\" & vbCr & \"写字画画它帮忙。\" & vbCr & vbCr & \"（打一学习用具）\"
Case 3
Label1.Caption = \"两脚尖尖，\" & vbCr & \"一走一站，\" _
& vbCr & \"看看脚印，\" & vbCr & \"尽是圈圈。\" & vbCr & vbCr & \"（打一学习用具）\" End Select End Sub
2、退出Command3的Click事件代码
Private Sub Command3_Click() End End Sub
3、确认Command2的Click事件代码
Private Sub Command2_Click() Dim x As Integer x = Val(Text2.Text) Select Case x Case 1
If Text1.Text = \"筷子\" Then
MsgBox \"对了！你真聪明！\祝贺\" Else
MsgBox \"不对！请再试一次！\很遗憾\" End If Case 2
If Text1.Text = \"铅笔\" Then
MsgBox \"对了！你真聪明！\祝贺\" Else
MsgBox \"不对！请再试一次！\很遗憾\" End If Case 3
If Text1.Text = \"圆规\" Then
MsgBox \"对了！你真聪明！\祝贺\" Else
MsgBox \"不对！请再试一次！\很遗憾\" End If End Select End Sub
4、谜底Command4的Click事件代码
Private Sub Command4_Click() Dim x As Integer x = Val(Text2.Text) Select Case x Case 1
MsgBox \"筷子\答案\" Case 2
MsgBox \"铅笔\答案\" Case 3
MsgBox \"圆规\答案\" End Select End Sub
五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
1、编写程序过程中用到的控件的属性设置及用法
2、程序中用的到分支结构Select语句，并与If 语句的区别，两种语句的替换用法。
3、程序中用到的Int(),Rnd() msgbox()函数。
第6课 会计小助理
一、导入新课（解决一个问题：做什么？）
算盘是我国古代伟大发明之一，由于它的独特优势今天而仍然成为会计人员的必修课，他们经常用算盘练习计算从1开始连续加到某个整数的和，他们计算的结果是否正确？现在我们设计一个程序求“从1连续加到某个整数的和”，来验证打算盘的准确度。
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
师生讨论分析问题，用流程图描述“会计小助手”程序。
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性：
根据程序界面，在属性窗口中设置每个控件的属性值。 设置控件属性： Label1.Caption
Text1.Text Text1.Locked
Command1.Caption
Form1.Caption
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
学生参考课本自主学习探究，for next语句，累加器z=z+x的用法.
把原程序修改为1到100之间奇数的和。分组讨论，看哪个小组的同学先做出来。合小组交流合作完成任务。
1、求和Command1的Click事件代码
Private Sub Command1_Click() Dim x, y, z As Long y = Val(Text1.Text) z = 0
For x = 1 To y z = z + x Next x
Text2.Text = CStr(z)
End Sub
2、清空Command2的Click事件代码
Private Sub Command2_Click() Text1.Text = \" \" Text2.Text = \" \" End Sub
3、退出Command3的Click事件代码
Private Sub Command3_Click() End End Sub
五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）
设计一个程序，求从10加到1000的和
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到循环结构for next语句。
第7课 欲与珠峰试比高
一、导入新课（解决一个问题：做什么？）
珠穆朗玛峰海拨8844.43米，如果你将一张纸不断地对折，经过若干次的对折就能高于珠穆朗玛峰的高度，对折多少次就能做到呢？今天我们就开发这样一个程序，来计算一下需要对折的次数。
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
师生讨论分析问题，画出程序流程图。
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性：
根据程序界面，在属性窗口中设置每个控件的属性值。 设置属性： Label1.Caption
Text1.Text Text1.Locked Text1.BackColor
Command1.Caption
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
学生参考课本自主学习探究，分组讨论Do Loop语句的用法。 1、对折Command1的Click事件代码 Private Sub Command1_Click() Dim i As Integer Dim h1, h2 As Single h1 = Val(Text1.Text) h2 = 8844.43 * 10000 If h1 <= 0 Then
MsgBox \"你输入的数据有误\警告\"
Exit Sub End If i = 0 Do
h1 = h1 * 2 i = i + 1
Loop Until h1 >= h2 Text2.Text = CStr(i) End Sub
2、退出Command2的Click事件代码 Private Sub Command2_Click() End End Sub
五、实践与创新（运用中体验成功，进一步激发兴趣。用所获） 从1连续累加到某个最小的数，使它们的和不小于10000.
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
1、编写程序过程中用到的控件的属性设置及用法 2、程序中用的到循环结构do loop 语句用法。
第8课 我的媒体播放器
一、导入新课（解决一个问题：做什么？）
在计算机上你们用什么软件播放歌曲，用什么软件播放VCD视频？我们利用VB来制作一个既能播放歌曲又能听歌的播放器。
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
教师展示做好的播放器。师生讨论要使用的7个控件。
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？）
1、构建界面：学生操作，添加控件，完成界面设计。 2、设置对象属性。
四、编写代码（解决两个问题：要有几个对象的什么事件？每个事件要修改的是哪些对象的什么属性？）
学生自主学习，分组讨论参考课本来完成。完成任务的同学当老师小助手辅导其他同学。
教师引导学生理解Commondialog控件、MMcontrol控件的使用。 1、打开Command1的Click事件代码 Private Sub Command1_Click() MMControl1.Command = \"close\" CommonDialog1.ShowOpen
If Option1.Value = True Then MMControl1.DeviceType = \"\"
If Option1.Value = True Then MMControl1.DeviceType = \"WaveAudio\" If Option1.Value = True Then MMControl1.DeviceType = \"\" MMControl1.FileName = CommonDialog1.FileName MMControl1.Command = \"open\"
MMControl1.hWndDisplay = Picture1.hWnd MMControl1.Command = \"play\" End Sub
2、退出Command2的Click事件代码 Private Sub Command2_Click() End End Sub
3、Form1的DblClick事件代码 Private Sub Form_DblClick() MMControl1.Command = \"close\" MMControl1.Shareable = True End Sub
4、Form1的加载事件代码 Private Sub Form_Load()
CommonDialog1.Filter = \"mp3|*.mp3\" End Sub
5、Option1的Click事件代码 Private Sub Option1_Click()
CommonDialog1.Filter = \"mp3|*.mp3\" End Sub
6、Option2的Click事件代码 Private Sub Option2_Click()
CommonDialog1.Filter = \"wav|*.wav\" End Sub
7、Option1的Click事件代码 Private Sub Option3_Click()
CommonDialog1.Filter = \"mpg|*.mpg\" End Sub
五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）
利用CommonDialog控件，调出Font设置对话框。并评价。
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
编写程序过程中用到的控件的属性设置及用法
Commondialog控件、MMcontrol控件、Pictrue控件和Frame控件
一、标签 属性
1、Name，这是每个控件都有的，即设置标签对象的名称。
2、Alignment，用于设置标签中文字显示的对齐方式。0、标签文字左对齐，这是缺省值；1、标签文字向右对齐；2、标签居中。
3、AutoSize，用于设置标签的外框尺寸是否随标题大小自动改变。True表示标签的尺寸将随标题的更改而更改。False表示不更改，这是默认值。建议一般情况下都尽量设置为True。 注意：一旦设置了该属性为True，则前面的Alignment属性自动失效。道理相信不用我说大家也一定会明白。
4、BackColor，上一章已经说过，就是设置背景颜色。
5、BordStyle，用于设置背景颜色是否透明显示。0为以透明方式显示，1是不以透明方式显示（缺省值）。一般情况下建议设置为0，这样就不会因为别人的电脑设置不同而显示出不用。 6、BorderStyle，用于设置标签的边框形式，当为0时表示不含边框，这是默认值，1显示为立体下陷的固定边框。
7、Caption，这是标签的最重要属性了，因为它的作用就是显示要表达的文字，即标题。 8、ForeColor，设置前景色。通过设置这个属性，标签显示才能多姿多彩。 9、Font，设置标签字体。
10、WordWrap，决定标签控件是否扩大以显示标签文字。 二、文本框 属性
1、Name，这是每个控件的基本属性，用来设置文本框对象的名称。
2、Alignment，用于设置文本框中文字显示的对齐方式。0、标签文字左对齐，这是缺省值；1、标签文字向右对齐；2、标签居中。 3、BackColor，就是设置背景颜色。 4、ForeColor，设置前景色。
5、MultiLine，设置文本框是否允许多行文本，如果设置为True，则允许多行文本输入，False为不允许（默认值）。
一般情况下，多数文本框是应用于单行输入，如输入口令、姓名、简短信息等等，但如果是大篇文章输入的话，如制作文本编辑器就应该设置为True。 注意：文本框是有大小限制的，如果超过64K的话就会出错。
6、PasswordChar，用于设置替代用户输入的密码字符，通常用于密码输入。一般情况下多数设置为“*”号，缺省值为空。如果你想让用户输入密码的话，可要记得设置该属性哦。
7、ScrollBars，用于设置文本框是否含有滚动条。共有四个值：0为不含滚动条（默认值），1为水平滚动条，2为垂直滚动条，3为水平、垂直滚动条都有。一般与MultiLine配合使用。 8、MaxLength，用于设置文本框中可以容纳的字符数，缺省值为0，表示无限制，如果是其他整数值，则表示文本框最多可以容纳的字符数。
9、BorderStyle，用于设置文本框的边框形式，默认值为1，表示有边框，0为无边框，这时跟标签差不多了吧。
10、Text，这是文本框最重要的属性，也就是文本框里面的文本内容。大部分利用文本框编程的都是利用这个属性来进行编程。
按钮(Command) 属性
1、Name，用来标识按钮的名称。一般建议用Cmd+用途的英文单词来起名，如确定按钮就起名：CmdOK，这样容易理解，并且也利于自己编程。
2、Caption，标题，主要作用就是给大家一个简短的按钮作用说明。
3、Default，是否将当前按钮设置成窗体中的缺省按钮。如果一旦设置为True，则其他按钮的Default属性都会自动设置为False。这时候，一旦按回车，则该按钮会被优先触发。 4、Cancel，是否将当前按钮设置成窗体中的取消命令按钮。如果一旦设置为True，则当程序运行时，按下Esc就会触发该按钮的Click事件。
5、Enabled，设置按钮是否允许触发事件。如果有时候你不想让按钮执行你在Click事件中添加的代码，你可以将Enabled设置成False就可以啦。 6、BackColor，设置背景颜色。
我想不少新手一定会产生疑问，为什么我设置了背景颜色，按钮仍然是原来的灰色。答案其实很简单，因为你另外一个属性还没有设置好，那么这个属性是什么呢？答案就是：Style。 7、Style，设置按钮的外观是标准的Windows风格还是图形风格。0为标准风格（默认值），1为图形风格。
现在相信不用我说你们也一定会明白了吧，你只有将Style设置成1，你设置的BackColor属性才起作用。那么我们能不能在按钮上添加图片呢？答案是肯定的，因为 Visual Basic 已经提供了一个设置图片的属性。那就是：Picture属性。 8、Picture，用来设置按钮上显示的图片。
注意：这里与BackColor一样，Style属性必须先设置成1才能看到效果。
9、Visible，设置按钮是否可视。如果你不想让按钮执行你在Click事件中添加的代码，并且又不想将Enabled设置成False，你可以将Visible设置成False就可以啦。这样连按钮都无法看到，看你怎么点。 事件
只要在设计窗体中双击按钮，就会自动弹出Click事件，那就是按钮默认的单击事件。注意，按钮与其他控件不同之处：它是没有DblClick事件的，也就是没有鼠标双击事件。 1、Click事件，当用鼠标单击按钮时触发。
2、MouseMove事件，当鼠标在按钮上移动鼠标时触发该事件。在这里你可以添加代码作相应的提示。当然你也可以用ToolTipText属性来作提示的。但那要停留一下才出现。而在MouseMove事件中你完全可以即刻显示提示了。试一下下面的代码吧。 先在窗体上添加一个按钮及一个标签，然后在添加以下代码：
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = \"你现在正将鼠标放在按钮上。\" End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = \"请你将鼠标在按钮上移动一下试试。\" End Sub
一、导入新课（解决一个问题：做什么？）
二、分析问题（解决对程序感知的两个问题：程序有几个事件？分别改变的是什么对象的何种属性？如何做？）
三、界面设计（解决五个问题：控件的添、删、移、缩、设置属性。界面怎样做？） 四、编写代码（解决两个问题：添加对象的事件，修改对象的属性。代码怎样写？） 五、实践与创新（运用中体验成功，进一步激发兴趣。用所获）
六、总结拓展（解决两个问题：一是梳理总结：是帮助学生梳理本节所学知识，建构起新的知识体系；二是拓展延伸，这个程序的进一步完善，或其它方面的应用。总结获）
因篇幅问题不能全部显示，请点此查看更多更全内容