实验5-数组实验Word下载.doc
- 文档编号:410817
- 上传时间:2023-04-28
- 格式:DOC
- 页数:5
- 大小:309.50KB
实验5-数组实验Word下载.doc
《实验5-数组实验Word下载.doc》由会员分享,可在线阅读,更多相关《实验5-数组实验Word下载.doc(5页珍藏版)》请在冰点文库上搜索。
姓名
李彬
学号
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
Ifi=jThensum1=sum1+a(i,j)
Ifi+j=4Thensum2=sum2+a(i,j)
主对角线之和为:
"
&
sum1
次对角线之和为:
sum2
一三行交换后的数组"
t=a(0,j):
a(0,j)=a(2,j):
a(2,j)=t
行列交换后的数组"
PrintFormat(a(j,i),"
EndSub
(2)运行结果窗体(截取运行结果图粘贴到此栏目下)
【实验2】利用一维数组,统计一个班学生成绩0~59,60~69,70~79,80~89,90~100各分数段的人数,生成一个各分数段的柱状图或曲线图(2选1)。
人数为运行时输入,成绩给定方法要求为键盘输入。
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
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
【实验3】从键盘输入10个整数,存放在一个一维数组中,然后将钱5个元素与后5个元素交换,即第1个与第10个交换,第2个与第9个交换……
(1)程序代码
Dima(1To10)AsInteger
Fori=1To10
a(i)=Val(InputBox("
请输入数据"
PrintFormat(a(i),"
@@@@"
Ifi<
=5Then
t=a(i)
a(i)=a(10-i+1)
a(10-i+1)=t
EndIf
PrintFormat(a(i),"
(2)运行结果窗体
实验小结:
(1)遇到的问题:
(2)解决的方法:
(3)意见和建议:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 数组