算法与程序设计

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

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

3、是正确的赋值语句（）A 、5s=80B 、 s=s+5C、 a+b=cD、 2018=x7、以下程序运行后，s 的值是（）n=0s=0Do whilesB ”是否成立，要用到以下哪个图形？（）A、B、C、D、10、设 a=2， b=5 ，在 vb 中，表达式ab and b3 的值是（）A 、 1B、 TrueC、 FalseD、 111、以下程序段执行后，输出结果为（）m=29Ifmmod 3 0thenPrintm &不能被3 整除ElsePrintm &能被 3 整除A、 m 不能被 3 整除B、 29 能被 3 整除C、 29 不能被 3 整除D、 m 能被 3 整除12、下面四段程序

4、，哪段程序运行结果如图所示：（）*A 、 forj=1 to5B、 for i=1 to 5for j=1to6for i=1 to6Print * ;Print * ;Next jNext iPrintPrintNextjNextiC、for i =1 to5D 、 for i =1 to5for j=1 to6for j =1 to6Print * ;Print * ;Next jNext iPrintPrintNextiNextj13、在 VB 中下列属于字符串常量的是（）A、 2018B、 cntC、 3.14D 、 visual basic;.14、已知赋值语句s= “ GoodBy

5、e ! ”，则下列定义变量A、 DimsasLongB 、 DimsC、DimsasDoubleD、 Dimss正确的是（）asIntegerasString15、下列序列能采用二分查找法查找某一元素的是（）A、1471513B、151412723C、6912142325D、342517910316、在 VB 中，用变量code 存储学生的借阅卡编码（code= NO20170502），则变量code 的数据类型应定义为（）A、 DoubleB、 StringC、 IntegerD 、 Single17、在 VB 中， Int(x) 函数的功能是返回不大于x 的最大整数，设a=3， b=4，

6、c=5，则下列表达式的运算结果中值最大的是（）A、 a2+b2-c2B、 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 的程序代码，请完善该程序Dims , iasIntegers=0For i =1 to 101 step _s=_NextiPrints20、阅读程序，写出运行结果DimnasIntegern=Val(Inputbox( “n= ”) )Do while n mod 2 =0N=n2LoopPrint

