vb程序设计试验参考指导书.doc

试验总体要求和方法

试验是巩固课堂所学知识、掌握可视化程序设计方法、提升分析问题和处理问题能力最关键路径。所以明确试验目标、内容和要求、试验步骤及试验规则，首先有利于试验任务顺利完成，其次也有利于养成严谨科学作风。每个试验全部要遵照认真预习准备、认真做好试验、认真写好试验汇报三个阶段进行。
1． 试验基础目标
（1） 经过试验熟悉面向对象程序设计基础概念。
（2） 经过试验熟练掌握利用VB进行可视化程序设计基础方法。
（3） 经过试验掌握应用程序调试方法，加强应用能力训练和培养，从而含有
计通常应用程序和处理事务管理问题能力。
2． 试验基础要求
（1） 上机试验之前，应认真预习相关试验内容及对应教材。
（2） 试验过程中应统计试验中相关数据（包含犯错信息等），方便课后进行分析。
（3） 上机时要遵守试验室规章制度，珍惜试验设备。
３．试验汇报
每个试验结束后全部应写出试验汇报，汇报中应包含下列内容：
（１） 试验目标
（２） 试验内容和要求
（３） 试验步骤
（４） 试验结果及分析讨论、试验心得体会等。
试验一 熟悉vb开发环境、程序设计基础步骤
【试验目标】
1．熟悉Visual Basic 6.0集成开发环境。
2. 学习怎样开启和退出VB
3．掌握开发一个简单程序基础步骤。
4．掌握简单代码编写。
【试验内容】
1．开启和退出VB
2．开发一个简单程序。
3．将Visual Basic工程编译生成可实施文件。
【试验要求及操作步骤】
一、开启和退出VB
1、进入VB集成开发环境
要进入VB应用程序，首先要运行VB集成开发环境。开启VB方法以下：
[方法1]
◇单击任务栏上“开始”按钮；
◇选择“程序”文件夹，接着选择“Microsoft Visual Basic 6.0汉字版”文件夹，再选择“Microsoft Visual Basic 6.0汉字版”项，图1-1所表示；

图1-1 开启VB方法1
◇ 单击鼠标左键。
[方法2]
◇ 单击任务栏上“开始”按钮；
◇ 选择“程序”文件夹；
◇ 使用“Windows 资源按理器”查找VB可实施文件 VB6.exe；
◇ 双击图标。
[方法3]
◇ 在桌面创建一个VB快捷键；
◇ 双击该快捷键。
VB开启后，出现VB6.0“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体新工程将被创建，并能够看到VB集成开发环境界面，图1-3所表示。有系统开启后可直接进入图1-3所表示界面。

图1-2 VB6.0“新建工程”对话框

图1-3 VB集成开发环境窗口

1、退出VB方法：
（1） 单击主窗口右上角“关闭”按钮。
（2） 实施“文件”菜单中“退出”命令。
（3） 按Alt+Q键。
二、开发一个简单程序
要求：新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。
试验步骤：
（1）新建工程
在桌面上双击Microsoft Visual Basic 6.0快捷方法图标，系统进入Visual Basic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。单击“打开”按钮，Visual Basic 6.0进入设计模式。图1－4所表示。

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

图1－5初始界面
（3）设置属性
如表1－1所表示。

表1－1 属性设置
对象
属性
属性值
Form1
Caption
我第一个VB程序
Label1
Caption

设置属性后界面图1－6所表示。

图1－6设置属性后界面 图1－7第一个程序
（4）编写程序代码
Private Sub Form_Click( )
Label1.Caption = "床前明月光"
End Sub
（5）运行程序
运行VB程序有三种方法：①单击工具栏上“开启”按钮；②从“运行”菜单中选择“开启”菜单项；③按F5键。
比如，单击工具栏上“开启”按钮运行程序后，单击窗体，程序运行效果图1－7所表示。
（6）保留程序
单击工具栏中“保留”按钮或单击“文件”菜单中“保留工程”菜单项，选择适宜保留路径，先保留窗体文件（比如窗体文件名为“试验一.frm”），然后保留工程文件（比如工程文件名为“试验一.vbp”）。

