VB实验指导书1.docx

资源描述

VB实验指导书1.docx

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

VB实验指导书1.docx

VB实验指导书1

《VB程序设计》实验指导书

江西应用技术职业学院

前言

本实验指导书以VisualBasic6.0为语言背景，主要内容包括VB语言基础，输入输出，分支程序设计，循环程序设计，数组，过程，数据文件的存取，程序的调试、综合应用等。

主要是培养学生基本的编程思路和掌握简单的算法及实际应用能力，了解VB开发小型应用程序的整个过程。

实验1VisualBasic操作基础

实验2程序设计基础1

实验3程序设计基础2

实验4窗体、标签、文本框和按钮

实验5框架、选项按钮、列表框和组合框

实验6菜单与工具栏

实验7过程与函数

实验8数据库功能

实验9图形与图像

实验10文件管理

实验1VisualBasic操作基础

一、目的和要求

∙熟练掌握VisualBasic6.0的启动方法。

∙熟悉VB的开发环境。

∙熟悉常用菜单，使用菜单和工具栏创建工程，保存工程生成exe文件。

∙学会向窗体中放置控件和使用属性窗口。

∙学会建立一个简单界面的应用程序，在代码编辑窗口中添加代码。

∙掌握启动工程和结束工程的方法。

二、内容和步骤

㈠基础级

学习用VB编程，必须先熟悉VB的集成开发环境。

VB的集成开发环境包括标题栏，菜单栏，控件箱和窗体。

1．启动与退出VB

启动VB如下图所示，选择“标准EXE”图标，单击“打开”按钮，新建一个“标准EXE”工程。

2．创建界面

创建第一章【例一】的界面，熟悉控件的使用。

（1）创建控件

·在控件箱中双击选定的控件，该控件自动出现在窗体中间。

·在控件箱中单击选定的控件，将变成十字线的鼠标指针放在窗体上，拖动十字线画出合适的控件大小。

（2）选择控件

·单击某个控件，当控件四周出现尺寸柄时表示控件被选中。

·用，，，方向键在不同的控件中切换。

·按Shift键，依次单击几个控件则同时选中几个控件。

·按Ctrl键，在依次单击几个控件，可以同时选中几个控件。

·在控件的外围拖出一个选择框，则在框内的所有控件同时选中。

（3）移动控件

·先用鼠标选择控件，在把窗体上的控件拖到一个新位置。

·先选择控件，然后在“属性”窗口中改变“Top”和“Left”属性。

·先选择控件，用Ctrl+方向键调整控件位置。

（4）调整控件大小

·先选择某控件，然后拖动尺寸柄向各个方向调整大小。

·先选择某控件，然后在“属性”窗口中改变“Width”和“Height”属性。

·先选择控件，用Shift+方向键调整控件位置。

（5）安排控件位置

·为使控件在窗体中的位置整齐统一，使用同时选中多个控件的方法。

如，同时选中控件Command1和Text1，通过“格式”菜单中的“对齐”“统一尺寸”等安排控件的位置和大小。

（6）删除控件

·选中某控件，按Del键则删除该控件。

（7）琐定控件

（8）·先选择控件，单击“格式”菜单选取“琐定控件”命令。

·先选择控件，用鼠标右键单击“窗体编辑器”在快捷菜单中单击“锁定控件”命令。

·锁定控件是将窗体上所有的控件锁定在当前位置，防止已经处于理想位置的控件因不小心而被移动。

3．设置属性

设置属性先选中控件或窗体的，在属性窗口中修改各属性的值。

（1）将文本框Text1和命令按钮Command！

的属性窗口的“名字”属性改变成txtYou和cmdRun

（2）将文本框txtYou的属性窗口中的“BackColor”和“ForColor”属性分别改变成黄色和蓝色。

（3）修改文本框txtYou的属性窗口中的“Font”属性，单击按钮

出现字体属性页。

分别将“字体”和“大小”改变成“粗体”和“小二”。

（4）用窗体“Form1”属性窗口改变“Icon”属性，改变窗体的图标；单击“Icon”属性后的按钮

，选择另一个图标。

