VB 实验报告Word格式.docx

上传人:b****2 文档编号:5279254 上传时间:2023-05-04 格式:DOCX 页数:11 大小:145.62KB
下载 相关 举报
VB 实验报告Word格式.docx_第1页
第1页 / 共11页
VB 实验报告Word格式.docx_第2页
第2页 / 共11页
VB 实验报告Word格式.docx_第3页
第3页 / 共11页
VB 实验报告Word格式.docx_第4页
第4页 / 共11页
VB 实验报告Word格式.docx_第5页
第5页 / 共11页
VB 实验报告Word格式.docx_第6页
第6页 / 共11页
VB 实验报告Word格式.docx_第7页
第7页 / 共11页
VB 实验报告Word格式.docx_第8页
第8页 / 共11页
VB 实验报告Word格式.docx_第9页
第9页 / 共11页
VB 实验报告Word格式.docx_第10页
第10页 / 共11页
VB 实验报告Word格式.docx_第11页
第11页 / 共11页
亲,该文档总共11页,全部预览完了,如果喜欢就下载吧!
下载资源
资源描述

VB 实验报告Word格式.docx

《VB 实验报告Word格式.docx》由会员分享,可在线阅读,更多相关《VB 实验报告Word格式.docx(11页珍藏版)》请在冰点文库上搜索。

VB 实验报告Word格式.docx

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

请留意此处

Command1

单击此处

(3)在Command1的Click事件中编写程序代码:

PrivateSubCommand1_Click()

 

Form1.Caption="

编程后界面"

Label1.Caption="

欢迎您使用VB6.0"

Command1.Caption="

运行结果"

EndSub

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

2.

(1)设计应用程序的界面:

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

(2)设置对象的属性

随机数的正弦值

下一个随机数

Label2

(3)编写事件代码:

DimxasSingle,yasSingle

Randomize

x=Rnd*31+60

y=Sin(x)

随机数(60-90):

"

&

Str(x)

Label2.Caption="

正弦值 

Str(y)

(4)程序的运行及保存。

3.

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

温度转换

>

Command2

<

华氏温度

摄氏温度

Text1

Text

Text2

DimfasSingle,casSingle

f=Val(Text1.Text)

c=(f-32)*5/9

Text2=Str(c)

PrivateSubCommand2_Click()

c=Val(Text2.Text)

f=9/5*c+32

Text1=Str(f)

4.

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

求圆的面积

求圆柱的体积

圆的半径

圆柱的高

Label3

圆的面积

Label4

圆柱的体积

Text1、Text2、Text3、Text4

DimrAsSingle,sAsSingle

r=Val(Text1.Text)

s=3.14159*r*r

Text3.Text=Str(s)

DimrasSingle,hasSingle,vasSingle

h=Val(Text2)

v=3.14159*r*r*h

Text4=v

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

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

3.运行界面及结果:

4.运行界面及结果

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

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

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

1

.PrivateSubCommand1_Click()

2.

PrivateSubCommand1_Click()

3

4

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 工程科技 > 交通运输

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2