三、将Visual Basic工程编译生成可实施文件
单击“文件”菜单中“生成试验一.exe”菜单项，就可生成可实施.exe文件。
退出Visual Basic集成开发环境，双击试验一.exe文件，则试验一.exe文件就可直接运行。

试验二 命令按钮、文本框和标签
【试验目标】
1．掌握命令按钮、文本框和标签常见属性值设置方法。
2．学会使用命令按钮、文本框和标签在窗体上建立用户界面方法。
3．掌握命令按钮关键事件使用。
【试验内容】
1．利用命令按钮、文本框和标签判定密码是否正确。
2．建立应用程序，对两个文本框中输入内容进行交换。
【试验要求和步骤】
1． 试验内容
要求: 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”；在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！请重新输入密码！”。
步骤：
（1）设计界面
在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面图2－1所表示。

图2－1初始界面 图2－2 设置属性后界面
（2）设置属性
设置属性后界面图2－2所表示。 
表2－1属性设置
对象
属性
属性值
Label1
Caption
请输入密码：
Command1
Caption
登陆
Command2
Caption
退出
Label2
Caption

Label2
BorderStyle
1-Fixed Single
Text1
Text

Text1
MaxLength
16
Text1
PasswordChar
*
Form1
Caption
登陆界面
（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）运行程序
① 在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！”。运行结果图2－3所表示。

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

图2－4 输入密码错误
2． 试验内容
（1）设计界面
在窗体上放置两个Label 控件、两个TextBox控件和三个CommandButton控件。初
界面图2－5所表示。

图2－5 初始界面 图2—6 属性设置后界面
（2）属性设置
设置属性后界面图2－6所表示。 
表2－2属性设置
对象
属性名称
属性值
Form1
Caption
交换
Label1
Caption
输入第1个数
Label2
Caption
输入第2个数
Text1
Text
空
Text2
Text
空
Command1
Name
CmdChange
Caption
交换
Default
Ture
Command2
Name
CmdClear
Caption
清空
Command3
Name
CmdExit
Caption
退出
（3）编写程序代码
Option Explicit
Private Sub CmdChange_Click( )
Dim temp As Integer
temp=Text1.Text
Text1.Text=Text2.Text
Text2.Text=temp
End Sub
Private Sub CmdExit_Click( )
Unload Me
End Sub

Private Sub CMdCLear_Click( )
Text1.Text=””
Text2.Text=””
Text1.SetFocus
End Sub
(4) 运行程序
实施结果图2-7（a）、（b）所表示。单击“清空”按钮并再数入数据，进行交换。

图2-7（a）交换前界面 图2-7（b）单击交换后界面

试验三 表示式、InputBox函数和MsgBox语句
【试验目标】
1．掌握表示式组成和怎样求表示式值。
2．掌握赋值语句使用。
3．掌握InputBox函数使用。
4．掌握MsgBox语句使用。
【试验内容】
1.利用InputBox函数和MsgBox语句求圆周长。
2.利用InputBox函数输入三角形三边长度a,b,c,计算三角形面积并显示在窗体上。
【试验步骤和指导】
1．试验内容
(1) 设计界面
在窗体上添加一个命令按钮。初始界面图3－1所表示。

图3－1 初始界面 图3－2 设置属性后界面
(2) 设置属性
表3－1 属性设置
对象
属性
属性值
Command1
Caption
计算圆周长
Form1
Caption
InputBox和MsgBox举例
设置属性后界面图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 计算圆周长
2．试验内容
(1) 设计界面
初始界面图3－4所表示。

图3-4 初始界面
(2) 设置属性
表3－1 属性设置
对象
属性
属性值
Form1
Caption
求三角形面积
(3) 编写程序代码
Private Sub Form_click()
Dim a As Single, b As Single, c As Single
Dim s As Single, p As Single
a = InputBox("请输入三角形边a：", "输入")
b = InputBox("请输入三角形边b：", "输入")
c = InputBox("请输入三角形边c：", "输入")
If (a + b <= c Or a + c <= b Or b + c <= a) Or (Abs(a - b) >= c Or Abs(a - c) >= b Or Abs(b - c) >= a) Then
MsgBox ("你输入数据有误！")
Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "三角形面积为："; s
End If
End Sub
(4) 运行程序
图3—5（a）（b）（c）（d）所表示

