高中信息技术-VB枚举算法与程序实现-浏览题阅览题-会考复习题

高中信息技术VB枚举算法与程序实现浏览题阅览题会考复习题学校:姓名:班级：_一评卷人得分1.使用枚举法解决问题，在列举问题的可能解的过程中()可以遗漏，但不应重复B・不能遗漏,也不应重复。C.可以重复，但不应遗漏。可以遗漏,也可以重复。【答案】B【解析】2•有如下VB程序段m=a(1)Fori=2to100Ifa(i)>mthenm=a(i)Nexti该程序段执行后，变量m中存储的是()A・累加值B.计数值C.a(1)至a(10O)中的最大值D・最小值【答案】C【解析】3．读程序，写出下列程序的输出结果55、s=1Forj=100To—100Step-1s=s*jNextjMsgBox(s)上述程序段中S=s*j的执行次数是()

A、400A、400B、401C、20OD、201【答案】D【解析】.统计1~1000间个位数是4,且能被9整除的数共有多少个，可以采用的算法是()A.查找算法B.枚举算法C•解析算法D.排序算法【答案】B【解析】•在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到,请问开锁的正确数字组合可能是()。864251B.842651C.126845D.124685【答案】A【解析】6•某食品连锁店5位顾客贵宾消费卡的积分依次为810,512,613,700,900。采用选择排序算法对其排序，若完成第一遍时的结果为：512,810,613,700,900,贝烷成第二遍的结果是()A・512,613,700,900,810512,810,613,900,700512,900,613,700,810512,613,810,700,900【答案】D【解析】7•模拟剪刀石头布的游戏，骰子是一个正六面体，用1〜3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为()INT(RND(3)+1)INT(RND*2+1)INT(RND(2)+1)INT(RND*3+1)【答案】D解析】

