实验5-数组实验

《实验5-数组实验》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告课程VB程序设计实验项目数组程序设计I成绩专业班级石油工程2班指导教师耿新宇姓名李彬学号1101010210实验日期实验目的：（1）掌握静态数组和动态数组定义及使用（2）掌握“控件数组”的使用实验内容：【实验1】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。2.交换1、3行后输出整个数组的值3.交换数组的行与列后输出整个数组的值实验结果：（1）程序代码(粘贴程序代码到此栏目下)PrivateSubCommand1_Click()Print"原数组为"Dima(0To4,0To4)AsLongFori=0To4Forj=0To4a(

2、i,j)=j+1+(i*5)PrintFormat(a(i,j),"@@@@@");NextjPrintNextiPrintFori=0To4Forj=0To4Ifi=jThensum1=sum1+a(i,j)Ifi+j=4Thensum2=sum2+a(i,j)NextjNextiPrintPrint"主对角线之和为："&sum1Print"次对角线之和为："&sum2PrintPrint"一三行交换后的数组"Fori=0To4Forj=0To4t=a(0,j):a(0,j)=a(2,j):a(2,j)=tPrintFormat(a(i,j),"@@@@@");NextjPrintNext

3、iPrintPrint"行列交换后的数组"Fori=0To4Forj=0To4PrintFormat(a(j,i),"@@@@@");NextjPrintNextiEndSub（2）运行结果窗体(截取运行结果图粘贴到此栏目下)【实验2】利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图或曲线图（2选1）。人数为运行时输入，成绩给定方法要求为键盘输入。实验结果：（1）程序代码(粘贴程序代码到此栏目下)PrivateSubCommand1_Click()Dima(5To10)AsIntegerFori=1To20S=

4、Val(InputBox("输入"&i&"位学生成绩"))IfS>=60AndS<=100Thenk=S10a(k)=a(k)+1Elsea(5)=a(5)+1EndIfNextia(9)=a(9)+a(10)Forj=0To4Shape1(j).Height=a(5+j)*150Shape1(j).Top=4680-a(5+j)*150Label6(j).Caption=a(5+j)Label6(j).Top=4680-a(5+j)*160NextjEndSub（2）运行结果窗体(截取运行结果图粘贴到此栏目下)【实验3】从键盘输入10个整数，存放在一个一维数组中，然后将钱5个元素与后5个

5、元素交换，即第1个与第10个交换，第2个与第9个交换……实验结果：（1）程序代码PrivateSubCommand1_Click()Dima(1To10)AsIntegerFori=1To10a(i)=Val(InputBox("请输入数据"))PrintFormat(a(i),"@@@@");NextiPrintFori=1To10Ifi<=5Thent=a(i)a(i)=a(10-i+1)a(10-i+1)=tEndIfPrintFormat(a(i),"@@@@");NextiEndSub（2）运行结果窗体实验小结：（1）遇到的问题：（2）解决的方法：（3）意见和建议：