高考專題復(fù)習(xí)專題一-求程序運(yùn)行結(jié)果信息技術(shù)

專題一求程序運(yùn)行結(jié)果1．有如下VB程序段：Fori＝1To6a(i)＝Int(Rnd*10)＋1NextiFori＝1To5IfiMod2＝1Anda(i)>a(i＋1)Thent＝a(i)：a(i)＝a(i＋1)：a(i＋1)＝tElsea(i)＝a(i)＋1EndIfNexti執(zhí)行程序后，a數(shù)組各元素可能是()A．11，11，7，9，3，9 B．6，2，8，10，5，9C．6，9，3，7，8，12 D．3，9，0，8，2，7解析產(chǎn)生a(i)值的范圍是[1，10]，排除答案C和D。當(dāng)i是奇數(shù)時，并且a(i)>a(i＋1)時交換，也就是說奇數(shù)位的數(shù)小于等于他后面的數(shù)。當(dāng)奇數(shù)位的數(shù)小于等于他后面的數(shù)，或者是偶數(shù)位時，執(zhí)行a(i)＝a(i)＋1，此時a(i)有可能等于11。答案A2．有VB程序段如下：Fori＝1To6a(i)＝Int(Rnd*20)＋1Ifa(i)Mod2＝iMod2Thena(i)＝a(i)－1Elsea(i)＝a(i)＋2EndIfNexti執(zhí)行該程序段后，a(1)～a(6)各元素可能的是()A．13，2，7，12，5，18 B．22，7，0，15，4，19C．20，9，18，23，4，7 D．6，0，4，21，18，17解析產(chǎn)生a(i)值的范圍是[1，20]，當(dāng)i是奇數(shù)時，如果a(i)也是奇數(shù)，將他減1，成為偶數(shù)。當(dāng)i是偶數(shù)時，如果a(i)也是偶數(shù)，將他減1，成為奇數(shù)。因此奇數(shù)位產(chǎn)生的是偶數(shù)，偶數(shù)位產(chǎn)生的奇數(shù)。當(dāng)產(chǎn)生的最小奇數(shù)為1時，減1為0，即最小偶數(shù)為0，當(dāng)產(chǎn)生的最大偶數(shù)為20時，加2為22。同理可得奇數(shù)的范圍是[1，21]。答案B3．有如下所示VB程序段：str1＝”ABCDEFGHIJKLMNOPQRSTUVWXYZ”s＝””Fori＝1To4t＝Int(Rnd*10)＋1IftMod2＝iMod2Thent＝t＋1Elset＝t＋2EndIfs＝s＋Mid(str1,t,1)NextiList1.AddItems執(zhí)行該程序段后，列表框List1中可能顯示的內(nèi)容是()A．BADC B．BCDYC．DEFG D．CDEF解析產(chǎn)生t值的范圍是[1，10]。當(dāng)i是奇數(shù)時，如果t也是奇數(shù)，加1成為偶數(shù)，t不是奇數(shù)，加2還是偶數(shù)，且數(shù)的范圍是[2，12]。當(dāng)i是偶數(shù)時，如果t也是偶數(shù)，加1成為奇數(shù)，t不是偶數(shù)，加2還是奇數(shù)，且數(shù)的范圍是[3，11]。因此奇數(shù)位產(chǎn)生的是偶數(shù)，偶數(shù)位產(chǎn)生的奇數(shù)。答案C4．有如下VB程序段：i＝1:n＝5DoWhilei<＝nx＝Int(Rnd()*9)＋1IfxMod2＝1Thena(i)＝xElsea(n)＝xn＝n－1EndIfi＝i＋1Loop數(shù)組元素的初值均為0，執(zhí)行該程序段后，在下列選項(xiàng)中a(1)至a(5)各元素值不可能的是()A．71398 B．33088C．01042 D．13550解析產(chǎn)生的數(shù)[1，9]，偶數(shù)放在后面，奇數(shù)放在前面。A選項(xiàng)，先產(chǎn)生4個奇數(shù)，再產(chǎn)生一個偶數(shù)。B選項(xiàng)，先產(chǎn)生兩個奇數(shù)，再產(chǎn)生兩個偶數(shù)，此時i＝4，n＝3，不滿足條件，退出循環(huán)，因此第3個元素為0。C選項(xiàng)，先產(chǎn)生一個偶數(shù)，再產(chǎn)生一個奇數(shù)，再生產(chǎn)2個偶數(shù)，此時n＝3，i＝5，不滿足條件。D選項(xiàng)，先產(chǎn)生4個奇數(shù)，此時n＝5，條件成立，但產(chǎn)生的數(shù)不可能是0。答案D5．有如下VB程序段：a(1)＝3:a(2)＝4:a(3)＝1:a(4)＝2:a(5)＝5k＝Int(Rnd*4)＋1Fori＝1To5Ifi<>kThenIfa(i)<a(k)Thent＝a(i)：a(i)＝a(k)：a(k)＝tEndIfNexti執(zhí)行該程序段后，數(shù)組元素a(1)到a(5)中的值依次不可能為()A．54321 B．34125C．34215 D．14325解析k的取值范圍是[1，4]，A選項(xiàng)中只有當(dāng)i＝5，k＝1時才能把5換到最前面，但此時又不滿足條件a(i)<a(k)，因此A選項(xiàng)是不可能實(shí)現(xiàn)的。B選項(xiàng)，當(dāng)i＝1時，只要k<>2就不會換，當(dāng)i＝2時k等于任何值，均不會換，當(dāng)i＝3時，k＝3，不換。C選項(xiàng)中，3和4互換，D選項(xiàng)2和4互換。答案A6．有以下VB程序段：a(1)＝2Fori＝2To3a(i)＝a(i－1)－Int(Rnd()*2)IfiMod2＝1Thena(i)＝a(i)＋1Elsea(i)＝a(i)－1EndIfNexti執(zhí)行程序后，a(2)和a(3)的值不可能的是()A．1，1 B．1，0C．0，1 D．0，0解析語句a(i)＝a(i－1)－Int(Rnd()*2)的功能是讓a(i)的值比他前面的小1或相等。即a(2)為1或2，他的值減去1后，值可能為0或1。當(dāng)a(2)＝1時，a(3)的值可能是1或0，加1后的值可以是1或2。當(dāng)a(2)＝0時，a(3)的值可能是－1或0，加1后的值可以是0或1。答案B7．有如下VB程序段：Fori＝1To6a(i)＝Int(Rnd()*10)＋1Ifa(i)Mod2<>iMod2Theni＝i－1NextiFori＝1To5Forj＝6Toi＋2Step－1Ifa(j)<a(j－2)Thent＝a(j)：a(j)＝a(j－2)：a(j－2)＝tEndIfNextjNexti執(zhí)行程序后，a數(shù)組各元素可能是()A．1，2，3，4，5，6 B．1，0，3，6，5，8C．3，2，7，6，11，8 D．2，1，4，3，10，9解析a(i)中產(chǎn)生的是[1，10]之間的隨機(jī)數(shù)，且奇數(shù)位為奇數(shù)，偶數(shù)位為偶數(shù)。接下來按奇偶分別進(jìn)行排序。B選面中不可能產(chǎn)生0，C選項(xiàng)中不可能產(chǎn)生11。答案A8．有如下VB程序段：a(1)＝6：a(2)＝9：a(3)＝3a(4)＝7：a(5)＝8：a(6)＝1t＝2*Int(Rnd*3)＋1Fori＝tTo5k＝iForj＝i＋1To6Ifa(j)<a(k)Thenk＝j(luò)NextjIfk<>iThentemp＝a(i):a(i)＝a(k):a(k)＝tempEndIfNexti執(zhí)行該程序段后，a(1)～a(6)各元素的值不可能是()A．6，1，3，7，8，9 B．6，9，1，3，7，8C．6，9，3，7，1，8 D．1，3，6，7，8，9解析t的值為1，3，5，D選項(xiàng)屬于t＝1的情況，A選項(xiàng)屬于t＝2的情況，即從第2個數(shù)開始排序。選項(xiàng)B屬于t＝3，選項(xiàng)C屬于t＝5。答案A9．有如下VB程序段：n＝8Fori＝1Tond(i)＝Int(Rnd*10)＋1NextiFori＝2Ton－1k＝1Forj＝1Ton－iIfd(j)*k>d(j＋2)*kThentemp＝d(j)：d(j)＝d(j＋2)：d(j＋2)＝tempEndIfk＝－kNextjNexti執(zhí)行該程序段后，d數(shù)組各元素可能是()A．3，10，3，5，4，4，10，1 B．0，3，4，5，6，6，7，8C．2，1，3，4，5，6，8，7 D．6，4，5，6，5，7，1，10解析當(dāng)i為偶數(shù)時，k＝1，偶數(shù)位的數(shù)實(shí)現(xiàn)降序排列，當(dāng)i為奇數(shù)時k＝－1，奇數(shù)位的數(shù)實(shí)現(xiàn)升序排列。答案A10．有如下VB程序段：Dima(1To6)AsInteger,iAsIntegerRandomizeFori＝1To6a(i)＝Int(Rnd*10)＋1Ifa(i)Mod2＝1Theni＝i－1ElseIfiMod2＝0Thena(i)＝a(i)＋a(i－1)EndIfNexti最終a數(shù)組各元素的值可能是()A．8，14，3，10，2，12 B．2，4，6，10，12，24C．10，16，8，18，8，4 D．6，12，10，20，4，8解析產(chǎn)生的數(shù)在[1，10]，如果是奇數(shù)，重新產(chǎn)生。奇數(shù)位不可能超過10，偶數(shù)位上數(shù)字是他與他前面數(shù)字之和，肯定為偶數(shù)，且比他前面的數(shù)大。答案D11．有如下VB程序段：b(1)＝a(1)：t＝1Fori＝2To6Forj＝1TotIfa(i)>b(j)Thenb(j)＝a(i)ExitForEndIfNextjIfj>tThent＝t＋1:b(t)＝a(i)Nexti數(shù)組a(1)至a(6)的值分別為15、22、13、134、43、2，執(zhí)行該程序段后，變量t的值為()A．2B．3C．4D．5解析b數(shù)組中存儲的是較大值，當(dāng)a(i)>b(j)條件成立時，中途退出內(nèi)循環(huán)，此時不滿足j>t。變量t只有在a(i)小于或等于b數(shù)組中的值才增加1。itb(1)b(2)b(3)22223313431345363答案B12．有如下VB程序段：flag＝True:i＝1DoWhilei<＝6x＝Int(Rnd*100)＋1IfflagOrx>50Thena(i)＝xflag＝Notflagi＝i＋1EndifLoop執(zhí)行該程序段后，在下列選項(xiàng)中，a(1)～a(6)各元素值不可能的是()A．52，95，46，74，77，83 B．50，55，46，70，21，97C．62，78，57，61，69，50 D．31，54，48，72，50，82解析本題考查循環(huán)過程中變量的變化規(guī)律。通過flag＝Notflag語句得知，F(xiàn)lag的值是True和False交替出現(xiàn)的，當(dāng)i的值為奇數(shù)時flag為True，偶數(shù)時flag為False。當(dāng)i為偶數(shù)時flag為False，只有x>50成立才會給數(shù)組a賦值，即數(shù)組a偶數(shù)位(a(2)、a(4)、a(6))上的值肯定大于50。C選項(xiàng)a(6)＝50不能出現(xiàn)。答案C13．有如下程序段：Constn＝6Dima(1Ton)AsIntegerDimiAsInteger,jAsInteger,tAsIntegerDoWhileTrueFori＝1Ton－1Ifa(i)>a(i＋1)ThenExitForNextiIfi<nThenFork＝1Tonj＝Int(Rnd*6)＋1t＝a(j)：a(j)＝a(i)：a(i)＝tNextkElseExitDoEndIfLoop數(shù)組中a(1)到a(6)的值依次為“56，34，48，87，65，96”，經(jīng)上述程序段執(zhí)行后a(1)到a(6)的值依次為()A．968765564834B．344856658796C．選項(xiàng)A和B都有可能D．選項(xiàng)A和B都不可能解析當(dāng)條件i<n不成立時(即i>＝n)，退出循環(huán)，結(jié)束程序。在For循環(huán)中，滿足條件a(i)>a(i＋1)就中途退出循環(huán)，此時i<n，當(dāng)i＝n時，肯定不滿足a(i)>a(i＋1)，因此該數(shù)組中的數(shù)已經(jīng)是升序排列。答案B14．有如下程序段：Sum＝6a(11)＝49Fori＝10To1Step－1a(i)＝a(i＋1)－1Ifa(i)Mod3＝0ThenSum＝Sum＋a(i)NextiText1.Text＝Str(Sum)該程序段運(yùn)行后，文本框Text1中顯示的內(nèi)容是()A．174B．180C．36D．42解析從第10個元素開始，是他后面一個元素值減1，且是3的倍數(shù)相加(共有4個數(shù)，即a(10)a(7)a(4)a(1))，即48＋45＋42＋39＋6。答案B15．以下VB程序段：n＝Val(Text1.Text)DoWhilen>0t＝nMod10IftMod2＝0Thena(t)＝a(t)＋1n＝n\10LoopList1.AddItema(2)若在文本框Text1中輸入2686261，程序運(yùn)行后，在列表框List1中顯示的值為()A．0B．2C．3D．6解析t是數(shù)n的個位數(shù)，當(dāng)t是偶數(shù)時，進(jìn)行計(jì)數(shù)。因此2的個數(shù)有2個。答案B16．有如下VB程序段：DimiAsInteger,SumAsIntegerDima(1To6)AsInteger,b(1To6)AsIntegerSum＝0a(6)＝18:a(5)＝7:b(6)＝14：b(5)＝16Fori＝4To1Step－1a(i)＝a(i＋2)－a(i＋1)b(i)＝b(i＋2)－a(i)Ifb(i)Mod3＝0ThenSum＝Sum＋b(i)NextiText1.Text＝Str(Sum)該程序段運(yùn)行后，文本框Text1中顯示的內(nèi)容是()A．39B．30C．－9D．12解析采用列表法進(jìn)行變量跟蹤。ia(i)b(i)sum411333－4203215－12－91－193930答案B17．有如下VB程序段：s＝””Fori＝2To5Forj＝iTo5IfjModi＝0Thena(j)＝a(j)＋1NextjNextiFori＝1To5Ifa(i)<>1Thens＝Str(i)&sNextiText1.Text＝s若數(shù)組a的初始值都為0，則運(yùn)行該程序段后，Text1中顯示的內(nèi)容為()A．14B．235C．532D．41解析如果是大寫字母，將他的ASCII值－62，再加上A的ASCII值，表示將該字母加密成該字母后面第3位的字母。小寫字母和數(shù)字不處理，把加密后的進(jìn)行反向連接。答案D18．有如下VB程序段：a(1)＝17:a(2)＝16:a(3)＝12:a(4)＝18a(5)＝15:a(6)＝13:a(7)＝17:a(8)＝20i＝2DoWhilei<＝8IfiMod2＝0Anda(i)>a(i－1)Thent＝a(i)：a(i)＝a(i－1)：a(i－1)＝tElseIfa(i－1)Mod2＝1Thena(i－1)＝a(i－1)＋1EndIfi＝i＋1Loop執(zhí)行程序后，a數(shù)組各元素是()A．17，16，18，12，16，14，20，18B．18，16，18，12，16，14，20，17C．16，17，18，12，13，16，20，17D．18，16，18，12，14，15，17，20解析當(dāng)i＝2時，把a(bǔ)(1)加1，接著觀察奇數(shù)位，該位上原來是奇數(shù)，加1后是偶數(shù)，如果是偶數(shù)不操作，因此奇數(shù)位肯定是偶數(shù)，偶數(shù)位上的數(shù)字肯定比奇數(shù)位上數(shù)字小。答案B19．有如下VB程序段：Dima(1to6)AsIntegerSum＝0Fori＝1To6Forj＝i＋1To6IfjModi＝0Thena(j)＝1－a(j)NextjNextiFori＝1To6Sum＝Sum＋a(i)NextiText1.Text＝Str(Sum)該程序段運(yùn)行后，文本框Text1中顯示的內(nèi)容是()A．3B．4C．5D．6解析語句a(j)＝1－a(j)的功能是把a(bǔ)(j)中的0改為1，1改為0。當(dāng)i>＝4時，沒有j可以除通i。Ia(1)a(2)a(3)a(4)a(5)a(6)101111120110103011011答案B20．(2020·1月浙江選考)下列選項(xiàng)中，與語句“Ifx<0Theny＝－1Elsey＝1”功能相同的是()A.Ifx<0Theny＝－1y＝1B.y＝1Ifx<0Theny＝－1C.Ifx<0Theny＝－1Ifx>0Theny＝1D.Ifx>0Theny＝1Elsey＝－1解析本題考查IF語句。A選項(xiàng)無論x為多少，最終y的值都為1，不符合。B選項(xiàng)y首先賦值為1，若x小于0則賦值為－1，否則y不變，符合要求，所以選B。C選項(xiàng)和D選項(xiàng)忽略了x＝0的情況，不符合。注意如果x＝0則y的值要為1。答案B21．小王同學(xué)編寫了一個VB程序段如下所示：a＝7:b＝3:c＝9m＝1:k＝1Fori＝1to3IfAbs(a＋b)>cThenk＝k＋1Ifk>mThenm＝kElsek＝1EndIfa＝a－bb＝a＋bNextiText1.Text＝Str(m)程序運(yùn)行后，在文本框Text1中顯示的結(jié)果為()A．4B．3C．2D．1解析列出表格，進(jìn)行變量跟蹤。IAbcmk初值739111479222－349333－7－3931答案C22．有如下VB程序段：Dima(1To7)AsIntegera(1)＝14：a(2)＝15：a(3)＝0：a(4)＝11a(5)＝13：a(6)＝21：a(7)＝17i＝6:flag＝TrueDoWhilei>1AndflagIfa(i)Mod3＝0Anda(i)<>0Thent＝a(i)：a(i)＝a(i＋1)：a(i＋1)＝tElseIfa(i)＝0Thenflag＝flaseElseIfa(i＋1)Mod2＝1Thena(i)＝Abs(a(i)－a(i＋1))EndIfi＝i－1Loop執(zhí)行程序后，a數(shù)組各元素是()A．14，0，15，4，17，13，21 B．14，15，0，11，4，17，21C．15，14，0，11，4，17，21 D．14，15，0，11，13，4，17解析采用列表法。ia(1)a(2)a(3)a(4)a(5)a(6)a(7)初值141501113211761721544141501141721答案B23．有如下VB程序段：n＝10Fork＝1Ton\3p＝3*k－2x＝pFort＝p＋1To3*kIfa(t)<a(x)Thenx＝tNexttIfp<>xTheny＝a(p)：a(p)＝a(x)：a(x)＝y(tǒng)EndIfNextka(1)到a(10)中的元素依次為8，3，5，9，7，5，7，6，5，4，程序運(yùn)行結(jié)束后，以下數(shù)組元素的值錯誤的是()A．a(chǎn)(2)＝8 B．a(chǎn)(5)＝7C．a(chǎn)(7)＝3 D．a(chǎn)(10)＝4解析本題考查選擇排序算法及程序閱讀能力。k的值123p的值147x的初值147t的值2to35to68to9內(nèi)層循環(huán)功能：在p開始的3個數(shù)中，找到最小數(shù)的位置存入x，將最小數(shù)與p位置的數(shù)交換。程序執(zhí)行結(jié)束后，數(shù)組a的值依次是：3，8，5，5，7，9，5，6，7，4。答案C24．有如下VB程序段：m＝a(1)：s＝0Fori＝2To5Ifa(i)>mThenm＝a(i)s＝s＋mNexti數(shù)組元素a(1)到a(5)的值依次為“1，3，4，2，3”，執(zhí)行該程序段后，變量s的值為()A.7 B.12C.13 D.15解析本題考查單循環(huán)和數(shù)組結(jié)合應(yīng)用。本題是求最大值的變形，m的含義為a(1)～a(i)中的最大值。當(dāng)i＝2時，m＝3；當(dāng)i＝3時，m＝4；當(dāng)i＝4時，m＝4；當(dāng)i＝5時，m＝4；而語句s＝s＋m每輪循環(huán)無條件執(zhí)行，即s＝3＋4＋4＋4＝15。答案D25．有如下程序段：Fori＝2To6Forj＝1Toi－1Ifa(j)<＝a(i)Andd(j)>＝d(i)Thend(i)＝d(j)＋1：pre(i)＝j(luò)EndIfNextjNextimax＝0:k＝0Fori＝1To6Ifd(i)>maxThenmax＝d(i)：k＝iNextiDoWhilek<>0st＝a(k)&”，”&stk＝pre(k)LoopText1.Text＝Mid(st，1，Len(st)－1)數(shù)組元素a(1)到a(6)的值依次為“2，6，5，9，8，8”，數(shù)組d各元素的值初始化為1，數(shù)組pre各元素的值初始化為0，經(jīng)過該程序段“加工”后，Text1中的值是()A．2，5，9 B．2，6，8，8C．2，5，8，8 D．2，5，6，8，8，9解析在數(shù)組a中，從第2個數(shù)開始，往他前面的數(shù)進(jìn)行查找，若找到比較他小的數(shù)，且d(j)>＝d(i)，進(jìn)行相應(yīng)操作。id(1)d(2)d(3)d(4)d(5)d(6)pre(1)pre(2)pre(3)pre(4)pre(5)pre(6)21211110100003122111011000412231101120051223310112206122334011225找到最大值的位置在6，連接a(6)，接著把a(bǔ)(5)、a(2)、a(1)連接在前面。答案B26．有以下VB程序段：a(1)＝68:a(2)＝88:a(3)＝76:a(4)＝60:a(5)＝98a(6)＝100:a(7)＝64:a(8)＝85:a(9)＝99:a(10)＝59Fori＝1To9b(i)＝Abs(a(i＋1)－a(i))c(b(i)\10)＝c(b(i)\10)＋1NextiFori＝0To10Ifc(i)>0Thens＝s＋””＋Str(c(i))NextiLabel1.Caption＝s數(shù)組c各元素初值為0，執(zhí)行該程序段，標(biāo)簽Label1上顯示的內(nèi)容是()A．23211 B．13221C．23221 D．13212解析b(1)至b(9)數(shù)組中的值分別為20，12，16，38，2，36，21，14，40。而c數(shù)組是統(tǒng)計(jì)b數(shù)組元素中十位上數(shù)字的個數(shù)。答案B27．有如下VB程序段：Fork＝1To10f＝kMod2Iff＝0Thena(k)＝0Elsea(k)＝1Forj＝1TokIff＝0Thena(k)＝a(k)＋1Elsea(k)＝a(k)*jEndIfNextjNextk執(zhí)行該程序段后，數(shù)組元素a(4)的值為()A．6B．4C．2D．1解析當(dāng)k是偶數(shù)時，f的初值為0，并進(jìn)行1至k的計(jì)數(shù)。當(dāng)k是奇數(shù)時，f的初值為1，并進(jìn)行1至k的累乘。答案B28．有如下VB程序段(數(shù)組a各元素的初始值均為0)。n＝Len(Text1.Text)c＝1Fori＝1Tons＝Mid(Text1.Text,i,1)Ifs>＝”0”Ands<＝”9”Thena(c)＝a(c)*10＋Val(s)ElseIfa(c)>0Thenc＝c＋1EndIfNexti在文本框Text中輸入“No1：X：123：Y：680：End”。執(zhí)行該程序段后，數(shù)組a(2)的值為()A．1B．2C．3D．123解析a數(shù)組存儲的是字符串中的數(shù)字及個數(shù)，第二個數(shù)字串是123。答案D29．有VB編寫的程序如下：Dima(0To9)AsInteger，tasLongt＝Val(Text1.Text)DoWhilet<>0a(tMod10)＝1t＝t\10LoopFori＝0To9x＝x＋a(i)NextiText1中輸入10242048則程序執(zhí)行后x的值為()A．1B．2C．5D．10解析tMod10的值為t的個位數(shù)，a(tMod10)＝1不是計(jì)數(shù)語句，指只要出現(xiàn)過，該下標(biāo)對應(yīng)的數(shù)組元素為1，出現(xiàn)過的數(shù)有01248。答案C30．以下VB程序段：DimnAsLong，tAsIntegerDima(1To9)AsIntegern＝Val(Text1.Text)DoWhilen>0t＝nMod10IftMod2＝0Thena(t)＝a(t)＋1n＝n\10LoopList1.AddItema(2)若在文本框Text1中輸入26862612，則單擊命令按鈕Command1后，在列表框List1中顯示的值為()A．2B．3C．4D．7解析計(jì)n各個數(shù)字中的偶數(shù)，a(2)指2的個數(shù)。答案B31．有如下VB程序段：Fori＝1To10b(i)＝0NextiFori＝1To5Forj＝1To10Ifb(i)<a(j)Thenb(i)＝a(j)：t＝j(luò)Nextja(t)＝0List1.AddItemStr(b(i))Nexti其中數(shù)組元素a(1)到a(10)的值依次為“25，42，53，66，77，83，98，14，38，99”，執(zhí)行程序后，在列表框List1中依次輸出的數(shù)據(jù)是()A．2542536677 B．1425384253C．9998837766 D．8398143899解析找出每趟中的最大值，存儲在b數(shù)組中，同時把數(shù)組a該位置中的值賦值為0。答案C32．有如下程序段：s＝0Fori＝1To5Ifa(i)Mod2＝1Thens＝s＋1NextiFori＝1To4Ifa(i)Mod2＝0ThenForj＝5Toi＋1Step－1Ifa(j)Mod2＝1Thena(6)＝a(i):a(i)＝a(j):a(j)＝a(6)ExitForEndIfNextjEndIfNextiFori＝s＋2To5k＝i－1Forj＝iTo5Ifa(k)>a(j)Thenk＝j(luò)NextjIfk<>i－1Thena(6)＝a(i－1):a(i－1)＝a(k):a(k)＝a(6)EndIfNexti數(shù)組a(1)至a(5)中的數(shù)據(jù)分別為64，57，22，96，71，運(yùn)行該程序段，數(shù)組a中數(shù)據(jù)依次為()A．22,57,64,71,96 B．71,57,22,96,64C．71,57,22,64,96 D．57,71,22,64,96解析變量s中存儲的是a數(shù)組是奇數(shù)，因此s＝2。當(dāng)a(i)是偶數(shù)時，與最后面第1個奇數(shù)互換。數(shù)組中值為71，57，22，96，64。接著對后面的偶數(shù)采用選擇排序進(jìn)行長序排列。答案C33．有如下VB程序段：a(1)＝1:a(2)＝1b(1)＝1:b(2)＝2Fori＝3To5a(i)＝a(i－1)＋a(i－2)b(i)＝b(i－1)＋a(i)Nexti執(zhí)行該程序段后，數(shù)組元素b(5)的值為()A．12B．8C．5D．4解析當(dāng)i＝3時，a(3)＝2，b(3)＝3。當(dāng)i＝4時，a(4)＝3，b(4)＝7。當(dāng)i＝5時，a(5)＝5，b(5)＝12。答案A34．有VB程序段如下：s＝”2019appreciate”：sum＝0Fori＝1ToLen(s)ch＝Mid(s,i,1)Ifch>＝”a”Andch<＝”z”Thenm＝Asc(ch)－Asc(”a”)＋1a(m)＝a(m)＋1EndIfNextiFori＝1To10Ifa(i)>0Thensum＝sum＋1Nexti數(shù)組a各元素的初始值都為0，執(zhí)行該程序段后，則變量sum的值為()A．10B．7C．4D．3解析表達(dá)式Asc(ch)－Asc(”a”)＋1表示小寫字母ch在字母表中位置，a(m)表示該位置上字母的個數(shù)。只是統(tǒng)計(jì)小寫字母，且sum是統(tǒng)計(jì)a(i)大于0的個數(shù)，因此是統(tǒng)計(jì)出現(xiàn)幾種小寫字母。且i只循環(huán)了60次。答案C35．有如下VB程序段：Fori＝1Tona(i)＝Mid(Text1.Text,i,1)NextiDoWhilen>1IfAsc(a(n))>＝Asc(a(n－1))Thenm＝1Elsem＝2b(m)＝b(m)＋1n＝n－1Loop數(shù)組b各元素的初始值都為0，文本框Text1的內(nèi)容為“2019Python”。執(zhí)行程序后，變量b(1)的值為()A．10B．6C．5D．4解析數(shù)組a中存儲的是輸入的每個字符，從最后一個字母開始，如果大于等于他前面一個，m＝1，且統(tǒng)計(jì)的次數(shù)增加1。答案C36．有如下VB程序段：PrivateSubCommand1_Click()DimsAsString,mwAsString,chAsStringDimtempAsIntegers＝Text1.Texttemp＝0:mw＝””Fori＝1ToLen(s)ch＝Mid(s,i,1)Ifch>＝”0”Andch<＝”9”Thentemp＝temp*10＋Val(ch)ElseIfch＝”－”Thenmw＝mw＋Chr(tempMod27－1＋Asc(”A”))temp＝0Elsemw＝mw＋chEndIfNextiText2.Text＝mwEndSub在Text1里輸入“1931－572－185”(不包括雙引號)，當(dāng)單擊按鈕后，文本框Text2里的輸出結(jié)果是()A．HADB．NEC．NEWD．ORG－解析語句temp＝temp*10＋Val(ch)的作用是取出字符串中的數(shù)字串。表達(dá)式Chr(tempMod27－1＋Asc(”A”))的功能是把數(shù)字轉(zhuǎn)換成－1至26之間數(shù)，再加上字母A的ASCII碼值。并將轉(zhuǎn)換后的數(shù)字表達(dá)為字母表中大字字母。但文本最后沒有“一”，因此只輸兩個字母。答案B37．有如下VB程序段：PrivateSubCommand1_Click()DimsAsString,aAsString,tAsStrings＝Text1.Text:t＝””Fori＝1ToLen(s)a＝Mid(s,i,1)Ifa>＝”0”Anda<＝”9”Thent＝t＋aElseIfa＝”！”Thent＝””ElseIft<>””ThenList1.AddItemtEndIfNextiEndSub執(zhí)行程序時，在文本框Text1中輸入“12＋34＝46！789ok”(不包括雙引號)，單擊按鈕Command1后，在列表框List1中顯示的結(jié)果是()解析當(dāng)取出的是數(shù)字時，連接到t中，當(dāng)a＝”！”，清空t，其他情況輸出t。當(dāng)a＝“＋”，先輸出12，當(dāng)a＝“＝”，先輸出1234，當(dāng)a＝“！”，t＝””，當(dāng)a＝“o”和“k”，分別輸出789。答案C38．有如下程序段：st＝Text1.Text1x＝Len(st)m＝0:k＝1Fori＝2To1xIfMid(st，i，1)>Mid(st，i－1，1)Thenk＝k＋1Ifk＝2Thenm＝m＋1Elsek＝1EndIfNextiText2.Text＝Str(m)若在Text1中輸入“abcddecaab”，則該程序段運(yùn)行后，文本框Text2中顯示的內(nèi)容是()A．2B．3C．4D．1解析從第2個字符開始，跟他前面的字符比較，如果連續(xù)大于或等于前面的字符2次，則計(jì)m加1。有遞增序列abcd、de、ab。答案B39．執(zhí)行下列程序：s＝”ERROR:Divisormustnotbezero！”flag＝False:m＝0Fori＝1ToLen(s)ch＝Mid(s,i,1)Ifch>＝”a”Andch<＝”z”ThenIfNotflagThenm＝m＋1flag＝TrueEndIfElseflag＝FalseEndIfNextiText1.Text＝Str(m)則該程序段運(yùn)行后，文本框Text1中顯示的內(nèi)容是()A．4B．5C．6D．19解析如果檢測到不是小寫字母，則flag為False，一旦小寫字母開頭，m加1，同時flag為True，第二個小字母時，m不再加1。也就是說小寫字母開頭的字母有哪些。答案A40．有如下VB程序段：Ins＝Text1.Textn＝Len(Ins):Outs＝Mid(Ins,1,1)i＝2DoWhileMid(Ins，i，1)>＝Mid(Outs，i－1，1)Outs＝Outs＋Mid(Ins,i,1)i＝i＋1LoopText2.Text＝Outs在文本框Text1中輸入“Happy2019”，執(zhí)行該程序段后，文本框Text2中顯示的是()A．HaB．HappyC．Happy29D．Happy2019解析查找后面的字符大于或等于前面的字符。字符的順序?yàn)閿?shù)字小于大寫字母小于小寫字母。答案B41．有如下VB程序段：s＝Text1.Textt＝Mid(s,1,1)max＝0Fori＝2ToLen(s)IfMid(s,i,1)>Mid(s,i－1,1)Thent＝t＋Mid(s,i,1)IfLen(t)>maxThenmax＝Len(t)ans＝tElset＝Mid(s,i,1)EndIfEndIfNextiText2.Text＝ans在文本框Text1中輸入“11341358901”，執(zhí)行該程序段后，文本框Text2中顯示的是()A．13435891 B．01C．3589 D．13589解析當(dāng)后面字母大于前面字母，存入變量t中，因此t的長度每次都是在增長的，語句t＝Mid(s,i,1)是不可能執(zhí)行到的。最終變量ans中存儲的是只要后面比前面大的字符串。答案A42．有如下程序段：FunctiondelStr(SAsString,mAsInteger)AsStringDimnAsInteger:n＝Len(S)Ifm<1Orm>nThendelStr＝”輸入位置有誤！”Ifm＝1ThendelStr＝Mid(S，2，n－1)Ifm<nThendelStr＝Mid(S，1，m－1)＋Mid(S，m＋1，n－m)Ifm＝nThendelStr＝Mid(S，1，n－1)EndFunctionPrivateSubCommand1_Click()DimSAsString:DimiAsIntegerS＝Text1.TextFori＝1To10Step2S＝delStr(S,i)NextiText2.Text＝SEndSub文本框Text1中輸入Happybirthday，執(zhí)行該程序段，文本框Text2中顯示的是()A．a(chǎn)pybrtda B．a(chǎn)pbrhdayC．Happybirhday D．day解析共調(diào)用自定義函數(shù)5次，分別刪除第1，3，5，7，9個字母，這里的3指刪除第1個字母后的第3個，即原來的1，4，7，10，13個字母。答案A43．有如下VB程序：s1＝Text1.TextFori＝1ToLen(s1)ch＝Mid(s1,i,1)IfAsc(ch)>＝65AndAsc(ch)<＝90Thench＝Chr(65＋(Asc(ch)－62)Mod26)EndIfs2＝ch＋s2NextiLabel1.Caption＝s2已知大寫字母A的ASCII碼為65。運(yùn)行上述程序，若文本框Text1中的內(nèi)容為“A1b2C3”，單擊命令按鈕Command1，標(biāo)簽Label1中顯示的是()A．A1b2C3 B．3C2b1AC．D1b2F3 D．3F2b1D解析A的ASCII碼為65，Asc(ch)－62表示該字母將后移3位。因此程序的功能是只將其中的大寫字母后移3位，大小和數(shù)字不變，并將轉(zhuǎn)換的字符反向連接。答案D44．某個進(jìn)行素數(shù)判斷的VB程序段如下：PrivateSubCommand1_Click()DimxAsIntegerx＝Val(Text1.Text)Label1.Caption＝Str(x)＋prime(x,2)EndSubFunctionprime(nAsInteger,mAsInteger)AsStringIfn＝mThenprime＝”是素數(shù)?！盓lseIfn<2OrnModm＝0Thenprime＝”不是素數(shù)?！盓lseprime＝prime(n,m＋1)EndIfEndFunction在文本框Text1中輸入的值是123，并執(zhí)行程序后，自定義函數(shù)prime被執(zhí)行的次數(shù)是()A．1次B．2次C．122次D．123次解析本題考核的是遞歸算法。調(diào)用函數(shù)prime(123，2),prime(123，2)＝prime(123，3)，返加函數(shù)的值為”不是素數(shù)?！?，因此調(diào)用了2次。答案B45．有如下VB程序段：Dima(1to6)asStringi＝1DoWhilei<＝2Forj＝iTo5Ifa(j)>a(j＋1)Thent＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝tEndIfNextjText1.Text＝Text1.Text＋””＋a(i)i＝i＋1Loop數(shù)組元素a(1)到a(6)的值分別為”9”，”121”，”58”，”34”，”78”，”21”，程序運(yùn)行后，文本框Text1中顯示的內(nèi)容為()A．934 B．921C．12134 D．12121解析比較的對象是字符串變量。分類討論，當(dāng)i＝1時，把”9”換到最后，當(dāng)i＝2時，把”58”換到”34”的后面。答案C46．有一個數(shù)組，采用冒泡排序，第一遍排序后的結(jié)果為：4，10，5，32，6，7，9，17，24那么該數(shù)組的原始順序不可能的是()A．10，5，32，6，7，9，17，24，4B．10，5，32，6，7，9，4，17，24C．10，5，32，4，6，7，9，17，24D．4，10，5，32，17，9，24，6，7解析第一趟排序的最值出現(xiàn)在第1個位置，因此是從小到大排序，從后往前冒泡。答案D47．有如下VB程序段：i＝1DoWhilei<＝5Ifi＝1Ora(i－1)<＝a(i)Theni＝i＋1Elset＝a(i)：a(i)＝a(i－1)：a(i－1)＝ti＝i－1EndIfLoop數(shù)組元素a(0)到a(8)的初始值依次為“0，4，7，3，5，1，8，6，2”。執(zhí)行該程序段后，數(shù)組元素a(1)到a(8)的值分別是()A．13457862B．75431862C．47312568D．47386521解析該算法是對前5個數(shù)進(jìn)行升序排列。答案A48．某排序算法的VB程序段如下：Fori＝1To2Forj＝1To6－2*iIfa(j)<a(j＋2)Thent＝a(j)：a(j)＝a(j＋2)：a(j＋2)＝tEndIfNextjNexti數(shù)組元素a(1)～a(6)的初始值依次為“15，13，44，38，26，7”，執(zhí)行該程序段后，數(shù)組a元素的值分別為()A．44，38，26，13，15，7 B．44，7，26，13，15，38C．15，38，26，13，44，7 D．44，38，26，15，13，7解析排了兩趟，分別是奇數(shù)位和偶數(shù)位分別排序，降序。答案A49．有如下程序段：k＝0:First＝1Last＝5:Flag＝TrueDoWhileFlagk＝k＋1p＝FalseFlag＝FalseForj＝FirstToLastIfa(j)>a(j＋1)Thent＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝tLast＝j(luò):Flag＝TrueIfp＝FalseThenFirst＝j(luò)：p＝TrueEndIfEndIfNextjIfFirst<>1ThenFirst＝First－1Last＝Last－1Loop數(shù)組元素a(1)到a(6)的值依次為“3，6，8，5，7，9”，經(jīng)過該程序段“加工”后，下列說法正確的是()A．此過程中數(shù)據(jù)共交換了3次B．此過程中該數(shù)組的數(shù)據(jù)共比較了7次C．變量k的值為2D．?dāng)?shù)組元素a(1)到a(6)的數(shù)未排成有序解析本題主要考查排序算法的優(yōu)化。flag表示是否有序的標(biāo)志，F(xiàn)irst表示最后一次前面交換的位置，如果前面的有序，下次First的位置開始比較。Last表示后面第一次交換的位置，后面Last＋1至n肯定是序的，只要跟Last＋1進(jìn)行比較比較就可以了。變量k表示排序的趟數(shù)。第1趟時，8和5及7進(jìn)行互換，結(jié)果為3，6，5，7，8，9，Last＝4，F(xiàn)irst＝3，接著在第2和第3個數(shù)之間排序，實(shí)現(xiàn)5和6互換，Last＝2，F(xiàn)irst＝2。第3趟，才發(fā)現(xiàn)沒有數(shù)據(jù)交換，退出循環(huán)，數(shù)組有序。因此共交換了3次，第1趟比較了5次，第2趟比較了2次，最后一趟比較1次，共8次。答案A50．有如下VB程序段：Dims(1To6)AsStringText1.Text＝””Fori＝1To5Forj＝i＋1To6Ifs(i)＋s(j)<s(j)＋s(i)Thent＝s(j)：s(j)＝s(i)：s(i)＝tEndIfNextjNextiFori＝1To6Text1.Text＝Text1.Text＋s(i)Nexti如果程序運(yùn)行，一開始當(dāng)數(shù)組元素s(1)到s(6)的值依次為“4”、“343”、“312”、“12”、“246”、“121”，運(yùn)行該段代碼后，文本框Text1中顯示的內(nèi)容為()A．434331224612121B．434331224612112C．343312246121124D．121122463123434解析根據(jù)字符串連接進(jìn)行判斷是否交換。當(dāng)i＝1，2，3時，他均比后面的字符串大，因此不交換，“12”和“246”互換，“12”和“121”互換。答案B51．有如下VB程序段：i＝1:j＝8Key＝Text1.Text:f＝FalseDoWhilei<＝j(luò)AndNotfm＝Int((i＋j)/2)Ifa(m)＝KeyThenf＝TrueList1.AddItemStr(m)＋”isgoodluck！”ElseIfa(m)>KeyThenj＝m－1List1.AddItemStr(m)Elsei＝m＋1List1.AddItemStr(m)EndIfLoopIfNotfThenList1.AddItem”sorry！”a(1)到a(8)依次為”as”、”book”、”can”、”pig”、”see”、”you”、”we”、”zero”。當(dāng)在文本框Text1中輸入以下哪個內(nèi)容時，列表框list1中顯示的結(jié)果和別的三項(xiàng)不一樣()A．pearB．quickC．runD．sad解析A、B、C、D在數(shù)據(jù)均沒有找到，BCD均處于pig和see，因此輸出的結(jié)果是一樣的。答案A52．某對分查找算法的VB程序段如下：Key＝val(Text1.text)i＝1:j＝10DoWhilei<＝j(luò)m＝Int((i＋j)/2)Ifa(m)＝keyThenExitDoIfkey>a(m)Theni＝m＋1Elsej＝m–1Text2.Text＝Text2.Text＋Str(a(m))Loop數(shù)組元素a(1)到a(10)的值依次為“5，12，20，29，36，40，55，58，66，74”，若在文本框Text1中輸入數(shù)據(jù)，執(zhí)行該程序段，文本框Text2中顯示的內(nèi)容為：36，58，40，55，則key的值可能是()A．38或45 B．45或56C．56或58 D．57或70解析采用二叉樹分析，如下圖所示：最后查找的結(jié)點(diǎn)是7號，有3種可能，大于6號但小于7號，等于7號，或大于7號但小于8號。答案B53．有如下程序段：i＝1:j＝10:key＝Val(Text1.Text)DoWhilei<＝j(luò)m＝(i＋j)\'2Ifkey<a(m)Thenj＝m－1ElseIfkey>a(m)Theni＝m＋1ElseDoWhilem>1Anda(m－1)＝keym＝m－1LoopExitDoEndIfLoop數(shù)組中a(1)到a(10)依次為“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中輸入值3，經(jīng)上述程序段執(zhí)行后變量m的值為()A．7B．6C．5D．4解析當(dāng)找到一個他前面的，又不是第一個跟key相等的數(shù)，繼續(xù)往前找，即有多個相等的數(shù)時，找一個最前面的相等的數(shù)。答案D54．某對分查找算法的VB程序段如下：k＝Val(Text1.Text)i＝1:j＝6f＝FalseDoWhilei<＝j(luò)AndNotfm＝(i＋j)\2Ifa(m)＝kThenf＝TrueIfa(m)>a(i)ThenIfa(i)<＝kAndk<a(m)Thenj＝m－1Elsei＝i＋1ElseIfa(m)<kAndk<＝a(j)Theni＝i＋1Elsej＝j(luò)－1EndIfLabel1.Caption＝Label1.Caption＋Str(a(m))Loop數(shù)組元素a(1)到a(6)的值依次為“58，66，72，24，35，40”，在文本框Text1中輸入的值為35，執(zhí)行該程序段，標(biāo)簽Label1中顯示的值是()A．7235 B．2435C．722435 D．72242435解析該數(shù)據(jù)段前半段和后半段均升序，查找一個數(shù)時，要判斷處于前半個升序段帶是后半個升序段。iJma(m)16372264243642446535答案D55．有如下VB程序段：Key＝Val(Text1.Text)i＝1:j＝10flag＝Falses＝””DoWhilei<＝j(luò)AndNotflagmid1＝Int(i＋(j－i)/3)mid2＝Int(j－(j－i)/3)IfKey＝a(mid1)Thenflag＝TrueElseifKey<a(mid1)Thenj＝mid1－1ElseifKey＝a(mid2)Thenflag＝TrueElseifKey>a(mid2)Theni＝mid2＋1Elsei＝mid1＋1j＝mid2－1EndIfs＝s&””&mid1&”：”&mid2LoopText2.Text＝s已知數(shù)組a(1To10)中的數(shù)據(jù)分別是12、21、34、45、59、63、72、86、94、100，在文本框Text1中輸入34，程序運(yùn)行后文本框Text2中顯示的內(nèi)容是()A．4：71：2 B．4：71：23：3C．4：71：33：3 D．4：73：3解析利用列表法變量跟蹤。ijmid1a(mid1)mid2a(mid2)1104745721312122133333434答案B56．?dāng)?shù)組a為一組正整數(shù)，其奇數(shù)下標(biāo)的數(shù)組元素是升序排序的奇數(shù)，偶數(shù)下標(biāo)的數(shù)組元素是升序排序的偶數(shù)，依據(jù)對分查找思想，設(shè)計(jì)一個在數(shù)組a中查找數(shù)據(jù)Key的程序。實(shí)現(xiàn)該功能的VB程序段如下：Key＝Val(Text1.Text):i＝1:j＝10DoWhilei<＝j(luò)m＝Int((i＋j)/2＋0.5)IfKeyMod2＋a(m)Mod2＝1Thenm＝m－1Ifa(m)＝KeyThenList1.AddItem”找到了！”：ExitDoElseIfa(m)>KeyThenj＝m－2Elsei＝m＋2EndIfLoopIfi>jThenList1.AddItem”未找到此數(shù)”如果數(shù)組元素a(1)到a(10)的數(shù)據(jù)依次是“1，4，5，6，11，10，23，16，25，20”，key的值為5，則執(zhí)行上述程序段，查找的次數(shù)為()A．4B．3C．2D．1解析依次訪問的下標(biāo)為5，1，3，因此答案為查找3次。答案B57．有如下VB程序段：i＝1:j＝6Key＝Text1.Texts＝””DoWhilei<＝j(luò)m＝Int((i＋j)/2＋0.5)s＝s＋””＋a(m)IfKey>a(m)Theni＝m＋1Elsej＝m－1EndIfLoopText1.Text＝s數(shù)組元素a(1)到a(6)的值分別為”Beijing”、”Guangdong”、”Jiangsu”、”Jiangxi”、”Shanghai”、“Zhejiang”，已按字典序排序。當(dāng)key的值為“Zhejiang”時，單擊命令按鈕Command1，文本框Text1中顯示的內(nèi)容為()A．JiangxiZhejiangB．JiangsuShanghaiJiangxiZhejiangC．JiangxiZhejiangShanghaiD．JiangsuShanghaiZhejiang解析采用列表法。ijma(m)164Jiangxi566Zhejiang答案A58．插值查找。在有序數(shù)組中查找值的VB程序段如下：Dima(1To10)AsIntegerDimiAsInteger,jAsInteger,mAsInteger,flagAsBooleanDimkeyAsInteger,nAsInteger，cAsInteger，dAsIntegeri＝1：j＝10：m＝0：flag＝Falsekey＝Val(Text1.Text)DoWhilei<＝j(luò)AndNotflagIfkey<a(i)Orkey>a(j)Thenn＝－1:ExitDo′未找到退出Ifa(i)<>a(j)Thenc＝key－a(i)：d＝a(j)－a(i)m＝i＋I(xiàn)nt(c*(j－i)/d)Elsem＝iEndIfIfkey＝a(m)Thenflag＝True：n＝mIfkey>a(m)Theni＝m＋1Ifkey<a(m)Thenj＝m－1LoopIfflag＝FalseThenn＝－1其中數(shù)組元素a(1)到a(10)分別為“15，25，37，40，63，70，87，90，92，96”，下列說法錯誤的是()A．如在文本框Text1中輸入10，程序執(zhí)行后，變量m取初值0，結(jié)果n＝－1B．如在文本框Text1中輸入25，程序執(zhí)行后，變量m的值變化為0→2，結(jié)果n＝2C．如在文本框Text1中輸入40，程序執(zhí)行后，變量m的值變化為0→3→4，結(jié)果n＝4D．如在文本框Text1中輸入78，程序執(zhí)行后，變量m的值變化為0→6→7，結(jié)果n＝－1解析文本框Text1中輸入10，不在查找范圍。輸入25，c＝10，d＝81，m＝2。輸入78，m的值變化為0→8→6。答案D59．有如下程序段：m＝1:n＝12key＝Val(Text1.Text)mid＝(m＋n＋1)\2DoWhilea(mid)