VB实验指导2024版资料

目录

第一部分上机实习指导...................................................2

开头的话..................................................................................2

试验一VB环境和可视化编程基础..............................................................3

试验二依次结构程序设计....................................................................11

试验三选择结构程序设计....................................................................16

试验四循环结构程序设计（I）.............................................................................................................................22

试验五循环结构程序设计（2）.............................................................................................................................24

试验六数组的运用（1）........................................................................................................................................26

试验七数组的运用（2）........................................................................................................................................29

试验八过程调用（1）............................................................................................................................................31

试验九过程调用（2）............................................................................................................................................33

试验十常用控件的运用......................................................................35

试验十一文件的操作........................................................................42

试验十二综合设计..........................................................................45

试验十三数据库应用基础（选作）............................................................49

其次部分试验报告......................................................52

第一部分上机实习指导

开头的话

为了帮助同学们更好地学习VisualBasic程序设计，特编写本书作为协助教学用书，用以

指导上机实习。

学习计算机程序设计，上机实践与理论学习同等重要。把上机实践搞懂弄通，可以达到

事兰功倍的效果。希望同学们要脑勤手勤，通过上机实习环节，真正驾驭计算机这一现代化

工具，为将来成为国家的复合型适用型人才奠定基础。

在此先向大家提几点留意事项：

1.上机以前要做好充分的预习，复习课堂讲的学问，看懂上机指导的内容，不要急匆忙

地进机房就盲目地敲键盘，学习程序设计可不是练习打字哟。

2.本指导书给出的一些杼序代码仅供参考，同学们不要被它所束缚，因为编程的方法许

多，关键是要提高分析问题与解决问题的实力。提倡开拓思路，目标是实现题目要求的功能，

允许殊途同归。当然，也有算法的好与坏问题（有效性问题），那要靠多积累多学习才能够驾

驭。

3.本课程的上机实习题目是前后相关的，从第一次试验起先，请同学留意保存文件。因

此，在起先试验之前，要打算好保存敷据的介质，比如U恭0创建一个文件夹，把全部的文

件存在里面。但建议在上机作题时先临时把文件存在硬盘的某一文件夹，试脸结束后在存到

自己的盘中，这样运行速度会快些。也可以将每次的文件存在自己的信箱或网络硬盘中。

4.由于试验课时有限，每次试验都有必做题目（题号前面带★的）和选做题E,在完成

必做题的基础上，选做题可依据自己的实际或依据试验指导老师的规定挑一些练习（最好都

做，可利用课外时间），有实力的同学可做一些开放型试脸题，基础差的同学可重点做一些基

本题，肯定要立足于自己学会，切记不要相互拷贝。

5.最终一次试验是将前面的题目综合汇总，其中有一项是为老师制作的一个闵卷程序。

由于期末复习时间较紧，为保证这个综合设计，同学们可以提前做出主界面，再将每次的题

目加入到里面。

本指导书如有错误或不妥之处请大家指出，不胜感谢。

实验一VB环境和可视化编程基础

一、试验目的

I.驾驭启动与退出VisualBasic的方法。

2.熟识VisualBasic6.0的集成环境及其基本操作。

3.驾驭建立、编辑和运行一个简洁的VB应用程序的基本步骤。

4.驾驭常用控件（窗体、文本框、标签、吩咐按钮）的运月。

5.理解面对对象编程的机制及编码过程。

二、试验打算

1.复习VB窗体窗I」、属性窗口、工程管理器窗口、代码窗II、工具箱窗口的组成、打开和关闭的方

法。

2.复习窗体、标签、按钮、文本框四个控件的常用属性和方法，自学图形框、图像框控件的运用（参

见教材2.2及教材71.3）,

3.复习教材第4.6节程序调试。

4.试验步骤如下（以后各题均执行此步骤）：

⑴建立用户界面须要的控件对象；

⑵设置对象属性；

⑶编写对象事务过程；

⑷保存文件（窗体文件和工程文件及其它）；

⑸调试运行程序。

三、试验内容

★试验1-1a

创建一个简洁的VB程序。要求在窗体背景上放入一张图片，用一个标签控件显示“欢迎运用Visual

Basic”字样。程序运行效果如图1-1所示。

