高中信息技术VB循环语句浏览题阅览题会考复习题

第页高中信息技术VB循环语句浏览题阅览题会考复习题学校:___________姓名：___________班级：___________考号：___________评卷人得分一、选择题1．以下程序运行后运行结果为▁▁▁。X=8：Y=X：Z=10IFX<=YTHENPRINTX；Y；ELSEIFZ>=XTHENPRINTZENDIFENDIFA．108B．88C．1010D．810【答案】B【解析】2．数组排序。点击“产生随机数〞按钮，让计算机随机产生10个整数，并对这10个整数进展标号，再点击“排序〞按钮，对这10个整数进展从大到小排序。如下图。程序代码如下：Dima(1To10)AsIntegerDimi,j,k,ktAsIntegerPrivateSubCommand1_Click()List1.Clear'去除列表框数据Fori＝1To10Randomize'随机数初始化a(i)＝Int(Rnd()*1000)List1.AddItemStr(i)＋〞＝〞＋Str(a(i))NextiCommand2.Enabled＝True'激活排序按钮EndSubPrivateSubCommand2_Click()Fori＝1To9k＝iForj＝____①____To10Ifa(j)>a(k)Thenk＝jNextjIfi<>kThen__②____EndIfNextiFori＝1To10List2.AddItemStr(i)＋〞＝〞＋Str(a(i))NextiEndSub请在①、②划线处填入适宜语句或表达式，把程序补充完整：程序中①划线处应填入__________________；程序中②划线处应填入__________________。【答案】①I+1；②t=a〔k〕:a(k)=a(i):a(i)=t【解析】3．由“Fork=35To0Step3:Nextk〞循环语句控制循环次数是_______。A、12 B、0 C、-10 D、-11【答案】B【解析】4．Subtest7()Fori=1To6S=S+(-1)^i*2^iNextiMsgBox(S)Endsub该程序运行结果是〔〕A、126B、-126C、-42D、42【答案】D【解析】5．Subtest2()a=12：b=12：c=5Label1.Caption=""Label2.Caption=""Ifa>bOrNotb<cThenLabel1.Caption="monday"ElseLabel2.Caption="tiger"EndIfEndsub该程序段运行后，在标签Label3Caption属性值是()A．"monday"B．"tiger"C．"mondaytiger"D．""【答案】A【解析】6．根据以下程序段运行后a值，划线处应该填入合理数据类型为〔〕DimaAs________a=1Fori=1To8a=a*iNextiA、IntegerB、LongC、SingleD、Double【答案】B【解析】7．小金编写了VB程序，局部程序如下所示，在调试程序时候出现如下图错误信息：PrivateSubCommand1_Click()DimxAsString,iAsIntegerFori="1"To10IfiModx="1"Thenx="奇数"Elsex="偶数"NextiEndSub产生此错误语句是()。A．ForB．EndIfC．NextD．If【答案】B【解析】8．以下图是当循环、直到循环两种循环构造，请结合以下图选择以下说法中正确是()A．当循环是当条件成立退出循环B．当循环不可能出现不执行循环步骤情况C．直到循环是条件成立时执行循环步骤D．直到循环至少执行一次循环步骤【答案】D【解析】9．对以下程序段说法正确是〔〕s=0i=0DoWhiles<10i=i+1s=s+i*iLoopA．该程序循环体执行了3次B．该程序段完毕后i值为3C．该程序段完毕后i值为4D．该程序段完毕后s值为13【答案】ABD【解析】10．某算法流程图如下所示：输入输入a,b,ca>ba←ba>ca←c输出a开场YYNN完毕当输入a、b、c值分别为5、2、8时，该算法输出结果为〔〕A.8B.2C.5D.7【答案】B【解析】11．假设输入两数1，-4，输出结果_______A．-5 B．-3C．5 D．3【答案】C【解析】12．某算法要实现0到100偶数之与，流程图如下图。那么ißi+2被执行次数是2

