2021年浙江高考信息技術(shù)復(fù)習(xí)練習(xí)講義：專題五　算法與VB語(yǔ)言基礎(chǔ)

專題五算法與VB語(yǔ)言基礎(chǔ)探考情悟真題【考情探究】考點(diǎn)算法及VB語(yǔ)言基礎(chǔ)考試內(nèi)容1.算法的表示ーー流程圖考試要求b5年考情考題示例 考向 難度2015浙江10月選考,5,2分;2016浙江4月選考,5,2分;2016浙江10月選考,5,2分;2017浙江1月選考,6,2分;2017浙江11月選考,5,2分; 循環(huán)結(jié)構(gòu)流程圖2018浙江4月選考,7,2分;2018浙江6月學(xué)考,5,2分;2018浙江11月選考,5,2分;2019浙江4月選考,6,2分；2019浙江6月學(xué)考,5,2分預(yù)測(cè)熱度★★★2.面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ)b注:主觀題第一個(gè)程序題第1小題,分值為1分,整合至其他考點(diǎn),真題此處不再羅列程序界面設(shè)計(jì)中的控件、屬性、事件、方法等知識(shí)和修★★★工VBVB基本數(shù)據(jù)類型語(yǔ)言c注:本知識(shí)點(diǎn)是VB基礎(chǔ)知識(shí)中的重點(diǎn),雖然考題中沒整型、字符串型和邏輯型是熱門考點(diǎn)★★★常量、變量的定義c有直接考査該知識(shí)點(diǎn).但其分析變量的作用和類★★★