主要步骤和设计要点：

⑴启动VB,创建一个“标准”类型的应用程序。

⑵从【工具箱】中选择一个标签控件（Label）放在窗体上。

⑶在【属性窗口】设置窗体与标签的属性，详见表1-1«（若【属性窗口】没有打开，可在选中控件

对象后单击右键，在弹出的快捷菜单中选择“属性窗口”）。

（4）为让标签居中，可运用【格式】菜单中的“在窗口中居中对齐”一项设置为“水平对齐”。

（5）窗体的背景图片是MicrosoftOffice的剪贴画，一般可在C：（或D：）\ProgramFiles\Microsoft

Office\Mcdia\Cagcat10文件夹中找到，也可通过Windows的文件搜寻，还可以在Office剪贴画中搜寻“计算

机”，查看该图片的属性找到其路径。

（6）保存文件时先弹出对话框保存窗体文件，再弹出对话框保存工程文件。每个VB程序都至少有这两

个文件。本题分别以syl-la.frm和syl-la.vbp为文件名保存，以后各题也建议遵循这样的文件命名。

⑺单击工具栏上“启动”按钮或功能键F5,运行程序，查看效果。如有不对，再行修改。反复调试直

至符合要求。

图17试验17a运行效果

表17试验17a的属性设置

控件名标题背景色自动尺寸边框样式字体(Font)图片

(Name)(Caption)(BackColoi)(AutoSize)(BoderStyle)(Picture)

Form11a试验l-laJ0195384.WMF

Label1“欢迎运用黄色True1-FixedSingle楷体

Visual粗体

Basic”小.

说明：⑴本题工程中只有一个窗体，运用它的默认名称为Forml本也无妨，但考虑到以后要将这个窗体加入

到其它工程中，故命新名：Formlla,以后各题的窗体都以此方式按Form+试脸序号命名，不再赞述。

⑵本题没有编写程序代码的问题。

(3)表1-1中属性值为空的，表示运用默认值或该控件没有此属性，下同。

试验1-1b

在试验1-Ia的基础上，做以下变更：用在图形框控件添加图片的方法装饰窗体，并用两种不同的属性

设置对比效果；通过吩咐按钮变更标签字体。程序运行效果如图1-2所示。

主要步骤和设计要点：

⑴新创建一个“标准”类型的应用程序。此时VB系统在打开【新建工程】窗口前可能提示是否存上一

题的两个文件，回答“是”。

⑵从【工具箱】中选择控件：一个标签(Label)、两个图像框(PictureBox)、三个吩咐按钮

(CommandButton)放在窗体上。

⑶在【属性窗口】设置窗体与其它控件的属性，部分属性值见表1-2。

⑷为让窗体上控件对齐与均布，可运用【格式】菜单中的“对齐”、“统一尺寸”、“水平间距”、

“在窗口中居中对齐”等项进行调整。

⑸在【代码窗口】写三个吩咐按钮中的代码。(【代码窗口】可通过双击相应控件打开；或调用菜单：

【视图】一【代码窗口】)。留意对应的控件名称及事务名称。

⑹两个图形框中的背景图片同上题。

⑺保存文件syl-lb.fnn和syl-lb.vbp,运行并调试程序。

*实会-lb

欢迎使用VisualBasic

宋体|隶书」|rig

图1-2试验l-lb运行效果

表1-2试验17b的属性设置

控件名标题前景色背景色边框样式字体(Foni)图片

(Name)(Caption)(ForcColor)(BackColor)(BoderStyle)(Picture)

Form11b试验l-lb黄色

Liibell“欢迎运用VisualBasic”红色backStyle=O楷体

(Transparent粗体

背景透亮)小三

Picture1白色0—NoneJOI95384.wmf

Picture2按钮表面色1-FixedSingleJ0195384.wmf

Command1宋体

Command2隶书

Conimand3还原

表1-3试验1Tb的事务过程代码

控件名单击事务过程(Click)

Command1LabelI.Fonl="宋体"

Command?LabelI.Font="隶书"

Command3Label1.Font="楷体_GB2312"

留意：⑴代码中的引号及其它标点肯定要写为英文标点，不要写成汉字标点符号。

