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
升级会员 