VB上机实验报告.docx
- 文档编号:18423440
- 上传时间:2023-08-16
- 格式:DOCX
- 页数:12
- 大小:491.72KB
VB上机实验报告.docx
《VB上机实验报告.docx》由会员分享,可在线阅读,更多相关《VB上机实验报告.docx(12页珍藏版)》请在冰点文库上搜索。
VB上机实验报告
VB上机实验报告
实验名称:
程序设计语言(VB)
实验日期:
指导老师:
实验地点:
姓名:
班级:
学号:
一、实验名称:
实验5顺序结构程序设计
二、实验目的:
(1)掌握基本的输入输出操作(Inputbox、Msgbox、Print使用)。
(2)掌握顺序结构的程序设计方法。
三、实验内容:
1.课本的3.3、3.4、3.5、3.6、3.7、3.8
2.用图形、图像框控件实现图片切换和图片放大缩小。
3.根据提示,补充下列程序段,并在VB环境下调试:
(1)鸡兔同笼问题。
(2)计算三角形的面积。
四、实验步骤及结果:
1、3.3:
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
Dims1AsString,s2AsString
x=2:
y=1
s1=x&"+"&y&"="&x+y
s2=x&"-"&y&"="&x-y
MsgBoxs1&vbCrLf&s2,,"输出"
EndSub
3.4:
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=InputBox("请输入第1个整数","输入",0)'
y=InputBox("请输入第2个整数","输入",0)'
Print"第1个数为:
"&x
Print"第2个数为:
"&y
Print"和="&x+y
Print"差="&x-y
EndSub
3.5:
PrivateSubCommand1_Click()
DimrAsSingle,hAsSingle
DimareaAsSingle,vAsSingle
r=InputBox("请输入半径")
h=InputBox("请输入高度")
area=2*3.14*r*r+2*3.14*r*h
v=3.14*r*r*h
Print"圆柱体的半径为:
"&r;"高为:
"&h
Print"表面积为:
"&area
Print"体积为:
"&v
EndSub
3.6:
PrivateSubCommand1_Click()
DimaAsSingle,bAsSingle,cAsSingle'
DimsAsSingle,areaAsSingle'
a=Val(Text1)
b=Val(Text2)
c=Val(Text3)
s=(a+b+c)/2'
area=Sqr(s*(s-a)*(s-b)*(s-c))
Label2="三角形的面积为:
"&area'
EndSub
3.7:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger,tAsInteger
a=Text1
b=Text2
t=a
a=b
b=t
Label2="交换后的值为:
"&a&","&b
EndSub
3.8:
PrivateSubCommand1_Click()
DimxAsInteger,sAsInteger
DimaAsInteger,bAsInteger
DimcAsInteger,dAsInteger
x=InputBox("请输入一个四位整数")
a=xMod10
b=x\10Mod10
c=x\100Mod10
d=x\1000
s=a+b+c+d
Printx;"的各位数字之和为:
";s
EndSub
2、用图形、图像框控件实现图片切换和图片放大缩小:
图片切换:
PrivateSubCommand1_Click()
Picture1.Picture=LoadPicture(App.Path+"\春.jpg")
EndSub
PrivateSubCommand2_Click()
Picture1.Picture=LoadPicture(App.Path+"\夏.jpg")
EndSub
PrivateSubCommand3_Click()
Picture1.Picture=LoadPicture(App.Path+"\秋.jpg")
EndSub
PrivateSubCommand4_Click()
Picture1.Picture=LoadPicture(App.Path+"\冬.jpg")
EndSub
PrivateSubCommand5_Click()
Picture1.Picture=LoadPicture("")
EndSub
图片放大缩小:
PrivateSubCommand1_Click()
Image1.Stretch=True
Image1.Width=Image1.Width*2
Image1.Height=Image1.Height*2
EndSub
PrivateSubCommand2_Click()
Image1.Stretch=True
Image1.Width=Image1.Width/2
Image1.Height=Image1.Height/2
EndSub
PrivateSubCommand3_Click()
Image1.Stretch=False
EndSub
3、
(1)鸡兔同笼问题:
PrivateSubCommand1_Click()
DimhAsInteger
DimfAsInteger
DimxAsInteger
DimyAsInteger
h=Val(Text1.Text)
f=Val(Text2.Text)
x=(4*h-f)/2
y=(f-2*h)/2
Text3.Text=x
Text4.Text=y
EndSub
(2)计算三角形的面积:
PrivateSubCommand1_Click()
DimaAsSingle
DimbAsSingle
DimcAsSingle
DimsAsSingle
DimareaAsSingle
a=Text1.Text
b=Text2.Text
c=Text3.Text
s=(a+b+c)/2
area=Sqr(s*(s-a)*(s-b)*(s-c))
Text4.Text=area
EndSub
五、实验分析及总结:
(1)通过几次VB上机实验,我发现只要代码不写错,调试结果通常都会成功。
因此,上课时应当认真听讲,下课时多看书,了解代码的意义,仔细编写,就会调试成功。
(2)真理来源于实践,我们不仅要上课听讲,更应该认真对待每一次上机实验。
从实验中积累经验,及时查漏补缺,提高自己的能力。
(3)付出总会有收获,只要自己认真的做了,结果总不会令你失望的,经过多次上机实验,我发现自己对VB这门课的兴趣越来越浓厚。
兴趣是学习一切的最好老师,我想先我一定会慢慢的进步。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 实验 报告