实验5-数组实验Word下载.doc

实验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）意见和建议：