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 > 2147483647
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()