VB实验一 实验报告.docx
- 文档编号:3797213
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:11
- 大小:138.29KB
VB实验一 实验报告.docx
《VB实验一 实验报告.docx》由会员分享,可在线阅读,更多相关《VB实验一 实验报告.docx(11页珍藏版)》请在冰豆网上搜索。
VB实验一实验报告
实验报告一
课程
VB程序设计
实验项目
VisualBasic环境
顺序选择程序设计(4学时)
成绩
专业班级
姓名
学号
实验日期
实验目的
(1)熟悉VisualBasic6.0集成开发环境
(2)掌握VisualBasic程序的开发过程,能够运行一个完整的VisualBasic程序
(3)掌握选择控制结构(If、Selectcase)语句实现程序分支
(4)掌握控制结构相关控件(单选按钮、复选框)
(5)能综合运用选择及循环控制结构解决较复杂的问题
实验内容
一、VB环境和顺序结构
【实验1】设计一个简单VB程序(10分)
它由一个窗体、一个文本框和3个命令按钮组成。
窗体的标题为"VisualBasic程序设计示例",当用户单击命令按钮“显示”时,文本框中出现“欢迎使用VisualBasic6.0”,窗体上显示“你好”,单击命令按钮“清除”时,清除文本框中显示的内容和窗体上的内容,单击命令按钮“结束”时,结束程序。
实验结果:
【实验1代码】
PrivateSubCommand1_Click()
Text1.Text="VisualBasic的程序设计示例"
Form1.Print"你好"
EndSub
PrivateSubCommand2_Click()
Text1.Text=""'清除文本框中的内容
Form1.Cls'清除窗体上打印的内容
EndSub
PrivateSubCommand3_Click()
End
EndSub
【实验1典型结果】
【实验2】编写程序,其功能为输入三角形的三边,求三角形的面积。
计算公式为:
S=(a+b+c)/2,面积=sqr(s*(s-a)*(s-b)*(s-c))(20分)
程序界面如下所示
实验结果:
【实验2代码】
PrivateSubCommand1_Click()
DimaAsInteger,b%,c%
DimsAsInteger
a=Text1.Text:
b=Text2.Text:
c=Text3.Text
s=(a+b+c)/2
Text4.Text=Sqr(s*(s-a)*(s-b)*(s-c))
EndSub
PrivateSubCommand2_Click()
End
EndSub
【实验2典型结果】
【选做1】单击窗体时,随机产生一个三位正整数,然后逆序输出该数,产生的数与逆序数同时显示,结果如下所示,要求用两种方法实现(使用数字的逆序和字符串的逆序)(15分)
实验结果:
【方法1代码】
PrivateSubForm_Click()
Dima,b,c,d,e
a=Int(Rnd*900+100)
c=Right(a,1)&Mid$(a,2,1)&Left(a,1)
Printa;Tab(20);c
EndSub
PrivateSubForm_Load()
Print"随机数",Tab(20);"逆序数"
EndSub
【方法1典型结果】
【方法2代码】
PrivateSubForm_Click()
Dima,c,b,d,e
a=Int(Rnd*900+100)
b=a\100:
c=(aMod100)\10:
d=aMod10
e=d*100+c*10+b
Printa;Tab(20);e
EndSub
PrivateSubForm_Load()
Print"随机数",Tab(20);"逆序数"
EndSub
【方法2典型结果】
二、选择结构
【实验3】输入一年份,判断它是否为闰年,并显示有关信息。
判断闰年的条件为:
1.能被4整除,但不能被100整除,2.或者能被400整除(注意各个条件表达式的括号)(20分)
实验结果:
【实验3代码】
PrivateSubCommand1_Click()
DimyearAsInteger
year=InputBox("请输入年份")
IfyearMod4=0AndyearMod100<>0OryearMod400=0Then
MsgBoxyear&"是闰年"
Else
MsgBoxyear&"不是闰年"
EndIf
EndSub
【实验3典型结果】
【实验4】任意输入三个数,求三个数中最大数和最小数(15分)
实验结果:
【实验4代码】
PrivateSubCommand1_Click()
Dima%
Dimb%
Dimc%
a=Text1.Text:
b=Text2.Text:
c=Text3.Text
Ifa>bThen
Text4.Text=a:
Text5.Text=b
Else
Text4.Text=b:
Text5.Text=a
EndIf
Ifc>aThen
Text4.Text=c
Else
Text4.Text=Text4.Text
EndIf
Ifc Text5.Text=c Else Text5.Text=Text5.Text EndIf EndSub 【实验4典型结果】 【实验5】使用Inputbox任意输入三个边长,判断是否能构成三角形,若能构成三角形,则判断该三角形是等边、等腰还是一般三角形(15分) 实验结果: 【实验5代码】PrivateSubForm_click() Dima%,b%,c% a=Val(InputBox(x)): b=Val(InputBox(x)): c=Val(InputBox(x)) Ifa+b>cAnda+c>bAndb+c>aThen Ifa=bAndb=cThen Print"是等边三角形" ElseIfa=bOrb=cOra=cThen Print"是等腰三角形" Else Print"是一般三角形" EndIf Else Print"不是三角形" EndIf EndSub 【实验5典型结果】 【选做2】求解分段函数,要求输入x的值,输出计算得到的y值(5分) 实验结果: 【选做2代码】 PrivateSubForm_Click() Text1.Text=Val(InputBox("请输入一个数")) x=Text1.Text SelectCasex CaseIs>=2000 Text2.Text=3*x CaseIs<500 Text2.Text=x CaseIs>=500,Is<1000 Text2.Text=1.5*x CaseIs>=1000,Is<2000 Text2.Text=2*x EndSelect EndSub 【选做2典型结果】 实验小结 1.遇到的问题: 2.对课程的建议:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB实验一 实验报告 VB 实验 报告