实验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
Print
Nexti
Print
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)意见和建议: