2023年计算机等级考试二级语言笔试试题及答案

（１4)设a=2，b=3,c＝４，ｄ=5,下列体现式旳值是Notａ＜=cOr4*c=ｂ^２Aｎｄb<>a+ｃ(15）设a=５,b=10,则执行c=Iｎt((b-Rnd+a）+1后,c值旳范围为a$="sofｔｗareanｄharｄwａrｅ"ｃ$=Ｍid(a＄,1,8）EndSubＡ．sｏｆtwareandｈardwａreＴext2.Teｘt=""Ｔext２．Texｔ＝Mｉd(Texｔ1.Tｅxt,８)PrｉvateSubＦorm＿Load（）ＰrｉｖateSuｂFoｒｍ_Cliｃｋ()ｎ=０AsIntegeｒDoＷhｉleｘ＜28x=x＊３n＝ｎ+1Ｐrｉnｔx,nB.563C．281D.2435ＤimChecｋ,CｏｕｎterDoＷｈileＣｏuntｅr<20Check=FaｌseUntiｌＣhｅcｋ=FalseＰrｉntCｏunｔer,ＣheckEnｄSubA.150Ｄ．10FalｓeDimｉAsInteｇeｒ,sumＡｓＩｎtegersｕm=Forｉ=2Ｔo10IfiMod2＜>０AndiMod3=0Thｅｎsｕｍ＝sｕm+ｉＰrintsumＥndSubFori=１To3Forj＝2Ｔｏ４Text1．Text＝ａrｒay１(2,3)+ａrrａy1(3,4)EndSubＦori＝１ＴoForj＝1Ｔo4i+ja2（i,j)＝ａ1(i,ｊ)+i+jPrinｔa1（3,３);a2(3，３)B.105C.72１ＯｐtionBasｅ1Suｍ=0ａrr=Array(1,3,5，7,９,１1,13,１5,１7,19)Fori=Ifarｒ（ｉ)/3=arｒ（i）\3TheｎDｉma(５)AｓＳtringForｉ＝1To5ａ(i）=Ｃhr(Ａsc("A")+(ｉ-1))ＮｅxｔiForＥａchbＩｎaEndSｕbB.１23４5ＩｆbMod２=0ＴhenＲeturn0EｎdIfF1＝1EndIfＣ．FuｎcｔｉoｎF1(bAｓＩnteger)IfｂMod２＝0ThenF1＝1F1=0EnｄＩfＤ.FuncｔionF1(ｂＲeturn0EｎdＦuｎctionPrｉvateSubForｍ_Loａd(）Ｔｅｘt1.Teｘｔ="＂PrivatｅSubForｍ＿MouseＵp（ＢuttonAsIｎｔeｇer,ShiｆtＡsInｔeｇer,XAｓPrint"程序设计"PriｖａｔｅＳｕbText1_KeyＤｏwn（KeyCｏｄeAsＩｎｔeger,ＳhiftAsIntegｅｒ)ＥｎdSub大图标ｂｉｇｉｃｏnﻩ2(子菜单)小图标ｓmallｉconﻩ2(子菜单)EnｄSubB.PrｉvaｔeSubbiｇicoｎ_Cｌick()A.PriｖateSubCommand1_Clｉck()TypeBooksNａmeAsString*10ＴｅlNumＡsStriｎg*2０A.PrivateSuｂComｍａnd1_Click()ＤimＢAsBookｓWrｉtｅ#1,B.Naｍe,Ｂ．TeｌNuｍＥnｄＳｕbDimＢAsBookｓPrinｔ＃１,B．Naｍｅ，B.TelNｕmDimBAsBｏｏksTelNum=InputBoｘ("输入Ｏpeｎ"c:\Pｅrson.txｔ"ForIｎputAs＃1Nａmｅ=InｐutＢox(＂输入姓名")ＴelNｕｍ=InputBox(＂输入DiｍkＡｓInｔeｇｅr，sｕｍAsIntegeｒｓum=０Ｆｏrk＝mＴｏ1suｍ＝ｓum+kfｕｎ=sumＥｎｄFunｃｔionDimstrＡsＳtring,sAsStｒing,cAｓStringIfInStr(str,c)=0ThenIfs<>＂"TｈenText1=sPｒivａteSubＣommａnd１_Cｌick()DimrAｓInteｇer，nＡsＩｎtｅgｅｒn＝Teｘt1Ｔext3＝fuｎ(n)/fun()／fun(r)Iｎｔegeｒ)ａsｌongFｏrk=1Tonｔ=t*ｋPriｖateSuｂＣommand1_Cliｃk()DimｓumAsSingｌｅ，mａxAsＳiｎgle,ｍｉnAsＳingｌemaｘ=Texｔ１(０)To6Ｉfｍiｎ＞Ｔｅxt1(k)Tｈeｎｍiｎ=Tｅxt１(k）suｍ=sum＋Text１(k）NｅｘtｋＥndＳubfｏunｄ=Ｆalsen=Ｌen(k=0nAsＩｎtｅger,foｕｎｄAｓＢooleanWhilｅｋ<List1.LｉstCountAndNotfounｄfｏund=Ｔ