VB第一部分实验指导书.docx

VB第一部分实验指导书.docx

《VB第一部分实验指导书.docx》由会员分享，可在线阅读，更多相关《VB第一部分实验指导书.docx（16页珍藏版）》请在冰豆网上搜索。

VB第一部分实验指导书

实验一VisualBasic集成开发环境和程序设计初步

实验目的：

1、了解VisualBasic系统对计算机软、硬件的要求。

2、掌握启动与退出VisualBasic的方法。

3、了解VisualBasic集成环境的组成，各部分的作用。

4、掌握建立、编辑和运行一个简单的VisualBasic应用程序的全过程。

5、掌握常用控件（文本框、标签、命令按钮）的应用。

6、感性认识控件（对象）、过程、事件、属性等的概念，初步认识窗体、控件、属性、过程在程序设计中的作用和关系。

实验内容：

建立一个“标准exe”类型的应用程序，要求单击“确定”按钮，在屏幕上显示“您好，世界！

”，单击“退出”按钮，退出应用程序。

界面如图1-1所示，以sy1.frm、sy1.vbp和sy1.exe文件保存到自己的软盘上。

图1-1

实验准备：

1.复习相关知识：

1）VB集成化开发环境　　2）建立VB应用程序

2.准确写出两事件代码，列出各控件所需属性（属性项目和属性值）。

实验步骤：

1.VisualBasic6.0中文版的启动与退出。

启动：

1）单击“开始”按钮，然后选择“程序”中“MicrosoftVisualBasic6.0中文版”，单击即可。

或：

单击桌面上“MicrosoftVisualBasic6.0中文版”图标，

2）新建工程对话框，单击打开“标准exe”按钮，进入环境。

退出：

1）单击集成环境窗口右上角的关闭按钮。

2）单击“文件”下拉菜单中的“退出”选项。

2.界面设计：

（1）添加标签Label1。

（2）添加命令按钮Command1。

（3）添加命令按钮Command2。

　（4）使用格式菜单，使用两命令按钮尺寸完全一样，并恰好处在窗体的中间位置。

3.设置界面对象属性：

可以通过用鼠标右键单击某一窗体或控件，在弹出的菜单中为其设置属性，也可以从属性窗口的对象列表框中选择要设置属性的对象。

1）设置Form窗体Caption属性为“Hello,World!

”

2）设置Command1按钮Caption属性为“确定”，名称属性为“OK”.

3）设置Command2按钮Caption属性为“退出”，名称属性为“Cancel”。

4）设置Label1标签Caption属性为空，Font属性对话框中字体为隶书，字体式样为粗体，大小为二号。

4.编写代码：

在Form（窗体）窗口中双击鼠标左键或单击视图菜单中的代码窗口菜单项，进入代码窗口。

用鼠标单击第一个列表框右边的下拉箭头，从弹出的下拉列表框中选择OK，然后在第二个列表框中选择Click事件，这时代码窗口出现了程序代码的过程头与过程尾。

1）在OK_Click事件中输入下面代码：

Label1.Caption＝“您好，世界”

2）在Cancel_Click事件中输入下面代码：

UnloadMe

5.保存文件：

1）选择文件菜单中工程另存为保存工程文件SY1.vbp

2）选择文件菜单中Form另存为保存窗体文件SY1.frm

6.程序运行：

1）在运行菜单中选择启动菜单项。

或：

单击工具栏中的启动按钮。

2）单击确定按钮。

3）单击退出按钮。

若程序不能正常运行，应用运行菜单中的结束菜单项，终止程序运行，然后检查属性设置和程序代码是否有误，直到正常运行为止。

程序正常运行后，应再一次存盘保存工程文件。

7、编译应用程序：

选择文件菜单中生成firstapp.exe菜单项，出现生成工程对话框输入文件名SY.exe，单击确定按钮，生成应用程序。

实验二顺序程序设计

实验目的：

1、掌握表达式，赋值语句的正确书写规则。

2、掌握常用函数的使用。

3、掌握InputBox与MsgBox的使用。

实验内容：

1.编一个华氏温度与摄氏温度之间转换的程序，运行界面如图2-1所示。

要使用转换的公式是：

F=9C/5+32‘摄氏温度转化为华氏温度，F为华氏

C=（F-32）5/9‘华氏温度转化为摄氏温度，C为摄氏

要求用按钮实现转换。

即单击“华氏转”按钮，则将摄氏温度转化为华氏温度。

同样，单击“摄氏转”按钮，则将华氏温度转化为摄氏温度。

图2-1

[实验目的]

掌握简单程序的编写、输入数据的方法、不同数据类型的转换。

[提示与分析]

1）上述公式中右边的变量F、C应该是有值的，该值可通过Text1、Text2分别赋

值获得，然后通过公式计算得到转换的结果。

也可以不使用变量F、C，直接使用Text1、Text2进行计算。

2）Text文本框存放的String类型，为了程序正常运行，应通过Val（）函数将字符串转换为数值类型。

3）本题关键是将文本框的内容如何代到转换公式中。

2．使用Move方法移动标签，参见图2-2所示。

3．使用Print方法，输出如图2-3所示图形。

图2-2

4.输入半径，计算圆周长和圆面积。

进一步要求，为了保证程序运行的正确，对输入的半径要进行合法性检查，若发现输入的数中有非法数字，利用MsgBox显示出错信息，利用SetFocus方法定位于出错的文本框处，重新输入。

图2-3

5.利用计算机解决古代数学问题“鸡兔同笼问题”。

即已知在同一笼子里有总数为m只鸡和兔，鸡和兔的总脚数为n只，求鸡和兔各有多少只？

