VisualBasic程序设计试验参考指导书资源采矿.doc

《Visual Basic》试验指导书
编制人:李雯静
资源工程系
二○○七年九月
Visual Basic试验指导书
Visual Basic试验指导书 (1
试验一:Visual Basic 简单程序设计及语言基础 (4
试验二: 命令按钮、文本框和标签 (7
试验三: 表示式、InputBox函数和MsgBox语句 (10
试验四: 选择结构 (13
试验五: 循环语句使用 (17
试验六: 单选框和复选框应用 (21
试验七: 组合框应用 (24
试验八: 图像框应用 (27
试验九: 定时器 (30
试验十: 滚动条 (33
试验十一: 数组 (36
试验十二: Function过程 (38
试验十三: Sub 过程 (40
试验十四: 菜单设计 (43
试验十五: 工具栏,状态栏设计 (46
试验十六: 绘图程序设计 (52
试验十七: 次序文件操作 (56
试验十八: 随机文件操作 (59
试验十九: 文件系统控件 (62
说明:试验1-16为试验上机必需完成试验,其中试验1-131个课时在课堂上完成,另外1个课时由学生自行课后补充完成。试验17-19为选做试验,可依据学生对本课程学习情况选择是否进行,在课后自行完成。
试验一:Visual Basic 简单程序设计及语言基础
一、试验目标
熟悉Visual Basic 6.0 集成开发环境;
了解和掌握类、对象和对象三要素(属性、方法和事件;
了解并掌握VB程序实施步骤。
二、试验内容
初步掌握Visual Basic 6.0 集成开发环境操作
能够建立一个简单VB小程序,实现类抽象,属性、方法和事件定义和简单响应
正确了解试验步骤,能够自己动手操作
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.开发一个简单程序
(1新建工程
方法1:在桌面上双击Microsoft Visual Basic 6.0快捷方法图标,系统进入Visual Basic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程。单击“打开”按钮, Visual Basic 6.0进入设计模式。图1.1所表示。

图1.1 新建工程对话框
方法2:单击“文件”菜单,选择“新建工程”菜单项,也可进入设计模式。
(2设计界面
在系统提供名为Form1窗体上进行界面设计。单击工具箱上标签(Label控件,在窗体上添加标签位置处按下鼠标左键,并拖动,调整虚框大小,松开鼠标,就将标签控件添加到窗体上。初始界面图1.2所表示。

图1.2初始界面
(3设置属性
如表1.1所表示。
表1.1 属性设置

设置属性后界面图1.3所表示。

图1.3设置属性后界面图1.4第一个程序
(4编写程序代码
Private Sub Form_Click(
Label1.Caption = "床前明月光"
End Sub
(5运行程序
运行VB程序有三种方法:①单击工具栏上“开启”按钮;②从“运行”菜单中选择“开启”菜单项;③按F5键。
比如,单击工具栏上“开启”按钮运行程序后,单击窗体,程序运行效果图1.4所表示。
(6保留程序
单击工具栏中“保留”按钮或单击“文件”菜单中“保留工程”菜单项,选择适宜保留路径,先保留窗体文件(比如窗体文件名为“试验一.frm”,然后保留工程文件(比如工程文件名为“试验一.vbp”。
2.将Visual Basic工程编译生成可实施文件
单击“文件”菜单中“生成试验一.exe”菜单项,就可生成可实施.exe文件。
退出Visual Basic集成开发环境,双击试验一.exe文件,则试验一.exe文件就可直接运行。
六、试验汇报要求
格式规范合理,内容包含创建一个简单Visual Basic 窗体程序。
类创建,类方法,属性和事件。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
怎样实现现实世界对象和计算机世界中类联络?
试验二: 命令按钮、文本框和标签
一、试验目标
1.掌握命令按钮、文本框和标签常见属性值设置方法。
2.学会使用命令按钮、文本框和标签在窗体上建立用户界面方法。
3.掌握命令按钮关键事件使用。
二、试验要求
利用命令按钮、文本框和标签判定密码是否正确
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面图2.1所表示。

图2.1 初始界面
2.设置属性
如表2.1所表示
表2.1 属性设置
对象属性属性值
Label1 Caption 请输入密码:
Command1 Caption 登陆
Command2 Caption 退出
Label2 Caption
Label2 BorderStyle 1-Fixed Single
Text1 Text
Text1 MaxLength 16
Text1 PasswordChar *
Form1 Caption 登陆界面
设置属性后界面图2.2所表示

图2.2 设置属性后界面
3.编写程序代码
Private Sub Command1_Click(
If Text1.Text=“goodbaby”Then
Label2.Caption=“欢迎使用本系统!”
Else
Label2.Caption=“密码错误!请重新输入密码!”
End If
End Sub
Private Sub Command2_Click(
End
End Sub
4.运行程序
(1在文本框中输入“goodbaby”,然后单击“登录”命令按钮,则在标签Label2中显示“欢迎使用本系
统!”。运行结果图2.3所表示。

图2.3 输入密码正确
2在文本框中输入“abc”,然后单击“登录”命令按钮,则在标签Label2中显示““密码错误!请重新输入密码!”。运行结果图2.4所表示。

图2.4 输入密码错误
六、试验汇报要求
格式规范合理,内容包含一个简单Visual Basic 程序,利用命令按钮、文本框和标签判定密码
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
VB程序窗体设计通常方法和过程?
试验三: 表示式、InputBox函数和MsgBox语句
一、试验目标
1.掌握表示式组成和怎样求表示式值。
2.掌握赋值语句使用。
3.掌握InputBox函数使用。
4.掌握MsgBox语句使用。
二、试验内容
设计一个VB程序,利用InputBox函数和MsgBox语句求圆周长。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加一个命令按钮。初始界面图3.1所表示。

图3.1 初始界面
2.设置属性
如表3.1所表示
表3.1 属性设置
对象属性属性值
Command1 Caption 计算圆周长
Form1 Caption InputBox和MsgBox举
例
设置属性后界面图3.2所表示

图3.2 设置属性后界面
3.编写程序代码
Private Sub Command1_Click(
Const pi = 3.14159
Dim r As Single, s As String, s2 As String
Dim zhouchang As Single
s = InputBox("请输入半径", "输入半径", 1
r = Val(s
zhouchang = 2 * pi * r
s2 = "半径=" + s + ",圆周长=" + Str(zhouchang
MsgBox s2, 64, "确定窗口"
End Sub
4.运行程序
单击工具栏上“开启”按钮,进入运行模式。单击“计算圆周长”命令按钮,在输入框中输入圆半径(比如,输入“2”,在消息框中输出半径和计算出来圆周长,图3.3所表示。

(a单击“计算圆周长”命令按钮

(b输入圆半径

(c 输出圆半径和周长
图3.3 计算圆周长
九、试验汇报要求
设计VB程序,能够正确计算结果。
六、试验注意事项
注意机房及计算机使用规范。
七、思索题目
VB控件使用方法和步骤?
试验四: 选择结构
一、试验目标
1.掌握逻辑表示式正确书写形式。
2.掌握单分支和双分支条件语句使用方法,熟悉If….Then…..Else语句。
3.掌握选择结构中多条件,多分支程序使用方法,熟悉Select Case语句
二、试验内容
1. 编写程序,利用文本框检验用户密码。提醒:能够用文本框PasswordChar属性来隐蔽用户输入字符。提醒:设密码是“123456”,利用文本框PasswordChar属性能够隐蔽用户输入字符。
2.输入一个数字(0-6,用中英文显示星期几。提醒:用多条件多分支选择语句Select
Case来处理。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
(1建立用户界面。
(2设置对象属性。

(3编写事件代码。
Private Sub Text1_KeyPress(KeyAscii As Integer
If KeyAscii = 13 Then '回车字符Ascii为13
If Text1.Text = "123456" Then
Label1.Caption = "欢迎使用本系统!"
Else
Label1.Caption = "对不起,密码错!"
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text
End If
End Sub
(4运行程序
程序输出界面图2-4-1,图2-4-2所表示。

图2-4-1 验证密码正确图2-4-2 验证密码不正确(1建立用户界面。参考图2-4-3所表示。

图2-4-3 界面设计
(2设置对象属性。
表2-4-2 属性设置

(3编写事件代码。
Private Sub Command1_Click( Dim n As Integer, m As String
n = Val(Text1.Text
Select Case n
Case 1
m = "星期一(Monday"
Case 2
m = "星期二(Tuesday"
Case 3
m = "星期三(Wednesday" Case 4
m = "星期四(Thursday"
Case 5
m = "星期五(Friday"
Case 6
m = "星期六(Saturday"
Case 0
m = "星期日(Sunday"
Case Else
m = "重新输入"
End Select
Label2.Caption = m
End Sub
程序输出界面图2-4-4所表示。

图2-4-4 程序运行结果
六、试验汇报要求
建立VB程序,正确实现试验所要求内容。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
VB程序步骤控制方法?
试验五: 循环语句使用
一、试验目标
1.掌握For语句使用。
2.掌握Do语句使用。
3.掌握怎样控制循环条件,预防死循环或不循环。
二、试验内容
正确掌握循环语句使用方法。
1. 利用For循环求S=1+(1+2+(1+2+3+...+(1+2+3+...+n值。提醒:本题是优异行内循环累加,再进行外循环累加,所以需要两个累加器.也可用一个循环来实现.括号内每累加一个数,就往S中累加一次。
2.输入一个正整数,利用“当型”循环判定是否素数。提醒:“素数”是除了1和该数本身,不能被任何整数整除数,判定一个自然数是否素数,只要依次2~n用做除数去除n,若n不能被其中任何一个数整除,则n为素数。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
(1建立用户界面。
(2设置对象属性。参考图2-5-1所表示。

图2-5-1 属性设置图2-5-2 程序运行结果(3编写事件代码。
Private Sub Command1_Click(
Dim n As Integer, i As Integer, j As Integer, s As Long n = Val(Text1.Text
j = 0: s = 0
For i = 1 To n
j = j + i
s = s + j
Next i
Label2.Caption = "和数S=" & Str(s
Text1.SelLength = Len(Text1.Text
End Sub
(4运行程序
程序输出界面图2-5-2所表示。
2.试验内容
(1建立用户界面。参考图2-5-3所表示。

图2-5-3 界面设计
(2设置对象属性。
(3编写事件代码。
Private Sub Text1_GotFocus(
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text
End Sub
Private Sub Command1_Click(
Dim n As Long
Select Case Val(Text1.Text
Case Is < 3
MsgBox "请输入一个大于2整数", vbInformation + vbOKOnly, "注意" Case Is >
MsgBox "该数太大", vbInformation + vbOKOnly, "注意"
Case Else
n = Val(Text1.Text
s = 0
i = 2
Do While i <= Sqr(n And s = 0
If n Mod i = 0 Then
s = 1
Else: i = i + 1
End If
Loop
If s = 0 Then
a = "是一个素数"
Else
a = "不是一个素数"
End If
Label1.Caption = Str(n & a
End Select
Text1.SetFocus
End Sub
(4运行程序
程序运行结果图2-5-4所表示。

图2-5-4 程序运行结果
六、试验汇报要求
正确创建VB程序,实现试验要求中内容。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
那些情况下会用到循环语句,循环语句和选择语句使用情况区分。DO语句和For语句异同?
试验六: 单选框和复选框应用
一、试验目标
1.掌握单选框,复选框定义。
2.掌握单选框,复选框区分。
二、试验内容
建立一个标准工程实现单选框和复选框组合应用。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加一个单选框组(包含三个单选框,一个复选框组(包含三个复选框,两个标签框。初始界面图2 -6-1所表示。

图2-6-1 初始界面图2-6-2 设置属性后界面
2.设置属性,如表2-6-1所表示。
表2-6-1

设置属性后界面图2-6-2所表示。
3.编写程序代码
Private Sub Check1_Click(index As Integer
Dim k As String
Dim i As Integer
k = ""
For i = 0 To 2
If Check1(i.Value = 1 Then
k = k & Check1(i.Caption & ""
End If
Next i
k = "你选择了" & k
Label2.Caption = k
End Sub
Private Sub Option1_Click(index As Integer
Dim i As Integer
For i = 0 To 2
If Option1(index.Visible = True Then
Label1.Caption = "你选择了" & Option1(index.Caption
End If
Next i
End Sub
4.运行程序
分别单选框中某一项和复选框中某几项,程序运行效果图2-6-3所表示。

图2-6-3 运行结果
六、试验汇报要求
建立VB程序,正确实现单选框和复选框应用
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
哪些情况下会使用单选框,哪些情况会使用复选框?
试验七: 组合框应用
一、试验目标
1.掌握组合框常见属性。
2.了解列表框和组合框区分。
二、试验内容
利用组合框实现内容添加和删除功效。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面图2-7-1所表示。

图2-7-1 初始界面图2-7-2 设置属性后界面
2.设置属性,如表2-7-1所表示。
表2-7-1 属性设置

设置属性后界面图
3.编写程序代码
Private Sub CmdAdd_Click( CboMsg.Text = TxtInfor.Text
End Sub
Private Sub CmdClear_Click(
CboMsg.Clear
End Sub
Private Sub CmdDel_Click(
Dim IntIndex As Integer
IntIndex = CboMsg.ListIndex
CboMsg.Text = ""
Call Del(IntIndex
End Sub
Private Sub CmdEnd_Click(
End
End Sub
Private Sub Form_Load(
With CboMsg
AddItem "武汉大学", 0
AddItem "武汉科技大学", 1
AddItem "武汉理工大学", 2
AddItem "华中科技大学", 3
ListIndex = 0
End With
End Sub
4.运行程序结果图2-7-3所表示

图2-7-3 程序运行结果
六、试验汇报要求
建立VB程序,正确实现组合框内容应用。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
组合框使用方法和环境。
试验八: 图像框应用
一、试验目标
1.熟悉图像框和图片框区分。
2.掌握图像框属性和特点
二、试验内容
将一个图形文件放到图像框中,改变图像框大小,观察图形是否随之改变。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加五个命令按钮和一个图像框。初始界面图2-8-1所表示。

图2-8-1 初始界面图2-8-2 设置属性后界面
2.设置属性,如表2-8-1所表示。
表2-8-1 属性设置

设置属性后界面图2-8-2所表示。
3.编写程序代码
Private Sub Command1_Click(
Image1.Left = Image1.Left - Image1.Width / 2
Image1.Width = Image1.Width * 2
End Sub
Private Sub Command2_Click(
Image1.Top = Image1.Top - Image1.Height / 2
Image1.Height = Image1.Height * 2
End Sub
Private Sub Command3_Click(
Image1.Left = Image1.Left - Image1.Width / 2
Image1.Width = Image1.Width * 2
Image1.Height = Image1.Height * 2
End Sub
Private Sub Command4_Click(
Image1.Left = 2225
Image1.Top = 666
Image1.Height = 1515
Image1.Width = 1515
End Sub
Private Sub Command5_Click(
End
End Sub
4.运行程序
分别单击五个命令按钮,程序运行效果图2-8-3 ~ 2-8-6所表示。

图2-8-3 改变宽度后运行结果图2-8-4 改变高度后运行结果

图2-8-5 改变高度和宽度后运行结果图2-8-6 恢复原始尺寸
六、试验汇报要求
建立VB程序,正确实现以上内容。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
图像框应用方法和场所。
试验九: 定时器
一、试验目标
1.掌握定时器控键使用方法。
2.熟悉定时器控键属性。
二、试验内容
编写一个程序利用计时器计时。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加四个命令按钮,一个标签,一个计时器控件。初始界面图2-9-1所表示。

图2-9-1 初始界面
2.设置属性,如表2-9-1所表示。
表2-9-1 属性设置

设置属性后界面图2-9-2所表示

图2-9-2 设置属性后界面
3.编写程序代码
Private Sub command1_Click(
Timer1.Enabled = True
End Sub
Private Sub Command2_Click(
Timer1.Enabled = False
End Sub
Private Sub Command3_Click(
Label1.Caption = "0"
End Sub
Private Sub Command4_Click(
End
End Sub
Private Sub Form_Load(
Me.Caption = Format(Now, "hh:mm:ss"
End Sub
Private Sub Timer1_Timer(
Dim count As Long
count = Label1.Caption
count = count + 1
Label1.Caption = count
End Sub
4.运行程序
单击“开始计时”命令按钮,程序运行效果图2-9-3所表示。

图2-9-3 程序运行效果
六、试验汇报要求
正确实现VB程序,完成试验中要求
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
定时器使用方法和特点,和所适用情况?
试验十: 滚动条
一、试验目标
1.掌握滚动条应用。
2.熟悉滚动条属性。
二、试验内容
设计一程序,当拖动或单击水平和垂直滚动条使窗体上文本框将随之上下或左右移动
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加一个垂直滚动条,一个水平滚动条,一个文本框,一个命令按钮。初始界面图2-10-1所表示。

图2-10-1 初始界面
2.设置属性
表2-10-1

设置属性后界面图2-10-2所表示。

图2-10-2 设置属性后界面
3.编写程序代码
Private Sub Command1_Click(
End
End Sub
Private Sub HScroll1_Change(
Text1.Left = 800 + HScroll1.Value
End Sub
Private Sub VScroll1_Change(
Text1.Top = 300 + VScroll1.Value
End Sub
4.运行程序
分别拖动水平滚动条或垂直滚动条,程序运行效果图2-10-3所表示。

图2-10-3 程序运行效果
六、试验汇报要求
正确创建VB程序,实现所要求内容
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
滚动条特点?
试验十一: 数组
一、试验目标
1.了解一维数组使用方法。
2.学会申明,使用一维数组。应用数组处理相关数组常见算法问题。
3.了解二维数组使用方法。
4.学会申明,使用二维数组。应用数组处理相关数组常见算法问题。
二、试验内容
编写程序,建立并输出一个10*10矩阵,该矩阵两条对角线元素为1,其它元素为0。提醒:因为矩阵由行,列组成,需要双下标才能确定一元素位置,所以,使用二维数组来表示矩阵。设行用n表示,列用m 表示,则主对角线元素即为行和列相等元素(即n=m,而次对角线下标满足:n=11-m。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
(1建立用户界面。
在窗体中使用图片框控件Picture1,参见图2-11-3所表示,当然也可用列表框控件来显示矩阵元素。
(2设置对象属性。
(3编写事件代码。
Private Sub Form_Activate(
Dim z(10, 10 As Integer
For n = 1 To 10
For m = 1 To 10
If n = m Or n = 11 - m Then
z(n, m = 1
Else
z(n, m = 0
End If
Next
Next
Picture1.Print
For n = 1 To 10
For m = 1 To 10
Picture1.Print Tab(m * 3; z(n, m; '输出各元素值Next
Print '换行
Next
End Sub
(4运行程序
程序输出界面图2-11-4所表示。

图2-11-4 程序运行结果
六、试验汇报要求
创建VB程序,正确是实现对数组应用。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
数组创建方法和应用范围?
试验十二: Function过程
一、试验目标
1.掌握Function过程定义。
2.掌握Function过程调用。
3.掌握Function过程参数传输规则。
二、试验内容
编写一个求任意数平方函数,调用该函数求1~10平方数。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加一个标签和一个列表框。初始界面图2-12-1所表示。

图2-12-1 初始界面图2-12-2 设置属性后界面
2.设置属性
表2-12-1 属性设置

设置属性后界面图2-12-2所表示
3.编写程序代码
Private Function power(x As Integer As Integer
power = x * x
End Function
Private Sub Form_Click(
Dim a As Integer
For a = 1 To 10
List1.AddItem power(a
Next a
End Sub
4.运行程序
运行程序后,单击窗体,程序运行效果图2-12-3所表示。

图2-12-3 求1~10平方数
六、试验汇报要求
创建VB程序,正确是实现对Function过程调用。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
Function过程使用方法和环境?
试验十三: Sub 过程
一、试验目标
1.掌握Sub过程定义。
2.掌握Sub过程调用。
3.掌握Sub过程参数传输规则。
二、试验内容
编写一个求阶乘过程,调用该过程求4!和6!。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.设计界面
在窗体上添加两个命令按钮和两个标签。初始界面图2-13-1所表示。

图2-13-1 初始界面图2-13-2 设置属性后界面
2.设置属性
表2-13-1 属性设置

3.编写程序代码
Private Sub jiecheng(n As Integer, result As Long
Dim i As Integer
result = 1
For i = 1 To n
result = result * i
Next i
End Sub
Private Sub Command1_Click(
Dim x As Integer, t As Long
x = 4
Call jiecheng(x, t
Label1.Caption = Str(x + "!=" + Str(t
End Sub
Private Sub Command2_Click(
Dim x As Integer, t As Long
x = 6
Call jiecheng(x, t
Label2.Caption = Str(x + "!=" + Str(t
End Sub
4.运行程序
分别单击“4!”命令按钮和“6!”命令按钮,程序运行效果图2-13-3所表示。

图2-13-3 求4!和6!
六、试验汇报要求
创建VB程序,正确是实现对Sub过程应用。
七、试验注意事项
注意机房及计算机使用规范。
八、思索题目
Sub过程和Function 过程在使用方法,适用环境上异同?
试验十四: 菜单设计
一、试验目标
1.了解菜单编辑器作用,利用菜单编辑器掌握设计菜单步骤,方法和技巧。
2.掌握窗口菜单设计方法。
3.掌握弹出式菜单设计方法。
二、试验内容
1.设计菜单程序,在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单包含“Word”,“Excel”和“PowerPoint”3个选项。“附件”菜单包含“画图”和“游戏”。而“游戏”又包含“纸牌”和“扫雷”。当用户进行选择时,能开启对应应用程序。
2.为文本框设计弹出式菜单,该菜单包含“红色”,“蓝”和“黄”3个选项,单击对应选项后可该变文本框汉字字颜色。
三、试验仪器、设备及材料
硬件环境:PC
软件环境:操作系统Windows 系列
Visual Basic 6.0
四、试验原理
VB程序开发原理
五、试验步骤
1.试验内容
(1打开“菜单编辑器”窗口,设置各菜单选项。参考图2-14-1所表示。

图2-14-1 菜单编辑器
(2设置对象属性。参考表2-14-1。
表2-14-1 菜单项属性设置
标题(Caption名称(Name说明
程序(&GProg 主菜单项1
....Word(&w Word 子菜单项12
...Excel(&E Excel 子菜单项13
....PowerPoint(&P PowerPoint 子菜单项14
附件(&F Fujian 主菜单项2
....画图Huatu 子菜单项21
....游戏Youxi 子菜单项22
........纸牌Zhipai 子子菜单项221
........扫雷Saolei 子子菜单项222 (3编写事件代码。
Private Sub excel_Click(
Shell ("c:\program files\microsoft office\office11\excel.exe", vbNormalFocus
End Sub
Private Sub huatu_Click(
Shell ("c:\winnt\system32\mspaint.exe", vbNormalFocus
End Sub
Private Sub powerpoint_Click(
Shell ("c:\program files\microsoft office\office11\PowerPnt.exe", vbNormalFocus End Sub
Private Sub saolei_Click(
Shell ("c:\winnt\system32\winmine.exe", vbNormalFocus
End Sub
Private Sub word_Click(
Shell ("c:\program files\microsoft office\office11\winword.exe", vbNormalFocus End Sub
Private Sub zhipai_Click(
Shell ("c:\winnt\system32\sol.exe", vbNormalFocus
End Sub
(4运行程序
程序输出界面图2-14-2所表示。
2.试验内容
(1建立用户界面。
添加一个文本框控件Text1。打开“菜单编辑器”窗口,设置各菜单选项。
注意:要将顶级菜单Visible属性设为False。参考图2-14-3所表示。

图2-14-2程序运行结果图2-14-3 菜单编辑器
(2编写事件代码。
Private Sub blue_Click(
Text1.ForeColor = vbBlue
End Sub
Private Sub red_Click(
Text1.ForeColor = vbRed
End Sub
Private Sub yellow_Click(
Text1.ForeColor = vbYellow
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single If Button = 2 Then
Popup