字符串处理及排序 练习-浙江省2023届高三信息技术一轮复习VB专题VIP

1abe(1)观察程序界面，具有Caption属性的对象有个。(填个数)PrivateSubCommandClick()tnDoWhilei〈=Len(s)hMidsiIfchAndch〈="9"Thenemptempchnn1 tempEndIf2Fori=2Ton②NextiForiTon-2StepjbjbjbjtNextjNextiIfbi)<>iThenExitForNextiIfinThenLabellCaption"完美跳数"ElseLabe11.Caption="非完美跳数"EndSub(2)请在上述程序的划线处填上合适的代码。(3)上述程序加框处代码有误，请改正。2、(2021嘉兴模拟15)仓库中有一批不同款式的衣服，相同款式的衣服具有相同的代号，式的数量，并按数量从多到少的排序。小明编写了一个VB程序完成该统计。程序运行时，在文本框Text1输入每件衣服的代号n(1≤n≤100)，代号之间用逗号相隔，衣服的总数量不超过100件。单击按钮Command1后，在列表框List1中按每个款式的库存数量(1)代码“PrivateSubCommand1_Click()”的Click是(单选，填字母：A.对象名/B.属性名/C.事件名)。(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。(3)已知程序中加框处代码有错误，请改正。3PrivateSubCommandClick()er’数组a用于存储输入的数据，数组b用于存储每款衣服的数量，数组c用于存储衣服的代号；absTextTextpmax00ForiTomaxNextiForiToLen(s) IfchAndch〈="9"Thenapap+Val(ch) EndIfNextiFori=1Top’统计各款衣服的数量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年我要学好Python！”小明这样想着。虽然一年里只要不出去年最长的学习天数。编写VB程序，实现上述功能。运行程序，在文本框Textl中输入计划出“统计”按钮Command1，输出最长学习天数。程序请回答下列问题：(1)窗体中至少包含个对象(不含窗体)。(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。(3)程序中加框处代码有错，请改正。Dimyf(1To12)AsInteger每月天数5PrivateSubFormLoad)“初始化1-12月天数，依次存储在数组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)改错IfqtmaxkThenmaxkqt‘记录长时间段Nextiqt③IfqtmaxkThenmaxkqtEndSub74、(2021台州模拟16)点阵方式是汉字输出显示和打印的一种字形编码。某字库描述汉字1行第1列)的点是白点。汉字“中”的点阵字形和对应编码如第16题图a所示。a现对该汉字的编码进行压缩：从第1行第1列开始，从左到右、由上至下，对连续的“0”和“1”1个1；第三个数“4”，表示连续4个0；第四个数“”，表示连续7个1；..(以此类推，依次表示0和1的交替个数)。小王编写了一个汉字压缩码的解压缩程序，功能如下：在文本框Textl中输入以逗号分隔的压缩码，单击“解压缩”按钮Commandl，程序对压缩码进行解压缩处理，将编码转换成字形显示在列表ListlLabell第16题图b所示。。(2)实现上述功能的VB程序如下，请在划线处填入合适代码。Dima(lTon*n)AsIntegerPrivateSubCommandClickO8rkk1j=i+1EndIfNextiFori1TokForjToa(i)totaltotalIftotalModnThenListAddItemline9EndIfNextj gNextiLabel1.Caption="白点数："+Str(sum(0))+"黑点数："+Str(sum(1))EndSubFunctionconvertxAsInteger)AsString略nction5、(2021丽水模拟16)将某字符串按“V”的形状进行变换，其变换方法描述如下：(1)将字符串中的字母转换为大写字母后按升序进行排序；(2)根据给定的行数，将字符串从上往下、从左到右进行“V”字形排列；(3)从左往右逐行读取字符串并输出；例如：输入字符串为：“NoThinglslmpossible”，经过经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。编写VB程序，实现如下功能：在文本框Textl中输入行数，在文本框Text2中输入字符串(限定字母)，单击“变换”按钮(1)若小明在文本框Textl中输入3，在文本框Text2中输入的的字符串为“NOTHING”，则在Label为。(2)实现该功能的VB程序如下，请在划线处填入合适的代码。6、(2021金华十校模拟16)删数问题。输入一个正整数s，去掉其中任意k个数字后，剩下VBTextsText2中输入出0。Dima(1To1000)AsIntegerPrivateSubCommandClick()tkVal(Text2.Text)IfknThenLabel3.Caption=”输入的数据不足"+Str(k)+“位”SubEndIfForiTonalMidsiNextiDoWhilek<>0Callssjn删除数组中第j位，后续数据前移一位eExitFor出for循环EndIfNextjagThennnk:k=0EndIfnDoWhile②leftLabelCaption"ForileftTonLabel3.Caption=Label3.Caption+Str(a(i))NextiIfnThenLabel3.Caption="0"EndSubaia(i)NextiEndSub(1)若要清空label1中内容，能实现该功能的语句是(单选，填字母：A.Labell.Label=""/B.Labell.Caption=“"/C.Labell.Clear)。(2)请在划线处填入合适的代码。(3)加框处代码有错，请改正。按从低到高排好序，工程师发明了一种排序机械臂，它首先在参加排序的所有物品中同时选出高度最低stForm“物品排序”，则FormLoad)事件中应添AFormlNameBFormlText/C.Forml.Caption="物Constm'm表示物品个数PrivateSubCommandClick)EndSubPrivateSubCommandClick)DoWhileL<RFori=L+1ToRIfgd(i)<gd(imax)Thenimax=iIfgdigdiminThenimin=iNextiIfimax=LThen②考虑最大值恰好在L位置的情形L③Fori1TomListAddltemStrid(i))+""+Str(gd(i))NextiEndSub8、(2021温州十校模拟15)为方便习题讲解，需对某次考试中选择题得分率数据进行统计分编写VB程序，实现上述功能。运行程序时，先读取每个选择题的题号、得分率和考点，显示在列表框List1中。在文本框Text1中输入得分率最低的前m项值，单击“统计”按钮，按照(1)“统计”按钮的事件过程名是。。DimnAsIntegerPrivateSubFormLoad()’读取题号、得分率和考点分别存入数组th、df和kd数组，在列表框List1中显示，’选择题的个数存入EndSubFunctiondq(xAsString，kAsInteger)AsString①While①dq=dq+""FunctionPrivateSubSelectClick)List2.ClearmValText1.Text)p=iForji1TonNextjfpiThenEndIfIfimOrdf(i)<>df(i-1)ThenExitDo’改错③Fori=1TommNextiEndSubn生中挑选出m编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如第15题图所示，(1)观察代码可知，该程序“组队”按钮的对象名为。(2)请在划线处填入合适的代码。(3)程序中加框处代码有错，请改正。tnmAsIntegerPrivateSubFormLoad()m’存储身高≥175cm的学生总数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))+"号和"+Str(id(R))+"号组队” EndIfEndSub个区间内每个报名的学校至少包含1名志愿者，同时要求满足条件的区间长度最小，输出区(1)要使窗体Forml标题显示“选取志愿者”，则需修改该窗体的(单选，填字母：A.Text/B.Caption/C.Name(名称))属性。(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。(3)程序中加框处代码有错，请改正。PrivateSubFormLoad()EndSubPrivateSubCommandClick()DimmAsIntegerDoWhilei<=jm①Ifjudge(m)<>0ThensmstartjudgemEndIfFori1ToansListAddItemxm(i)NextiEndSubFunctionjudgemAsInteger)AsInteger‘judge函数用于返回区间起始位置Dimf(1To11)AsInteger'f(i)表示i学校是否包含在区间DimtAsIntegerjudge=0ForiTon-m+1’枚举以i为起点的区间内是否包含各个学校tmIf②Thent=t+1f(bm(j))=1NextjIftkThen③：ExitFunctionForj1Tokf(j)=0NextjNextiFunction进入面试的最后1名有多个同分人员，同分人员也进入面试。程序运行界面如下，请完成后(1)程序运行时自动清空文本框Text1中显示的内容，应该在事件处过程执行A.FormloadTextlChangemmandlClick(2)实现上述功能的VB程序如下，(3)程序中加框处代码有错，请改正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)某夏令营按两门考试科目总分从高分到低分