算法与程序设计

1、信息技术选修模块测试(一)一、选择题1、下列选项中，能作为vb程序变量名的是（）A、while B、dist C、4A123 D、a%c 2、 以下程序段运行后，整型变量max1,min1的值分别是（ ）a=3b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/2A、3，3 B、3，5 C、5，5 D、5，3 3、以下程序段运行后，整型变量s的值是（ ） s=1 For i=1 to 10 step 3 s=s*i Next i Print sA、55 B、280 C、3640 D、28 4、将数学表达式转换为vb表达式，下列选项正确的是（ ） A、

2、1/2gt 2 B、1/2g*t2 C、1/2g*t2 D、1/2*g*t2 5、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰(年份能被4 整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如2004年和2000年都是闰年，2100年不是闰年)。下列判断年份y 是闰年的表达式正确的是A、y mod 4= 0 or y mod 100 < >0 and y mod 400 =0B、y mod 400=0C、y mod 4= 0D y mod 4= 0 and y mod 100 < >0 or y mod 400 =0 6

3、、在 vb中，下列哪一个选项是正确的赋值语句（ ）A、5s=80 B、s=s+5 C、 a+b=c D、2018=x 7、以下程序运行后，s的值是 （ ）n=0s=0Do while s<=10 n=n+3 s=s+nLoop Print sA、18 B、30 C、3 D、0 8、以下程序段运行后，x和st的值分别是（ ） Dim x as Integer Dim st as String x=123+678 st=123+678 A、123678 123678 B、801 123678 C、801 801 D、 123678 801 9、用流程图表示条件 “A>B”是否成立，要用

4、到以下哪个图形？（ ） A、 B、 C、 D、 10、设a=2，b=5，在vb中，表达式a>b and b>3 的值是（ ） A、1 B、True C、False D、111、以下程序段执行后，输出结果为（ ） m=29 If m mod 3 < >0 then Print m & 不能被3整除 Else Print m & 能被3整除 A、m不能被3整除 B、29能被3整除 C、29不能被3整除 D、m 能被3整除12、下面四段程序，哪段程序运行结果如图所示：（ ） * * * * * * * * * * * * * * * * * * * * * *

5、 * * * * * *A、for j=1 to 5 B、for i=1 to 5 for j=1 to 6 for i=1 to 6 Print *; Print *; Next j Next i Print Print Next j Next iC、for i =1 to 5 D、 for i =1 to 5 for j=1 to 6 for j =1 to 6Print *; Print * ; Next j Next i Print Print Next i Next j 13、在VB中下列属于字符串常量的是（ ） A、2018 B、cnt C、3.14 D、visual basic1

6、4、已知赋值语句s= “Good Bye !”，则下列定义变量s正确的是（ ） A、Dim s as Long B、Dim s as Integer C、Dim s as Double D、Dim s as String15、下列序列能采用二分查找法查找某一元素的是（ ） A、1 4 7 15 13 B、15 14 12 7 2 3 C、6 9 12 14 23 25 D、34 25 17 9 10 316、在VB中，用变量code存储学生的借阅卡编码（code=NO20170502），则变量code的数据类型应定义为（ ） A、Double B、String C、Integer D、Sing

7、le17、在VB中，Int(x)函数的功能是返回不大于x的最大整数，设a=3，b=4，c=5，则下列表达式的运算结果中值最大的是（ ） A、a2+b2-c2 B、Sqr( c ) C、Int(2*a-c/b) D、Abs(a-b)18、Visual Basic程序设计语言属于（ ） A、机器语言 B、自然语言 C、汇编语言 D、高级语言二、分析题19、以下是计算s=1+6+11+101的程序代码，请完善该程序Dim s , i as Integer s=0For i =1 to 101 step _ s=_Next iPrint s20、阅读程序，写出运行结果Dim n as Integern

8、=Val(Inputbox(“n= ” ) )Do while n mod 2 =0N=n2LoopPrint n 程序运行时，输入24，输出n的值是_(提示： 整除运算 如172=8; mod 取余数运算 如：17 mod 2 =1)21、以下是计算s=12+22+32+1002的程序代码，请补全程序 Dim s as long ; dim i as integer s=0 for i = 1 to 100 s= _ _ Print s 22、以下是解决s=1*2*3*4 *10的程序代码，请补全程序： Dim s as long Dim i as Integer s=_ For i =1

