实验5-数组实验.doc
- 文档编号:105759
- 上传时间:2022-10-03
- 格式:DOC
- 页数:5
- 大小:309.50KB
实验5-数组实验.doc
《实验5-数组实验.doc》由会员分享,可在线阅读,更多相关《实验5-数组实验.doc(5页珍藏版)》请在冰豆网上搜索。
实验报告
课程
VB程序设计
实验项目
数组程序设计I
成绩
专业班级
石油工程2班
指导教师
耿新宇
姓名
李彬
学号
1101010210
实验日期
实验目的:
(1)掌握静态数组和动态数组定义及使用
(2)掌握“控件数组”的使用
实验内容:
【实验1】静态声明一个二维数组,输入和输出该数组各元素的值
要求:
1.计算并输出数组主对角线和次对角线元素的和。
2.交换1、3行后输出整个数组的值
3.交换数组的行与列后输出整个数组的值
实验结果:
(1)程序代码(粘贴程序代码到此栏目下)
PrivateSubCommand1_Click()
Print"原数组为"
Dima(0To4,0To4)AsLong
Fori=0To4
Forj=0To4
a(i,j)=j+1+(i*5)
PrintFormat(a(i,j),"@@@@@");
Nextj
Nexti
Fori=0To4
Forj=0To4
Ifi=jThensum1=sum1+a(i,j)
Ifi+j=4Thensum2=sum2+a(i,j)
Nextj
Nexti
Print"主对角线之和为:
"&sum1
Print"次对角线之和为:
"&sum2
Print"一三行交换后的数组"
Fori=0To4
Forj=0To4
t=a(0,j):
a(0,j)=a(2,j):
a(2,j)=t
PrintFormat(a(i,j),"@@@@@");
Nextj
Nexti
Print"行列交换后的数组"
Fori=0To4
Forj=0To4
PrintFormat(a(j,i),"@@@@@");
Nextj
Nexti
EndSub
(2)运行结果窗体(截取运行结果图粘贴到此栏目下)
【实验2】利用一维数组,统计一个班学生成绩0~59,60~69,70~79,80~89,90~100各分数段的人数,生成一个各分数段的柱状图或曲线图(2选1)。
人数为运行时输入,成绩给定方法要求为键盘输入。
实验结果:
(1)程序代码(粘贴程序代码到此栏目下)
PrivateSubCommand1_Click()
Dima(5To10)AsInteger
Fori=1To20
S=Val(InputBox("输入"&i&"位学生成绩"))
IfS>=60AndS<=100Then
k=S\10
a(k)=a(k)+1
Else
a(5)=a(5)+1
EndIf
Nexti
a(9)=a(9)+a(10)
Forj=0To4
Shape1(j).Height=a(5+j)*150
Shape1(j).Top=4680-a(5+j)*150
Label6(j).Caption=a(5+j)
Label6(j).Top=4680-a(5+j)*160
Nextj
EndSub
(2)运行结果窗体(截取运行结果图粘贴到此栏目下)
【实验3】从键盘输入10个整数,存放在一个一维数组中,然后将钱5个元素与后5个元素交换,即第1个与第10个交换,第2个与第9个交换……
实验结果:
(1)程序代码
PrivateSubCommand1_Click()
Dima(1To10)AsInteger
Fori=1To10
a(i)=Val(InputBox("请输入数据"))
PrintFormat(a(i),"@@@@");
Nexti
Fori=1To10
Ifi<=5Then
t=a(i)
a(i)=a(10-i+1)
a(10-i+1)=t
EndIf
PrintFormat(a(i),"@@@@");
Nexti
EndSub
(2)运行结果窗体
实验小结:
(1)遇到的问题:
(2)解决的方法:
(3)意见和建议:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 数组
![提示](https://static.bdocx.com/images/bang_tan.gif)