2023年上海市高等学校计算机等级考试模拟卷

2023年上海市高等学校计算机等级考试模拟卷二级VB.ＮET程序设计（C卷）（本试卷考试时间120分钟)一、单选题（本大题1５道小题，每小题１分,共１５分），从下面题目给出的A、B、Ｃ、D四个可供选择的答案中选择一个对的答案。1.假如在实验课上进行程序调试,运营时碰到意外犯错,最有效的做法是:看清系统错误因素提醒信息，＿_＿_________,以拟定错误因素。BA.单击“调试”按钮,然后查看当时变量值Ｂ.单击“结束”按钮，检查程序代码Ｃ.举手请老师帮忙D.上网查找因素２．要想从子过程调用后返回两个结果，下面子过程语句说明合法的是_______。CA．Ｓubf2（BｙValn%,BｙＶａlm%)B.Ｓubｆ１（ＢyRｅｆｎ%，ByValm%）C．Subf1（ByRefｎ%,ByRｅｆｍ%)D.Subf１(ＢyValn%,ByRｅfm%)3.为了使控件对象不响应用户的事件，需要_____＿___＿__。AA.设立控件的Eｎａbｌed属性为FalseB.设立控件的TabStｏp属性为FａlｓｅC．设立控件的TabStｏp属性为ＴrｕeD．设立控件的TabIndeｘ属性为04.在用通用对话框控件建立打开文献对话框时,在文献列表框中只允许显示txt和rｔｆ类型的文献,则Ｆｉltｅr属性的对的设立是_____＿___。DＡ.文本文献(.txｔ)||*.tｘt||rtｆ｜|*.rtｆＢ.文本文献(.txt）（*.ｔxt）(rｔf)（*.ｒtｆ)C．文本文献＊.txｔ｜rｔｆ*.ｒtfＤ.文本文献（.txt)|*．txｔ|rtｆ｜*.rｔｆ5.设变量x=１,y=－１，a=5，b＝－5，则以下表达式的值为“真”的是_＿＿____＿____。BＡ.x+ａ<=b+ｙB．ｘ>0Anｄｙ<０C.a=bOrｘ<yD.x+y>a+bAｎｄＮot(ｙ<b)6.下列可作为ViｓuaｌＢaｓｉc变量名的是__________＿_。AＡ．3SＢ．PrintＣ．SeｌｅctMyNａmeＤ.Select_1７.要向C盘根目录下的名为ｍy.txt的顺序文献中读出数据，应先使用_____＿___语句打开文献。ＢA.FileOpｅn（1,＂my．txt",OｐenMoｄe.Input）Ｂ.ＦileOpen（１,"c:＼my.tｘt"，OpｅnMｏde.Input)Ｃ.FileOpen(１，"ｃ:\ｍy.txt"，OｐenModｅ．Output)D.FilｅOpｅｎ(1，"c：\my．txt",ＯｐenMｏdｅ.Appｅnd)8.假定焦点已经位于文本框ＴｅxtBｏx1中,则可以触发KeyPress事件的操作是＿__＿__＿_＿_＿＿。DA.单击鼠标B．双击文本框C.鼠标滑过文本框D．按下键盘上的某个键9.在自定义函数中,可以通过_____＿＿____＿返回值。BA．SｕｂB.FuncｔｉoｎC.函数名D.ByＶal参数１0.在程序运营期间可以用__＿_＿__＿____方法把图形装入窗体、图片框。DA．AutｏSizeB.OpenFileＣ.PictureＤ．Ｉｍage．ＦｒomFｉle１1.单击滚动条控件的箭头按钮，滑块的移动幅度与＿__＿＿__＿__属性设立有关。BＡ.LargeChaｎgeB.ＳmalｌChａngeC.MaxD.Mｉn１2.以下能判断是否到达文献尾的函数是_＿_____＿__。DA.ＢOFB.LOCＣ.ＬOFD.ＥＯF1３.列表框LiｓtBox１中已有1０个列表项，要显示列表框ＬistBox1最后一项,有两种表达法,_＿_____＿__是对的的。AＡ．ＬistBｏx1.Itｅms(ListBoｘ1.Items．Ｃount-1)ＬistBox1．Iｔemｓ（9)B．ＬisｔＢox1．Ｉtｅｍｓ(LiｓｔBoｘ１.Itｅms.Cｏunt)LｉstＢox1.Iｔeｍｓ(９)C.LｉstBox1.Iｔemｓ(ListBｏx1．Ｉteｍｓ.Count－1)ＬｉstBｏｘ１．Items(10)D.ListBoｘ１.Items（ＬisｔBox1.Itｅｍs．Cｏｕnt)LｉstＢｏx１.Itemｓ(10）14．复选框对象假如被选中，它的Checkｅd属性值为＿__＿＿_＿__。CＡ.1B．０C.TrｕeD．Faｌｓe15.已知最多有10个元素的数组a，用变量n表达它的上界,有两种赋值语句,_____＿＿是对的的。ＢＡ．ｎ=ＵBouｎd(ａ)n＝１0B.n=ＵBounｄ(a)ｎ＝9C.n=ＵBｏｕｎd(a)+1n＝9D.n＝UBoｕnd(a)＋1n=10二、程序填空题(本大题3道小题，每空2.5分，共3０分)。１.单击窗体读当前文献夹中的文本文献dａｔａ.txt数据,找出其中年龄最大者的年龄、姓名和所有人数,输出并保存在当前文献夹的中resｕlｔ.tｘt。dａta．txt的数据格式为:王海涛,18李林,２0……PrｉvaｔeＳｕbForm1_Ｃliｃk(…)ＨandleｓMｅ.CliｃｋＤｉmName＄,Age%，maxNaｍe$,maxAge%，n%ｎ=0Naｍe＝"＂maxNamｅ="＂maxAｇe＝0FileOpｅn（1，"ｄata.ｔxt",OpenMｏde.Ｉnｐut)DoWhｉｌeＮOＴEＯF(1）Ｉnpｕt(1,Ｎame）Inｐut(1,Age)ｎ=ｎ+1IfAgｅ>maxAgeThｅnＭaxAge=AgemaxName=NameEｎｄIfLooｐFｉｌｅCｌoｓe(1)Lａbｅl1.teｘt="最大年龄：＂&maxAｇe&vbCrLf＆"最大年龄姓名:＂＆maxNａmｅ＆vbＣrLf＆"人数："&ｎＦileOpen(2，"resｕｌt.txｔ"，＿__＿_(３)_＿_＿_＿_)Prｉnt（２，maxNａme,maxＡge,ｎ)ＦileClｏse(2)EndSub２．单击按钮执行在输入样本串中查找字串，删除字串字符后输出至结果文本框。用复选框可选择查找方式是否区分大小写。PｒｉvatｅSｕbＢuｔtｏn1_Clｉck（…)HandleｓBuｔton1.ClｉckDｉmss$,ｓ0$,len０%,mｓ＄,ｉ％ss=ＴexｔBｏx1.Teｘｔs０＝TextBox2.ＴｅxtＩf____＿（１)＿____Thens0=___＿_(２)_＿____EｎdIfｌen０=Ｌen(s０)Foｒi=1ＴoLen（ss)-len0＋１ms=_____（3)_____IｆＣｈecｋBox1．ChｅckedＴheｎｍs＝UCase（ｍs)EndIfIf(ms=s0）Thenｓs＝Mid(ss,1,i-1)＋Ｍiｄ(ss,i+len0)ｉ=i-1EｎｄIｆNｅxtiTextBox3.Texｔ=____＿(4)____＿EｎdSuｂ3.单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。FｕｎcｔｉoｎInsｅrt(ByRefs％()，ByValｋeyＡｓＩｎteger)AｓＩnteｇerDimk%,ｉ%,j%k=＿__＿_(1)_＿＿___Ｆori=0ToＵBound(ｓ)Ifkey＜s(i)Ｔｈenk=i_＿_＿(2)_____＿EndＩｆNextiRｅDimPreｓerves(UBounｄ（s)＋1)Ｆorｊ=UBound（s）-１TokＳtep-１_＿＿＿_(3)＿__＿__Nextjｓ(ｋ)＝keyＩｎsｅｒt=UBoｕnd(s)EndFuｎctiｏnＰｒiｖateSubFoｒm1_Ｃｌｉｃk(ＢyValsｅnderＡsOｂjecｔ,BｙVａlｅAｓSｙstem.EventAｒgs)ＨａndlesＭe.ClicｋDimｉ%,p％，m％Dima%()={１，3,6,8，9,1３,17,20,25｝Ｌabｅｌ1.Tｅxt="＂Foｒi＝0ToUBouｎd（a)__＿＿__(４）______NeｘtiＬabel1.Ｔext＆=vbCrLfp=InｐｕｔBox（"请输入要插入的数:")m＝_＿_＿＿(５）_＿____Fori=０TomLabeｌ１.Ｔext＆＝ａ（i)&""NextｉLabｅl１.Text&=vbCｒLfEndＳｕb三、程序调试题(共20分，每错2.5分,第1题有2处错,第2题有３处错，第３题有3处错)启动解决方案文献＂C:\kｓ\改错.ｓｌｎ"，请调试改正,并按原文献名和位置保存。对的结果见样例＂c:＼样张＼改错样例．exｅ"。改错方法:不能修改或重新定义变量,不允许增长或删除语句,但可以修改语句,所修改的语句必须在句尾加上注释标记＇**＊*＊******。调试改错题1:输入18位身份证号码,通过第7~10位取出出生年,给出寄语。对１９59（含）出生的人，寄语为＂步入中老年，请您注意身体!"；对１960年代和1990年代出生的人,寄语均为"６０后和后要多沟通，避免代沟!";对于1970~19８9年出生的人,寄语为"70、80后的青年,祝你工作顺利！"；对于２02３后出生的人,寄语为"小朋友,祝你茁壮成长！＂；其余判断为输入错误,清空文本框并置焦点。PｒivａtｅSubＢuttｏn１＿Ｃｌick(…)ＨａndleｓＢuttoｎ１.ＣlicｋDimbｔhyeａr%,lbｌｔx$ｂthyｅａr=Val(Ｍid(TeｘtＢｏx1.Ｔext,7，４））SelectCasｅbthｙearCａｓeIs＜=19５9ｌbｌtｘ="步入中老年，请您注意身体!"Caｓｅ（ｂｔhｙear>=1960andｂthyear<=1969）oｒ(btｈyｅar>=1990anｄｂtｈyear<＝１9９９）ｌbｌtx＝"6０后和后要多沟通,避免代沟！"Caｓe"１980"to"１９8９"lblｔx＝"70、80后的青年,祝你工作顺利！"Ｃaｓｅ２023,202３,２０２3Tｏ20２３,Is＞２023lｂltx="小朋友,祝你茁壮成长!＂CaseEｌselｂltx="输入错了吧?!请重新输入"ＴeｘtBｏｘ1.Teｘt=＂"TｅxtBox1.Focus()EndSeｌectＬaｂｅl1.Texｔ=ｌbltxEndＳuｂ调试改错题2:产生隔行轮换显示字母和数字的菱形图案(规律如图)ＰrｉvａｔeSuｂBｕtｔon2＿Clｉck(…)ＨandleｓＢuｔtｏn2.ClickＤimｉ%,ｊ%,k%Laｂel２．Ｔext=""Fori=0Ｔo14Ifi<=７Tｈenk=iＥlsｅｋ=1４－iEｎdIfLabel２.Texｔ&=Space（7-k）IｆkMｏd2ThｅnFoｒｊ=ｋＴo3*kLａbel2.Ｔext&＝Cｈr（66+k)NextjEｌseFｏｒj＝kTo2*ｋLabeｌ2.Text＆=kNeｘtjEndIfＬabｅl２.Text&＝vbCｒLfNｅｘｔｉEndSub调试改错题３:随机产生1~20个大写字符串,并随机产生一个大写字母分别填入两个文本框中，记录这个大写字母在该串中出现的次数。PrivaｔｅSubButｔon3_Ｃlick(…）HandlesButｔｏn3．ＣlｉckDimstr１＄,stｒ2$，i%,j％,sum%TextBox２.Text=""i=Inｔ(Rnｄ()*20+1)'产生１~2０之间的随机整数Ｆoｒj=１ToiTextＢox２.Text&＝Cｈr(６４+Inｔ(Ｒｎd(）*２６+1))'随机产生大写字母字符串NextTextBox3．Texｔ=Chr(Ｉnt（Rnd()＊26+1))stｒ1＝ＴｅxtBox2.Textstr2=TextＢox3.Ｔeｘtｓｕｍ＝１Forj＝