VB实验指导书.docx

VB实验指导书.docx

《VB实验指导书.docx》由会员分享，可在线阅读，更多相关《VB实验指导书.docx（74页珍藏版）》请在冰点文库上搜索。

VB实验指导书

实验的总体要求与方法

实验是巩固课堂所学知识、掌握可视化程序设计的方法、提高分析问题和解决问题能力的最重要的途径。

因此明确实验目的、内容与要求、实验步骤及实验规则，一方面有助于实验任务的顺利完成，另一方面也有利于养成严谨科学的作风。

每个实验都要遵循认真预习准备、认真做好实验、认真写好实验报告三个阶段进行。

实验的基本目的

通过实验熟悉面向对象程序设计的基本概念。

通过实验熟练掌握利用VB进行可视化程序设计的基本方法。

通过实验掌握应用程序的调试方法，加强应用能力的训练与培养，从而具有

计一般应用程序和解决事务管理问题的能力。

实验的基本要求

上机实验之前，应认真预习有关实验内容及相应教材。

实验过程中应记录实验中的有关数据（包括出错信息等），以便课后进行分析。

所有实验都应具备下列条件：

①硬件：

IBMPC及其兼容机，要求CPU为Pentium166以上，内存在32MB以上，硬盘有200MB以上的自由空间。

②软件：

操作系统为中文Windows95/98或Windows2000Professional,开发环境为VisualBasic6.0中文企业版。

除非特别指明，约定每个实验的相关窗体文件或模块文件都存放在“D:

＼VBsy”文件夹下（自己可以新建一个），窗体文件的命名规则为“frmSy_xx_xx.frm”，模块文件的命名规则为“Sy_xx_xx.bas”，如实验二第１题的窗体文件命名为“frmSy_2_1.frm”。

上机时要遵守实验室的规章制度，爱护实验设备。

３．实验报告

每个实验结束后都应写出实验报告，报告中应包括下列内容：

实验目的

实验内容与要求

实验步骤

实验结果及分析讨论、实验心得体会等。

实验一熟悉vb的开发环境、程序设计的基本步骤

【实验目的】

1．熟悉VisualBasic6.0集成开发环境。

2.学习怎样启动和退出VB

3．掌握开发一个简单程序的基本步骤。

4．掌握简单代码的编写。

【实验内容】

1．启动和退出VB

2．开发一个简单程序。

3．将VisualBasic工程编译生成可执行文件。

【实验要求及操作步骤】

一、启动和退出VB

1、进入VB集成开发环境

要进入VB应用程序，首先要运行VB的集成开发环境。

启动VB的方法如下：

[方法1]

◇单击任务栏上的“开始”按钮；

◇选择“程序”文件夹，接着选取“MicrosoftVisualBasic6.0中文版”文件夹，再选取“MicrosoftVisualBasic6.0中文版”项，如图1-1所示；

图1-1启动VB的方法1

单击鼠标左键。

[方法2]

单击任务栏上的“开始”按钮；

选择“程序”文件夹；

使用“Windows资源按理器”查找VB可执行文件VB6.exe；

双击图标。

[方法3]

在桌面创建一个VB快捷键；

双击该快捷键。

VB启动后，出现VB6.0的“新建工程”对话框（图１-2）单击“打开”按钮，带有一个窗体的新工程将被创建，并可以看到VB集成开发环境的界面，如图1-3所示。

有的系统启动后可直接进入图1-3所示的界面。

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

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

1、退出VB方法：

（1）单击主窗口右上角的“关闭”按钮。

（2）执行“文件”菜单中的“退出”命令。

（3）按Alt+Q键。

二、开发一个简单程序

要求：

新建一工程，在窗体（Form）上添加一个标签（Label），当单击窗体时标签（Label）显示“床前明月光”。

实验步骤：

（1）新建工程

在桌面上双击MicrosoftVisualBasic6.0快捷方式图标，系统进入VisualBasic6.0集成开发环境，并显示“新建工程”对话框，默认选择是建立“标准EXE”（即标准工程）。

单击“打开”按钮，VisualBasic6.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）编写程序代码

PrivateSubForm_Click（）

Label1.Caption="床前明月光"

EndSub