(a) (b)

（c） （d）
图3－5 计算三角形面积

试验四 选择结构
【试验目标】
1．掌握逻辑表示式正确书写形式。
2．掌握单分支和双分支条件语句使用方法，熟悉If….Then…..Else语句。
3．掌握选择结构中多条件，多分支程序使用方法，熟悉Select Case语句。
【试验内容】
1. 编写程序，利用文本框检验用户密码。提醒：能够用文本框PasswordChar属性来隐蔽用户输入字符。提醒：设密码是“123456”，利用文本框PasswordChar属性能够隐蔽用户输入字符。
2．输入一个数字（0-6），用中英文显示星期几。提醒：用多条件多分支选择语句Select
Case来处理。
【试验步骤和指导】
1．试验内容
（1）建立用户界面
（2）设置对象属性
表4－1 属性设置
对象
属性
属性值
说明
Frame1
Caption
请输入您密码：

Text1
Text

清空
PasswordChar
*
只显示字符“*”
Label1
Caption

FontName
黑体
字体名称
fontSize
三号
字体大小
（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）运行程序
程序输出界面图4－1，图4－2所表示。

图4－1 验证密码正确 图4－2 验证密码不正确 
2．试验内容
（1）建立用户界面。参考图4－3所表示

图4－3 界面设计
（2）设置对象属性
表4－2 属性设置
对象
属性
属性值
说明
Form1
Caption
星期

Label1
Caption
输入一个数字（0-6）

Label2
Caption

空
BorderStyle
1-Fixed Single
边框样式

Command1
Caption
星期

Default
True
缺省命令按钮
Text1
Text
“”
空
（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
程序输出界面图4－4所表示。

图4－4 程序运行结果

试验五 循环结构

【试验目标】
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为素数。
【试验步骤和指导】
1．试验内容
（1）建立用户界面
（2）设置对象属性。参考图5－1所表示

图5－1 属性设置 图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）运行程序
程序输出界面图5－2所表示。
2．试验内容
（1）建立用户界面。参考图5－3所表示

图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）运行程序
程序运行结果图5－4所表示。

图5－4 程序运行结果

试验六 Sub过程
【试验目标】
1．掌握Sub过程定义。
2．掌握Sub过程调用。
3．掌握Sub过程参数传输规则。
【试验内容】
编写一个求阶乘过程，调用该过程求4！和6！。
【试验步骤和指导】
1．设计界面
在窗体上添加两个命令按钮和两个标签。初始界面图6－1所表示。

图6－1 初始界面 图6－2 设置属性后界面
2．设置属性
表6－1 属性设置
对象
属性
属性值
Command1
Caption
求4！
Command2
Caption
求6！
Label1
Caption

Label1
BorderStyle
1-Fixed Single
Label2
Caption

Label2
BorderStyle
1-Fixed Single
设置属性后界面图6－2所表示。
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！”命令按钮，程序运行效果图6－3所表示。

图6－3 求4！和6！

试验七 Function过程
【试验目标】
1．掌握Function过程定义。
2．掌握Function过程调用。
3．掌握Function过程参数传输规则。
【试验内容】
编写一个求任意数平方函数，调用该函数求1～10平方数。
【试验步骤和指导】
1．设计界面
在窗体上添加一个标签和一个列表框。初始界面图7－1所表示。

图7－1 初始界面 图7－2 设置属性后界面
2．设置属性
表7－1 属性设置
对象
属性
属性值
Label1
Caption
求1～10平方数
List1
List

设置属性后界面图7－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．运行程序
运行程序后，单击窗体，程序运行效果图7－3所表示。

图7－3 求1～10平方数

试验八 单选框和复选框应用
【试验目标】
1．掌握单选框,复选框定义。
2．掌握单选框,复选框区分。
【试验内容】
建立一个标准工程实现单选框和复选框组合应用。
【试验步骤和指导】
1．设计界面
在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面图6－1所表示。