7、 n程序运行时，输入24，输出 n 的值是 _(提示： 整除运算如 172=8;mod 取余数运算如： 17 mod 2 =1)21、以下是计算 s=12+22+32+ 1002 的程序代码，请补全程序Dimsas long;dim ias integers=0fori = 1 to 100s= _Prints22、以下是解决s=1*2*3*4 *10 的程序代码，请补全程序：;.DimsaslongDimiasIntegers=_Fori =1 to 10s=_NextiPrint s23、阅读程序，写出运行结果Dima(10)as IntegerDimiasIntegera(1) =1a(

8、2) =1Fori =3to6a ( i ) = a ( i -1)+ a ( i -2)nextiprint a ( 6 )上述程序运行后，输出a ( 6 )的值是 _24、阅读程序，写出运行结果Dimi ,x, yas Integery=30Fori = 1to3x = val (inputbox( x= )if y xtheny = xend ifnext iprinty程序运行后：依次输入： 368751运行后输出结果是 _25、勾股数是指满足条件a2 +b2=c2 的自然数，求出100 以内的满足 ab 的所有勾股数。【算法分析】 a 的取值范围 1，100 ；b 的取值范围 1，

9、100 ；c 的取值范围 1 ，100 ；【参考程序】Dima ,b ,casIntegerFora =1 To100Forb =1To100For c =1To 100If _ThenPrint a; b; c ab c之间以分号分隔End if;.Next cNext bNext a根据上述回答下列问题：1、 本题采用的算法是 _（填写：解析法 / 枚举法 / 排序法 / 递归法）2、 程序代码中空白处应填写的条件是_( 填写字母： A/B/C/D)A、 a b anda2+b2=c 2B、 a b ora2+b2=c2C、 a b anda2+b 2=c 2D、 a 0r=_ _s=r

10、& sn=_ _loopText2.text = s1、 上述算法描述采用的方法是：_（填：自然语言/ 伪代码 / 流程图）2、 在参考程序处应填入_( 填写字母： A/B/C/D)A 、 nmod2B、 n 2C、 2modnD、 n / 23、在参考程序处应填入_( 填写字母： A/B/C/D)A 、 nmod2B、 n 2C、 2modnD、 n / 2;.27、算法与程序设计：判断车牌的单双号【背景知识】为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违反规定的车辆将予以处罚。如何让高清摄像头自动判断车牌的单双号，交警犯了愁，他需要编程高手的你帮忙，完善下面的

11、程序。（提示：（ 1）所有车牌号中都含有数字，并且车牌号的长度都是 6；（2）以车牌中最后的一位阿拉伯数字的奇、偶来决定单双号）（ 1）输入 AD2367（2）输入 A88888A（ 3）输入 A8963C输出：单号输出：双号输出：单号【算法描述】自然语言流程图第 1 步：输入车牌号；第 2 步：取车牌号的最后一位 x;第 3 步：判断 x 是否为数字，如果是转第 4 步；如果不是，则依次取倒数第二、 三位判断，直到找到数字为止；第 4 步：判断 x 是奇数还是偶数，然后输出相应的结果。请根据上述算法描述补全代码DimnasIntegerDimsasString定义 s 为字符串类型Dimxa

12、sStrings=InputBox( “s=”,s)将输入的车牌号赋值给sn=6车牌号的长度为 6x=Mid(s,n , 1)取车牌号 s 的第 n 位Do Whilex ”9” x 不是数字字符，则取x 的前一位_ _x=mid(s,n,1)取车牌号 s 的第 n 位;.LoopIf _ _ThenPrint“双号 ”ElsePrint“单号 ”EndIf（提示： mid(s,m,n) 的功能：从字符串s 的第 m 位开始，截取长度为n 为子串。例如： mid （ “A8963C ”,5,1）的返回值是”3”。）请完善上述程序： （共 8 分，每空4 分）1、根据题意，程序中空白处应填写：

13、_ 。2、根据题意，程序中空白 处应填写： _( 填写字母： A/B/C/D) 。A. Val(x)2=0B. Val(x)mod2=1C. Val(x)mod2=0D. Val(x)mod2028、阅读下面问题：GDP 增长问题某省 2016 年的 GDP 是 6.7 万亿元，如果每年按7%的比例增长，问经过多少年该省的 GDP 超过 15 万亿元？【算法分析】 假设 n 年后此省的GDP 超过 15 万亿元， 根据题意得出数学关系式，6.7*（ 1+7% ）n15。求最小的 n。【参考程序】dimpassingle p 用于记录GDP 的值dimrassingler 用于记录GDP 的年增

14、长比例dimnasinteger n 用于统计年数p=6.7r=0.07n=0do while_p=p*(1+r)n=n+1loopprint n& “年后， GDP 的值超过 15 万亿元。”根据上述回答下列问题： （每空 3 分共 6 分）1、本题采用的算法是_(填写：解析法/枚举法 /排序法 /递归法 )2、写出程序中空白处表达式_ 。29、要将一张 100 元的钞票，换成等值的 5 元、 2 元、 1 元一张的零钞，每次换成 50 张，其中一种换法如下： 5 元： 3 张； 2 元： 38 张； 1 元： 9 张。求出所有的换钱方案。 算法设计 x 表示 5 元的张数： 1 x20；y

15、 表示 5 元的张数 1 y 50；z 表示 1 元的张数 : 1 z 100。 参考程序 Dimx , y, zAsIntegerFor x = 1 To 20;.For y = 1 To 50For z = 1 To 100IfThenPrint x; y; zEnd IfNext zNext yNext x根据上述回答下列问题：（8 分，每空4 分）1、本题采用的算法是（填：解析法/枚举法 /排序法 /递归法）。2、程序代码中空白处应填写的条件是(填写字母： A/B/C/D) 。A.5x+2y+z=100orx+y+z=50B.5x+2y+z=100Andx+y+z=50C.5*x+2*y+z=100orx+y+z=50D.5*x+2*y+z=100Andx+y+z=5030、算法与程序设计：出租车计费问题某市出租车收费标准如下：（ 1） 3 公里内（含 3 公里），收费 8 元；（ 2）超过 3 公里但未超过 6 公里部分，按 1.5 元 / 公里收费；（ 3）超过 6 公里部分，按 2.25 元 /公里收费。根据以上标准，输入出租车行驶的公里数，请计算顾客付费多少元？【算法分析】