实验目的
1. 掌握VB中设置对象属性的两种方式。
2. 能够根据事件驱动的编程机制编写简单的程序代码。
3. 了解文本框、命令按钮、标签、定时器、形状控件的常用事件和属性。
4. 进一步熟悉VB集成开发环境的使用，掌握VB程序设计的一般步骤。
5. 进一步理解对象、事件、属性、事件驱动的编程机制等基本概念。
实验内容
一、模拟对话程序的设计
本程序用于模拟两个人的对话，当用鼠标单击“甲”命令按钮时，左边的文本框中显示出“How are you？”，当单击“乙”命令按钮时，右边的文本框中显示出“Fine，thank you.”。如图2-1所示。
1. 建立应用程序的用户界面
选中VB集成开发环境中的对象窗口，在窗体上添加两个文本框控件Text1、Text2，两个命令按钮控件Command1、Command2。
2. 设置对象的属性
本程序中共使用了5个对象，其中的窗体对象不需要设置什么属性，直接使用各属性的缺省值即可，其他需要设置的对象属性如下。
Ø 将Text1对象的Text属性设置为空
Ø 将Text2对象的Text属性设置为空
Ø 将Command1对象的Caption属性设置为“甲”
Ø 将Command2对象的Caption属性设置为“乙”
3. 编写程序代码
打开代码窗口，在其中编写程序代码如下。
PrivateSub Command1_Click()
Text2.Text= ""
Text1.Text = "How are you?"
EndSub
PrivateSub Command2_Click()
Text1.Text= ""
Text2.Text = "Fine,thank you."
EndSub
4. 运行程序
运行应用程序，若程序运行不正确，请返回到设计状态修改对象的属性或程序代码，直至程序运行正确。
5. 保存工程
单击工具栏中的“保存工程”按钮，可将我们设计的程序保存在磁盘上。保存该工程时，共保存了多少个文件，它们分别是什么类型的文件？
二、数字时钟程序的设计
设计一个数字时钟，该时钟上有一个命令按钮用于结束程序的运行，如图2-2所示。
1. 建立应用程序的用户界面
选中VB集成开发环境中的对象窗口，在窗体上添加1个标签控件Label1，1个命令按钮控件Command1和1个定时器控件Timer1。
2. 设置对象的属性
本程序中共使用了4个对象，需要设置的对象属性如下。
Ø 将窗体对象的Caption属性设置为“数字时钟”
Ø 将Timer1对象的Interval属性设置为1000，即每1秒触发1次Timer事件
Ø 将 Label1对象的Caption 属性设置为空，Font属性设置为“Arial、二号字”，Alignment属性设置为2（居中对齐）
Ø 将Command1对象的Caption属性设置为“退出”，Font属性设置为“宋体、四号字”
3. 编写程序代码
打开代码窗口，在其中编写程序代码如下。
PrivateSub Command1_Click()
End
EndSub
PrivateSub Timer1_Timer()
Label1.Caption= Time$
EndSub
4. 运行程序
运行应用程序，若程序运行不正确，请返回到设计状态修改对象的属性或程序代码，直至程序运行正确。
5. 保存工程
三、模拟进度条程序的设计
用2个Shape控件和一个定时器控件建立一个模拟进度条的应用程序，如图2-3所示。
1. 建立应用程序的用户界面
在窗体上添加1个定时器控件Timer1，两个形状控件Shape1、Shape2。
2. 设置对象的属性
本程序中共使用了4个对象，需要设置的对象属性如下。
Ø 将窗体对象的Caption属性设置为“进度条”
Ø 将Timer1对象的Interval属性设置为50，即每50毫秒触发1次Timer事件
Ø 将Shape1对象的BackColor 属性设置为白色，BackStyle 属性设置为1（不透明）
Ø 将Shape2对象的BackColor 属性设置为蓝色，BackStyle 属性设置为1。
3. 编写程序代码
打开代码窗口，在其中编写程序代码如下。
PrivateSub Timer1_Timer()
Shape2.Width= Shape2.Width + 50
If Shape2.Width >= Shape1.Width Then
Shape2.Width = Shape1.Width
Timer1.Interval = 0
End If
EndSub
4. 运行程序
运行应用程序，若程序运行不正确，请返回到设计状态修改对象的属性或程序代码，直至程序运行正确。
5. 保存工程