图8－1 初始界面 图8－2 设置属性后界面
2．设置属性，如表8－1所表示
表8－1 属性设置
对象
属性
属性值
Optionbutton1(0)
Caption
张文
Optionbutton1(1)
Caption
王雪
Optionbutton1(2)
Caption
林非
Checkbox1(0)
Caption
VB6.0语言程序设计
Checkbox1(1)
Caption
汇编语言
Checkbox1(2)
Caption
单片机原理
Label1
caption
无
Label2
caption
无
设置属性后界面图8－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．运行程序
分别单选框中某一项和复选框中某几项，程序运行效果图8－3所表示。

图8－3 运行结果

试验九 组合框应用
【试验目标】
1．掌握组合框常见属性。
2．了解列表框和组合框区分。
【试验内容】
利用组合框实现学校添加和删除功效。
【试验步骤和指导】
1．设计界面
在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面图9－1所表示。

图9－1 初始界面 图9－2 设置属性后界面
2．设置属性，如表9－1所表示
表9－1 属性设置
对象
属性
属性值
Command1
Caption
删除
名称
CmdDel
Command2
Caption
添加
名称
CmdAdd
Command3
Caption
清除
名称
CmdClear
Command4
Caption
关闭
名称
CmdEnd
Label1
Caption
学校
Text1
text
无
名称
TxtInfor
设置属性后界面图9－2所表示。
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．运行程序结果图9－3所表示

图9－3 程序运行结果

试验十 图像框应用
【试验目标】
1．熟悉图像框和图片框区分。
2．掌握图像框属性和特点。
【试验内容】
将一个图形文件放到图像框中，改变图像框大小，观察图形是否随之改变。
【试验步骤和指导】
1．设计界面
在窗体上添加五个命令按钮和一个图像框。初始界面图10－1所表示。

图10－1 初始界面 图10－2 设置属性后界面 
2．设置属性，如表10－1所表示
表10－1 属性设置
对象
属性
属性值
Command1
Caption
改变宽度
Command2
Caption
改变高度
Command3
Caption
改变高度和宽度
Command4
Caption
恢复原始尺寸
Command4
Caption
退出
Image1
picture
E:\vb\ 65203483.wmf
Image1
stretch
true
设置属性后界面图10－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．运行程序
分别单击五个命令按钮，程序运行效果图10－3 ~ 10－6所表示。 

图10－3 改变宽度后运行结果 图10－4 改变高度后运行结果

图10－5 改变高度和宽度后运行结果 图10－6 恢复原始尺寸

试验十一 滚动条
【试验目标】
1．掌握滚动条应用。
2．熟悉滚动条属性。
【试验内容】
设计一程序，当拖动或单击水平和垂直滚动条使窗体上文本框将随之上下或左右移动。
【试验步骤和指导】
1．设计界面
在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面图11－1所表示。

图11－1 初始界面
2．设置属性
表11－1 属性设置
对象
属性
属性值
Hscroll1
max
1200
Hscroll1
min
100
Hscroll1
largechange
300
Vscroll1
max
800
Vscroll1
min
50
Vscroll1
largechange
300
Text1
text
Vb6.0程序设计语言
Command1
caption
退出
设置属性后界面图11－2所表示。

图11－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．运行程序
分别拖动水平滚动条或垂直滚动条，程序运行效果图11－3所表示。

图11－3 程序运行效果

试验十二 定时器
【试验目标】
1．掌握定时器控键使用方法。
2．熟悉定时器控键属性。
【试验内容】
1．编写一个程序利用计时器计时。
2．制作一个日历时钟应用程序。
【试验步骤和指导】
1．设计界面
在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面图12－1所表示。

图12－1 初始界面
2．设置属性，如表11－1所表示
表12－1 属性设置
对象
属性
属性值
Command1
Caption
开始计时
Command2
Caption
停止
Command3
Caption
重新开始
Label1
BorderStyle
1-Fixed Single
Label1
Caption
0
Timer1
enable
true
Timer1
interval
400
设置属性后界面图12－2所表示

图12－2 设置属性后界面
３． 编写程序代码
Private Sub command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Label1.Captio