vb实验E数组和自定义类型

《vb实验E数组和自定义类型》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、试验E数组和自定义类型一、实验目的1.掌握数组的声明、数组元素的引用。2.掌握固定长度数组和动态数组的使用差别。3.掌握数组常用的操作和常用算法。4.掌握列表框和组合框的使用。5.掌握自定义类型及数组的使用。二、实验内容1.随机产生30-100(包括(30、100)的10个正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。

2、rux■▼

3、

4、uxiuaPrivateSubForm_ClickQDimx(1To10)AsIntegerDimaver!,n%,i%,min%,max%aver=0max

5、=30min=100Fori=1To10x(i)=Int(Rnd*71+30)aver=aver+x(i)I£x(i)>=maxThenmax-x(i)I£x(i)<=minThenmin=x(i)Printx(i);Hgxtiaver=aver/10PrintPrintEndSuberf/"虽大值:"；max;"摄小值:";min;"平均值:";aver2.已知6个学生的成绩，通过数组赋初值的方法，利用String函数，以每5分为一个“♦”显示，并显示学生的成绩。FrivataSubForm_Clic

6、k()Dimmark」i%mark=Array(56^T8」98」88,T6丿78)Fori=LBound(mark)ToIfBound(mark)FrintTab(3);String(mark(i)5丿mark(i)HwctiEndSubFors.113叵PrivateSubCommand2_Click()Dimb(5)AsIntegerDimiAs工ntegerPicture2.CisFori=1To20SelectCased(i)Case0To59b(l)b(l)Case60To69b⑵Case

7、70To79b⑶b(2)5377660473063652728838359999223709925540〜59：10&0〜T9:个T0〜89:个80〜99:个90〜100:3个Case80To89b⑷100b⑸b⑷=Case90Tob⑸=EndSelectNext产生并显示数据统计分数段人数Picture2・Print"0〜59:Jb(l);"Picture2・Print"60〜79:“b(2);Picture2.Print"70〜89:"b⑶；"个"Picture2・Print"80〜99：“b⑷；P

8、icture2.Print"90〜100：b⑸；1.随机产生20个学生的成绩，统计各分数段人数。即0~59、60飞9、70〜79、80~89、90^100,并显示结果。产生的数据在Picturel显示，统计结果在Picture2显示。

9、—回X

10、Fon▼

11、

12、Load二1OptionExplicitDimd(1To20)AsTritegerPrivateSubCommandl_Click()DimiAsIntegerPiuture1・CisFori=1To20d(i)=Int(Rnd0*100)+1Pic

13、turel.PrintFormat(d(i"0")；IfiMod4=0ThenPicturel.PrintNextEndSubEndSubPrivateSubForm_Load()Commandl.Caption二"产生并显可^数据Command2.Caption="统计分数段人数"EndSub5.参照教材例5.3,Step-1ExitFor在通用声明段声明两个数组，利用随机函数形成如下两个数组:5250*1211111311316639Q-13311613Z13953419D—111103131124

14、4464123109113133.要求：①以下三角形式显示A数组、上三角形式显示B数组。②求A数组主对角线元素之和和B数组副对角线元素之和。1.随机产生10个2位数，按从大到小递减的顺序排列，并显示排序结果。PrivaSubformedick()RandomizeDimkAsIntegerDima(lTo10)AsIntegerFCiLtN排序前为：“Fori=1To10a(i)=Int(Rnd*89+10)Printa(i);HextiPrintFori=2To10I£a(i)>a(i•1)Thenk

15、=a(i)Forj=i-1To1Ifk<缸(j)Then包G+1)=&(j)NextjaG+1)=kEndI£NextiPrint"排序结果：“Fori=1To10Printa(i);iPrintEndSubPrivateSubCommandl^ClickOPicturel.ClsFori=0To3Forj=0ToiFicturel.Printa(i,j);NextjPicturel.PrintNextiEndSubPrivateSubCo