通过设置窗体的Icon属性，换一个能够说明窗体或应用程序的具体用途的图标，使它们在窗体最小化时出现。

（5）设置窗体“Form1”属性窗口改变“Caption”属性改为“你好”。

（6）修改txtYou的属性“Text1”为“你好”。

4．改变代码

修改事件cmdRun_Click的代码，使按下按钮后由“txtYou”变成消失

PrivateSubCmdRun_Click（）

TxtYou.Visible=False

EndSub

5．保存工程

保存工程可在工具栏中单击“保存”按钮，或选择“文件”菜单，单击“保存”命令。

先后出现“文件另存为”和“工程另存为”两个对话框，默认将窗体文件保存为“Form1.frm”，将工程保存为“工程1.vbp”文件。

6．运行程序

运行程序的方法有三种：

·直接按“F5”键。

·在工具栏中单击按钮。

·选择“运行”（RUN）菜单，单击“运行”命令。

㈡提高级

1．设置窗体和工程的“属性和文件名”

分别在窗体和工程的属性窗口中，将“名称”属性设置为“frmHello”和“Hello”；

然后选择“文件”菜单的“另存为”命令，分别将窗体文件保存为“frmHello.frm”，将工程文件保存为“ExHello.vbp”文件。

2．生成可执行文件

为使程序脱离VB环境直接运行,可将程序编译成可执行文件（.exe文件）。

选择“文件”菜单，单击“生成exe”命令，打开“生成工程”对话框，输入文件名，单击“确定”按钮

3．学会使用帮助

VB与大多数其他的应用软件一样，提供了大量详细的帮助信息，使用帮助菜单便是得

到这些帮助信息的最有效和最主要的途径。

点击“帮助”下拉菜单中的“内容”、“索

引”或“搜索”命令，VB将直接打开“MSDNLibraryVisualStudio6.0”界面，“MSDN

LibraryVisualStudio6.0”是微软公司的帮助资源库。

三、思考题

（1）将窗本的标题改为“我的第一个应用程序”。

（2）在增加一个命令按钮，一个显示文本、另一个隐藏文本，。

（3）将单击改为双击显示“又击了命令按钮”。

实验2程序设计基础1

一、目的和要求

∙掌握VB的常量、变量、数组和表达式的定义。

∙熟练掌握VB简单的语句书写。

∙掌握分支结构的使用。

∙掌握循环结构的使用。

∙掌握各种常用函数的使用。

二、内容和步骤

㈠基础级

1．电路图的计算

计算如图T2.1所按示电路图中的电流I，已知电路图中电阻R1=200Ω，R2=300Ω，R3=600Ω。

根据欧姆定律有：

R=R1+R3*R2/（R3+R2），I=U/R。

通过文本框txtInput输入电压，单击按钮“计算”（cmdStart）开始运算，在文本框txtOutput中输出计算出的电流I。

（1）新建一个“标准EXE”工程；出现一个新的Form窗口。

（2）设置属性

在窗口中放置两个Lable控件，两个TextBox控件和一个CommandButton控件，界面安排如图T2.2所示。

T2.1

T2.2

对控件的取名采用前缀部分和控件名组合,如txtInput,cmdStart,labOutput等,属性设置如下表所示:

表T2.1属性设置

对象

控件名称

属性名称

属性值

Lable

labInput

Caption

输入电压

labOutput

Caption

输出电压

TextBox

txtInput

Text

空

txtOutput

Text

空

CommandButton

cmdStart

Caption

计算

（3）添加代码

双击Form窗口或单击“工程资源管理器”窗口中的“查看代码”按钮，打开代码编辑器。

在单击按钮cmdStart的过程中添加代码；单击代码编辑器的对象列表框下拉按钮，选择cmdStart；如图（a）单击代码窗口的过程列表框下拉按钮，选择Click过程。

如图（b）

T2.3（a）T2.3（b）

程序代码如下：

PrivateSubcmaStart_Click（）

DimR1,R2,R3,RAsSingle

DimUAsSingle

DimIAsSingle

R1=200:

R2=300:

R3=600