基礎(chǔ)及使用基本運(yùn)算、表達(dá)式及常用標(biāo)準(zhǔn)函數(shù)C是讀懂代碼、分析代碼的基礎(chǔ),分值整合至其他知識(shí)點(diǎn)中,真題此處不再羅列2018浙江6月學(xué)考,11,5分;2019浙江1月學(xué)考,5,2分,型,是讀懂程序的關(guān)鍵.變量定義語(yǔ)句后的注釋語(yǔ)句有時(shí)可作為參考取整函數(shù)Ini、整數(shù)除、、求余Mod、隨機(jī)函數(shù)Rnd、字符串處理函數(shù)Mid和Len是學(xué)考熱門考點(diǎn)★★★4.vb賦值語(yǔ)句2016浙江10月選考,11,2:分:2019浙江4月選考,14,5分2015浙江10月選考,12,2分;2017浙江11月選考」1,2分;2017浙江11月選考,17,6分;2018浙江4月選考,11,2分；2018浙江11月選考」1,2分;2019浙江4月選考」1,2分每一道程序題都是★★★基本判斷語(yǔ)句C語(yǔ)句的綜合應(yīng)用,需要熟練掌握這二種基本語(yǔ)★★★語(yǔ)句循環(huán)語(yǔ)句5.數(shù)組的定義及使用C句 ★★★數(shù)組加循環(huán) ★★★★★★★★★6.過程與自定義函數(shù)C2015浙江10月選考,17,3分;2017浙江1月選考,17,6分;2018浙江1月選考,17,6分;2019浙江4月選考,17,6分★★★★★★分析解讀 選、學(xué)卷分開后,整份試卷中,算法與程序的分值加大了,由原來的20分增加到26分,分值組成如下:合卷時(shí)20分包括:3個(gè)選擇題（1個(gè)流程圖分析題、第!I題和第12題,共6分）和3個(gè)填空題（第14題5分、第16題3分和第17題6分）.分卷時(shí)26分包括:6個(gè)選擇題（第?至第12題,每題2分）和2個(gè)填空題（第15題7分和第16題7分）.可見分卷后,對(duì)算法和程序的考查加強(qiáng)了.到目前為止,分卷的學(xué)考卷已經(jīng)有兩份（2019年1月和2019年6月）,分卷的選考卷尚且沒有（2020年1月為第一次）,只有樣卷。分析樣卷,可以發(fā)現(xiàn)程序的題型和考法變得多樣。1.6個(gè)選擇題預(yù)測(cè)如下:①流程圖保留,題型為選擇題,容易題。②新增考査表達(dá)式、運(yùn)算符和函數(shù),題型為選擇題，容易題。③新增考查字符串處理和循環(huán)語(yǔ)句,題型為選擇題,中等難度。④新增考查數(shù)組和循環(huán)語(yǔ)句,題型為選擇題,中等難度。也可能考査數(shù)據(jù)庫(kù)連接的相關(guān)知識(shí)。⑤第11題或第12題中必有一題考對(duì)分算法糊E序算法,較難。⑥第1I題或第12題中通常有一個(gè)數(shù)組運(yùn)用題,較難。2.2個(gè)填空題預(yù)測(cè)如下:第15題:相當(dāng)于將合卷時(shí)的第1I題和第16題整合,共7分,第1小題仍然考查面向?qū)ο蠡A(chǔ)知識(shí);后3個(gè)小題,一般是2個(gè)代碼填空,1個(gè)代碼改錯(cuò)?？赡苓€有一個(gè)算法分析填空。一般考排序算法或?qū)Ψ炙惴ǖ倪\(yùn)用,中等偏上的難度。第16題:相當(dāng)于合卷時(shí)的第17題,通常有1個(gè)算法分析填空,3個(gè)代碼填空。一般考數(shù)組、自定義函數(shù)及算法的綜合運(yùn)用,比較熱門的有:矩陣、動(dòng)態(tài)規(guī)劃、加密解密、壓縮解壓、區(qū)間合并等問題。本題是考卷的最難題,往往花費(fèi)較多時(shí)間,需要考生合理分配時(shí)間。熟練掌握數(shù)組和'B基本語(yǔ)句語(yǔ)法,是解題的關(guān)鍵點(diǎn)。分卷后對(duì)數(shù)組的考査明顯加強(qiáng)了,難題和大題往往都是數(shù)組和語(yǔ)句的綜合運(yùn)用,甚當(dāng)E序算法和查找算法也是基于數(shù)組和語(yǔ)句的運(yùn)用。破考點(diǎn)練考向【考點(diǎn)集訓(xùn)】考點(diǎn)ー算法的表示——流程圖（2019金華十校期末調(diào)研考試）某算法的部分流程如圖所示,輸入“40”并執(zhí)行這部分流程后,輸出的sum的值是（l~輸入l~輸入?1！］~~~I1,sum*—0A.91B.90C.21D.1275答案A（2018寧波十校聯(lián)考,5,2分）某算法流程圖如圖所示,執(zhí)行這部分流程,變量sum的值為（）A.1B.3C.4 D.0答案A本題考査循環(huán)結(jié)構(gòu)流程圖.變量x與sum的變化過程如下:初值x=ll,suin=0;第1次進(jìn)循環(huán),sunpO+1-11mod2=O,x=5;第2次進(jìn)循環(huán),sum=0+l-5mod2=0,x=2;第3次進(jìn)循環(huán),sum=0+l-2mod2=1,x=l;第1次進(jìn)循環(huán),sum=l+lTmod2=1,x=0;退出循環(huán).因此sum：1.（2018浙南名校聯(lián)盟期末考試）某算法的部分流程圖如圖所示。執(zhí)行這部分流程圖后輸出s的值是（）A.15B.-4 C.-5A.15B.-4 C.-5D.-6答案B（2019寧波新高考選考適應(yīng)性考試）某算法流程圖如圖所示,執(zhí)行該算法,輸出s的值是（）I?*-3:k-11A.1.333333B.0.5C.-2D.3答案C考點(diǎn)二面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ)1.在VisualBasic窗體中,當(dāng)前對(duì)象的屬性窗口如圖所示,下列說法正確的是（）|C>M—l~C?—