A．50B．51C．100D．101【答案】B【解析】13．在某银行取款机上，用户银行卡密码验证过程如以下图所示：当用户输入密码时，假设第1次输入错误，第2次输入才正确，那么整个操作过程执行流程是〔〕A、①→②→③→④→⑤B、①→②→③→④→⑥→⑦C、①→②→③→④→⑥→②→③→④→⑤D、①→②→③→④→⑥→⑦→②→③→④→⑤【答案】C【解析】14．求两数之与算法是：输入两数a与b值，计算c=a+b，输出c值。该算法根本构造属于()。A．顺序构造B．选择构造C．循环构造D．框架构造【答案】A【解析】15．以下VB程序段运行结果是：Dima(1To3)AsIntegera(1)=1Fori=2To3a(i)=2*a(i-1)+1NextPrinta(i-1)A、0B、3C、7D、15【答案】C【解析】16．有如下程序段：Fori=1To2Forj=2To7-iIfa(j)>a(j-1)Thenk=a(j):a(j)=a(j-1):a(j-1)=kEndIfNextjNexti数组元素a(1)到a(6)值依次为“71，54，58，29，31，78”，经过该程序段“加工〞后，以下说法正确是〔〕A．数组元素a(1)到a(6)值依次为54，29，31，58，71，78C．此过程中数据共需交换次数为5次D．此过程中数据“54”共被比拟5次【答案】C【解析】17．某算法局部流程图如第5题图所示。执行这局部流程后，“x←x—2〞被执行次数为A．0B．1C．2D．3【答案】C【解析】18．有如下VB程序，它输出结果是S=0Fori=1To10Ifimod2=0ThenS=S+iNextiPrint“S=〞;SA．S=0B．S=25C．S=30D．S=55【答案】C【解析】19．以下VB程序段运行完毕后，变量x值为x="2":y=64Dowhilex<=Sqr(y)x=x+3LoopA．2B．5C．8D．11【答案】D【解析】20．某算法流程图如下图，执行该算法后，“s←s+i〞共被执行次数是〔〕YYN开场i<20i←i+3s+i←sS←1:i←1输出s的值完毕A．0B．6C．7D．8【答案】C【解析】21．小明编写一个模拟qq登录VB程序。当输入用户名、密码与验证码，点击登录按钮后，会跳出信息框提示是否验证成功。局部程序与流程图如下所示：uname=Text1.Text'输入用户名psd=Text2.Text'输入密码vcode=Val(Text3.Text)'输入验证码Ifvcode<>Val(Label3.Caption)ThenMsgBox“〞①'Label3显示是随机验证码①ElseIfuname<>"admin"Orpsd<>"123456"ThenMsgBox“②〞②ElseMsgBox“③〞③方框中正确语句是〔〕。A．①中“验证成功〞 B．②中“输出用户名或密码有误〞C．②中“验证成功 D．③中“输出验证码错误〞【答案】B【解析】Subtest3()双重循环运行输出图形与3重复,但3已改题Fori="1"To22．step1s=""Forj="1"To2*i-1s="Str(j)"+sNextjList1.AddItemsNextiEndSub该程序运行后列表框输出第三行是〔〕A．33333B．55555C．12345D．54321【答案】D【解析】23．假设输入28，以上代码输出结果是。Dimxaslongx=inputbox(“输入x值〞)y="x"mod7ify="4"ory="5"ory="6"thenxq=y-3elsexq=y+4endifprintxq【答案】4【解析】24．以下为局部VB程序语句代码：()s=32Fori=1To10Steps=s/2Nexti上述程序语句执行完毕后，s值为2，那么循环语句步长〔划横线处〕应填()A．1B．2C．3D．4【答案】C【解析】25．如下图局部流程图中，“s←s＋i〞被执行次数为()A．0B．1C．32D．33【答案】C【解析】26．以下语句中错误是〔〕A．Constvar1=123B．Dimvar2AsStringC．x+y=9D．Dimd(1to500)AsDouble【答案】C【解析】27．以下关于循环构造描述中，正确是〔〕。A．与分支构造不同，循环构造一定会对循环条件进展屡次判断。B．循环构造中，重复执行内容有时候一次都不被执行。C．在循环构造流程图中，除了有向下流程线外还应有向上返回流程线。D．根据实际需要，在流程图中可出现多个循环构造。【答案】BCD【解析】评卷人得分二、操作题28．求两个整数最大公约数分析：求最大公约数算法思想：〔1〕对于两数m，n，使得m>n；〔2〕m除以n得余数r；〔3〕假设r=0，那么n为求得最大公约数，算法完毕；否那么执行(4)；〔4〕m←n，n←r，再重复执行(2)。例如:求m=14,n=6最大公约数.Mnr1462620请根据以上思路补充下面程序代码：PrivateSubCommand1_Click()m=InputBox("m=")n=InputBox("n=")Ifm<nThent=m:m=n:n=tr=________________DoWhile(r<>0)m=nn=rr=mModnLoopPrint"最大公约数=",nEndSub【答案】mmodn【解析】评卷人得分三、填空题29．有如下VisualBasic程序段：s=0n=1fori=4to1step-1n=n*is=s+anexti问：该程序段运行后，〔1〕共循环___________次。〔2〕变量s值是___________。【答案】(1〕4〔2〕64【解析】30．小贝对街机中〞打手掌〞游戏很感谢兴趣，于是也用VB做了个打手游戏，界面如图。点击开场按钮command1，标签label1开场从3秒倒计时，倒计时完毕开打，如果打中手掌，label1显示〞打中了〞,如果超过去3.1秒，那么显示〞没打中〞,游戏完毕。点开场按钮可以重来。请根据题意将以下程序补充完整。DimtAsInteger‘t用来计时PrivateSubCommand1_click()Image1.left=64Label1.caption=〞〞t=0Terval=100〔1〕______________Image1.Enabled=FalseEndsubPrivateSubImage1_click()Timer1.Enabled=FalseImage1.Enadled=FalseLabel1.caption=〞打中了〞EndSubPrivateSubTimer1.Timer()t=t+1ift<=30thenlabel1.caption=3-int(t/10)ift>32thenlabel1.caption=〞没打中〞Fori=1to10‘手迅速移开动画Forj=1to10000DoeventsNextjNextiTimer1.Enabled=FalseImage1.Enabled=FalseEndifIft=30then‘当t=30时，即倒计时3秒完毕，允许开打，对象image1开场允许响应事件〔2〕_____________EndifEndsub【答案】〔1〕timer1.enabled=true〔2〕image1.enabled=true【解析】31．用VB编写函数bubble_sort是一个用冒泡方法实现排序函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否那么为降序；整数型数组a()是待排序数据，数据从a(1)开场存放；整数型参数n表示传入数组长度，该函数返回值也是一个整数型数组。所以调用此函数实现排序非常方便：比方有一个整数型数组a(1to10)需要降序排序，可以直接这样调用：a()＝bubble_sort(False，a()，10)该函数VB代码如下：Functionbubble_sort(sxAsBoolean，a()AsInteger，nAsInteger)AsInteger()Dimi，j，tAsIntegerFori＝1Ton－1Forj＝____①____Step－1If____②____ThenIfa(j)＜a(j－1)Thent＝a(j)：a(j)＝a(j－1)：a(j－1)＝tElseIfa(j)＞a(j－1)Thent＝a(j)：a(j)＝a(j－1)：a(j－1)＝tEndIfNextjNextibubble_sort＝a()EndFunction请将代码补充完整：①___________________________________________。②___________________________________________。【答案】(1)ntoi＋1(2)sx或者sx＝True【解析】32．出租车计费方法如下：路程在3公里以内〔包含3公里〕收起步价10元，路程超过3公里不超过10公里〔包含10公里〕局部按每公里2元计费，超出10公里局部按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请答复以下问题：图一图一在设计该程序界面时，要从图二界面到图一界面，需要进展哪些设置？________________________________________________________________________________________________________________________________为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：DimdAsSingleDimfAsSingled=Val(Text1.Text)Ifd<=3Then‘3公里以下计费f=10endifIfd>3Andd<=10Then‘3公里至10公里计费EndIfIfd>10Then‘10公里以上计费EndIfText2.Text=Str(f)请完善以上程序代码，在①，②处填入正确语句①________________________________②________________________________完善程序代码后，假设输入路程数为10，那么应付金额为________元实现该程序所用算法构造属于______________〔选择构造/循环构造〕【答案】〔1〕添加一个按钮设置caption属性值为“计算〞，将窗体caption属性值设置为“出租车计费系统〞；〔2〕f=10+(d-3)*2f=10+14+(d-10)*3；〔3〕24；〔4〕选择构造【解析】33．某同学编写了VB程序其功能与界面如下所示。在文本框(text1)中输入一段英文，点击“统计删除〞按钮，在标签(Label3)中显示该语句中最长单词(如有多个长度一样单词那么显示靠后单词)，在标签(Label5)中显示该单词字符长度，在标签(Label7)中显示删除该单词后句子。PrivateSubCommand1_Click()DimsAsInteger，imaxAsInteger，pimaxAsInteger，tAsIntegerDimsourceAsStrings＝Len(source)imax＝1pimax＝1t＝0Fori＝1Tosd＝____①____If(d＞＝“a〞Andd＜＝“z〞)Or(d＞＝“A〞Andd＜＝“Z〞)Then____②____ElseIft＞＝imaxThenimax＝t____③____EndIft＝0EndIfNextiLabel3.Caption＝Mid(source，pimax，imax)Label5.Caption＝imaxLabel7.Caption＝____④____＋Mid(source，pimax＋imax，s－imax)EndSub①处程序代码为_________________________________________________。②处程序代码为_________________________________________________。③处程序代码为_________________________________________________。④处程序代码为_________________________________________________。【答案】①Mid(source，i，1)②t＝t＋1③pimax＝i－t④Mid(source，1，pimax－1)【解析】34．求结果〔1〕输入356，输出结果：DimxasIntegerx=inputbox(“输入x值〞)a=xmod10b=int(x/10)mod10c=x\100s=a+b+cprints〔2〕输入a=1，b=2，输出结果：〔3〕输出结果：〔4〕输入8，输出结果：【答案】(1)14(2)2.5(3)87856(4)105【解析】35．小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中某个单词〔或字符串〕，单击“最大间距〞按钮〔Command1〕后，在文本框Text3中显示该单词在文中某两次出现最大间距，假设只出现一次或不出现那么显示值为0。程序运行界面如以下图所示：实现上述功能VB程序如下：PrivateSubCommand1_Click()Dima(1To1000)AsString'数组a存储文中出现该指定单词(或字符串)各个位置DimsAsString,cAsString,chAsStringDimnAsInteger,maxAsInteger,iAsIntegers=c=n=0:Max=0Fori=1ToLen(s)-Len(c)+1ch=①Ifch=cThenn=n+1a(n)=iIfn>=2Then[来源:学|科|网Z|X|X|K]Ifa(n)-a(n-1)-Len(c)>MaxThenMax=a(n)-a(n-1)-Len(c)EndIfEndIfNextiEndSub以上程序段运行时，为了实现上述功能，划线处①与②应填入代码分别为：〔1〕_______________________________;〔2〕_______________________________【答案】⑴(2分)Mid(s,i,Len(c))⑵(2分)Str(Max)【解析】36．某VisualBasic程序如下：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,aAsInteger,bAsIntegerX=0y=0Fora=1To3x=x+1Forb=2to4y=y+1NextbNextaText1.text=str(a)Text2.text=str(b)EndSub单击Command1按钮后，Text1显示①，Text2显示②。【答案】①3〔2分〕；②9〔2分〕【解析】37．【加试题】小王模拟超市收银机扫描商品条形码后计算总价过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价〞后，会将所有商品总价显示在文本框Text2中。程序界面如下图：实现上述功能局部VB程序如下，请在三个划线处填入适宜代码。'定义全局数组变量Dima(1To10)AsLongDimb(1To10)AsString'自动加载条形码信息以及对应商品信息PrivateSubForm_Load()DimiAsIntegera(1)=503741Fori=2To10a(i)=a(i-1)+1Nextib(1)="可乐5.00"b(2)="薯片7.50"b(3)="牛奶5.60"b(4)="橙汁7.50"b(5)="面包4.00"b(6)="蜂蜜28.00"b(7)="蛋糕12.00"b(8)="绿箭3.50"b(9)="饼干6.00"b(10)="雪碧5.00"EndSub'输入条形码，查找条形码，并显示条形码及其对应商品信息PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimtxmAsLong:DimiAsInteger:DimjAsIntegertxm=Val(Text1.Text)IfKeyAscii=13ThenIftxm>=503741Andtxm<=503750ThenL