（5）运行程序

运行VB程序有三种方法：

①单击工具栏上的“启动”按钮；②从“运行”菜单中选择“启动”菜单项；③按F5键。

例如，单击工具栏上的“启动”按钮运行程序后，单击窗体，程序运行效果如图1－7所示。

（6）保存程序

单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项，选择合适的保存路径，先保存窗体文件（例如窗体文件名为“实验一.frm”），然后保存工程文件（例如工程文件名为“实验一.vbp”）。

三、将VisualBasic工程编译生成可执行文件

单击“文件”菜单中的“生成实验一.exe”菜单项，就可生成可执行的.exe文件。

退出VisualBasic集成开发环境，双击实验一.exe文件，则实验一.exe文件就可直接运行。

实验二命令按钮、文本框和标签

【实验目的】

1．掌握命令按钮、文本框和标签常用属性值的设置方法。

2．学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。

3．掌握命令按钮的主要事件的使用。

【实验内容】

利用命令按钮、文本框和标签判断密码是否正确。

建立应用程序，对两个文本框中输入的内容进行交换。

【实验要求与步骤】

实验内容

要求:

在文本框中输入“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-FixedSingle

Text1

Text

Text1

MaxLength

16

Text1

PasswordChar

*

Form1

Caption

登陆界面

（3）编写程序代码

PrivateSubCommand1_Click（）

IfText1.Text=“goodbaby”Then

Label2.Caption=“欢迎使用本系统！

”

Else

Label2.Caption=“密码错误！

请重新输入密码！

”

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub 

（4）运行程序

①在文本框中输入“goodbaby”，然后单击“登录”命令按钮，则在标签Label2中显示“欢迎使用本系统！

”。

运行结果如图2－3所示。

图2－3输入的密码正确

②在文本框中输入“abc”，然后单击“登录”命令按钮，则在标签Label2中显示“密码错误！

请重新输入密码！

”。

运行结果如图2－4所示。

图2－4输入的密码错误

实验内容

（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）编写程序代码

OptionExplicit

PrivateSubCmdChange_Click（）

DimtempAsInteger

temp=Text1.Text

Text1.Text=Text2.Text

Text2.Text=temp

EndSub

PrivateSubCmdExit_Click（）

UnloadMe

EndSub

PrivateSubCMdCLear_Click（）

Text1.Text=””

Text2.Text=””

Text1.SetFocus

EndSub

（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）．编写程序代码

PrivateSubCommand1_Click（）

Constpi=3.14159

DimrAsSingle,sAsString,s2AsString

DimzhouchangAsSingle

s=InputBox（"请输入半径","输入半径",1）

r=Val（s）

zhouchang=2*pi*r

s2="半径="+s+",圆的周长="+Str（zhouchang）

MsgBoxs2,64,"确认窗口"

EndSub 

（4）．运行程序

单击工具栏上的“启动”按钮，进入运行模式。

单击“计算圆的周长”命令按钮，在输入框中输入圆的半径（例如，输入“2”），在消息框中输出半径和计算出来的圆的周长，如图3－3所示。

（a）

（b）（c）

图3－3计算圆的周长

2．实验内容

（1）．设计界面

初始界面如图3－4所示。

（2）．设置属性

表3－1属性设置

对象

属性

属性值

Form1

Caption

求三角形的面积

图3-4初始界面

（3）．编写程序代码

PrivateSubForm_click（）

DimaAsSingle,bAsSingle,cAsSingle

DimsAsSingle,pAsSingle

a=InputBox（"请输入三角形的边a：

","输入"）

b=InputBox（"请输入三角形的边b：

","输入"）

c=InputBox（"请输入三角形的边c：

","输入"）

If（a+b<=cOra+c<=bOrb+c<=a）Or（Abs（a-b）>=cOrAbs（a-c）>=bOrAbs（b-c）>=a）Then

MsgBox（"你输入的数据有误！

"）

Else

p=（a+b+c）/2

s=Sqr（p*（p-a）*（p-b）*（p-c））

Print"三角形的面积为：

";s

EndIf

EndSub

运行程序

如图3—5（a）（b）（c）（d）所示

（a）（b）

（c）（d）

图3－5计算三角形的面积

