01.自編練習(xí)之冒泡排序（一）公開(kāi)課

天臺(tái)中學(xué)高二信息技術(shù)自編練習(xí)冒泡排序(一)編者：蔣潮侃一、選擇題注：選擇題答案請(qǐng)?zhí)钊雽?duì)應(yīng)方格內(nèi)1.有7個(gè)數(shù)據(jù)依次存放在數(shù)組a(1)到a(7)中，使用如下程序段對(duì)7個(gè)數(shù)據(jù)從大到小排序123456789101112Fori=1to6Forj=7toi+1step-1Ifthentemp=a(j):a(j)=a(j-l):a(j-l)=tempEndIfNextjNexti那么程序中劃線處內(nèi)容為()A、a(j)<a(j+l)B、a(j)<a(j-l)C>a(j)>a(j+l)D、a(j)>a(j-l)7個(gè)數(shù)據(jù)21、12、13、17、16、15、20依次存放在數(shù)組a(1)到a(7)中，使用如下程序段對(duì)7個(gè)數(shù)據(jù)進(jìn)行從小到大的排序，程序段運(yùn)行后，文本框Textl中顯示的內(nèi)容為()k=0Fori=1to6Forj=7toi+1step-1Ifa(j)<a(j-l)thentemp=a(j):a(j)=a(j-l):a(j-l)=tempk=k+1EndIfNextjNextiTextl.text=str(k)A、7B、8C、9D、103.7個(gè)數(shù)據(jù)21、12、13、17、16、15、20依次存放在數(shù)組a(1)到a(7)中，使用如下程序段對(duì)7個(gè)數(shù)據(jù)進(jìn)行從小到大的排序，那么程序段運(yùn)行后數(shù)組a(1)到a(7)中數(shù)據(jù)依次為()Fori=1to3Forj=7toi+1step-1Ifa(j)<a(j-l)thentemp=a(j):a(j)=a(j-l):a(j-l)=tempEndIfNextjNextiA、12、13、15、16、17、20、21B、12、13、15、21、16、17、20C、21、20、17、16、15、13、12D、21、20、17、16、12、13、154.數(shù)組元素a(1)到a(5)的值依次為“70,50,60,20,30”，經(jīng)過(guò)該程序段“加工”后，數(shù)組元素a(1)到a(5)的值依次為()Fori=1to2Forj=1to5-iIfa(j)>a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjNextiA、20,30,50,60,70B、70,60,50,30,20C、50,20,30,60,70D、50,60,20,30,70.數(shù)組元素a(1)到a(6)的值依次為“52,6,39,47,15,21”，經(jīng)過(guò)該程序段“加工”后，數(shù)組元素a(1)到a(6)的值依次為()Fori=1to2Forj=1to6-iIfa(j)>a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjNextiA、6,39,15,21,47,52B、6,15,21,39,47,52C、6,15,39,21,47,52I)、6,21,39,15,47,52.有以下VB程序段，a(1)到a(6)的值依次為“8,6,5,7,9,3”，經(jīng)過(guò)該程序段“加工”后，列表框Listl中顯示的是()Fori=1to3Forj=ito5Ifa(j)>a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjListl.AdditemStr(a(i))NextiA、8,7,6B、8,7,9C、6,5,3D、5,6,7.以下VB程序段的功能是對(duì)a數(shù)組(下標(biāo)范圍為1ton)中的數(shù)據(jù)進(jìn)行升序排列，那么程序中劃線對(duì)應(yīng)填入的正確語(yǔ)句是()Fori=Forj=1toi-lIfa(j)>a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjNextiA>nto2step-1B>2tonC、n-lto1step-1D、1ton-l.實(shí)現(xiàn)某排序算法的局部VB程序如下，在經(jīng)過(guò)某一遍“加工”后，數(shù)組元素a(1)到a(5)的值依次為“28,70,53,57,30”。那么下一遍排序“加工”后數(shù)組元素a(1)到a(5)的數(shù)據(jù)應(yīng)該是()Fori=1to4Forj=5toi+1step-1Ifa(j)<a(j-l)thentemp=a(j):a(j)=a(j-l):a(j-l)=tempNextjNextiA、28,30,70,53,57B、28,30,53,57,70C、28,30,57,53,70D、28,30,53,70,57.有以下VB程序段,a(1)到a(6)的值依次為“1,5,7,6,9,3”，經(jīng)過(guò)該程序段“加工”后,列表框Listl中顯示的是()Fori=1to3Forj=5toistep-1Ifa(j)<a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjListl.AdditemStr(a(i))NextiA、9,7,6B、1,3,5C、9,7,6,1,5,3D、9,7,6,5,3,1.有如下VB程序段，執(zhí)行程序后，a數(shù)組各元素可能是()Fori=1to6a(i)=Int(Rnd()*10)+1Ifa(i)Mod2<>iMod2Theni=i-1NextiFori=1to5Forj=6toi+2Step-1Ifa(j)<a(j-2)thentemp=a(j):a(j)=a(j-2):a(j-2)=tempEndIfNextjNextiA、1,2,3,4,5,6B、1,0,3,6,5,8C、3,2,7,6,11,8D、2,1,4,3,10,9.有以下VB程序段，數(shù)組元素a(1)到a(5)的值依次為"48,36,78,18,15",經(jīng)過(guò)該程序段“加工”后，數(shù)組元素a(1)到a(5)的值依次為()Fori=1to2Forj=1to5-iIfa(j)>a(j+l)thentemp=a(j):a(j)=a(j+l):a(j+l)=tempEndIfNextjNextiA、36,15,18,48,78B、36,18,15,48,78C、15,18,36,48,78D、15,18,48,36,78.有以下VB程序段，a(1)到a(6)的值依次為“9,4,8,7,2,5”，經(jīng)過(guò)該程序段“加工”后,列表框Listl中顯示的內(nèi)容是()Fori=1to4

Forj=6toi+1step-1Ifa(j)<a(j-l)thentemp=a(j):a(j)=a(j-l):a(j-l)=tempNextjNextis二““Fori=1to6s=s+Str(a(i))NextiListl.AdditemsA、2,9,4,8,7,5B、2,4,5,9,7,8C、2,4,9,5,8,7D、2,4,5,7,9,8二、程序題13.對(duì)班級(jí)學(xué)生進(jìn)行排隊(duì)，要求分別對(duì)男女生按身高進(jìn)行升序排序，排序后男生在前，女生在后。排序?qū)嵗缦拢号判蚯澳信信心心信?80161165176160185188170171166排序后男男男男男女女女女女170176180185188160161165166171實(shí)現(xiàn)上述功能的VB程序如下，但虛線框處代碼有錯(cuò)誤，請(qǐng)改正。Dima(lTon)AsInteger,b(1Ton)AsStringConstn=20PrivateSubCommandl_Click()DimsAsString,iAsInteger,jAsIntegerDimtlAsInteger,t2AsString'讀取身高和性別數(shù)據(jù)，分別存儲(chǔ)在數(shù)組a和數(shù)組b中，代碼略Fori=1Ton-1Forj=nToi+1Step-1_b(j)+b(j-1)

s_Ifa(j-1)>a(j)Then=a(j):a(j)=tl=b(j):b(j)=t2tl