(2)还原按钮中对Label1的字体设置要与初始设置一样，此处是“楷体”。

★试验1-2a

创建一个简洁的VB程序。要求在窗体上显示“欢迎登陆VB上机系统”、“请输入您的学号”和“请

输入登录密码”，以及两个等待输入学号和密码的文本框和•个吩咐按钮。学号与密码均为8位（超过8

位则不能输入），密码的输入显示为“*另外窗体上不要最大、最小和关闭按钮。单击吩咐按钮“确定”

时，程序结束。程序运行效果如怪1-3所示。

实险-2a

欢迎登录VB上机系统

请输入你的学号I------------------------

话输入登录密码I------------------------

图1-3试验1-2a运行效果

主要步骤和设计要点：

（1）从【工具箱】中选择控件：三个标签（Label）、两个文本框（Text）和一个吩咐按钮（CommandButlon）

放在窗体上。

⑵在【属性窗口】设置窗体与其它控件的属性，部分属性值见表1-4。

⑶为让窗体上控件对齐与均布，可运用【格式】菜单等进行调整。

（4）在【代码窗口】写出吩咐按钮Command1的Click（单击事务）中的代码:End。

⑸保存文件syl-2a.frm和syl-2a.vbp。运行并调试程序：输入你的学号和一个自定义的密码，查看效

果，再试一下输入9位是否可以。最终单击“确定”按钮让程序结束。

表1-4试验1-2a的属性设置

控件名标题字体文本文本最大长度口令掩码限制框(ControlBox)

（Name）(Caption)(Font)(Text)（MaxLength）(PasswordChar)

Form12a试验l-2aFalse

Label1“欢迎登录VB小二

上机系统”

Te.Ul小五清空8

Text2小五清空8*

Command1确定小五

思索并尝试：⑴再添加一个“显示”按钮，将揄入的密码的内容在Text2中显示出来。

⑵或添加一个“打印”按钮，将输入的密码的内容打印到窗体上。

试验1-2b

创建VB程序：在名称为Forml2b的窗体上放三个文本框和两个吩咐按钮，其中第一个文本框用于显

示文本（不能输入），其次个文本框用于输入文本，第三个文本框用于摘录文本。后两个文本他要满意多

行输入。要求程序运行后，在左侧文本框中输入文本，不能超过100个字符，然后用鼠标选取其中部分文

本，单击“摘要”按钮，选中文本则放入右边文本框。“删除”钮将的作用是将右边文本框清空。运行效

果如图1-4所示。

鼻实验l-2b

图1-4试验I-2b的运行效果

主要步骤和设计要点：

(1)从【I：具箱】中选择控件：三个文本框(Text)和两个吩咐按钮(CommandButton)放在窗体上。

运用【格式】菜单等进行位置调整。

⑵在【属性窗口】按题目要求设置文本框的属性，部分属性值见表1-5。

⑶在【代码窗口】写出相关代码，详见表1-6。

(4)保存文件syl-2b.frm和syl-2b.vbp。运行并调试程序：输入一段文本，选中其中一部分，单击两个

按钮查看效果。

表1-5试验1-2b的属性设置

控件名标题文本背景色只读多行文本最大长度滚动条

(Name)(Caption)(Text)(BackColor)(lockeD)(MultiLinc)(MaxLcngth)(ScrollBars)

Texll清空灰色TrueTrue

Text2清空True1002-Vertical

Text3清空True2-Vertical

Conunand1摘要

Command?删除

表1-6试验1-2b的事务过程弋码

控件名单击事务过程(Click)装载事务过程(load)

Command1Text3.Text=Text2.SeiText

Command?Text3=""

TcxlI.Tcxl="1.请在左边输入文本，不要超过100字."+vbCrLf+"2.

Form12b用鼠标选取部分文本，单击“摘要”按钮，将文本放入右边文本框。"+"

单击“删除”钮将右边文本框清空。"

