实验E数组和自定义类型一、实验目的1
掌握数组的声明、数组元素的引用
掌握固定长度数组和动态数组的使用差别
掌握数组常用的操作和常用算法
掌握列表和组合框的使用
掌握自定义类型及数组的使用
二、实验内容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)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数组
求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=
