VB实验指导书燕山大学Word下载.docx
《VB实验指导书燕山大学Word下载.docx》由会员分享，可在线阅读，更多相关《VB实验指导书燕山大学Word下载.docx（71页珍藏版）》请在冰豆网上搜索。
（1）掌握VB6．0的启动与退出。
（2）了解VB6．0的集成开发环境，熟悉各主要窗口的作用。
（3）了解VB6．0应用程序的开发过程。
（4）理解VB中对象的概念。
（5）掌握在VB6．0中使用帮助的方法。
二、相关知识
1．VisualBasic6．0的启动与退出
VisualBasic6．0的启动与退出与一般的Windows应用程序的启动与退出一样，可以通过“开始”菜单启动VisualBasic6．0，也可以将VisualBasic6．0程序以快捷方式放在桌面上，然后双击该图标将其启动；
退出可以在“文件”中选择“退出”、或双击窗口控制菜单图标、或单击窗口关闭按钮。
2．VisualBasic6．0的集成开发环境
VB6．0的集成开发环境在一个公共环境中集成了设计、编辑、编译和调试等许多不同的功能，它由菜单、工具栏、工具箱、浏览器及完成各种特定功能的窗口组成。
3．VB应用程序的开发过程
VB采用的是一种“可视化”的编程方法，可以先设计应用程序的外观，然后再编写不同部件的程序代码。
4．VB中对象的概念
对象是基本的运行时的实体，它既包括了数据（对象属性），也包括作用于对象的操作（方法）和对象的响应（事件）。
对象的属性用来表示对象的状态，对象的方法决定了对象可以进行的操作。
不同的对象具有不同的属性和方法，VB中最主要的两种对象是窗体和控件，程序设计中，基本的设计机制就是改变对象的属性、使用对象的方法和为对象编写事件过程。
5．VB6．0的帮助功能
VB6．0是VisualStudi06．0的套件之一，VB6．0本身并不带帮助，微软公司为VisualStudio6．0提供了一套MSDNLibrary帮助系统。
MSDN（MicrosoftDeveloperNetwork）是使用Microsoft开发工具或是以Windows或Internet为开发平台的开发人员的基本参考，它是一本集程序设计指南、用户使用手册以及库函数于一体的电子词典，使用MSDNLibrary的帮助功能，不仅可以引导初学者入门，还可帮助各种层次的用户完成应用程序的设计。
三、实验举例
（实例1）VB的启动与退出。
（1）启动VB6．0
通过“开始”菜单启动VisualBasic6．0，操作步骤为：
1单击Windows桌面任务栏的“开始”按钮，弹出“开始”菜单，将鼠标指针指向“程序”选项，在“程序”项的级联菜单中选中“MicrosoftVisualBasic6．0中文版”，然后在其打开的下级级联菜单中将光标条定位在“MicrosoftVisualBasic6．0中文版”命令上。
2单击鼠标左键，屏幕出现如图1-1所示的VisualBasic6．0启动画面。
③要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项（默认），然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境。
图1-1启动VB6.0
（2）退出VB
在图1-2所示的VisualBasic6．0应用程序集成开发环境窗口中，从“文件”菜单中选择“退出”命令、或双击窗口控制菜单图标、或单击窗口关闭按钮均可退出VisualBasic6．0。
在退出时，系统可能会提示用户保存工程文件和窗体文件，有关保存文件的操作在实例3中进行详细说明。
VB主窗口工程资源
管理器窗口
工具箱
窗体窗口属性窗口
窗体布局
立即窗口窗口
图1-2VB6．0应用程序集成开发环境
（实例2）进入VB集成开发环境。
1．VB的三种工作模式
（1）设计模式：
启动VB，选择新建一个新的工程，进入如图1-2所示的VisualBasic6．0集成环境。
此时，标题栏中的标题为“工程1—MicrosoftVisualBasic[设计]”，表明集成开发环境处于设计模式。
（2）运行模式：
用鼠标单击工具栏中的“”按钮（启动），或在“运行”菜单中选择“启动”命令，此时，标题栏中的标题为“工程1-MicrosoftVisualBasic[运行]，表明集成开发环境处于运行模式。
（3）中断模式：
在“运行”菜单中选择“中断”命令，或按（Ctrl+Break）键，此时，标题栏中的标题为“工程1-MicrosoftVisualBasic[break]”，表明集成开发环境处于中断模式。
2．VB集成开发环境中的各种窗口（如1-2所示）
（1）窗体窗口
（2）属性窗口
（3）工程资源管理器窗口
（4）代码窗口
（5）工具箱
3．打开VB集成开发环境中的工具栏
（1）在“视图”菜单中选择“工具栏”，在它的级联菜单中列出VB提供的工具栏及当前工具栏的状态。
（2）选择“编辑”命令，打开编辑工具栏。
（3）选择“窗体编辑器”命令，打开窗体编辑器工具栏。
（4）选择“调试”命令，打开调试工具栏。
（实例3）建立一个简单的VB应用程序
首先建立一个自己的文件夹，以便将练习中生成的各种文件保存在该文件夹中，这里在E盘建立一个VBSY文件夹。
1．建立一个新的工程
启动VB6．0，选择新建一个新的工程，此时进入到VB6．0集成开发环境，屏幕上出现一个默认的“Forml”窗体。
2．设置窗体属性
选中窗体窗口中的窗体，在属性窗口中选中（名称）属性，将其属性值改为“Frmexp”；
再选中Caption属性，然后在右边列中输入“窗体”，此时窗体的标题栏变为“窗体”，窗体窗口的标题栏为“工程1—Frmexp（Form）”。
3．在窗体上绘制控件
（1）用鼠标单击工具箱中的标有“A”的按钮（标签），在窗体的合适位置画出一个矩形区域，在窗体上出现一个标签控件，用鼠标选中该控件，然后在属性窗口中将其（名称）属性设为“LblDisp”；
Caption属性设为“VB集成开发环境”。
（2）用鼠标单击工具箱中的命令按钮，在窗体的合适位置画出一个命令按钮，用鼠标选中该命令按钮，然后在属性窗口中将其（名称）属性设为“cmdDisp”；
Caption属性设为“显示”。
（3）在窗体中再添加一个命令按钮，然后将其（名称）属性设为“cmdClear'
’；
Caption属性设为“清除”。
窗体如图1-3所示。
图1-3窗体设计画面图1-4代码窗口
4．编写程序代码
（1）双击“显示”按钮，打开代码窗口，如图1-4
所示，然后输入如下代码：
PrivateSubcmdDisp_CliCk（）
LblDiSp．ViSible=True
EndSub
（2）在代码窗口的对象列表框中选择对象“cmdClear”；
在过程列表框中选择事件Click（如图1-4），然后输入如下代码：
PrivateSubcmdClear_Click（）
LblDisp．Visible=False
EndSub
5．运行程序
关闭代码窗口，用鼠标单击工具栏中启动按钮。
此时，程序开始运行，并出现图1-5画面，单击“清除”按钮，窗口上的文字消失；
单击“显示”按钮，又使文字显示出来。
图1-5运行程序窗口
6．保存文件
在选择“文件”→“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。
由于是第一次保存文件，因此在弹出的文件另存为对话框中提示保存窗体文件，将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1．frm，此时，系统会继续提示保存工程文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1．vbp。
7．生成可执行文件
选择“文件”→“生成Vbsyl_1．exe”菜单命令，弹出“生成工程”对话框，此时可执行文件名已默认为Vblsy_1．exe，如图1-6所示。
在该对话框中单击“选项”按钮，打开“工程属性”对话框，如图1-7所示，在该对话框中可以设置版本号、版本信息、编译选项等。
最后单击“确定”按钮进行编译。
图1-6“生成工程”对话框图1-7“工程属性”对话框
8．运行可执行文件
在E盘的VBSY文件夹下双击Vbsyl—1．exe文件，运行该可执行文件。
启动该程序后的窗口如图1-5所示。
‘
（实例4）使用VB的帮助。
选择“帮助”→“内容”菜单命令，弹出“MSDNlibraryVisualStudi06．0”窗口。
1．利用目录浏览主题
选择“目录”标签，在左侧主题窗口中依次单击“ⅥsualBask文档”→“使用Ⅵsual BaSic”→“程序员指南”→“ⅥSual BaSiC基础”→“窗体、控件和菜单”，最后选择“设计窗体”主题，此时右侧窗口中显示出相应内容。
2．利用索引查找信息
选择“索引”标签，在“键入要查找的关键字”输入框中输入“SelectCase”，此时光标定位在索引项的列表的“SelectCase块”项目上，单击“显示”按钮，右侧窗口中即显示出相应内容。
实验二VisualBasic语言基础
（1）掌握VisualBasic的数据类型和变量定义方法。
（2）正确使用VisualBasic的运算符和表达式。
（3）掌握VisualBasic中数据输入、输出的方法。
（4）掌握VisualBasic常用函数的使用方法。
（5）学会用赋值语句构造简单的顺序结构程序。
1．VB的数据类型
VB提供了丰富的数据类型，所有的数据都具有数据类型，如果数据的数值和数据类型不匹配，就会出现错误或者造成内存空间的浪费。
VB将数据类型分为标准数据类型和自定义类型。
标准数据类型包括数值型数据类型、非数值型数据类型和变体数据类型。
其中数值型数据类型包括整型、长整型、单精度型、双精度型、货币型和字节型；
非数值类型包括日期型、逻辑型、字符型和对象数据类型。
除了以上标准数据类型外，用户还可以根据自己的需要自定义数据类型，称为自定义类型，形式如下：
[Public|Private]Type自定义类型名
元素名[（下标）]As类型名
[元素名[（下标）]As类型名]
…………
EndType
2．VB变量的声明
变量是用来在程序运行期间临时存储数值的。
声明变量包括名称和数据类型。
3．VB的表达式
表达式是指用运算符或圆括号将运算元素连接起来的一个有意义的式子。
VB的表达式有下列形式：
●算术表达式：
由算术运算符连接。
其运算符的含义、优先级和数学中的相同，只是整除运算符（＼）和取模运算符（mod）是新概念，读者应倍加注意。
●关系表达式：
由关系运算符连接，其运算结果是一个逻辑量。
运算符两边的操作数如果是数值型，则按其大小比较；
如果是字符型，则按其字符编码的码值从左到右一一比较。
逻辑表达式：
由逻辑运算符连接，运算结果为逻辑值。
字符串表达式：
由字符串运算符“+”和“&
”连接。
它们的功能都是将两个字符串拼接起来。
“+”运算符两边的操作数应均为字符型；
“&
”运算符两边的操作数可以是字符型或者是数值型。
4．VB的内部函数
VB提供了大量的内部函数供用户编程时使用。
内部函数按功能分为数学函数、转换函数、字符串函数、日期函数和格式输出函数。
用户可以通过VB的“帮助”菜单获得所有内部函数的使用方法。
三、实验举例（实例1）逻辑型数据的使用。
PrivateSubForm_cliCk（）
DimaASBoolean，bASBoolean
DimXASInteger，yASInteger
X=0
y=-2
a=X
b=y
Printa,b,x,y
a=True
b=FalSe
X=a
Y=b
Printx,y,a,b
（实例2）日期型数据。
DimaASDate，SASDate，dASDate
DimfASDate，S1ASDate，S2ASDate
a=#5／9／2002#
s=#5／12／199912：
30：
15PM#
d=2001．12
f=-2001．12
S1=0．5
S2=0
Printa，S
Printd，f
PrintSl，S2
（实例3）关系运算符。
Print”abcde”=”abd”
Print”abcde，’>
”aba”
Print”BC”>
=”ABCFF”
Print31<
3
Print”34”<
”3”
Print”abc”<
>
”ABC”
在比较时注意以下原则：
（1）如果两个操作数是数值型，则按其大小进行比较。
（2）如果两个操作数是字符型，则按字符的ASCⅡ码值从左到右一一比较，也就是说，先比较两个字符串中的第一个字符，其ASCⅡ码值大的字符串大，如果第一个字符相同，则比较第二个字符，依此类推，直到比出结果为止。
（实例4）算术运算函数的使用。
PrintAbs（-1.7），Log（12），Sqr（9）
PrintExp（3），Sin（30*3.1415926/180）
PrintInt（-3.5），Fix（-3.5）,
Round（1.5），Round（1.512,2）
（实例5）求余数（模）运算符的使用。
PrivateSubForm_cliCk（）
Print20Mod3
Print20Mod-3
Print-20Mod3
Print-20Mod–3
观察运行结果。
实验三顺序结构程序设计
（1）掌握VisualBasic语言中数据输入方法。
（2）掌握VisualBasic语言中数据输出方法。
（3）正确使用VisualBasic赋值语句。
（4）学会设计简单的顺序结构程序。
1．赋值语句
赋值语句是VB中使用频率最高的语句，这个语句的含义就是将等号右边表达式的值传送给等号左边的对象属性或变量，使其可以在程序运行中改变。
使用赋值语句应注意以下几点：
（1）只有当表达式是一种与变量兼容的数据类型时，该表达式的值才可以赋给变量或属性。
不能将字符串表达式的值赋给数值变量，也不能将数值表达式的值赋给字符串变量。
如果这样做，就会在解释时出现错误。
（2）可以把字符串或数值表达式赋给Variant变量，但反过来就必须分析：
任何除Null之外的Variant都可以赋给字符串变量，但只有当Variant的值可以解释为一个数时才能赋给数值变量。
（3）将一种数据类型的表达式赋给另一种数值类型的变量时，系统会强制将该表达式的值转换为变量的数据类型。
2．InputBoxO函数
该函数产生一个对话框，在对话框中显示提示信息，等待用户输入正文或按下按钮，此时返回包含文本框内容的字符串。
作为对话框消息出现的字符串表达式，最大长度是1024个字符，由所用字符的宽度决定。
如果该消息包含多个行，则可在各行之间用回车符vbCr、换行符vbLf或回车换行符的组合vbCrLf来分隔。
3．MsgBox0函数
MsgBox（）函数也产生一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer数，告诉用户单击了哪一个按钮。
函数中显示在对话框中的消息是一个字符串表达式，其规则与InputBox函数相同。
MsgBox（）函数根据所选定参数的不同，可以弹出不同形式的消息框供用户使用。
4．Print语句
Print实质是一种方法，在这里我们称它为语句是因为在窗体上Print方法的对象名可以省略，省略后的形式和原Basic中的Print语句相同。
该语句最常用的两个参数是Spc（n）和Tab（n），其中Spc（n）用来在输出中插入空白字符，n为要插入的空白字符数。
Tab（n）用来将插入点定位在绝对列号上，n为列号。
（实例1）MsgBox函数的使用。
PrivateSubCommandl_C1iCk（）
DimrASInteger
MsgBox”最简单的MsgBox”
R=MsgBox（“复杂的MsgBox”，vbYesNo+vbCritical+vbDefaultButton2，-
”你看到了么?
“）
Print”你按的值为”；
r
观察运行结果。
（实例2）已知圆的半径R，求圆的周长和面积。
（1）选择“文件”菜单上的“新建工程”命令，新建—个工程。
（2）在窗体上创建两个标签（Label），调整位置和大小，设置标签Labell的Caption属性为“圆的周长是：
”、标签Label2的Caption属性为“圆的面积是：
”。
（3）打开代码窗口，输入下面程序代码。
PrivateSubForm_Click（）
DimrasInteger，SasSingle，areaasSingle
r=3
S=2*3.14159*r
Area=3.14159*r＾2
Label1．Caption=“圆的周长是：
”+Format（s）
Label2．Caption=“圆的面积是：
”，+Format（area）
运行程序,求圆的周长和面积。
（实例3）InputBOx函数的不同用法。
PrivateSubForm_CliCk（）
DimStrNameASString，TitleASString
DimDefaultASString，MyValueASString
，设置提示信息
StrName=”请输入数据”
，设置标题
Title=”InputBox函数使用举例”
’设置缺省值
Default=”2”
’第一种：
显示提示信息、标题及缺省值
MyValue=InputBox（StrName，Title，Default）
，第二种：
指定坐标：
在1000，1000的位置显示对话框
MyValue=InputBox（StrName，Title，Default，1000,1000）
，第三种：
显示“帮助”按钮，使用帮助文件
MyValue=InputBox（StrName，Title，，，，”DEMO.HLP”，10）
观察结果。
实验四选择结构程序设计
（1）掌握逻辑表达式的正确书写形式。
（2）学会单分支和双分支结构程序的使用。
（3）学会多分支条件语句的使用。
（4）掌握情况语句的使用，弄清楚情况语句和多分支条件语句的区别。
选择结构也叫做条件分支结构，即根据条件选择要执行的分支。
VisualBasic中常用的条件执行语句有：
If．．．Then．．．Else．．．Endlf语句；
SelectCase．．．语句。
1．If．．．Then．．．Else．．．Endlf语句
语句中的判断条件是数值表达式或字符串表达式，其运算结果为True或False。
可以使用单行形式来做短小简单的程序。
在单行形式中，按照If．．．Then判断的结果也可以执行多条语句。
所有语句必须在同一行上并且以冒号分开，如：
IfA>
10ThenA=A+1：
B二B+A：
C=C+B
但使用块形式的情况更多，块形式具有更强的结构化与适应性，并且通常比较容易阅读、维护及调试。
Else和Elself子句都是可选项。
在If块中，可以放置任意多个Elself子句，但是都必须在Else子句之前。
If块也可以嵌套。
当程序运行到一个If块时，条件表达式将被测试，如果结果为True，则在Then之后的语句会被执行。
反之，则每个ElseIf部分的条件表达式会依次计算并加以测试。
如果找到某个为Tme的条件时，则其紧接在相关的Then之后的语句会被执行。
如果没有一个ElseIf条件表达式为True（或是根本就没有Elself子句），则程序会执行Else部分的语句。
而在执行完Then或Else之后的语句后，会从EndIf之后的语句继续执行。
2．SelectCase．．．EndSelect语句
SelectCase．．．EndSelect语句是多分支语句，其中的判断条件是任何数值表达式或字符串表达式。
根据表达式的值，来决定执行几组语句中的其中之一。
判断条件有以下几种形式：
●一个或多个表达式，表达式之间用“，”隔开。
●为某个数值范围，格式是：
表达式1To表达式2
●为某个关系表达式，格式是：
IS<
关系符>
<
表达式>
三，实验举例
（实例1）输入一个数，判断这个数的奇偶性。
PrivateSubcommand1_click（）
DimaAsInteger
A=InputBox（”输入一个数“）
Ifamod2=1Then
MsgBoxa&
”是奇数”
Else
”是偶数”
Endlf图4-1例1运行结果
程序运行时，单击Commandl按钮，在弹出
升级会员 