资源描述：
《vb数组应用实验报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、实验名称：VB程序设计实验类别：课程上机适用专业：计算机科学与技术姓名：徐申毅6实验报告一、内容数组及应用二、目的（1）掌握一维数组和二维数组的定义及引用方法（2）掌握动态数组的定义和使用（3）能应用数组解决一些常见问题，如复杂统计，平均值，排序和查找等。三、设计思路（1）首先定义一个一维数组生成10个二位数，假设第一个数为最大数，让第二个数与第一个数比大小，若大于，则交换值，循环至最后一个数，求出最大值，然后求和算出平均值，用选择法进行排序，PrivateSubcmdinsert_Click()'数据插入，x=Val(InputBox("输入要插入的数据：
2、"))，将新的数组进行排序。（2）定义二维数组，i为行数，j为列数；n为输出的行数，'第一列和主对角线为1s(i,1)=1，s(i,i)=1；Fori=3TonForj=2Toi-1，s(i,j)=s(i-1,j-1)+s(i-1,j)实现每一个数等于它上面一行的同一列与前一列数之和。（3）定义动态数组，ReDimPreservea(n)'动态存储数组a增加1个元素，前n-1个元素值保持不变。然后用冒泡法对数组中的元素进行排序，输出排序后的结果。四、源程序OptionBase1OptionExplicitDima(11)AsInteger'定义数组Priva
3、teSubcmdcreat_Click()'产生的一维数组DimiAsIntegerPicture1.ClsPicture1.Print"产生的一维数组为："RandomizeFori=1To10a(i)=Int(Rnd*20+10)Picture1.Printa(i);NextiPicture1.PrintEndSub6PrivateSubcmdmax_Click()'求最大元数及所在的位置DimmaxAsInteger,pAsInteger,iAsIntegermax=a(1)'假设第一元素就是最大元素p=1Fori=2To10Ifa(i)>maxThe
4、nmax=a(i)p=iEndIfNextiPicture1.PrintPicture1.Print"第"&p;"个元素"&a(p)&"为最大元素"EndSubPrivateSubcmdave_Click()'计算平均值DimaveAsSingle,iAsIntegerFori=1To10ave=ave+a(i)Nextiave=ave/10Picture1.PrintPicture1.Print"产生的随机数平均值为："&aveEndSubPrivateSubcmdsort_Click()'使用选择法排序Dimi%,j%,p%,t%Fori=1To9p=i
5、Forj=i+1To10Ifa(p)>a(j)Thenp=jNextjt=a(i):a(i)=a(p):a(p)=tNextiPicture1.PrintPicture1.Print"排序后的一维数组为："Fori=1To10Picture1.Printa(i);NextiPicture1.PrintEndSubPrivateSubcmdinsert_Click()'数据插入6Dimx%,p%,i%x=Val(InputBox("输入要插入的数据："))p=1DoWhilex>a(p)Andp<=10p=p+1LoopFori=10TopStep-1a(i+
6、1)=a(i)Nextia(p)=xPicture1.PrintPicture1.Print"插入后的一维数组为："Fori=1To11Picture1.Printa(i);NextiEndSubPrivateSubCommand1_Click()Dims()AsInteger,i%,j%,n%Form1.Clsn=Val(Text1)ReDims(n,n)'第一列和主对角线为1Fori=1Tons(i,1)=1s(i,i)=1NextiFori=3TonForj=2Toi-1s(i,j)=s(i-1,j-1)+s(i-1,j)NextjNexti'打印杨辉
7、三角Fori=1TonForj=1Toi'让每个数据占4列输出PrintSpc(4-Len(Str(s(i,j))));s(i,j);NextjPrint6NextiEndSubDima()AsString,n%PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimiAsInteger,jAsInteger,kAsInteger,tAsStringIfKeyAscii=13Thenn=n+1ReDimPreservea(n)'动态存储数组a增加1个元素，前n-1个元素值保持不变。a(n)=Text1.TextText2.
8、Text=Text2.Text+Text1.Text