U=Val（txtInput.Text）

R=R1+R2*R3/（R2+R3）

I=U/R

txtOutput.Text=I

EndSub

·程序代码中运算的变量R1，R2，R3，R，U和I都为单精度型变量。

·文本框txtInput的属性是字符型的，因此在计算时必须用Val（）函数进行转换。

（4）保存工程

单击“文件”菜单，选择“保存工程”命令,将窗口保存为“frmExe0401.frm”，工程保存

为“Exe0401.vbp”。

（5）运行

单击“运行”菜单，选择“启动”命令，或单击工具栏的“启动”按钮；在窗体的文本框输入电压值，然后单击“计算”按钮，则出现运行结果，如图T2.4所示。

T2.4

2．逆序存放

将一个数组中的值按逆序重新存放。

原来：

8，6，5，4，1；改为1，4，5，6，8。

功能要求：

在单击窗体时进行逆序排序，并用Print语句打印结果。

（1）新建一个“标准EXE”工程；

出现一个新的Form窗口。

（2）添加代码

单击Form1窗口时运算，因此在单击窗体的事件的过程中添加代码。

单击代码窗口的对象列表框下拉按钮，选择Form，如图T2.3（a）所示。

然后单击代码窗口的过程列表框下拉按钮，选择Click过程，在“PrivateSubForm_Click”过程中添加代码。

·输入数组各数据并且显示,用符号常数N表示数组元素的个数:

PrivateSubForm_Click（）

ConstN=5

Dima（N）,i,TempAsInteger

a（0）=8:

（1）=6:

（2）=5:

a（3）=4:

a（4）=1

Print"显示a数组"

Fori=0ToN-1

Printa（i）;Spc

（1）;

Nexti

EndSub

·将数组逆序,逆序的方法是将第i个元素和第N-1-i个元素交换采用循环,直到中间的位置,共循环Int（N/2）次。

在“EndSub”前添加如下代码：

Fori=0ToInt（N/2）

Temp=a（i）

a（i）=a（N-i-1）

a（N-i-1）=Temp

Nexti

Print"显示逆序排的a数组"

Fori=0ToN-1

Printa（i）;Spc

（1）;

Nexti

（3）保存工程：

单击“文件”菜单，选择“保存工程”命令。

（4）运行：

单击“运行”菜单，选择“启动”命令，单击出现的窗体则出现运行的结果，如图T2.5所示。

3．杨辉三角形

打印出以下的杨辉三角形（要求打印出10行）

杨辉三角形的第一列和对角线元素为1,其他元素为上一行相邻两元素的和。

必须采用二维数组来实现，单击窗体时开始计算，用Print语句输出到窗体上。

121

1331

14641

......

（1）新建一个“标准EXE”工程；出现一个新的Form窗口。

（2）添加代码

·在单击窗体的事件中添加代码，第一列和对角线上的元素为1：

PrivateSubForm_Click（）

ConstN=10

Dimi,j,a（N,N）AsInteger

Fori=0ToN-1'第一列和对角线元素为1:

a（i,i）=1

a（i,0）=1

Nexti

EndSub

·计算中间元素值：

a（i，j）=a（i-1，j-1）+a（i-1，j）。

在“EndSub”前添加如下的代码。

Fori=2ToN–1‘其他中间元素的运算

Forj=1Toi-1

a（i,j）=a（i-1,j-1）+a（i-1,j）

Nextj

Nexti

·使用Print语句输出数组的值；用“；”号是连接数据，换行用无参数的Print语句。

在“EndSub”前添加如下的代码。

Print"显示杨辉三角形"

Fori=0ToN-1

Forj=0Toi

Printa（i,j）;

Nextj

练习：

若要打15行如何修改程序？

若要把程序中的ForNext循环的步长改为Step-1，则程序如何修改

（3）保存窗体

（4）运行结果单击窗体，运行结果如图T2.6。

㈡提高级

1．一句多行和一行多句

·用“：

”将“杨辉三角形”程序“a（i，i）=1”和“a（i，0）=1”两句放在一行上。

a（i，i）=1：

a（i，0）=1

