VB專題復習之冒泡排序 導學案設計

班級學號：姓名：【學習目】

VB專題復之冒泡排序導案設計《VB題習冒排》學1.理冒泡排序的基本思想，掌握冒泡排序的程實現2.理雙重循環(huán)的功能，夯實冒泡排序基礎3.體算法的優(yōu),學會對冒泡式的分析一、經典泡（n個數據小大列1.程結自向:從向前相兩兩兩較將較數換前個置。外循環(huán)控制加工遍For=1For=Step-1IfThen內循環(huán)進行較與交換k=a(j):a(j)a(j1):a(j-=kEndNextjNexti

外層循環(huán)使用DO語，則程序結構為：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數組元素到a(8)的值依次“44,38,78,37,96,4,45,69“加后，到a(8)的值依次為（2）記錄換數若用變量c表交換次數，請在第1）適當位置加上語句c=c+1。1/6

VB專題復之冒泡排序導案設計（3）記錄數的位變原2016.10浙江選第16題打“冒泡驗.frm”文件，通過修改“典冒泡”按鈕的代碼來驗證（改序號①②所在處代碼即可s=Text1.TextposVal(Text1.Text)For=1Ton-For=nToi+Step-1Ifa(j)a(j-Thenk=a(j)a(j1)=a(j)=k'如果位置的數據參與交換則更新pos值記錄pos變化位置Ifpos=jThenposj-1s=s+→"+Str(pos)elseposjs=s+→"+Str(pos)EndEndNextjNextiLabel1.Caption位置化情況：+s二、冒泡化1通過置個變來記否發(fā)了換，果有生交就前束排原2015.10浙江考第過優(yōu)一鈕代碼來驗修序①②處代碼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排序過程的加工遍數"+Str(i)"比次數"+Str(c)2/6

VB專題復之冒泡排序導案設計2.記最發(fā)交換位，作下趟較結的置選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排序過程的加工遍數"+Str(i)"比次數"+Str(c)三、變式習1.有如下程序：Fori=1to2Forj=1toIfa(j)<a(j+1)k=a(j):a(j)=a(j+1):a(j+1)=kEndNextjNexti數組元素a(1)到a(6)值依次為71,54,58,29,31,78過程序段理后，數組元素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專題復之冒泡排序導案設計s=str(a(i))+sNextiText1.text=str(c)&&s該程序段運行后文本框text1中顯示的內容（）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如果程序運行，開始數組元素s(1)到s(6)的值依次為4,343,312,12,246,121過該程序段處理后文本框text1中顯示的內容（）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數組元素的d(1)到10值別是91,28,83,62,64,36,9,65,37,99過該程序加工”后，文本框text1顯示的內容為（）A.92837B.999183C.2836D.2862364/6

VB專題復之冒泡排序導案設計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數組元素a(1)到a(6)值依次為9,4,8,7,2,5過該程序段處理后，表框list1中顯示的內容為）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數組元素到a(6)的值依次為16,4,24,33,77程序段理后，數組flag值為true的元素個數是（）A.1B.2C.4D.74.冒排序過程中，如果有一趟排序中沒有發(fā)生何數據交換，排序過程即可結束通過優(yōu)化可以提高某情況下程序的時間效率。為了比優(yōu)化前后的程序效率，小張寫一個程序進行驗證a，為兩值一樣的數組，分別利用兩種排序法。程序如下圖所,劃線處填入合適代碼。Dima(1ToAsIntegerDimb(1ToAsIntegerPrivateSubcommand1_click()DimAsInteger,AsIntegerDimAsInteger,AsIntegerFor=1To19For=20i+1Step-15/6

VB專題復之冒泡排序導案設計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