9、to 10 s=_ Next i Print s23、阅读程序，写出运行结果 Dim a(10) as Integer Dim i as Integer a(1) =1 a(2) =1 For i =3 to 6 a ( i ) = a ( i -1)+ a ( i -2) next i print a ( 6 ) 上述程序运行后，输出a ( 6 )的值是_24、阅读程序，写出运行结果Dim i ,x, y as Integer y=30 For i = 1 to 3 x = val (inputbox(x=) if y < x then y = x end ifnext i print

10、 y程序运行后：依次输入：36 87 51 运行后输出结果是_25、勾股数是指满足条件a2+b2=c2的自然数，求出100以内的满足a<b的所有勾股数。 【算法分析】a的取值范围1，100； b的取值范围1，100；c的取值范围1，100； 【参考程序】 Dim a ,b ,c as Integer For a =1 To 100 For b =1 To 100 For c =1 To 100If _Then Print a; b; c a b c 之间以分号分隔 End ifNext c Next b Next a根据上述回答下列问题：1、 本题采用的算法是_（填写：解析法/枚举法/排

11、序法/递归法）2、 程序代码中空白处应填写的条件是_(填写字母：A/B/C/D)A、a < b and a2+b2=c2 B、a < b or a2+b2=c2 C、a < b and a2+b2=c 2 D、a < b or a2+b2=c 226、十进制数转换为二进制整数采用“除 2 取余” 法第1步：输入一个十进制正整数n ; 第2步：将n除以2，记录余数 r;第3步：将r追加到字符串s的左边（s用于记录转换后的二进制数，初值为空）；第4步：将n除以2的商赋给n；第5步：若n为0，则转到第6步；若n不为0，转到第2 步；第6步：输出s（即逆序输出每一次的余数）【参

12、考程序】Dim s as string 记录转换后的二进制数Dim n as Integer 记录十进制正整数n Dim r as Integer 记录n除以2的余数 s= s记录转换后的二进制数，初值为空 n=Val(Text1.text) Do while n >0 r=_ s=r & s n=_ loop Text2.text = s1、 上述算法描述采用的方法是：_（填：自然语言/伪代码/流程图）2、 在参考程序处应填入_(填写字母：A/B/C/D)A、n mod 2 B、n 2 C、2 mod n D、n / 23、在参考程序处应填入_(填写字母：A/B/C/D)A、n

13、 mod 2 B、n 2 C、2 mod n D、n / 227、算法与程序设计：判断车牌的单双号【背景知识】 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。 如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的程序。（提示：（1）所有车牌号中都含有数字，并且车牌号的长度都是6；（2）以车牌中最后的一位阿拉伯数字的奇、偶来决定单双号）（1）输入AD2367（2）输入A88888A（3）输入A8963C 输出：单号 输出：双号 输出：单号 【算法描述】 自然语言 流程图第1步：输入车牌号；第2步：取车牌号的最后

14、一位x;第3步：判断x是否为数字，如果是转第4步；如果不是，则依次取倒数第二、三位判断，直到找到数字为止；第4步：判断x是奇数还是偶数，然后输出相应的结果。请根据上述算法描述补全代码Dim n as IntegerDim s as String 定义s为字符串类型Dim x as String s=InputBox(“s=”,s) 将输入的车牌号赋值给sn=6 车牌号的长度为6 x=Mid(s, n , 1) 取车牌号s的第n位Do While x<”0” or x>”9” x不是数字字符，则取x的前一位_x=mid(s,n,1) 取车牌号s的第n位LoopIf _ ThenPri

15、nt “双号”ElsePrint “单号”End If（提示：mid(s,m,n)的功能：从字符串s的第m位开始，截取长度为n为子串。例如：mid（“A8963C”,5,1）的返回值是”3”。）请完善上述程序：（共8分，每空4分）1、 根据题意，程序中空白 处应填写：_。2、 根据题意，程序中空白处应填写：_(填写字母：A/B/C/D)。A. Val(x)2=0 B. Val(x) mod 2=1C. Val(x) mod 2=0 D. Val(x) mod 2<>028、阅读下面问题：GDP增长问题 某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问经过多少年该省

16、的GDP超过15万亿元？【算法分析】假设n年后此省的GDP超过15万亿元，根据题意得出数学关系式，6.7*（1+7%）n>15。求最小的n。【参考程序】dim p as single p用于记录GDP的值 dim r as single r用于记录GDP的年增长比例 dim n as integer n用于统计年数 p=6.7 r=0.07 n=0 do while_ p=p*(1+r) n=n+1 loop print n&“年后，GDP的值超过15万亿元。”根据上述回答下列问题：（每空3分共6分）1、本题采用的算法是_(填写：解析法/枚举法/排序法/递归法)2、写出程序中空白

17、处表达式_。29、要将一张100元的钞票，换成等值的5元、2元、1元一张的零钞，每次换成50张，其中一种换法如下：5元：3张；2元：38张；1元：9张。求出所有的换钱方案。算法设计x表示5元的张数：1x20；y表示5元的张数1y50；z表示1元的张数: 1z100。参考程序 Dim x , y, z As Integer For x = 1 To 20For y = 1 To 50For z = 1 To 100If ThenPrint x; y; zEnd IfNext zNext yNext x根据上述回答下列问题：（8分，每空4分）1、本题采用的算法是 （填：解析法/枚举法/排序法/递归

18、法）。2、程序代码中空白处应填写的条件是 (填写字母：A/B/C/D)。 A.5x+2y+z=100 or x+y+z=50 B.5x+2y+z=100 And x+y+z=50 C.5*x+2*y+z=100 or x+y+z=50 D.5*x+2*y+z=100 And x+y+z=5030、算法与程序设计：出租车计费问题某市出租车收费标准如下：（1）3公里内（含3公里），收费8元；（2） 超过3公里但未超过6公里部分，按1.5元/公里收费；（3） 超过6公里部分，按2.25元/公里收费。根据以上标准，输入出租车行驶的公里数，请计算顾客付费多少元？【算法分析】 假设总费用为p，则可以分段计算p=8 （s3）p=1.5*(s-3)+8 (3<s6)p=2.25*(s-6)+1.5*3+8 (s>6)【参考代码】 Dim s a