VB常用的算法-排序

实用标准文案VB考算法（八排序：、算）选法序算法说明根据上例中求最小值思路们可以使用如下方法进行从小到大排序第一轮以一个元素逐个跟后面所有元素比较如果比后面的元素大就进行交换经过一轮比较第一个元素被确定为最同样的方法下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素；以此类推…下面我们以图形的形式体现对5数进行选择排序的过程：第一轮：

26415

16425

最小值第二轮：12645

次小值第三轮：

第四轮：11224466

124555

从上图可以发现对5个素进行序共经过了5-1=4轮每轮中比较的次数也不相同，第一轮2、3、、号素参与跟1号素的比较，共4次第二轮3、、号素参与跟号元的比较，共3次以次类推，比较次数逐步减少。经过四轮的比较，利用逐步求最小值的方法将5个数小到大排好序于这样一个排序的过程们以使用两个循环分别控制比较的轮数和每一轮的次数。程序代码：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入数组元素个数")Dima()AsiAsInteger,jAsIntegerPrint"排序前："ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);精彩文档

第二轮实用标准文案第二轮NextiFori=1Ton-1Forj=iTonIfa(i)>a(j)temp=a(i)交元素a(i)=a(j)a(j)=tempEndIfNextjNextiPrintPrint"排序后"Fori=1TonPrinta(i);NextiEndSub）冒法序算法说明邻元素进行比较果前面的元素比后面的元素大将它们进行交换，具体思路：设在数组a中放个元，第一轮，将a(1)进行比较，若a(1)>a(2),则交换这两个元素的值，然后继续用a(2)a(3)较，若a(1)>a(2)，则交换这两个元素的值以类推直a(n-1)和a(n)进行比较处理后a(n)中就存放了个中最大的值；第二轮，用a(1)与a(2),a(2)与a(3),,a(n-2)a(n-1)行比较，处理方法相同，这一轮下来，中放n个中二大的值；…；第n-1，a(1)与a(2)进比较处理，确保最小值在a(1)中。经过n-1比较处理n个已经按从小到大的顺序排列好。下面我们以图形的形式体现对5数进行冒泡排序的过程：第一轮：26415

24156

最大值222411144555666第三轮：

第四轮：

12456

12456精彩文档

实用标准文案程序代码：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入数组元素个数")Dima()AsiAsInteger,jAsIntegerPrint"排序前"ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiFori=1Ton-1Forj=1Ton-iIfa(j)>a(j+1)Then相元素比较temp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNextiPrintPrint"排序后"Fori=1TonPrinta(i);NextiEndSub、实练）填序算说：

C盘根目录下的数据文件中有两组数据，第一组数据未排序，并以1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到、B数组中，单击“插入排序”按钮，则A数组的元素按其大小依次插入到数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。精彩文档

实用标准文案Dima()Asb()AsIntegerPrivateSubcommand1_click()DimIAsInteger,jAsInteger,nAsInteger,sAsString(1)‘考答案：Open"c:\data.txt"ForInputAsDoInput#11,nIfn=-1ThenExitDoI=I+1ReDimPreservea(I)a(I)=ns=s&Str(a(I))LoopText1=ss=""(2)‘考答案：DoWhileNotEOF(1)j=j+1ReDimPreserveb(j)Input#11,b(j)s=s&Str(b(j))LoopText2=sClose11EndSubPrivateSubcommand2_click()DimIAsInteger,jAsInteger,sAsStringForI=1ToUBound(a)Ifa(I)<b(1)Callchange(a(I),1)ElseIfa(I)>b(UBound(b))(3)‘考答案ReDimPreserveb(UBound(b)1)b(UBound(b))=a(I)ElseForj=2Tobound(b)If(a(I)>b(j-1))Anda(I)<=b(j)Thenchange(a(I),j)NextjEndIfNextIForI=1ToUBound(b)s=s&Str(b(I))NextIText3=sEndSubPrivateSubchange(nAsInteger,AsInteger)精彩文档

实用标准文案DimIAsIntegerReDimPreserveb(UBound(b)1)ForI=UBound(b)Tok+1Step-1(4)‘参考答案b(I)=-1)NextI(5)‘参考答案b(k)=nEndSub）填序OptionBase1Dimn%,tag_in%Dimstud(1To10)AsStudTypeTypeStudTypeNumAsString*6'学号NameAsString*8姓名AverageAsSingle'平均EndTypePrivateSubCommand1_Click()Ifn<10Thentag_in=0n=n+1精彩文档

实用标准文案Elsetag_in=1MsgBox"输入的学生人数已超过组声明的个数"EndIfIftag_in0ThenIfText1=""ThenMsgBox学不能为空，请重输"n=（）Else（）=Text1stud(n).Name=Text2stud(n).Average=Val(Text3)EndIfEndIfText1="":Text2="":Text3=""EndSubPrivateSubCommand2_Click()DimtAsStudTypePicture1.ClsForj=1Ton-1Fork=（）ToIf