VB实验四实验报告.docx
- 文档编号:8169292
- 上传时间:2023-01-29
- 格式:DOCX
- 页数:16
- 大小:228.75KB
VB实验四实验报告.docx
《VB实验四实验报告.docx》由会员分享,可在线阅读,更多相关《VB实验四实验报告.docx(16页珍藏版)》请在冰豆网上搜索。
VB实验四实验报告
实验报告四
课程
VB程序设计
实验项目
VB过程与函数设计(6学时)
成绩
专业班级
姓名
学号
实验日期
实验目的
(1)掌握Function过程和Sub过程的定义与调用
(2)理解参数按址传递和按值传递的本质
(3)理解变量和过程的作用域
(4)能熟练运用Function过程和Sub过程解决实际问题、简化程序
实验内容
【实验1】编写Sub子程序实现计算n!
。
程序界面如下图所示。
(5分)
掌握Sub过程的定义及使用
实验结果:
【实验1代码】
DimnAsInteger,sAsLong
PrivateSubCommand1_Click()
n=Val(Text1.Text)
Callf(s,n)
Text2.Text=s
EndSub
Subf(mAsLong,nAsInteger)
DimiAsInteger
m=1
Fori=2Ton
m=m*i
Nexti
EndSub
PrivateSubCommand3_Click()
End
EndSub
【实验1典型结果】
【实验2】编写Function函数过程实现计算n!
。
程序界面如下图所示。
(5分)
掌握Function过程的定义及使用
实验结果:
【实验2代码】
DimnAsInteger,sAsLong
PrivateSubCommand1_Click()
n=Val(Text1.Text)
s=f(n)
Text2.Text=s
EndSub
Functionf(nAsInteger)
DimiAsInteger
m=1
Fori=2Ton
m=m*i
Nexti
f=m
EndFunction
PrivateSubCommand2_Click()
End
EndSub
【实验2典型结果】
【实验3】分别编写按地址传递交换、按值传递交换两个数的过程子程序代码swap1()和swap2()。
程序界面设计如下图所示。
(10分)
掌握Sub过程参数传递方法
实验结果:
【实验3代码】
SubSwap1(x%,y%)
t=x:
x=y:
y=t
EndSub
SubSwap2(ByValx%,ByValy%)
t=x:
x=y:
y=t
EndSub
PrivateSubCommand1_Click()
Dima%,b%
a=10:
b=20
Print"按地址交换前的各值为:
";"a=";a;"b=";b
Swap1a,b'传址
Print"按地址交换后的各值为:
";"a=";a;"b=";b
EndSub
PrivateSubCommand2_Click()
Dima%,b%
a=10:
b=20
Print"按值交换前的各值为:
";"a=";a;"b=";b
Swap2a,b'传值
Print"按值交换后的各值为:
";"a=";a;"b=";b
EndSub
【实验3典型结果】
【实验4】中国好声音歌手大赛共n名选手参加决赛,m位评委参加评分,评分标准:
去掉两个最高分和两个最低分以后取平均分。
编写程序实现如下要求:
(10分)
①每位选手演唱完毕,当场显示参赛选手的编号及各位评委的评分和最后得分。
②决赛结束后,显示各参赛选手的名次、编号和成绩。
③用子程序sub过程实现。
程序界面设计如下图所示。
掌握Sub过程中数组作为参数传递的方法
实验结果:
【实验4代码】
OptionBase1
Dimp()AsSingle,x()AsString,a()AsSingle
PrivateSubCommand1_Click()
DimbAsSingle,mAsInteger,spAsString
n=Val(InputBox("输入参加比赛歌手人数:
"))
m=Val(InputBox("输入评委人数:
"))
ReDimp(m),x(n),a(n)
Fori=1Ton
x(i)=Val(InputBox("输入选手编号:
"))
sp=""
Forj=1Tom
p(j)=Val(InputBox("输入选手得分:
"))
sp=sp&p(j)&""
Nextj
Label2.Caption=""&x(i)
Label4.Caption=""&sp
Callmean(p(),b,m)
a(i)=b
Label6.Caption=""&a(i)
Nexti
Fori=1Ton-1
k=i
Forj=i+1Ton
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 实验 报告
![提示](https://static.bdocx.com/images/bang_tan.gif)