VB 实验报告.docx

VB 实验报告.docx

《VB 实验报告.docx》由会员分享，可在线阅读，更多相关《VB 实验报告.docx（11页珍藏版）》请在冰豆网上搜索。

VB实验报告

太原工业学化学与化工系

实验报告

课程名称

VB程序设计

班级

1120473

实验日期

2013/10/9

姓名

鲁鑫

学号

32

实验成绩

实验名称

VisualBasic环境和简单程序设计

实

验

目

的

及

要

求

1．熟悉VisualBasic的集成开发环境。

2．掌握VisualBasic程序设计的基本步骤。

3．掌握基本控件（标签、命令按钮和文本框）的基本使用方法。

4.掌握常量和变量、表达式的基本概念和正确书写格式。

5．掌握赋值语句和常用函数的正确使用方法。

实

验

环

境

MicroftVisualBasic6.0

实

验

内

容

1.通过编程修改控件的属性。

2.编写程序，界面如图2-1所示。

使得单击一次按钮可以产生一个[60,90]之间的随机数并显示在标签Label1上，再求出该数的正弦值，将结果写在标签Label2上。

3.编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图2-2所示。

其中F与C之间的关系为：

4.求圆的面积及圆柱体的体积，界面如图2-3所示。

算

法

描

述

及

实

验

步

骤

步骤

（1）进入程序设计的界面如图1-1（a）。

（2）点击“单击此处”按钮后程序运行的界面如图1-1（b）。

【步骤】

（1）在窗体中创建一个标签Label1、一个命令按钮Command1。

（2）在属性窗口中设置对象的属性：

对象名称

属性名称

属性值

Form1

Caption

设计界面

Label1

Caption

请留意此处

Command1

Caption

单击此处

（3）在Command1的Click事件中编写程序代码：

PrivateSubCommand1_Click（）

 Form1.Caption="编程后界面"

 Label1.Caption="欢迎您使用VB6.0"

 Command1.Caption="运行结果"

EndSub

（用适当的形式表达算法设计思想与算法实现步骤）

2．

【步骤】

（1）设计应用程序的界面：

在窗体上创建一个命令按钮Command1、两个标签Label1和Label2。

（2）设置对象的属性

对象名称

属性名称

属性值

Form1

Caption

随机数的正弦值

Command1

Caption

下一个随机数

Label1

Caption

Label2

Caption

（3）编写事件代码：

PrivateSubCommand1_Click（）

 DimxasSingle,yasSingle

 Randomize

 x=Rnd*31+60

 y=Sin（x）

 Label1.Caption="随机数（60-90）：

"&Str（x）

 Label2.Caption="正弦值        ：

"&Str（y）

EndSub

（4）程序的运行及保存。

3．

【步骤】

（1）设计应用程序的界面：

在窗体上创建两个命令按钮Command1和Command2、两个标签Label1和Label2、两个文本框Text1和Text2。

（2）设置对象的属性

对象名称

属性名称

属性值

Form1

Caption

温度转换

Command1

Caption

> 

Command2

Caption

< 

Label1

Caption

华氏温度

Label2

Caption

摄氏温度

Text1

Text

Text2

Text

（3）编写事件代码：

PrivateSubCommand1_Click（）

 DimfasSingle,casSingle

 f=Val（Text1.Text）

 c=（f-32）*5/9

 Text2=Str（c）

EndSub

PrivateSubCommand2_Click（）

 DimfasSingle,casSingle

 c=Val（Text2.Text）

 f=9/5*c+32

 Text1=Str（f）

EndSub

（4）程序的运行及保存。

4．

【步骤】

（1）设计应用程序的界面：

在窗体上创建两个命令按钮Command1和Command2，四个标签Label1、Label2、Label3和Label4，四个文本框Text1、Text2、Text3和Text4。

（2）设置对象的属性

对象名称

属性名称

属性值

Command1

Caption

求圆的面积

Command2

Caption

求圆柱的体积

Label1

Caption

圆的半径

Label2

Caption

圆柱的高

Label3

Caption

圆的面积

Label4

Caption

圆柱的体积

Text1、Text2、Text3、Text4

Text

（3）编写事件代码：

PrivateSubCommand1_Click（）

  DimrAsSingle,sAsSingle

 r=Val（Text1.Text）

 s=3.14159*r*r

 Text3.Text=Str（s）

EndSub

PrivateSubCommand2_Click（）

 DimrasSingle,hasSingle,vasSingle

 r=Val（Text1.Text）

 h=Val（Text2）

 v=3.14159*r*r*h

 Text4=v

EndSub

（4）程序的运行及保存。

调

试

过

程

及

实

验

结

果

1.运行界面及结果如下：

2.运行界面及结果如下：

3.运行界面及结果：

4.运行界面及结果

总

结

1.学会了visualbasic的基本操作及相关属性的改写。

2．掌握了标签，文本框，命令按钮的使用方法

3.掌握了简单函数的使用方法

附

录

1

.PrivateSubCommand1_Click（）

 Form1.Caption="编程后界面"

 Label1.Caption="欢迎您使用VB6.0"

 Command1.Caption="运行结果"

EndSub

2.

PrivateSubCommand1_Click（）

 DimxasSingle,yasSingle

 Randomize

 x=Rnd*31+60

 y=Sin（x）

 Label1.Caption="随机数（60-90）：

"&Str（x）

 Label2.Caption="正弦值        ：

"&Str（y）

EndSub

3

PrivateSubCommand1_Click（）

 DimfasSingle,casSingle

 f=Val（Text1.Text）

 c=（f-32）*5/9

 Text2=Str（c）

EndSub

PrivateSubCommand2_Click（）

 DimfasSingle,casSingle

 c=Val（Text2.Text）

 f=9/5*c+32

 Text1=Str（f）

EndSub

4

PrivateSubCommand1_Click（）

  DimrAsSingle,sAsSingle

 r=Val（Text1.Text）

 s=3.14159*r*r

 Text3.Text=Str（s）

EndSub

PrivateSubCommand2_Click（）

 DimrasSingle,hasSingle,vasSingle

 r=Val（Text1.Text）

 h=Val（Text2）

 v=3.14159*r*r*h

 Text4=v

EndSub