8.三个正整数a、b、c满足等式a2+b2=c2,a、b、c称为“勾股数”求出100以内所有“勾股数”可采用的算法是()A・枚举算法B.解析算法C.冒泡排序D・顺序査找【答案】A【解析】9.有如下VB程序：DimiAsInteger,jAsInteger,kAsstring,nAsIntegern=3List1.ClearFori=1Tonk=Forj=1Toik=k+”*"NextjListl.AddltemkNextiTOC\o"1-5"\h\z该程序运行后,在列表框List中显示的是()杲船杲*****A.B・C.D・【答案】A【解析】10.关于枚举算法的说法错误的是()—般是通过循环中嵌套分支结构来实现的。循环结构用来“枚举”,分支结构用于“检验”。列举所有可能解的范围时,可以扩大但不能缩小，以防漏解。采用枚举法时，也可能找不到符合条件的解。【答案】C【解析】11.VB标准函数RND的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于100且小于200随机整数的VB表达式是()A、Int(Rnd*100)B、Int(Rnd*101+100)C、Int(Rnd*99+100)D、Int(Rnd*100+100)【答案】D【解析】下列语句用于计算"s=1+4+7+10+...+25”的值。①Fori="1"To25Step!2.②Nexti③s=0@s=s+i正确的语句顺序是()A.①②③④B.①③④②c.③①④②D.④③①②【答案】c【解析】13.解决上问题所用的算法是：()A、枚举法B、解析法c、顺序查找D、选择法【答案】B【解析】14•已知三角形的三条边长分别为a、b、c，半周长p(a+b+c)/2，该三角形面积计算公式为：s=y：p(p-a)(p-b)(p-c)，计算S的VB语句是()s=\：p(p-a)(p-b)(p-c)s=Sqr(p(p-a)(p-b)(p-c))s=Jp*(p-a)*(p-b)*(p-c)s=Sqr(p*(p-a)*(p-b)*(p-c))【答案】D【解析】小李有一被污损的保修卡(如图),客服热线中有一个数字被污损掉了,找出这个数字的适合算法是（）的适合算法是（）A・枚举算法B・解析算法C.对分查找算法D.递归算法【答案】A【解析】数组a中存放了某校田径运动会中八名100米短跑运动员的成绩，数据存放情况如表：a(1)a(2)Aa(3)a(4)a(5)Aa(6)Aa(7)Aa(8)a12.8^13.312・312.613・512・11313・8若按升序排列,并采用冒泡排序算法自右向左进行比较和交换,那么前两轮排序的数据交换总次数为（）。A.5B・6C・7D.8【答案】D【解析】17•三个正整数a、b、c满足等式a2+b2=c2,a、b、c称为“勾股数"求出100以内所有“勾股数可采用的算法是（）A、枚举算法B、解析算法C、冒泡排序D、顺序查找【答案】A【解析】评卷人得分二、填空题请认真阅读并分析下面VisualBasic程序代码，按要求完成题目。Dima(1To6)AsIntegerDimn,i,j,kAsIntegerPrivateSubCommand1_Click()Fori=1Ton-1Forj=(1)TonIfa(i)Va(j)Thenk=a(i):(2):a(j)=kEndIfNextjNextiFori=1Tonlist2.AddItemStr(a(i))NextIEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Thenn=n+1a(n)=Val((3))List1.AddItemStr(a(n))Text1.Text="＂:Text1.SetFocusEndIfEndSub①程序中出现了text和list两种控件，其中Iist控件的中文名称是列表框,text控件的中文名称是。(2)在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。【答案】①文本框(l)i+l(2)a(i)=a(j)(3)textl.text【解析】下面程序的功能是:计算表达式1+3+5+・・・+(2n-1)的值，在文本框Text1中输入n的值,结果在文本框Text2中输出。则程序中划线处的语句应填。PrivateSubCommand1_Click()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Va1(Textl.Text)Fori=1To2*n-1Step2NextiTex12・Text=Str(sum)EndSub【答案】sum=sum+i【解析】20．王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己的密码信息:密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。程序界面如图所示，单击"帮助找回密码"按钮(Command1)后，可能的密码显示在列表框List1中。解决此问题的相应程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAslong,bAsInteger,iAsIntegerFori=0To9999①s=310000＋iIfsMod46=0Then②b=(sMod100)\100Ifa=bThenList1.Add1temStr(s)EndIfEndIfNextiEndSub＜）NYM/输出＜）NYM/输出到LiJitl/s*-310ii«h+i（1）解决此问题的算法是（选填:枚举算法或排序算法）在程序①和②画线处，填入适当的语句或表达式，把程序补充完整:（2）程序中①画线处应填入。（3）程序中②画线处应填入。【答案】（1）枚举算法（2）step16（3）a=smod10【解析】21．输入一个三位数的整数,要求将此三位数的各位上的数字重新排列,组成一个尽可能大的三位数。例如:输入213，重新排列可得到尽可能大的三位数是321。现要求编写VB程序（运行界面如图所示），实现如下功能:在文本框Textl中输入一个三位数整数，单击“求解"按钮Commandl，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max（x）用于求解最大三位数整数,但加框处代码有错,请改正。①②Functionmax(xAsInteger)AsIntegerDimaAsInteger,bAsInteger,cAsInteger,tAsIntegera=x\100b=x\10)\10'①c=xmod10IfaVbThent=a:a=b:b=tIfaVcThent=a:a=c：c=tIfb<cThent=c:c=b:b=tmax=c*100+b*10+a＇②EndFunctionPrivateSubCommand1_Click()DimnAsInteger,yAsIntegern=Vai(Text1.Text)y=max(n)Text2.Text=Str(y)EndSub【答案】①(x\10)mod10②a*100+b*10+c【解析】22•现需计算1*2*3*……％=?有如下程序段，在划线处填入合适的语句或表达式，完成程序。s=1i=1DoWhileiV=nS=s*ii=i+1【答案】Loop【解析】23．本程序要求完成的功能是：计算s=1/1+2/(1*2)+3/(1*2*3)+・・・+n/(1*2*3*・・・*n)的值。请将已有VB代码补充完整。n=inputbox(“请输入n的值”)(1)(1)Fori=1tont=t*is=s+(2)NextiPrints(1)(2)【答案】(l)t=l(2)i/1【解析】24•素数:只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。请根据算法将下列程序补充完整。Functionprime(aAsInteger)AsBooleanDimjAsIntegerprime=Truej=2DoWhileprimeAndj<=a\2IfaModj=0Thenprime=FalseExitDoEndIfLoopEndFunctionPrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsIntegerDimcountAsIntegera=Val(Tex11・Text)b=Val(Text2.Text)Fori=aTobf②=TrueThenList1.AddItemStr(i)count=count+1EndIfNextiLabell.Caption="素数共有"+Str(count)+"个!"EndSub【答案】①j=j+1②prime(i)【解析】本题考核VB基本语句含义的理解，自定义函数的应用。5.有如下VisuaIBasic程序：PrivateSubCommand1_Click()DimsAsIntegerDimIAsIntegerS=0Fori=1To10s=s+i\7NextiText1.text=str(s)Endsub该程序段运行后,文本框Text1中显示【答案