实验四选择结构

【实验目的】

1．掌握逻辑表达式的正确书写形式。

2．掌握单分支与双分支条件语句的用法，熟悉If….Then…..Else语句。

3．掌握选择结构中多条件，多分支程序的用法，熟悉SelectCase语句。

【实验内容】

1.编写程序，利用文本框检查用户密码。

提示：

可以用文本框的PasswordChar属性来隐蔽用户输入的字符。

提示：

设密码是“123456”，利用文本框的PasswordChar属性可以隐蔽用户输入的字符。

2．输入一个数字（0-6），用中英文显示星期几。

提示：

用多条件多分支选择语句Select

Case来解决。

【实验步骤与指导】

1．实验内容

（1）建立用户界面。

（2）设置对象属性。

表4－1属性设置

对象

属性

属性值

说明

Frame1

Caption

请输入您的密码：

Text1

Text

清空

PasswordChar

*

只显示字符“*”

Label1

Caption

FontName

黑体

字体名称

fontSize

三号

字体大小

（3）编写事件代码。

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then'回车字符的Ascii为13

IfText1.Text="123456"Then

Label1.Caption="欢迎使用本系统！

"

Else

Label1.Caption="对不起，密码错！

"

EndIf

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndIf

EndSub

（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-FixedSingle

边框样式

Command1

Caption

星期

Default

True

缺省命令按钮

Text1

Text

“”

空

（3）编写事件代码。

PrivateSubCommand1_Click（）

DimnAsInteger,mAsString

n=Val（Text1.Text）

SelectCasen

Case1

m="星期一（Monday）"

Case2

m="星期二（Tuesday）"

Case3

m="星期三（Wednesday）"

Case4

m="星期四（Thursday）"

Case5

m="星期五（Friday）"

Case6

m="星期六（Saturday）"

Case0

m="星期日（Sunday）"

CaseElse

m="重新输入"

EndSelect

Label2.Caption=m

EndSub

程序输出界面如图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）编写事件代码。

PrivateSubCommand1_Click（）

DimnAsInteger,iAsInteger,jAsInteger,sAsLong

n=Val（Text1.Text）

j=0:

s=0

Fori=1Ton

j=j+i

s=s+j

Nexti

Label2.Caption="和数S="&Str（s）

Text1.SelLength=Len（Text1.Text）

EndSub

（4）运行程序

程序输出界面如图5－2所示。

2．实验内容

（1）建立用户界面。

参考图5－3所示。

图5－3界面设计

（2）设置对象属性。

（3）编写事件代码。

PrivateSubText1_GotFocus（）

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

EndSub

PrivateSubCommand1_Click（）

DimnAsLong

SelectCaseVal（Text1.Text）

CaseIs<3

MsgBox"请输入一个大于2的整数",vbInformation+vbOKOnly,"注意"

CaseIs>2147483647

MsgBox"该数太大",vbInformation+vbOKOnly,"注意"

CaseElse

n=Val（Text1.Text）

s=0

i=2

DoWhilei<=Sqr（n）Ands=0

IfnModi=0Then

s=1

Else:

i=i+1

EndIf

Loop

Ifs=0Then

a="是一个素数"

Else

a="不是一个素数"

EndIf

Label1.Caption=Str（n）&a

EndSelect

Text1.SetFocus

EndSub

（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-FixedSingle

Label2

Caption

Label2

BorderStyle

1-FixedSingle

设置属性后的界面如图6－2所示。

3．编写程序代码

PrivateSubjiecheng（nAsInteger,resultAsLong）

DimiAsInteger

result=1

Fori=1Ton

result=result*i

Nexti

EndSub

PrivateSubCommand1_Click（）

DimxAsInteger,tAsLong

x=4

Calljiecheng（x,t）

Label1.Caption=Str（x）+"!

="+Str（t）

EndSub

PrivateSubCommand2_Click（）

DimxAsInteger,tAsLong

x=6

Calljiecheng（x,t）

Label2.Caption=Str（x）+"!

="+Str（t）

EndSub

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．编写程序代码

PrivateFunctionpower（xAsInteger）AsInteger

power=x*x

EndFunction

PrivateSubForm_Click（）