提示：(DTexll中的文本Text属性可以在“属性窗口”作初始设置，也可以象本题一样在窗体的Load事务中

用代码的形式写入。而文本框的SelTcxt属性只能在代码中写。

⑵若要设鹿文本框的滚动条，必需先将文本框的多行属性(MulliLine)设为真(True)。

★试验1-3a

创建一个VB程序，运行界面如图1-5所示。其功能为：在文本框中输入一串字符，通过按钮对其字

号放大2倍、缩小2倍或还原成初始设置。为了防止程序运行错误(字体过大或过小)，不应连续放大和缩

小，即单击一次“放大”或“缩小”按钮后，按钮为不行操状态。

图1-5试睑l-3a的运行效果

主要步骤和设计要点：

(1)从【匚具箱】中选择控件：一个文本框(Text)、一个标签(Label)和三个吩咐按钮(CommandButton)

放在窗体上。运用【格式】菜单等进行位置调整。

⑵在【属性窗口】进行相关的属性设置，其中标签(Labell)的字号设置为4号。

⑶在【代码窗口】写出相关代码，详见表1-6。两个要点：

①因在Form_Load()事务过程中设置了Texll的FontSize初始值，为了实现“还原”功能，可以倜用

Form_Load()事务过程中获得还原值；

②在“放大”、“缩小”按钮单击事务里让自己变为不行用的同时，别忘了把另一个设为可用。

(4)保存文件syl-3a.frm和syl-3a.vbp。运行并调试程序：输入一串字符，单击三个按钮查看效果。

说明：代码中CallFormLoad一句，作用是调用FormLoad过程，将在第6章讲到。

表1-7试验1-3a的事务过程弋码

及件名单击事务过程(Click)装载事务过程(load)

Form13aText!.FontSize=24

Text1.FontSize=Text1.FontSize*2

Command1

Command1.Enabled=False：Command?.Enabled=True

Text!.FontSize=Text1.FontSize\2

Command?

Command2.Enabled=False：Command1.Enabled=True

CallForm_Load

Command?

Comniand2.Enabled=True：Command1.Enabled=True

★试验1-3b

编制程序：在窗体上放一张小汽车图片，用两个吩咐按钮限制它的移动，但移动到窗体的边缘时就不

能再动，且在窗体上打印出“停车”，此时第三个“还原”“按钮出现，可以单击它回到原位置，也可以

向相反方向移动。程序运行效果如图I-6和图1-7所示。

图1-6试验I-3b的运行效果1

图试验1-3b的运行效果2

主要步骤和设计要点：

（1）从【工具箱】中选择控件：•个图像框（Image）和三个吩咐按钮（CommandButton）放在窗体上。

运用【格式】菜单等进行位置调整。

⑵在【属性窗口】进行相关的属性设置，要点：

①吩咐按钮可以有另一种仔形样式，此时要把Caption属性设为空，本题中的图片一般可以在C:（或

D：）\ProgramFiles\MicrosoftVisualStudio\Common\Graphics\Icons\Arrows文件夹中找到，也可以通过搜寻

获得;

②将“还原”按钮设为不行见。

⑶在【代码窗口】写出相关代码，详见表1-9。要点：

①通过Image1的Left属性的变更达到图象移动的目的；

②通过Image1的Left的值与窗体边界的关系限制“小汽车”停止移动；

③代码中有选择结构if语句，将在第三章讲到。

（4）保存文件syl-3b.frm和syl-3b.vbp。运行并调试程序：单击三个按钮查看效果。

表1-8试验1-3b的属性设置

控件名标题样式可见图片

（Name）(Caption)(Style)(Visible)(Picture)

Image1J0212957.WMF（位置同试验l-la中图片）

Command1（清空）1-GraphcalPOINT02.ICO

Co(ninand2（清空）1-GraphcalPOINT04.ICO

Conimand3还原False

表1-9试验1-3b的中吩咐按钮的单击（Click）事务过程代码

Command!Command2Coirmand3

CisCis

Comniand3.Visible=FalseCommands.Visible=False

IfIrnagel.Lcft<0ThenIfImagel.Left>(Form13b.Width-Image1.Width)Then

Commands.Visible=True：Print"停车！"

Image!.Ixft=1440

Prim"停车！"Commands.Visible=True

ElseElse

Image1.MoveImagel.Left-50Image1.MoveImage1.Left+50

EndIfEndIf

思索并尝试：（D不用Move方法，而是用变更Left属性值，实现图像的移动。

⑵不用“还原”按钮，小汽车移动到左边缘时“右指”的按钮出现，小汽车移动到右边缘时“左指”

的按钮出现。

试验1-3c

如图1-8所示界面，通过单击自动按钮（左）或手动按钮（右），使窗体中“欢迎运用VB”字体向下

滚动，试自己完成该题。体会运行、调试效果。（窗体的背景图片可自己选择）。

图1-8试验1-3c的运行效果

实验二依次结构程序设计

一、试验目的

I.驾驭表达式、赋值语句的正确运用与书写规则。

2.驾驭常用函数的运用。

3.驾驭InputBox与MsgBox函数(过程)的运用。

4.驾驭各种数据类型

5.驾驭VB程序基本的输入输出方法。

二、试验打算

1.更习利用输入框函数InpuiBox进行数据输入；利用文本框进行数据输入。

2.复习利用标签输出结果、利用文本框输出结果、利用Print方法在窗体中或图形框中输出结果、利

用信息框函数(过程)输出简洁结果。

3.复习各种数据类型的声明、赋值与运算。

4.复习相关函数:Vai()、StrO、IsNumeric()、InputBox()、MsgBox()、Rgb()、Len()、Trim

()、LCase()、UCase()、DaleValue()、DateDiff()、Year()、Month()、Day()、Hour()、Minute

()、Second()、Date()、Now()o

5.夏习相关事务与方法：SetFocus方法、LostFocus事务、GotFocus事务。

三、试验内容

★试验2-1a

编制程序解决简洁实际问题：用户输入圆的半径，计算出圆周长和面积，运行界面如图2-1所示。耍

求对输入半径进行合法检查，若发觉有非法数字(不是数字的字符)，利用MsgBox显示出错信息，利用

SetFocus方法定位于出错的文本框处，以便重新输入。

图2-1试验2-la的运行效果

主要步骤和设计要点:

⑴将图2-1所示的控件放到窗体上：文本框用作数据的输入与输出，标签用于提示输入，按钮用来计

算结果。

⑵在【属性窗口】进行相关的属性设置。将用作输出的文本框设为只读，且将背景色设为灰色。

⑶在【代码窗口】写出相关代码，详见表2-1。要点：

①文本框中的数据是字符型的，留意将其转换为数值数据，运用函数Val()。

②在Texll失去焦点时(LoslFocus。事务)验证数据的有效性，利用函数IsNumeric()推断是否是

数字字符，若不是先清空文本框再让它获得焦点(SetFocus)。

③本题中运用了MsgBox()函数，但不要求返回值。

⑷保存文件sy2-la.frm和sy2-la.vbp.运行并调试程序：输入半径数，看计算结果(可用计算器验算

一下)；输入非法字符看是否报错c

表2-1试验2-1a主要控件对象的属性设置与事务代码

控件名只读背景色事务过程代码

(Name)(lockeD)(BackColor)

TexllPrivateSubText1_Los(Focus()

IfNotIsNumeric(Texrl)Then

i=MsgBox("输入了非数字字符!",64,"提示")

Text1

Textl.SetFocus

EndIf

Text2=""

Text3=

EndSub

Te:1t2True灰

Tcxl3True灰

Command1PrivateSubCommand1_Click()

Text2.Text=2*3.!4*Val(Textl)

EndSub

Conimand2PrivateSubConimand2_Click()

Text3.Text=3.!4*Val(Textl)A2

EndSub

提示：当用鼠标或Tad键将光标移至别处时称作失去焦点，相反叫获得焦点。

★试验2-1b

同上题：用户输入圆的半径，计算出圆周长和面积，运行界面如图2-2所示。要求利用InpinBox函数

进行输入，利用标签进行数据结果的显示。请同学自己完成。

★提示：

1.将兀值设为一个常量，便于在表达式中计算。

2.数值数据用“十”号连接到Label的Caption属性时要用函数Str()转换。

%实验2Tb

计算圆的周长与面积

圆的半径为：12

圆的周长是:75.39816

圆的面积是：452.3889

if......I+M...n

图2-2试验2-1b的运行效果

思索：几种揄入、输出的方式各有什么优缺点，你更喜爱用哪种？

★试验2-2a

接试验l-2a题：界面大体如前，将原“确定”按钮改为“退出”，功能不变。再加一个“验证”按钮，

其功能是：若输入正确的学号“20249999”、正确的密码“TJinl234”，则在文本框中显示“True"，反

之为“False”。均为红色显示。运行效果如图2-3所示。

图2-3试验2-2a的运行效果

主要步骤和设计要点：

⑴打开已有的工程文件syl-2a.vbp(留意不是窗体文件)，利用【文件】菜单中【工程另存为…】一

项将其另存为sy2-2a.vbp；然后利用【文件】菜单中【syl-2a6m另存为…】一项将窗体文件也另存为

sy2-2a.frnio在新文件中编辑修改。

⑵通过菜单【视图】中【对象窗口】一项调出窗体，也可以双击“工程资源管理器”中的窗体文件名，

打开窗体，然后进行添加一个吩咐按钮，相应的属性设置。

⑶在【代码窗口】写出“验证”按钮的单击事务代码及其它代码，详见表2-2。要点：

①利用RGB()函数变更文本框中文本的颜色。

②Tcxtl=(Tcxtl="20249999”)这个赋值语句右侧得到的是一个逻辑值，将它赋给了Tcxtl的Text属

性(文本框的默认属性)。

(4)保存文件sy2-2a.fim和sy2-2a.vbp。运行并调试程序。

提示：肯定要把窗体文件也通过“另存为''复制过来，否则两个工程共用一个窗体，做过修改的窗体就与原工

程的膻意不符了。

表2-2试验2-2a主要控件对象的事务代码

控件名得到焦点事务过程代码单击事务过程代码

(Name)(GotFocus)(Click)

TexllText1=

Text1.ForeColor=RGB(0.0.0)

Text2Text2=""

Tcxt2.ForcColor=RGB©0,0)

Text2.PasswordChar=

Conimand2Text1.ForeColor=RGB(255,0.0)

Text2.ForcColor=RGB(255.0,0)

Text2.PasswordChar=""

Textl=(Textl="20249999")

Text2=(Text2="TJinl234")

试验2-2b

练习字符串的相关函数。输入一个字符串，将它转换成大写、转换成小写、显示其字串长度、显示去

掉首尾空格后的长度。运行效果如图2-4所示。请同学们参照图2-4所示界面，自行设计本题。

图2-4试验2-25的运行效果

试验2-2c

练习时间的相关函数。利用标签显示当前的日期、时间，利用文本框输入一个新的日期。通过函数计

算出新日期与当前之差(多少年、多少月、多少天)并用红色文本显示出来。运行效果如图2-5所示。请

同学们参照图2-5所示界面，自行设计本题。

★提示：

1.要用到这些函数：Date()、Year()、Month()、Day()、Hour()、Minute()、Second()、

Now()、DateValue()、DateDiff().

2.在Form_Load()事务里写的代码，能够在程序起先运行时就起作用。前两行文本是通过函数得到

的，所以不行能在【属性窗口】中设置其值。

3.用运算符“&”可以把不同类型数据联成一个字符型的数据。

■实验2-2c

今天是2011年3月150

现在是21点51分58秒

请输入你的毕业臼期:

[20U年[7—月p-臼

令天距你毕业还有3年或40个月或I204天

0

图2-5试验2-la的运行效果

试验2-3a

练习赋值语句。利用标签、文本框、按钮等控件，显示赋值语句的内涵。运行效果如图2-6所示。请

同学们参照图2-6所示界面，自行设计本题。

★提示：

1.对应X、Y的文本框用于输入，其它三个用于输出，可设为只读。

2.几个按钮中单击事务的代码均为先将两个文本框的值给变量X与Y,如乂=T©*[1：y=Text2；再

进行相应的赋值，如乂=丫；最终再将新值给到新X和新Y,如Text3=x,Text4=y,等等。

图2-6试验2-3a的运行效果图2-7试验2-3b的运行效果

试验2-3b

练习表达式的正确书写与计算。利用标签、文本框、按钮等控件，计算数学题。运行效果如图2-7所

示。请同学们参照图2・7所示界面，自行设计本题。

★提示：

题H的公式是张图片。先用Office中的公式编辑好（或月图形工具画好），再贴到窗体上的图形框

（或图像框）中。

实验三选择结构程序设计

一、试验目的

1.驾驭逻辑表达式的正确书写形式。

2.驾驭单分支与双分支条件语句的运用。

3.驾驭多分支条件语句的运用。

4.驾驭状况语句的运用及与多分支条件语句的区分。

二、试验打算

1.复习If语句中的If…Then形式、If…Then…Else形式、比..Then…Elself形式。

2.复习If语句的嵌套形式。

3.复习SelectCase语句。

4.复习函数：MsgBox()(及MsgBox过程)、Rnd()、Ini()、IsNumeric()^InStr()、Trim()、

Chr()o

5.更习SetFocus方法、GotFocus事务、Load事务。

三、试验内容

★试验3-1a

输出二级考试的成果：假如笔试合格，上机考试也合格，输出“合格”；假如笔试合格，上机不合格,

输出“笔试合格”；若相反，输出“上机合格”；假如两者都不合格，输出“不合格”。用选择结构编写一

段程序，完成以上功能，输入用文本框实现，输出用标签或文本用实现。(注：大于等于60分为合格)。程

序运行效果如图3-1所示。

图31试验31a的运行效果

主要步骤和设计要点：

⑴依据图3-1所示，在窗体上添加相应控件对象。

⑵在【属性窗口】进行相关的属性设置。若用文本框作输出将其设为只读，且将背景色设为灰色。若

用标签作输出将其边框样式设为BorderStyle=l,背景色设为灰色。

⑶在【代码窗口】写出“核定”按钮的单击事务代码。请同学自行完成。

(4)保存文件sy3-la.fnn和sy3-la.vbp。运行并调试程序。

思索并尝试：在你写的代码中不要运用逻辑运算符“And”。

试验3-1b

编写模拟袖珍计算器的程序，运行界面如图3-2所示。要求如下：⑴输入两个操作数和一个四则运算

操作符，依据操作符确定所做的运算。⑵输入的数据进行合法检验，当输入出错时，调用MsgBoxO提示。

程序运行效果如图3-2所示。

图3-2试验3-1b的运行效果

主要步骤和设计要点：

⑴将图3-2所示的控件放到窗体上：文本框用作数据的输入与输出，标签用于提示输入，按钮用来计

算结果。

⑵在【属性窗口】进行相关的属性设置。将用作输出的文本框设为只读，且将背景色设为灰色。

⑶在【代码窗口】写出相关代码，详见表3-1及其以下表3-2中文字。要点如下：

①三个用于输入数据的文本框得到焦点时，就意味着可能会重新输入，所以要将输入文本框中的数

据清空，以避开在窗体上出现错误的显示。

②计算前先验证数据数据的有效性，利用函数IsNumeric()推断是否是数字字符，若不是则清空文

本柩让它获得焦点(SelFocus),以便重新输入。

③依据输入的运算符来推断作什么运算，参考代码中用了一个包含四则运算符的字符串Strc,通过

找子串函数InStr(),推断Text3口的字符是否在含于Strc中，若不在(返回值为0),则认定为非法字符,

让用户重新输入。

(4)保存文件sy3-lbfrm和sy3-lb.vbp.运行并调试程序：输入运算符与运算数，看计算结果(可用计

算器验算一下)；输入非法字符看是否报错。

表37试验37b主要控件对象的事务代码

控件名得到焦点事务过程代控件名单击事务过程代码

(Name)码(Name)(Click)

(GolFocus)

TextlText4=""Command1见表3-2中的内容

Texl2Texl4=

Text3Text4=""Command2End

表3-2试验3-1b按钮的单击事务代码

“计算”

PrivateSubCommandI_Click()

Dimml!,m2!,c$,strc$,m!,i%

strc="+-*/"

IfNotIsNurneric(Textl)Then

i=MsgBoxf'数1是非数值数据！、16,“提示”)

Textl=""

Tcxtl.SetFocus

ElselfNotIsNumeric(Text2)Then

i=MsgBox("数2是非数值数据！".16,“提示”)

Text2=""

Text2.SeiFocus

ElselfInStr(strc,Trini(Text3))=0Then

Ifc<