2023年上海市高等學校計算機等級考試模擬卷二級VB.ＮET程序設計（C卷）（本試卷考試時間120分鐘)一、單選題（本大題1５道小題，每小題１分,共１５分），從下面題目給出的A、B、Ｃ、D四個可供選擇的答案中選擇一個對的答案。1.假如在實驗課上進行程序調(diào)試,運營時碰到意外犯錯,最有效的做法是:看清系統(tǒng)錯誤因素提醒信息，＿_＿_________,以擬定錯誤因素。BA.單擊“調(diào)試”按鈕,然后查看當時變量值Ｂ.單擊“結(jié)束”按鈕，檢查程序代碼Ｃ.舉手請老師幫忙D.上網(wǎng)查找因素２．要想從子過程調(diào)用后返回兩個結(jié)果，下面子過程語句說明合法的是_______。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的順序文獻中讀出數(shù)據(jù)，應先使用_____＿___語句打開文獻。Ｂ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.假定焦點已經(jīng)位于文本框ＴｅxtBｏx1中,則可以觸發(fā)KeyPress事件的操作是＿__＿__＿_＿_＿＿。DA.單擊鼠標B．雙擊文本框C.鼠標滑過文本框D．按下鍵盤上的某個鍵9.在自定義函數(shù)中,可以通過_____＿＿____＿返回值。BA．SｕｂB.FuncｔｉoｎC.函數(shù)名D.ByＶal參數(shù)１0.在程序運營期間可以用__＿_＿__＿____方法把圖形裝入窗體、圖片框。DA．AutｏSizeB.OpenFileＣ.PictureＤ．Ｉｍage．ＦｒomFｉle１1.單擊滾動條控件的箭頭按鈕，滑塊的移動幅度與＿__＿＿__＿__屬性設立有關(guān)。BＡ.LargeChaｎgeB.ＳmalｌChａngeC.MaxD.Mｉn１2.以下能判斷是否到達文獻尾的函數(shù)是_＿_____＿__。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．復選框?qū)ο蠹偃绫贿x中，它的Checkｅd屬性值為＿__＿＿_＿__。CＡ.1B．０C.TrｕeD．Faｌｓe15.已知最多有10個元素的數(shù)組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數(shù)據(jù),找出其中年齡最大者的年齡、姓名和所有人數(shù),輸出并保存在當前文獻夾的中resｕlｔ.tｘt。dａt(yī)a．txt的數(shù)據(jù)格式為:王海濤,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＆"人數(shù)："&ｎＦileOpen(2，"resｕｌt.txｔ"，＿__＿_(３)_＿_＿_＿_)Prｉnt（２，maxNａme,maxＡge,ｎ)ＦileClｏse(2)EndSub２．單擊按鈕執(zhí)行在輸入樣本串中查找字串，刪除字串字符后輸出至結(jié)果文本框。用復選框可選擇查找方式是否區(qū)分大小寫。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.單擊窗體執(zhí)行將所輸入的整數(shù)插入排序后的原數(shù)組元素適當位置。FｕｎcｔｉoｎI(lǐng)nsｅ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（"請輸入要插入的數(shù):")m＝_＿_＿＿(５）_＿____Fori=０TomLabeｌ１.Ｔext＆＝ａ（i)&""NextｉLabｅl１.Text&=vbCｒLfEndＳｕb三、程序調(diào)試題(共20分，每錯2.5分,第1題有2處錯,第2題有３處錯，第３題有3處錯)啟動解決方案文獻＂C:\kｓ\改錯.ｓｌｎ"，請調(diào)試改正,并按原文獻名和位置保存。對的結(jié)果見樣例＂c:＼樣張＼改錯樣例．exｅ"。改錯方法:不能修改或重新定義變量,不允許增長或刪除語句,但可以修改語句,所修改的語句必須在句尾加上注釋標記＇**＊*＊******。調(diào)試改錯題1:輸入18位身份證號碼,通過第7~10位取出出生年,給出寄語。對１９59（含）出生的人，寄語為＂步入中老年，請您注意身體!"；對１960年代和1990年代出生的人,寄語均為"６０后和后要多溝通，避免代溝!";對于1970~19８9年出生的人,寄語為"70、80后的青年,祝你工作順利！"；對于２02３后出生的人,寄語為"小朋友,祝你茁壯成長?。ⅲ黄溆嗯袛酁檩斎脲e誤,清空文本框并置焦點。Pｒivａt(yī)ｅ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ｂ調(diào)試改錯題2:產(chǎn)生隔行輪換顯示字母和數(shù)字的菱形圖案(規(guī)律如圖)Ｐ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調(diào)試改錯題３:隨機產(chǎn)生1~20個大寫字符串,并隨機產(chǎn)生一個大寫字母分別填入兩個文本框中，記錄這個大寫字母在該串中出現(xiàn)的次數(shù)。PrivaｔｅSubButｔon3_Ｃlick(…）HandlesButｔｏn3．ＣlｉckDimstr１＄,stｒ2$，i%,j％,sum%TextBox２.Text=""i=Inｔ(Rnｄ()*20+1)'產(chǎn)生１~2０之間的隨機整數(shù)Ｆoｒj=１ToiTextＢox２.Text&＝Cｈr(６４+Inｔ(Ｒｎd(）*２６+1))'隨機產(chǎn)生大寫字母字符串NextTextBox3．Texｔ=Chr(Ｉnt（Rnd()＊26+1))stｒ1＝ＴｅxtBox2.Textstr2=TextＢox3.Ｔeｘtｓｕｍ＝１Forj＝