[实验目的]

掌握InputBox函数、MsgBox过程的使用；利用计算机解初等数学题；为了保证有正确的解，提前使用If语句。

[提示与分析]

1）m，n通过InputBox（）函数获得；鸡、兔的只数通过已知m，n列出方程可解，但不要求出荒唐的解（例如3.5只鸡、4.5只兔，或者求得的只数为负数），若出现荒唐的解，要求显示有关信息，并重新输入。

2）设x为鸡的只数，y为兔子的只数；已知总头数m和脚数n，则

x+y=m

2x+4y=n

得y=n/2–m

x=m–y

从公式推得：

当总脚数是偶数并且脚数在二至四倍的头数之间（2m

判断一个数是否是偶数，只要通过判断Mod2是否为0即可。

二条件在程序中表示为：

nmod2=0和n>2*mandn<4*m.

3）算例：

头数取1、1、2、20时脚数对应取4、2、6、100

实验三选择结构程序设计

实验目的：

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

2、掌握单分支与双分支条件语句的使用。

3、掌握多分支条件语句的使用。

4、掌握情况语句的使用及与多分支语句的区别。

实验内容：

1.在购买某物品时，若所花的钱x在下述范围内，所付钱y按对应折扣支付：

xx<1000

0.9x1000≤x<2000

y=0.8x2000≤x<3000

0.7xx≥3000

[提示与分析]

1）此例用多分支if语句实现，注意计算公式和条件表达式的正确书写。

2）多个条件，可有两种表示，

方法一：

从小到大或从大到小依次一一表示；

方法二：

不管次序，将条件区间列出。

2.某市公用电话收费标准如下：

通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7：

00—19：

00之间通话者，按上述收费标准全价收费；在其他时间通话者，一律按收费标准的半价收费。

试计算某人在T时间通话S分钟，应缴多少电话费。

运行界面如图3-1所示。

图3-1

[实验目的]

1）利用前面学过的选择结构，学会用计算机解决时间问题的能力。

2）时间函数、子字符串函数、格式函数的综合使用。

[提示]

1）时间可以通过文本框输入；也可以通过Time时间函数求得当时通话的时间。

但要通过Cdate函数将字符串类型转换成日期类型，为

（2）中计算通话时间做准备。

例如：

date1=CDate（Text1.Text）:

date2=CDate（Text2.Text）

2）通话时间可以通过DateDiff（）函数将两个时间以秒为间隔形式相减。

也可以利用Hour、Minute和Second分别取小时、分和秒，然后化成以秒为单位再相减。

例如：

st=DateDiff（"s",date1,date2）/60

3）为了简化程序，以开始通话的时间为是否享受半价收费的记费方法。

实验四循环结构程序设计

实验目的：

1、掌握For语句的使用。

2、掌握Do语句的各种形式的使用。

3、掌握如何控制循环条件，防止死循环或不循环。

实验内容：

1、编一个程序，显示出所有的水仙花数。

所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。

例如，153是水仙花数，因为153=13+53+33。

[提示与分析]

解该题的方法有两种：

1）利用三重循环，将三个数连接成一个3位数进行判断。

例如，将1—9连接成一个123456789的9位数，程序段如下：

s=0

Fori=1To9

s=s*10+i

NextI

2）利用单循环将一个3位数逐位分离后进行判断。

例如，将123456789的一个9位数，从右边开始逐位分离，程序段如下：

s=123456789

DoWhiles>0

s1=sMod10

s=s\10

Prints1;‘从右边开始显示分离出每一位

Loop

2、递推法：

猴子吃桃子。

猴子在一天摘了若干个桃子，当天吃掉一半多一个；第二天的接着吃剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半另一个，到第七天早上要吃时只剩下一个了，问猴子那天共摘了多少个桃子？

[分析]

这是一个“递推”问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子……

设第n天的桃子为Xn,那么它是前一天的桃子数Xn-1的二分之一减一。

即：

Xn=0.5Xn-1–1也就是：

Xn-1=（Xn+1）×2

已知：

当n=7第7天的桃子数为1，则第6天的桃子数由公式得4个，依次类推，可求得第一天的桃子数。

3、有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b

的长度分别为17m和27m，每种至少1段，分割成a、b各多少段后，剩余的残料r最少？

[分析]

该题利用二重循环求残料r的最小值正数，因为残料不可能是负数，否则与实

际情况不符。

实验五数据结构---数组

实验目的

1.掌握数组的声明、数组元素的引用。

2.掌握静态数组和动态数组的使用差别。

3.应用数组解决与数组有关的常用算法。

实验内容

1.输入一串字符，统计各字母出现的次数（大小写字母不区分），并对出现的字母显示其出现的个数，效果如图5-1所示。

图5-1

[分析]

1）统计26个字母出现的个数，必须声明一个具有26个元素的数组，每个元素的下标表示对应的字母，元素的值表示对应字母出现的次数。

2）从输入的字符串中逐一取出字符，转换成大写字符（使得大小写不区分），进行判断。

例如：

c=UCase（Mid（Text1,I,1））

2.要求输入若干同学的成绩，计算平均分和高于平均分的人数，并将这两项放在该数组的最后。

参见图5-2所示。

图5-2

实验六常用控件

实验目的：

1、掌握常用控件的重要属性、事件和方法。

2、掌握常用ActiveX控件的特性，熟练应用这些高级控件进行编程。

3、初步掌握创建基于图形用户界面应用程序的过程。

4、熟练掌握键盘事件、鼠标事件及其事件过程的编写技艺。

5、掌握普通拖放和OLE拖放