"號(hào)序IIB?eM：olor□*№00000/TOC\o"1-5"\h\zC?ac?l F?li?0 網(wǎng)4，?！??D?vnFietv?0I?m)Dr*<Icob5mm)Dr“?d? 0-Eaakl.4 TnM■■■■?初.JXaicht4952feat量同ー個(gè)ア0tA.Command!是對(duì)象名 B.True為屬性名C.Font為屬性值D.該對(duì)象的寬度值為195答案A（2018紹興期末調(diào)測(cè)）要使程序運(yùn)行時(shí),按鈕Command1上顯示“轉(zhuǎn)換”,下列方法不可行的是ー（單選,填字母:A.界面設(shè)計(jì)時(shí),選中對(duì)象Command1,設(shè)置Caption屬性為“轉(zhuǎn)換”/B.在ドorm_Load事件處理過程中添加語(yǔ)句Command1.Caption="轉(zhuǎn)換”/C,在FormLoad事件處理過程中添加語(yǔ)句Command1.Text="轉(zhuǎn)換"）.答案C（2018浙江十校聯(lián)盟選考適應(yīng)性考試,14,1分）編寫如下程序:?也シ怩接?也シ怩接二叵區(qū)十六迸”:設(shè)計(jì)如圖所示的程序界面,至少要使用個(gè)類(填數(shù)字).答案4考點(diǎn)三VB語(yǔ)言基礎(chǔ)(2019浙南名校聯(lián)盟第一次聯(lián)考)下列VB表達(dá)式中,只隨機(jī)產(chǎn)生9到99之間偶數(shù)的是()A.Int(Rnd*90+10) B.Int(Rnd*90+9)C.Int(Rnd*45)*2+I0 D.Int(Rnd*45)*2+9答案C(2019浙江“七彩陽(yáng)光”聯(lián)盟期初聯(lián)考)下列表達(dá)式的運(yùn)算結(jié)果與其他選項(xiàng)不同的是()A.6Mod3*3B.Asc(“F”)-64C.lnt(Sqr(50))-1D.Mid(“123456”，6,1)答案D(2019第一學(xué)期五校聯(lián)考)如果一個(gè)整數(shù)是另ー個(gè)整數(shù)的平方,則稱該數(shù)是“完全平方數(shù)”.下列表達(dá)式能判斷整數(shù)m為完全平方數(shù)的是()①(Sqr(m))"2=m②Int(Sqr(m))=Sqr(m)?m/Int(Sqr(m))=m\Int(Sqr(m))?Int(Sqr(m))2=mA.??B.??C.??D.③④答案C考點(diǎn)四VB基本語(yǔ)句1.有一VB程序的功能如下:在文本框Textl中輸入ー串?dāng)?shù)字,以逗號(hào)分割.程序運(yùn)行后,在標(biāo)簽しabe”中輸出字符串中的最大數(shù).例:在文本框TextI中輸入“12,23,9,45,98,58,",運(yùn)行結(jié)果為在標(biāo)簽1abel1中顯示“98”.部分程序如下:s=Textl.Textj=l:n=ODoWhilej<=Len(s)c=Mid(s,j,1)Ifc= "Then①Ifx>MaxThenMax=xn=0ElseEndIf③LoopLabel1.Caption="最大值:"+Str(Max)程序段劃線處應(yīng)填()ん①乂=Val(Mid(s,j-n,n))②n=n+I③j=j+lB.①x=Val(Mid(s,j-n,n))②上訂十］③n=n+1C.①x=Val(Mid(s,j-n+1,n))②n=n+l③j=j+lD.①x=Val(Mid(s,j-n+1,n))②j=j+l③n=n+l答案A2.(2018浙江紹興柯橋選考模擬,14,5分)編寫ー個(gè)“二逬制數(shù)轉(zhuǎn)十六逬制數(shù)”的VB皿,實(shí)現(xiàn)如下功能:在文本框Textl中輸入一個(gè)二進(jìn)制數(shù),單擊“轉(zhuǎn)換”按鈕Command1,在文本框Text2中顯示對(duì)應(yīng)的十六進(jìn)制數(shù)。程序界面如圖所示:⑴實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)趧澗€處填入合適的代碼。PrivateSubCommandl_Click()Constw="0123456789ABCDEF*DimiAsInteger,nAsInteger,cAsString,sAsString,s2AsStrings=Textl.TextFori=lTo4-Len(s)Mod4s=*0*+sNextii=1:n=0DoWhilei<=Len(s)①n=n*2+Vai(c)If②Thens2=s2+Mid(w,n+1,1)n=0EndIfi=i+1LoopText2.Text=s2EndSub⑵若刪除程序中加框部分的代碼,在文本框Text!中輸入“1101011010”,單擊“轉(zhuǎn)換”按鈕后,文本框Text2中顯示的內(nèi)容是?答案(l)?c=Mid(s,i,1)②iMod4=0(2)D6考點(diǎn)五數(shù)組的定義及使用.(2018浙江十校聯(lián)盟選考適應(yīng)性考試)有如下VB程序段:Fori=1To10b(a(i)Mod10)=b(a(i)Mod10)+1b(a(i)\10)=b(a(i)\10)+1Nextinum=0Fori=0To9Ifb(i)>numThennum=b(i)Nexti數(shù)組b各元素初始值為0,數(shù)組元素a(l)到a(10)的值依次為“68,17,24,30,36,40,55,58,61,66”,執(zhí)行該程序段后,num的值為()A.2 B.3 C.4 D.5答案D.有如下VB程序段:Dima(lTo10)AsIntegerDims(lTo10)AsIntegerPrivateSubForm_Load()a(l)=3:a(2)=6:a(3)=8:a(4)=4:a(5)=9a(6)=5:a(7)=3:a(8)=3:a(9)=10:a(10)=5EndSubPrivateSubCommandl_Click()DimiAsInteger,tAsIntegers(l)=a(l)Fori=2To10s(i)=s(i-1)+a(i)Nextit=s(8)-s(4)Textl.Text=Str(t)EndSub程序運(yùn)行后,文本框Text1顯示的內(nèi)容是()A.24B.12C.7D.20答案D.有如下VB程序段:Dima(l'To5)AsInteger,iAsInteger,cAsIntegera(l)=2:a(2)=l:a(3)=3:a(4)=4:a(5)=5c=0Fori=3To5Ifa(i-2)+a(i-l)=a(i)Thenc=c+lNextiTextl.Text=Str(c)該程序段運(yùn)行后,文本框Text!中顯示的內(nèi)容是()A.1 B.2C.3D.4答案B.某VH程序段如下:Fori=1To5b(a(i))=b(a(i))+1Nextipa=0Forj=1To10Fork=1Tob(j)pa=pa+1:a(pa)=jNextkNextja(I)到a(5)的初值依次是7、5、9、4、3,程序段運(yùn)行后,數(shù)組u值依次是()A.7,9,5,4,3 B.3,4,5,7,9C.4,5,7,9,3 D.9,7,5,4,3答案B考點(diǎn)六過程與自定義函數(shù)1.找出所有兩位整數(shù)中的“鏡反平方數(shù)對(duì)”.所謂“鏡反平方數(shù)對(duì)”是指數(shù)對(duì)n與m,它們滿足條件:①n與m不含有數(shù)字〇,且n小于明②n的反序數(shù)是川,n的平方數(shù)的反序數(shù)等于m的平方。例如12與21,12的平方是144.其反序數(shù)是441,而21的平方正好等于141,所以12與21是鏡反平方數(shù)對(duì),請(qǐng)完善程序代碼.PrivateSubCommandl_Click()DimiAsInteger,fmAsInteger,stAsString,nAsIntegerFori=11To99If?Thenn=i:fm=fx(n)Ifvalidate(i,fm)Andi<fmThenst=i&“,2="&i"2&ヽ"&fm& &fm-2Listl.AddItemstEndIfEndIfNextiEndSubPrivateFunctionfx(jAsInteger)AsIntegerDimsAsStringDoWhilej<>0②j=j\10Loopfx=Vai(s)EndFunctionPrivateFunctionvalidate(pAsInteger,qAsInteger)AsBooleanIffx(p2)=q2Thenvalidate=TrueEndFunction答案①iMod10?〇②s=s+Str(jMod10)

2.某游戲規(guī)則如下:將2*n位隊(duì)員按2人ー組分成n個(gè)隊(duì)（nく10）,地面上有一排格子,共2*n個(gè),每個(gè)格子都對(duì)應(yīng)一個(gè)小于!0的隨機(jī)正整數(shù)。游戲開始后,所有隊(duì)員都選擇站到ー個(gè)空的格子里,等他們站滿格子后,開始為每位隊(duì)員進(jìn)行記分。記分規(guī)則:每組有甲、乙兩個(gè)隊(duì)員,甲隊(duì)員的分?jǐn)?shù)是從自己所站的格子開始,按照格子序號(hào)遞減,將這些格子中的數(shù)字一直累加到第1個(gè)格子。乙隊(duì)員的分?jǐn)?shù)是從自己所站的格子開始,按照格子序號(hào)遞增,一直將格子中的數(shù)字累加到第2*n個(gè)格子。如果同一隊(duì)的兩名隊(duì)員得到的分?jǐn)?shù)相同,則該組參賽隊(duì)獲勝。例如:如圖所示,有4個(gè)隊(duì)8位隊(duì)員,地上一丹曲子的數(shù)字依次為:2、1、1、7、9、2、5、6.若某隊(duì)甲隊(duì)員站在第4個(gè)格子,則其分?jǐn)?shù)為2+1+1+7」1;乙隊(duì)員站在第7個(gè)格子,則其分?jǐn)?shù)為：5+6=11,兩者相等,則該隊(duì)獲勝。⑴假設(shè)有3組隊(duì)員,地上一封曲子的數(shù)字依次為:6、7、3、4、3、9.若某組甲隊(duì)員站在第3個(gè)格子上,那么該組乙隊(duì)員站在第個(gè)格子上オ宜繳勝。ms力(4(1)ms力(4(1)⑵實(shí)現(xiàn)上述功能的VB程序如下。請(qǐng)?jiān)趧澗€處填入合適的代碼。DimnAsIntegerDimgz(lTo20)AsIntegerPrivateSubCommandl_Click()DimdfaAsInteger,dfbAsIntegerDimtaAsInteger,tbAsInteger①RandomizeFori=1To2*ngz(i)=Int(Rnd*9+1)Listl.Additem"gz("&i&")"&gz(i)Nextinum=1Forj=1To2*nta=jdfa=zwdf(ta,True)Fork=1To2*ntb=kIfdfa=dfbThenList2.Addltemnum&"甲隊(duì)員("&j&")得分二"&dfa&"乙隊(duì)員("&k&")得分ー"&dfbnum=num+1EndIfNextkNextjList2.Addltem”獲勝的站法共有:、③ +“種”EndSubFunctionzwdf(pAsInteger,rAsBoolean)AsIntegerDimfsAsIntegerIfr=TrueThen④fs=fs+gz(i)NextiElseFori=pTo2*nfs=fs+gz(i)NextiEndIfzwdf=fsEndFunction答案(1)4(2)①n=Val(Textl.Text)②dfb=zwdf(tb,False)或dfb=zwdf(k,False)③Str(numT)?Fori=pTo1Step-1或Fori=1Top

【五年高考】考點(diǎn)ー算法的表示ーー流程圖2015—2019年真題,提升題組1.（2019浙江6月學(xué)考,5,2分）十進(jìn)制數(shù)轉(zhuǎn)換為二逬制數(shù)的算法流程圖如圖所示,當(dāng)輸入十進(jìn)制數(shù)63時(shí),該流程圖中循環(huán)體執(zhí)行的次數(shù)為（）A.4 B.5 C.6 D.7/輸入X/輸入X的值/1z一1/ゼ/ズ\11* ［靖火］1答案c2.（2019浙江4月選考,6,2分）某算法的部分流程圖如圖所示.執(zhí)行這部分流程后,輸出c1 11 c4-0, 0_1V^c=10and?<=loZ^>—q/輸出い的偵ノp<^mod Ic<-c+4 1 |A.8,10B.10,14C.12,6D.12,24答案Bs的值分別是（）（2018浙江11月選考,5,2分）某算法的部分流程圖如圖所示。執(zhí)行這部分流程,分別輸入35、50、60,則輸出值依次為（7<rW10?7<rW10?D.10,12,3A.10,3B.10,4C.7,10,4D.10,12,3答案B（2018浙江6月學(xué)考,5,2分）某算法的部分流程圖如圖所示,以下說法正確的是（A.該流程執(zhí)行后,變量k的值是ー1B.該流程執(zhí)行后,變量"的值是16C.該流程用于計(jì)算并輸出1+8-16的值D.該流程完整執(zhí)行1次,“aく32?”共執(zhí)行了3次答案DSka初值 !18第!次循環(huán) 1+1*8=9016第2次循環(huán) 9+0*16=9132最后k=l,a=32,s=l+l*8+0*16=9.變量k的值在0和I之間切換.循環(huán)體進(jìn)入2次,循環(huán)條件判斷了3次,最后一次條件不成立,退出循環(huán)。（2018浙江4月選考,7,2分）某算法部分流程圖如圖所示。執(zhí)行這部分流程.依次輸入12、ー5、29、18、7,則輸出值是（

A.12B.-5C.29 D.7答案C（2017浙江11月選考,5,2分）某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,輸出a,b的值分別是（）I ?I ??—l,b^-0 j/輸出Q/A.5,8B.4,8C.5,11D.4,11答案C（2017浙江4月選考,6,2分）某算法的部分流程圖如圖所示。執(zhí)行這部分流程,依次輸入3,4,7則輸出s的值是（）輸輸rtu7A.-2B.-lC.OD.1答案B（2016浙江10月選考,5,2分）某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量a,b的值分別是（）A.3,3B.3,4C.6,6D.7,11答案D9.（2016浙江1A.3,3B.3,4C.6,6D.7,11答案D9.（2016浙江1月選考,5,2分）某算法的部分流程圖如圖所示,執(zhí)行這部分流程后,變量x的值是（）A.0B.1C.2 D.3答案B考點(diǎn)二面向?qū)ο蟪绦蛟O(shè)計(jì)基礎(chǔ)考點(diǎn)三VB語(yǔ)言基礎(chǔ)2015—2019年真題,提升題組（2019浙江1月學(xué)考,5,2分）下列VB表達(dá)式的值等于8的是（）A.Abs（-8.3）B.Int（Rnd*7+l）C.Len（M2+60）D.18Mod10答案D（2015浙江3月學(xué)考,3分）下列屬于VisualBasic實(shí)數(shù)常量的是（）A.0.618B.1/2C.TrueD.”2014-9-1”答案A（2015浙江3月學(xué)考,3分）在VisualBasic中,若x是3的倍數(shù),則下列表達(dá)式值一定為真的是（）D.3-x=0A.x/3=0B.x*3=0C.xMod3=0D.3-x=0答案c（2018浙江6月學(xué)考,11,5分）素?cái)?shù)只能被1和它本身整除,不能被其他自然數(shù)整除。編寫VB程序?qū)崿F(xiàn)如下功能:單擊“產(chǎn)生奇數(shù)并判斷”按鈕Commandl,隨機(jī)產(chǎn)生一個(gè)三位正奇數(shù)顯示在文本框Textl中,并在文本框Text2中顯示其是不是素?cái)?shù)的判斷結(jié)果。例如,當(dāng)隨機(jī)產(chǎn)生的三位正奇數(shù)為953時(shí),程序運(yùn)行界面如圖a所示.圖，⑴在設(shè)計(jì)程序界面時(shí),應(yīng)使用圖b所示“控件工具箱”中的（填寫相應(yīng)編號(hào)）添加文本框Textl.⑵實(shí)現(xiàn)上述功能的VB程序如下,請(qǐng)?jiān)趧澗€處填寫合適的代碼。PrivateSubCommand1Click（）DimnAsInteger,iAsIntegerDimflagAsBoolean’用于標(biāo)記是不是素?cái)?shù)Randomizen=Int( ? )*2-1Textl.Text=Str(n)flag=True'標(biāo)記為素?cái)?shù)i=3DoWhilei<=n-1Andflag=TrueIfEModi=0Thenflag=FalseEndIfi=i+2LoopIf?ThenText2.Text=Str(n)+"是素?cái)?shù)"ElseText2.Text=Str(n)+"不是素?cái)?shù)"EndIfEndSub⑶以下選項(xiàng)中,與加框處表達(dá)式“nModi=0”等價(jià)的是ー（單選,填字母）.A.n\i=Int（n/i）B.n\i=n/iC.nModi=n\i答案（1）②（2）①Rnd*450+51或其他等價(jià)表達(dá)式②flag或flag=True或i>n-l或i=n或i>=n或其他等價(jià)表達(dá)式（3）B考點(diǎn)四VB基本語(yǔ)句2015—2019年真題?提升題組（2016浙江10月選考,11,2分）對(duì)稱字符串的特征是從左到右讀和從右到左讀完全ー樣.如“abba”是對(duì)稱的,“abcba”也是對(duì)稱的?判斷字符串是否對(duì)稱的VB程序段如下:n=Len（s）k=0:j=nFori=lTon/2NextiIfk=0ThenLabel1.Caption="對(duì)稱”ElseLabel1.Caplion一"不對(duì)稱"方框中的代碼由以下三部分組成:①上二尸②IfclOc2Thenk=k+1③cl=Mid（s,i,1）:c2=Mid（s,j,1）代碼順序正確的選項(xiàng)是（）A.??? C.???D.??@答案C（2019浙江4月選考,14,5分）小王設(shè)計(jì)“模擬撤銷”程序,需要用一個(gè)“歷史記錄、“歷史記錄”是在對(duì)字符串s進(jìn)行插入或刪除時(shí),將每步操作信息依次存儲(chǔ)得到的,操作信息由操作符（“+”表示插入,“」表示刪除）、操作位置和操作字符串（只包含英文字母）構(gòu)成,例如,“+23abc”表示在字符串s第23個(gè)位置插入了“abc”，“模擬撤銷”過程按照“歷史記錄”的逆序逬行,將字符串s的內(nèi)容恢復(fù)到初始狀態(tài)。對(duì)字符串“Book”的操作與撤銷過程,如圖“所示,Bike■人T 11除"no"\1r | |?人寸/r歷史記錄: ! +2|?-3oo???L__?4c !?J/1\T 總管?除“〇〇”?銷過程:Book Biook Bik -Bike圖a小王編寫的“模擬撤銷”VB程序如下,文本框Text!中的內(nèi)容是撤銷前字符串,文本框Text2中的內(nèi)容是歷史記錄,單擊“撤銷”按鈕Command1后,在標(biāo)簽Label1中顯示撤銷過程,程序運(yùn)行界面如圖b所示。圖b(1)實(shí)現(xiàn)上述功能的VB程序如下,在程序中出現(xiàn)的對(duì)象沒有Caption屬性的是.(選填,填字母:A.Label1/B.Command1/C.Text!和Text2)(2)請(qǐng)?jiān)趧澗€處填入合適的代碼.PrivateSubCommand1_C1ick()DimsAsString,tAsString,chAsStringDimcAsString,numAsString,ssAsStringDimnAsInteger,iAsIntegers=Textl.Text:t=Text2.Textc= :num= :ss=sFori=Len(t)To1Step-1①Ifch>="a"Andch<="z"Orch>="A"Andch=Thenc=ch+cElselfch>="0"Andch<="9"Thennum=ch+numElsen=Vai(num)Ifch="-"Thens=Mid(s,1,n-1)+②Elses=Mid(s,1,n-1)+Mid(s,n+Lcn(c),Len(s)-n-Len(c)+1)EndIfss=ss+ +sc= :num=EndIfNextiLabel1.Caption=ssEndSub⑶運(yùn)行該程序,若文本框Text1中的內(nèi)容是"Apriド,文本框?ext2中的內(nèi)容是“-3P+3ri-6e”,單擊撤銷按鈕,For循環(huán)語(yǔ)句執(zhí)行完成后,字符串s的值是"答案(1)C(2)①ch=Mid(t,i,1)②c+Mid(s,n,Len(s)-n+1)(3)Apple考點(diǎn)五數(shù)組的定義及使用2015—2019年真題?提升題組(2019浙江4月選考,11,2分)有如下VB程序段:flag=true:i=1DoWhilei<=6x=lnt(Rnd*100)+1IfflagOrx>50Thena(i)=xflag=NotflagEndIfLoop執(zhí)行該程序段后,在下列選項(xiàng)中,a(1)ヽ⑹各元素值不可熊的是()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答案C(2018浙江11月選考,11,2分)有如下VB程序段:Fori=lTo6a(i)=Int(Rnd*10)+lNextiFori=lTo5IfiMod2=1Anda(i)>a(i+l)Thent=a(i):a(i)=a(i+l):a(i+l)=tElsea(i)=a(i)+lEndIfNexti執(zhí)行程序后,a數(shù)組各元素可能是()A.11,11,7,9,3,9B.6,2,8,10,5,9C.6,9,3,7,8,12D.3,9,0,8,2,7答案A(2018浙江11月選考,12,2分)下列VB程序功能為:根據(jù)文本框Textl中各字符的大小關(guān)系,計(jì)算各字符升序排列的序號(hào),并將序號(hào)呆存在數(shù)組y中.如文本框內(nèi)容為“2011”,程序運(yùn)行后y(l)?y(4)各元素的值分別為“4,1,2,3”.s=Textl.Textn=Len(s)Fori=lTony(i)=lNextiFori=lToI⑴IForj=I(2)]?onIfI⑶]lheny(j)=y(j)+lElsey(i)=y(i)+lEndIfNextjNexti上述程序段3個(gè)加框處的表達(dá)式分別為()(l)n(2)1 (3)Mid(s,j,l)>=Mid(s,i,1)(l)n(2)1 (3)Mid(s,j,l)>Mid(s,i,1)(l)n-l (2)i+l(3)Mid(s,j,l)>=Mid(s,i,1)(l)n-l (2)i+l(3)Mid(s,j,l)>Mid(s,i,1)答案C(2018浙江1月選考,11,2分)有如下VB程序段:a(l)=1:a(2)=1b(l)=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.12 B.8 C.5 D.4答案A(2017浙江11月選考,11,2分)有如下VB程序段:n=0Fori=lToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>=*O*Andcく="9"Thenm=lElsem=2a(m)=a(m)+lIfa(m)=1Thenn=n+lNexti數(shù)組a中各元素的初始值都為O,文本框Text!中的內(nèi)容為“Happy2017”.執(zhí)行該程序段后,變量n的值為()A.1 B.2 C.4D.9答案B(2017浙江11月選考,17,6分)由數(shù)組a生成數(shù)組b的方法描述如下:1)將數(shù)組a中的n個(gè)元素依次分割出若干個(gè)數(shù)據(jù)塊,每個(gè)數(shù)據(jù)塊有mXm個(gè)元素,m最大值為8,最小值為2.分割時(shí),按盡可能大的數(shù)據(jù)塊逬行分割。2)對(duì)每個(gè)分割出的數(shù)據(jù)塊用“方陣轉(zhuǎn)換法"逬行轉(zhuǎn)換,每次轉(zhuǎn)換后得到的數(shù)據(jù)塊依次存儲(chǔ)到數(shù)組ト中.3)數(shù)組a分割后的剩余元素(個(gè)數(shù)小于4),直接依序存儲(chǔ)到數(shù)組b中.例如n=140時(shí),可依次分割出3個(gè)數(shù)據(jù)塊,元素個(gè)數(shù)分別為64(8X8)、64(8X8)、9(3X3),剩余元素為3個(gè)?！胺疥囖D(zhuǎn)換法”過程如下:將數(shù)據(jù)塊中mXm個(gè)元素按行序排列成一個(gè)數(shù)字方陣,從該數(shù)字方陣中按列序得到轉(zhuǎn)換后元素的次序。以3X3數(shù)據(jù)塊為例,轉(zhuǎn)換過程如圖所示：轉(zhuǎn)換后元索次序-4124254671922347783]小明依據(jù)上述描述設(shè)計(jì)了如下VB程序。請(qǐng)回答下列問題:⑴當(dāng)n=120時(shí),分割出的第3個(gè)數(shù)據(jù)塊元素個(gè)數(shù)為?(2)請(qǐng)?jiān)趧澗€處填入合適的代碼。Constn=120Dima(lTon)AsIntegerDimb(lTon)AsIntegerPrivateSubCommand1_C1ick()DimmAsInteger,iAsIntegerDimStartAsInteger’當(dāng)前未分割數(shù)據(jù)的第1個(gè)元素下標(biāo)DimLeftAsInteger’當(dāng)前未分割數(shù)據(jù)的個(gè)數(shù)DimpaAsInteger'數(shù)組a的下標(biāo)DimpbAsInteger'數(shù)組b的下標(biāo)’讀取n個(gè)轉(zhuǎn)換前的數(shù)據(jù),依次存儲(chǔ)到a(l)、a(2),……ヽa(n)中,代碼略m=8Start=lLeft=nDoWhileLeft>3IfLeft<m*mThenm= ? Elsepa=Startpb=StartFori=lTom*mb(pb)=a(pa)pb=pb+lIfiModm=0Then②Elsepa=pa+mEndIfNexti③Start=Start+m*mEndIfLoopFori=StartTonb⑴=a6Nexti依次輸出轉(zhuǎn)換后的數(shù)據(jù)b(l),b(2)、……ヽb(n),代碼略EndSub答案(1)4(2)?ni-!或其他等價(jià)表達(dá)式②pa-Start+i\m或pa=pa-(m-l)*m+l或其他等價(jià)語(yǔ)句③Left二Left-m*m或Left=n-Start-ni*m+l或其他等價(jià)語(yǔ)句(2016浙江4月選考.17,6分)某數(shù)據(jù)壓縮方法描述如下:1)原始數(shù)據(jù)中,某數(shù)不為0且相鄰無重復(fù),壓縮數(shù)據(jù)用該數(shù)據(jù)表示;2)原始數(shù)據(jù)中,某數(shù)為0且相鄰無重復(fù),壓縮數(shù)據(jù)用兩個(gè)數(shù)表示,第1個(gè)為0,第2個(gè)為〇;3)原始數(shù)據(jù)中,某數(shù)據(jù)相鄰有重復(fù),壓縮數(shù)據(jù)用3個(gè)數(shù)表示:第1個(gè)為〇,第2個(gè)為重復(fù)數(shù)的個(gè)數(shù),第3個(gè)為該數(shù)本身;根據(jù)上述壓縮方法,對(duì)應(yīng)的解壓縮方法示例如圖a所示.樂婦敷側(cè) 叵引|00|I077?~|解ホ蝠政抱 1エ， エニ .円ゆ畫"I|78787878787878|圖a小明編寫了一個(gè)解壓縮VB程/