·将“a（i，j）=a（i-1，j-1）+a（i-1，j）”放在两行上。

a（i，j）=a（i-1，j-1）+_

a（i-1，j）

2．将“杨辉三角形”中的显示数据对齐

将“杨辉三角形”中的数据每列对齐,可以使用Tab（n）函数,将光标移动到第n列,

如图T2.7所示。

将程序代码“Printa（i,j）;”修改为“Printa（i,j）;Tab（（j+1）*5）；”

实验3程序设计基础2

一、目的和要求

∙熟练掌握常用函数的使用。

∙熟练掌握分支结构的使用。

∙熟练掌握循环结构的使用。

∙掌握常用简单算法的编程。

二、内容和步骤

㈠基础级

1．用筛选法求素数

用筛选法求100以内的素数。

素数是指一个数除了1和它本身，不能被其他任何整数整除。

算法：

将100以内的每个数都被2到√X的数除，若出现能被整除的数就不是素数；如果到最后仍然不能被整除，则该数就是素数。

用筛选法求素数必须采用双循环来实现，单击窗体时进行计算。

（1）新建一个“标准EXE”工程；

出现一个新的Form窗口。

（2）添加代码

·在单击窗体的事件过程中添加代码，置数组元素值为0到100。

PrivateSubForm_Click（）

ConstN=100

Dimi,j,Line,a（N）AsInteger

Fori=0ToN-1'设置初值

a（i）=i

Nexti

EndSub

·判断素数；当数能被整除时，就将该数赋值为0；通过判断是否为0，确定是否是素数。

程序中Sqr函数为求平方根，Mod函数为求余数。

在“EndSub”前添加如下代码：

Fori=2ToSqr（N）

Forj=i+1ToN

Ifa（i）<>0Anda（j）<>0Then

Ifa（j）Moda（i）=0Thena（j）=0'整除就赋值0

EndIf

Nextj

Nexti

·显示数组值，每行显示10个数，每个数之间空一格。

在“EndSub”前添加如下代码：

Print"显示输出100以内的素数"

Fori=2ToN-1

Ifa（i）<>0Then

Printa（i）;Spc

（1）;

Line=Line+1

EndIf

IfLine<>0AndLineMod10=0ThenPrint

Nexti

（3）保存工程

（4）运行

单击窗体，运行结果如图T3.1所示

T3.1

思考与练习:

·从窗体输入一个整数,判断是否为素数,界面和程序将如何修改?

·画出程序流程图。

2．用选择法排序

将数组中的元素一轮一轮地进行比较，第一轮两两比较找出最小数，然后与第一元素a[0]对换；第二轮将从a[1]开始的数中找出最小的数，与a[1]对换；……每比较一轮找出未经排序的数中的最小的一个进行对换；直到剩下最后一个元素为止。

采用双重循环来实现，数组元素的个数从键盘输入，通过随机函数产生数组元素，然后对数组元素进行排序。

（1）新建一个“标准EXE”工程；出现一个新的Form窗口。

（2）添加代码

·单击在窗体的事件过程中添加代码，用InputBox函数输入数组元素的个数；InputBox函数返回的字符数据，必须用Val（）函数转换为数值型。

数组在运行时才能确定元素的个数，因此采用动态数组。

Int（Rnd*100）+1语句用于产生1到100间的随机整数。

（1）新建一个“标准EXE”工程；

出现一个新的Form窗口。

（2）添加代码

PrivateSubForm_Click（）

Dimi,j,Min,Temp,a（）AsInteger

DimNAsInteger

N=Val（InputBox（"请输入数组元素个数：

","输入"））

ReDima（N）

Print"显示排序前的a元素"

Fori=0ToN-1

a（i）=Int（Rnd*100）+1'产生1到100间的随机整数

Printa（i）;

Nexti

EndSub

·比较交换数组元素，进行排序。

变量Min用来记录在比较中较小的数在数组中的位置j（下标），最后得出最小数的下标。

在“EndSub”前添加如下代码：

Fori=0ToN-2

Min=i

Forj=i+1ToN-1

Ifa（Min）>a（j）Then

