VB專(zhuān)題復(fù)習(xí)之冒泡排序 導(dǎo)學(xué)案設(shè)計(jì)

班級(jí)學(xué)號(hào)：姓名：【學(xué)習(xí)目】

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)《VB題習(xí)冒排》學(xué)1.理冒泡排序的基本思想，掌握冒泡排序的程實(shí)現(xiàn)2.理雙重循環(huán)的功能，夯實(shí)冒泡排序基礎(chǔ)3.體算法的優(yōu),學(xué)會(huì)對(duì)冒泡式的分析一、經(jīng)典泡（n個(gè)數(shù)據(jù)小大列1.程結(jié)自向:從向前相兩兩兩較將較數(shù)換前個(gè)置。外循環(huán)控制加工遍For=1For=Step-1IfThen內(nèi)循環(huán)進(jìn)行較與交換k=a(j):a(j)a(j1):a(j-=kEndNextjNexti

外層循環(huán)使用DO語(yǔ)，則程序結(jié)構(gòu)為：For=Step-1IfThenk=a(j)a(j)=-1)a(j1)=kEndNextj加遍

比次

交次2.練（1）不完排（只工幾）For=13For=8Toi+Step-1Ifa(j)a(j-Thenk=a(j):a(j)a(j1):a(j-=kEndNextjNexti數(shù)組元素到a(8)的值依次“44,38,78,37,96,4,45,69“加后，到a(8)的值依次為（2）記錄換數(shù)若用變量c表交換次數(shù)，請(qǐng)?jiān)诘?）適當(dāng)位置加上語(yǔ)句c=c+1。1/6

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)（3）記錄數(shù)的位變?cè)?016.10浙江選第16題打“冒泡驗(yàn).frm”文件，通過(guò)修改“典冒泡”按鈕的代碼來(lái)驗(yàn)證（改序號(hào)①②所在處代碼即可s=Text1.TextposVal(Text1.Text)For=1Ton-For=nToi+Step-1Ifa(j)a(j-Thenk=a(j)a(j1)=a(j)=k'如果位置的數(shù)據(jù)參與交換則更新pos值記錄pos變化位置Ifpos=jThenposj-1s=s+→"+Str(pos)elseposjs=s+→"+Str(pos)EndEndNextjNextiLabel1.Caption位置化情況：+s二、冒泡化1通過(guò)置個(gè)變來(lái)記否發(fā)了換，果有生交就前束排原2015.10浙江考第過(guò)優(yōu)一鈕代碼來(lái)驗(yàn)修序①②處代碼i=1:c=0flag=TrueDoWhilei<=n-1orflagflag=FalseFor=nToi+Step-1Ifa(j)a(j-Thenk=a(j):a(j)a(j1):a(j-=kflag=TrueEndc=c+1Nextji=i+1LoopLabel3.Caption排序過(guò)程的加工遍數(shù)"+Str(i)"比次數(shù)"+Str(c)2/6

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)2.記最發(fā)交換位，作下趟較結(jié)的置選p=：c=0:i=0flag=trueDoWhileflagi=i+1For=nTop+Step-1Ifa(j)a(j-Thenk=a(j):a(j)a(j1):a(j-=kflag=TrueEndc=c+1NextjLoopLabel3.Caption排序過(guò)程的加工遍數(shù)"+Str(i)"比次數(shù)"+Str(c)三、變式習(xí)1.有如下程序：Fori=1to2Forj=1toIfa(j)<a(j+1)k=a(j):a(j)=a(j+1):a(j+1)=kEndNextjNexti數(shù)組元素a(1)到a(6)值依次為71,54,58,29,31,78過(guò)程序段理后，數(shù)組元素a(1)到的依次為（）A.29,31,54,58,71,78B.78,71,58,54,31,29C.54,29,31,58,71,78D.71,58,54,78,31,292.

有如下程序段：a(1)=4:a(2)=9:a(3)=1:a(4)=5:a(5)=8:a(6)=6:a(7)=2s=Fori=1to3Forj=i+1to7Ifa(j)<a(i)thent=a(j):a(j)a(i):a(i)=c=c+1EndNextj3/6

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)s=str(a(i))+sNextiText1.text=str(c)&&s該程序段運(yùn)行后文本框text1中顯示的內(nèi)容（）A.5:421B.3:96C.3:14D.5:693.有下程序段：Dims(1toasstringText1.text=Fori=1to5Forj=i+1to6Ifs(i)+s(j)<s(j)+s(i)thenk=s(j):s(j)=s(i):s(i)=kEndNextjNextiFori=1to6Text1.text=text1.text+s(i)Nexti如果程序運(yùn)行，開(kāi)始數(shù)組元素s(1)到s(6)的值依次為4,343,312,12,246,121過(guò)該程序段處理后文本框text1中顯示的內(nèi)容（）A.434331224612121B.434331224612112C.343312246121124D.121122463123434四、鞏固升1.如下程序段：s=for=13forj=1to10-iifd(j)>d(j+1)d(j)=d(j)+d(j+1):d(j+1)=d(j)-d(j+1):d(j)=d(j)-d(j+1)endnextjs=s+str(d(i))nextitext1.text=s數(shù)組元素的d(1)到10值別是91,28,83,62,64,36,9,65,37,99過(guò)該程序加工”后，文本框text1顯示的內(nèi)容為（）A.92837B.999183C.2836D.2862364/6

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)2.有下程序段：Fori=1to4Forj=6to-1Ifa(j)<a(j-1)k=a(j):a(j)=a(j-1):a(j-1)=kEndNextjList1.additemstr(a(i))Nexti數(shù)組元素a(1)到a(6)值依次為9,4,8,7,2,5過(guò)該程序段處理后，表框list1中顯示的內(nèi)容為）A.2,4,5,7,9,8B.2,4,5,7,8,9C.2,4,5,7D.2,4,5,93.如下程序段：Fori=1to4Flag(i)=falseNextii=1Dowhilei<=4andflag(i)=falseForj=5to-1Ifa(j)<a(j-1)K=a(j):a(j)=a(j-1):a(j-1)=kFlag(i)=trueEndNextji=i+1loop數(shù)組元素到a(6)的值依次為16,4,24,33,77程序段理后，數(shù)組flag值為true的元素個(gè)數(shù)是（）A.1B.2C.4D.74.冒排序過(guò)程中，如果有一趟排序中沒(méi)有發(fā)生何數(shù)據(jù)交換，排序過(guò)程即可結(jié)束通過(guò)優(yōu)化可以提高某情況下程序的時(shí)間效率。為了比優(yōu)化前后的程序效率，小張寫(xiě)一個(gè)程序進(jìn)行驗(yàn)證a，為兩值一樣的數(shù)組，分別利用兩種排序法。程序如下圖所,劃線處填入合適代碼。Dima(1ToAsIntegerDimb(1ToAsIntegerPrivateSubcommand1_click()DimAsInteger,AsIntegerDimAsInteger,AsIntegerFor=1To19For=20i+1Step-15/6

VB專(zhuān)題復(fù)之冒泡排序?qū)О冈O(shè)計(jì)Ifa(j)a(j-Thent=a(j):a(j)a(j1):a(j-=tEndn=n+1Nextjm=m+1NextiLabel3.Caption共比較&Str(n)&"次Label4.Caption共排序&Str(m)&"趟EndSubPrivateSubcommand2_click()DimflagBooleanDimAsInteger,AsIntegerDimAsInteger,AsIntegerflag=TrueDoWhilei<=19AndflagFor=20i+1Step-1IfThent=b(j):b(j)b(j1):b(j-=tflag=TrueEndn=n+1Nextjm=m+1i