实验E数组和自定义类型一、实验目的1.掌握数组的声明、数组元素的引用。2.掌握固定长度数组和动态数组的使用差别。3.掌握数组常用的操作和常用算法。4.掌握列表和组合框的使用。5.掌握自定义类型及数组的使用。二、实验内容1.随机产生30～100（包括30，100）的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果，如图E11所示。代码：PrivateSubForm_Click()Dimi%,s%(1To10),max%,min%,avg!Fori=1To10s(i)=Int(Rnd*71+30)Nextimax=s(1)min=s(1)avg=s(1)Fori=2To10Ifs(i)>maxThenmax=s(i)Ifs(i)0ThenMe.Picture2.Print"s(";k;")的人数有";s(k);"个"EndIfNextkEndSub4.随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果。代码：PrivateSubForm_Click()Dims%(9)Print"排序前",Fori=0To9s(i)=Int(Rnd*90+10)Prints(i);NextiForn=0To8nmax=nForm=n+1To9Ifs(m)>s(nmax)Thennmax=mNextmt=s(nmax):s(nmax)=s(n):s(n)=tNextnPrintPrint"排序前",Fori=0To9Prints(i);NextiEndSub5.参照教材例5.3，在通用声明段声明两个数组，利用随机函数形成如下两个数组：60575052121111131131A=64366639,B=1331161321396669534111110313112451574464123109113133要求：1.以下三角形显示A数组、上三角形式显示B数组。2.求A数组主对角线元素之和和B数组副对角线元素之和。代码：Dima%(3,3),b%(3,3)PrivateSubCommand2_Click()Me.Picture2.ClsFori=0To3Forj=iTo3Me.Picture2.PrintTab(6*j);b(i,j);NextjMe.Picture2.PrintNextiEndSubPrivateSubCommand3_Click()Me.Picture3.Clssa=0Fori=0To3sa=sa+a(i,i)Nextisb=0Fori=0To3sb=sb+b(i,3-i)NextiMe.Picture3.Print"A数组主对角线元素和为：";saMe.Picture3.Print"B数组主对角线元素和为：";sbEndSubPrivateSubForm_Load()Fori=0To3Forj=0To3a(i,j)=Int(Rnd*36+35)b(i,j)=Int(Rnd*41+100)NextjNextiEndSubPrivateSubCommand1_Click()Me.Picture1.ClsFori=0To3Forj=0ToiMe.Picture1.Printa(i,j);"";NextjMe.Picture1.PrintNextiEndSub6.输入整数n，显示出具有n行的杨辉三角形。图E5显示n=8的效果。代码：PrivateSubPicture1_Click()Dims()n=Val(Me.Text1)ReDims(1Ton,1Ton)Fori=1TonForj=1TonIfi=jOrj=1Thens(i,j)=1Ifi>jAndi>=3Andj<>1Thens(i,j)=s(i-1,j-1)+s(i-1,j)Ifi>=jThenMe.Picture1.PrintTab(4*j);s(i,j);NextjNextiEndSub7.设计一个选课的运行界面如图E.6所示。它包括2个列表框，左边为已开设的课程名称，通过Form_Load事件加入，并按拼音字母排序；当单击某课程名称后，将该课程加入到右边列表框，并在左边的列表框上能够删除该课程。当右边列表框已满5门时，不允许加入，出现如图E.7所示的界面。代码：PrivateSubForm_Load()Me.List1.ClearMe.List1.AddItem"C/C++程序设计"Me.List1.AddItem"VB程序设计"Me.List1.AddItem"数据库技术与应用"Me.List1.AddItem"硬件技术基础"Me.List1.AddItem"Web程序设计"Me.List1.AddItem"多媒体技术与应用"Me.List1.AddItem"网络技术与应用"Me.List1.AddItem"软件技术技...