Min=j

Temp=a（i）'交换数据

a（i）=a（Min）

a（Min）=Temp

EndIf

Nextj

Nexti

Print"显示排序后的a元素"

Fori=0ToN-1

Printa（i）;

Nexti

T3.2InputBox输入框T3.3选择法排序

思考与练习:

·变量Temp有没有必要？

如果不使用Temp能否交换数据？

·在内循环中，如果用一个变量记录查找的最小数，则程序应如何修改？

㈡提高级

1．调试“选择排序程序”程序

·调试程序，用单步运行查看i和j变化时a（i）和a（Min）的变化。

·调试程序，在语句“Ifa（Min）>a（j）Then”处设置断点，查看程序运行过程中

a（i,j）的变化。

·调试程序，在监视窗口中添加变量i,j,a（i）和a（Min）,观察其变化。

2．InputBox的函数值

在InputBox输入框中如果单击“取消”按钮或输入负数或0时，用MsgBox显示出错信息，如图T3.4所示。

当在图T3.4中选择“是”按钮，则从InputBox输入框中重新输入；如果选择“否”则终止程序。

输入数据元素的各个部分，添加到选择法排序程序的“ReDima（N）”语句前：

DimResponseAsInteger

DimAnswerAsBoolean

Answer=False

N=Val（InputBox（"请输入数组元素个数：

","输入"））

IfN<=0Then

Response=MsgBox（"是否重新输入？

",vbOKCancel,"输入错误"）

IfResponse=1Then

Answer=False

Else

End

EndIf

Else

Answer=Ture

EndIf

LoopWhileAnswer=False

实验4窗体、标签、文本框和按钮

一、目的和要求

∙学会添加多个窗体。

∙掌握启动窗体和切换窗体。

∙掌握为窗体添加事件代码。

∙掌握标签的属性和事件代码。

∙掌握文本框的属性和事件代码。

∙掌握按钮的事件代码

∙学会使用对象浏览器

二、内容和步骤

㈠基础级

窗体和控件是创建界面的基本构造模块，也是创建应用程序所使用的对象。

1．创建三个窗体

创建一个工程，由三个窗体组成。

Form1用于输入用户名和口令，当输入正确时单击“确定”按钮显示Form2，当输入错误则显示Form3，单击退出按钮结束程序；Form2中用文本框显示系统信息，单击“返回”按钮回到Form1；Form3为退出窗体，单击窗体则结束程序。

新建一个工程，窗体为Form1，然后选择“工程”菜单的“添加窗体”命令，添加两个窗体，窗体的名称按添加的顺序分别为Form2和Form3。

这样，工程就由三个窗体组成。

2．设置启动窗体

本程序的启动窗体是Form1。

①　选择“工程”菜单的“工程1属性”命令。

②在弹出的对话框中选择“通用”选项卡。

3单击“启动对象”列表框的下拉箭头，从中选择“Form1”，如图T4.1所示。

4单击“确定”按钮。

图T4.1工程1属性

思考与练习：

修改启动窗口为“Form2”，运行后会发生什么？

3．创建控件

·窗体Form1上有三个标签，两个文本框，两。

文本框txtName用于输入用户的名，文本框txtPassWord用于输入用户的口令。

如图T4.2。

窗体控件的属性如表T4.1所示。

控件名

属性名

属性值

Label1

Caption

欢迎使用本系统

Alignment

2-Center

Font

宋体，小三，粗体

Label2

Caption

请输入用户名：

Label3

Caption

请输入口令：

txtPassWord

Text

空

PasswrdChar

txtName

Text

空

cmdOK

Caption

确定

cmdExit

Caption

退出

图T4.2Form1表T4.1Form1的属性

·窗体Form2上有一个标签、一个文本框和一个按钮，文本框采用多行显示，具有垂直滚动条，锁定文本框不能编辑；窗体Form3上有一个标签；如表T42所示、Form2如图T4.3所示Form3如图T4.4所示。

窗体名

控件名

属性名

属性值

Form2

Label1

Caption

系统信息：

Text1

Multiline

True

展开阅读全文