VB常考算法（八）排序:1、算法1）选择法排序算法说明：根据上例中求最小值的思路，我们可以使用如下方法进行从小到大排序：第一轮，以第一个元素逐个跟后面的所有元素比较，如果比后面的元素大就进行交换，经过一轮比较，第一个元素被确定为最小；同样的方法，下一轮以第二个元素跟剩下的所有元素进行比较确定下次小的元素；以此类推卜面我们以图形的形式体现对5个数进行选择排序的过程:第一轮:第二轮:第三轮:次小值12456从上图可以发现对5个元素进行排序，总共经过了5-1=4轮，而每一轮中比较的次数也4次，第二轮3、4、5号元不相同，第一轮2、3、4、5号元素参与跟1号元素的比较，共素参与跟2号元素的比较，共3次，以次类推，比较次数逐步减少。经过四轮的比较，利用逐步求最小值的方法将5个数从小到大排好序。对于这样一个排序的过程，我们可以使用两个循环分别控制比较的轮数和每一轮的次数。程序代码:PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入数组元素的个数：")Dima()AsInteger,iAsInteger,jAsIntegerPrint"排序前："ReDima(n)Fori=1Tona(i)=Int(Rnd*(99-10+1)+10)Printa(i);NextiFori=1Ton-1Forj=iTonIfa(i)>a(j)Thentemp=a(i)'交换元素a(i)=a(j)a(j)=tempEndIfNextjNextiPrintPrint"排序后：”Fori=1TonPrinta(i);NextiEndSub2)冒泡法排序算法说明：相邻的元素进行比较，如果前面的元素比后面的元素大，则将它们进行交换,具体思路：设在数组a中存放n个元素，第一轮，将a(1)和a(2)进行比较，若a(1)>a(2)，则交换这两个元素的值，然后继续用a(2)和a(3)比较，若a(1)>a(2),则交换这两个元素的值，以此类推，直到a(n-1)和a(n)进行比较处理后，a(n)中就存放了n个数中最大的值；第二轮,用a(1)与a(2),a(2)与a(3)，…,a(n-2)与a(n-1)进行比较，处理方法相同，这一轮下来，a(n-1)中存放n个数中第二大的值；…；第n-1轮，a(1)与a(2)进行比较处理，确保最小值在a(1)中。经过n-1轮比较处理，n个数已经按从小到大的顺序排列好。卜面我们以图形的形式体现对5个数进行冒泡排序的过程:第一轮:第三轮:程序代码：PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入数组元素的个数：")Dima()AsInteger,iAsInteger,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);NextiEndSub2、实战练习1)填程序一算法说明：C盘根目录下的数据文件中有两组数据，第一组数据未排序，并以-1
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击“读入数据”按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。■插入排序\lf&i7xp75916118101214IS|5一789,012—15,6i6读入数据「插入排序Dima()AsInteger,b()AsIntegerPrivateSubcommand1_click()DimIAsInteger,jAsInteger,nAsInteger,sAsString(1)参考答案：Open"c:\"Fo门nputAs#11DoInput#11,nIfn=-1ThenExitDoI=I+1ReDimPreservea(I)a(I)=ns=s&Str(a(I))LoopText1=ss=""⑵参考答案：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(UBound(b))Then(3)参考答案：ReDimPreserveb(UBound(b)+1)b(UBound(b))=a(I)ElseForj=2Tobound(b)If(a(I)>b(j-1))Anda(I)<=b(j)ThenCallchange(a(I),j)NextjEndIfNextIForI=1ToUBound(b)s=s&Str(b(I))NextIText3=sEndSubPrivateSubchange(nAsInteger,kAsInteger)DimIAsIntegerReDimPreserveb(UBound(b)+1)ForI=UBound(b)Tok+1Step-1⑷参考答案:b(I)=b(I-1)NextI⑸参考答案:b(k)=nEndSub2)填程序二一看个了照分二义名埼有定姓平还号和<己、名框史姓片工为*的该别普眶在分于十题用示K粽显商vb个冷”5.一近用M个st一一一和和萋国eJet加下型板T添均数平型名茎上患姓记为存一、生能£号学不加学需号st个入暂组每至且数，W>中生息卷把本膏录片文容生记图个在三人个学示13输10将显ex类则式□T则喻，方不，能钮的t2钮只按列SS按多少排ckfec・1匕月S钿序按程”述序上排现-实、以&ET二IWh件录MKt是如tl曾温.生生均尊功ST考题序在击加容的不文.生原将确意羹力请正注OptionBase1Dimn%,tag_in%Dimstud(1To10)AsStudType学号姓名平均分TypeStudTypeNumAsString*6NameAsString*8AverageAsSingleEndTypePrivateSubCommand1_Click()Ifn<10Thentag_in=0n=n+1Elsetag_in=1MsgBox"输入的学生人数已超过数组声明的个数！EndIfIftag_in=0ThenIfTextl=""ThenMsgBox"学号不能为空，请重输！"n=(1)Else⑵=Text1stud(n).Name=Text2stud(n).Average=Val(Text3)EndIfEndIfText1="":Text2="":Text3=""EndSubPrivateSubCommand2_Click()DimtAsStudTypeForj=1Ton-1Fork=(3)TonIfstud(k).Average>stud(j).(4)Thent=stud(k)stud(k)=(5)stud(j)=tEndIfNextkNextjForj=1Tonstud(j).Num;stud(j).Name;stud(j).AverageNextjEndSub
浙公网安备 33021202002483