漳州师院实验报告一、实验目的熟悉和掌握VB.net的数据类型、循环等编程基础知识实验内容随机产生50个100以内的数组，对这个数组用冒泡法和选择法进行升序排序。要求每行输出10个三．实验过程冒泡法：PublicClassForm1SubdisplayMatrix(ByValA()AsInteger)ForiAsInteger=0ToA.GetLength(0)-1Label1.Text&=CStr(A(i)).PadLeft(8)NextLabel1.Text&=vbCrLfEndSubPrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimi,tAsIntegerDimA()AsInteger=NewInteger(49){}DimrNumAsRandom=NewRandom()Label1.Text="随?机ú数簓组哩?：阰"&vbCrLfFori=0To49A(i)=rNum.Next(101)IfiMod10=0ThenLabel1.Text&=vbCrLfLabel1.Text&=A(i)&""NextDimnAsInteger=A.LengthLabel1.Text&=vbCrLf&"升序ò数簓组哩?：阰"&vbCrLfForloopsAsInteger=1TonFori=0Ton-1-loopsIfA(i)<A(i+1)Thent=A(i)A(i)=A(i+1)A(i+1)=tEndIfNextIf(i+1)Mod10=0ThenLabel1.Text&=vbCrLfLabel1.Text&=A(i)&""NextEndSub选择法：PrivateSubLabel1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesLabel1.ClickEndSubEndClassPublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimA()AsInteger=NewInteger(49){}DimrNumAsRandom=NewRandom()Dimi,tAsIntegerLabel1.Text="随?机ú数簓组哩?：阰"&vbCrLfFori=0To49A(i)=rNum.Next(101)IfiMod10=0ThenLabel1.Text&=vbCrLfLabel1.Text&=A(i)&""NextDimnAsInteger=A.LengthLabel1.Text&=vbCrLf&"升序ò数簓组哩?：阰"&vbCrLfDimminIAsIntegerForloopsAsInteger=0Ton-2MinI=loopsFori=loopsTon-1IfA(i)<A(MinI)ThenMinI=iEndIfNextt=A(loops)A(loops)=A(minI)A(minI)=tNextFori=0To49IfiMod10=0ThenLabel1.Text&=vbCrLfLabel1.Text&=A(i)&""NextEndSubEndClass四.实验心得这次作业主要就是要我们熟悉多维数组的声明，实例化，初始化和访问，在此次作业中我们要熟练掌握内循环和外循环的嵌套，掌握冒泡法和选择法，在这次实验中理解，一个程序要经过很多次的修改，才能不断的完善，还有遇到不懂的可以跟别人讨论不要总是自己再那里想。还有可以上百度去找寻答案。