字符串處理及排序 練習(xí)-浙江省2023屆高三信息技術(shù)一輪復(fù)習(xí)VB專題

1abe(1)觀察程序界面，具有Caption屬性的對(duì)象有個(gè)。(填個(gè)數(shù))PrivateSubCommandClick()tnDoWhilei〈=Len(s)hMidsiIfchAndch〈="9"Thenemptempchnn1 tempEndIf2Fori=2Ton②NextiForiTon-2StepjbjbjbjtNextjNextiIfbi)<>iThenExitForNextiIfinThenLabellCaption"完美跳數(shù)"ElseLabe11.Caption="非完美跳數(shù)"EndSub(2)請(qǐng)?jiān)谏鲜龀绦虻膭澗€處填上合適的代碼。(3)上述程序加框處代碼有誤，請(qǐng)改正。2、(2021嘉興模擬15)倉(cāng)庫(kù)中有一批不同款式的衣服，相同款式的衣服具有相同的代號(hào)，式的數(shù)量，并按數(shù)量從多到少的排序。小明編寫了一個(gè)VB程序完成該統(tǒng)計(jì)。程序運(yùn)行時(shí)，在文本框Text1輸入每件衣服的代號(hào)n(1≤n≤100)，代號(hào)之間用逗號(hào)相隔，衣服的總數(shù)量不超過(guò)100件。單擊按鈕Command1后，在列表框List1中按每個(gè)款式的庫(kù)存數(shù)量(1)代碼“PrivateSubCommand1_Click()”的Click是(單選，填字母：A.對(duì)象名/B.屬性名/C.事件名)。(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。(3)已知程序中加框處代碼有錯(cuò)誤，請(qǐng)改正。3PrivateSubCommandClick()er’數(shù)組a用于存儲(chǔ)輸入的數(shù)據(jù)，數(shù)組b用于存儲(chǔ)每款衣服的數(shù)量，數(shù)組c用于存儲(chǔ)衣服的代號(hào)；absTextTextpmax00ForiTomaxNextiForiToLen(s) IfchAndch〈="9"Thenapap+Val(ch) EndIfNextiFori=1Top’統(tǒng)計(jì)各款衣服的數(shù)量b(i)=b(i)+1Nexti4iForjiTomaxIf③Thenk=jNextjtb(i)：b(i)=b(k)：b(k)=ttc(i)：c(i)=c(k)：c(k)=tNextiForiTomaxIfb(i)>0ThenListl.AddItemStr(c(i))+""+Str(b(i))NextiEndSub3、(2021杭州模擬15)“2021年我要學(xué)好Python！”小明這樣想著。雖然一年里只要不出去年最長(zhǎng)的學(xué)習(xí)天數(shù)。編寫VB程序，實(shí)現(xiàn)上述功能。運(yùn)行程序，在文本框Textl中輸入計(jì)劃出“統(tǒng)計(jì)”按鈕Command1，輸出最長(zhǎng)學(xué)習(xí)天數(shù)。程序請(qǐng)回答下列問(wèn)題：(1)窗體中至少包含個(gè)對(duì)象(不含窗體)。(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。(3)程序中加框處代碼有錯(cuò)，請(qǐng)改正。Dimyf(1To12)AsInteger每月天數(shù)5PrivateSubFormLoad)“初始化1-12月天數(shù)，依次存儲(chǔ)在數(shù)組yf(1)-yf(12)中，代碼略EndSubPrivateSubCommandClick)er日Dimsum(0To12)AsIntegerstyearnkForiToLen(Text1.Text)kk1IfkMod2=1Theny((k+1)\2)=tElser(k+1)\2)=tt=0.IfNextink\26ForjTon-iIf②thenty(j)：y(j)=y(j+1)：y(j+1)=ttr(j)：r(j)=r(j+1)：rj+1)=tEndIfNextjNextiumFori=1To12sumisumi1)+yf(i)NextiForiTont=r(i)+sum(y(i))(3)改錯(cuò)IfqtmaxkThenmaxkqt‘記錄長(zhǎng)時(shí)間段Nextiqt③IfqtmaxkThenmaxkqtEndSub74、(2021臺(tái)州模擬16)點(diǎn)陣方式是漢字輸出顯示和打印的一種字形編碼。某字庫(kù)描述漢字1行第1列)的點(diǎn)是白點(diǎn)。漢字“中”的點(diǎn)陣字形和對(duì)應(yīng)編碼如第16題圖a所示。a現(xiàn)對(duì)該漢字的編碼進(jìn)行壓縮：從第1行第1列開始，從左到右、由上至下，對(duì)連續(xù)的“0”和“1”1個(gè)1；第三個(gè)數(shù)“4”，表示連續(xù)4個(gè)0；第四個(gè)數(shù)“”，表示連續(xù)7個(gè)1；..(以此類推，依次表示0和1的交替?zhèn)€數(shù))。小王編寫了一個(gè)漢字壓縮碼的解壓縮程序，功能如下：在文本框Textl中輸入以逗號(hào)分隔的壓縮碼，單擊“解壓縮”按鈕Commandl，程序?qū)嚎s碼進(jìn)行解壓縮處理，將編碼轉(zhuǎn)換成字形顯示在列表ListlLabell第16題圖b所示。。(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Dima(lTon*n)AsIntegerPrivateSubCommandClickO8rkk1j=i+1EndIfNextiFori1TokForjToa(i)totaltotalIftotalModnThenListAddItemline9EndIfNextj gNextiLabel1.Caption="白點(diǎn)數(shù)："+Str(sum(0))+"黑點(diǎn)數(shù)："+Str(sum(1))EndSubFunctionconvertxAsInteger)AsString略nction5、(2021麗水模擬16)將某字符串按“V”的形狀進(jìn)行變換，其變換方法描述如下：(1)將字符串中的字母轉(zhuǎn)換為大寫字母后按升序進(jìn)行排序；(2)根據(jù)給定的行數(shù)，將字符串從上往下、從左到右進(jìn)行“V”字形排列；(3)從左往右逐行讀取字符串并輸出；例如：輸入字符串為：“NoThinglslmpossible”，經(jīng)過(guò)經(jīng)過(guò)變換后得到新字符串為：“BILOSEHIIMNOSSGINPT”。編寫VB程序，實(shí)現(xiàn)如下功能：在文本框Textl中輸入行數(shù)，在文本框Text2中輸入字符串(限定字母)，單擊“變換”按鈕(1)若小明在文本框Textl中輸入3，在文本框Text2中輸入的的字符串為“NOTHING”，則在Label為。(2)實(shí)現(xiàn)該功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。6、(2021金華十校模擬16)刪數(shù)問(wèn)題。輸入一個(gè)正整數(shù)s，去掉其中任意k個(gè)數(shù)字后，剩下VBTextsText2中輸入出0。Dima(1To1000)AsIntegerPrivateSubCommandClick()tkVal(Text2.Text)IfknThenLabel3.Caption=”輸入的數(shù)據(jù)不足"+Str(k)+“位”SubEndIfForiTonalMidsiNextiDoWhilek<>0Callssjn刪除數(shù)組中第j位，后續(xù)數(shù)據(jù)前移一位eExitFor出for循環(huán)EndIfNextjagThennnk:k=0EndIfnDoWhile②leftLabelCaption"ForileftTonLabel3.Caption=Label3.Caption+Str(a(i))NextiIfnThenLabel3.Caption="0"EndSubaia(i)NextiEndSub(1)若要清空l(shuí)abel1中內(nèi)容，能實(shí)現(xiàn)該功能的語(yǔ)句是(單選，填字母：A.Labell.Label=""/B.Labell.Caption=“"/C.Labell.Clear)。(2)請(qǐng)?jiān)趧澗€處填入合適的代碼。(3)加框處代碼有錯(cuò)，請(qǐng)改正。按從低到高排好序，工程師發(fā)明了一種排序機(jī)械臂，它首先在參加排序的所有物品中同時(shí)選出高度最低stForm“物品排序”，則FormLoad)事件中應(yīng)添AFormlNameBFormlText/C.Forml.Caption="物Constm'm表示物品個(gè)數(shù)PrivateSubCommandClick)EndSubPrivateSubCommandClick)DoWhileL<RFori=L+1ToRIfgd(i)<gd(imax)Thenimax=iIfgdigdiminThenimin=iNextiIfimax=LThen②考慮最大值恰好在L位置的情形L③Fori1TomListAddltemStrid(i))+""+Str(gd(i))NextiEndSub8、(2021溫州十校模擬15)為方便習(xí)題講解，需對(duì)某次考試中選擇題得分率數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分編寫VB程序，實(shí)現(xiàn)上述功能。運(yùn)行程序時(shí)，先讀取每個(gè)選擇題的題號(hào)、得分率和考點(diǎn)，顯示在列表框List1中。在文本框Text1中輸入得分率最低的前m項(xiàng)值，單擊“統(tǒng)計(jì)”按鈕，按照(1)“統(tǒng)計(jì)”按鈕的事件過(guò)程名是。。DimnAsIntegerPrivateSubFormLoad()’讀取題號(hào)、得分率和考點(diǎn)分別存入數(shù)組th、df和kd數(shù)組，在列表框List1中顯示，’選擇題的個(gè)數(shù)存入EndSubFunctiondq(xAsString，kAsInteger)AsString①While①dq=dq+""FunctionPrivateSubSelectClick)List2.ClearmValText1.Text)p=iForji1TonNextjfpiThenEndIfIfimOrdf(i)<>df(i-1)ThenExitDo’改錯(cuò)③Fori=1TommNextiEndSubn生中挑選出m編寫VB程序，實(shí)現(xiàn)上述挑選、組隊(duì)功能。運(yùn)行程序，在列表框List1中顯示m名身高大于等可能多的兩兩組隊(duì)，并將組隊(duì)結(jié)果顯示在列表框List2中。程序運(yùn)行界面如第15題圖所示，(1)觀察代碼可知，該程序“組隊(duì)”按鈕的對(duì)象名為。(2)請(qǐng)?jiān)趧澗€處填入合適的代碼。(3)程序中加框處代碼有錯(cuò)，請(qǐng)改正。tnmAsIntegerPrivateSubFormLoad()m’存儲(chǔ)身高≥175cm的學(xué)生總數(shù)ForiToniForji1TonIfhj=175ThenIfw(j)〉w(k)Thenk=j‘()3EndIfNextjIfkiThentid(i)：id(i)=id(k)：id(k)=tth(i)：h(i)=h(k)：h(k)=ttw(i)：w(i)=w(k)：w(k)=tIfIfhi<175ThenExitFor挑選 EndIfList1.AddItemstr(id(i))+""+Str(h(i))+""+Str(w(i))NextiEndSubPrivateSubComClick()DoWhileL<RIf②ThenList2.AddItemStr(id(L))+"號(hào)和"+Str(id(R))+"號(hào)組隊(duì)” EndIfEndSub個(gè)區(qū)間內(nèi)每個(gè)報(bào)名的學(xué)校至少包含1名志愿者，同時(shí)要求滿足條件的區(qū)間長(zhǎng)度最小，輸出區(qū)(1)要使窗體Forml標(biāo)題顯示“選取志愿者”，則需修改該窗體的(單選，填字母：A.Text/B.Caption/C.Name(名稱))屬性。(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。(3)程序中加框處代碼有錯(cuò)，請(qǐng)改正。PrivateSubFormLoad()EndSubPrivateSubCommandClick()DimmAsIntegerDoWhilei<=jm①Ifjudge(m)<>0ThensmstartjudgemEndIfFori1ToansListAddItemxm(i)NextiEndSubFunctionjudgemAsInteger)AsInteger‘judge函數(shù)用于返回區(qū)間起始位置Dimf(1To11)AsInteger'f(i)表示i學(xué)校是否包含在區(qū)間DimtAsIntegerjudge=0ForiTon-m+1’枚舉以i為起點(diǎn)的區(qū)間內(nèi)是否包含各個(gè)學(xué)校tmIf②Thent=t+1f(bm(j))=1NextjIftkThen③：ExitFunctionForj1Tokf(j)=0NextjNextiFunction進(jìn)入面試的最后1名有多個(gè)同分人員，同分人員也進(jìn)入面試。程序運(yùn)行界面如下，請(qǐng)完成后(1)程序運(yùn)行時(shí)自動(dòng)清空文本框Text1中顯示的內(nèi)容，應(yīng)該在事件處過(guò)程執(zhí)行A.FormloadTextlChangemmandlClick(2)實(shí)現(xiàn)上述功能的VB程序如下，(3)程序中加框處代碼有錯(cuò)，請(qǐng)改正PrivateSubCommandClick()geriForji1TonIf①jNextjfkiThenstidkidk)=id(i)：id(i)=sttscore(k)：score(k)=score(i)：score(i)=tEndIfNextiNum=②j=num+1DoWhilej〈=nIfscore(j)=score(j+1)ThenExitDoj=j+1Fork=③List2.AddItemStr(k)+""+id(k)+""+Str(score(k))NextkEndSub)某夏令營(yíng)按兩門考試科目總分從高分到低分