山东高中信息技术学业水平考试2018年6月算法与程序设计1-5套题（附答案及解析)第一套LoopIf _______②_______thenPrint“双号”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= 0B、Val(x)Mod 2 = 1C、Val(x) Mod 2=0D、Val(x) Mod 2 <> 0第二套23、设a=2，b=5，在VB中，表达式a>b And b>3的值是（）。

A TrueB -1C 1D False24、以下程序段运行后，x和st的值分别是（）。

Dim x As IntegerDim st As Stringx=123+678st=”123”+”678”A 123678 “801”B 801 “801”C 801 “123678”D 123678 “123678”25、用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（）A 菱形B 圆角矩形C 平行四边形D 直角矩形26、下列选项中，能作为VB程序变量名的是（）。

A dimB 3abC xyD a*b27、以下程序段运行后，s的值是（）。

n=0s=0Do While s<=10n=n+3s=s+nloopA 3B 18C 0D 3028、阅读程序，写出运行结果Dim a(10) As IntegerDim iAs Integera(1)=1a(2)=1Fori=3 To 6a(i)=a(i-1)+a(i-2)Next iPrint a(6)上述程序运行后，输出a(6)的值是_________________________。

（6分）29、分析并完善程序以下是计算s=1*2*3*…*10的程序代码，请补全程序。

（6）Dim s As LongDim i As Integers=__________For i=1 To 10s=__________Next iPrint s30、算法设计与程序实现勾股数求出100以内满足a<b的所有勾股数。

【参考程序】Dim a As IntegerDim b As IntegerDim c As IntegerFor a=1 To 100For b=1 To 100For c=1 To 100If ________ThenPrint a;b;cEnd IfNext cNext bNext a1、本题采用的算法是__________（填写：解析法/ 枚举法/排序法/递归法）。

2、程序代码中空白处应填写的条件是________（填写字母：A/B/C/D）.A a<b And a2+b2=c2B a<b Or a2+b2=c2C a<b And a^2+b^2=c^2D a<b Or a^2+b^2=c^2第三套23、一下程序段运行后，y的值是（）。

x=3If x>3 Theny=2*xElsey=3*x+1end ifA 10B 25C 5D 2624、某晚会的猜数字游戏中，有100张写有1~100之间整数的卡片，主持人随机抽取一张卡片，让大家竞猜。

有一种方案是：第一次猜50，若提示低了，则第二次猜75，若提示还是低了，则第三次猜87，依次类推；若第一次猜50，提示高了，则第二次猜25，若提示还是高了，则第三次猜12，依次类推；……。

这种每次缩小一半查找范围而达到迅速确定目标的算法称为（）。

A 排序法 B解析法 C 顺序查找法 D 二分查找法25、在平面直角坐标系中，设点A（x1,y1）、点B（x2，y2），则AB两点之间的距离为：VB表达式是（）。

A Sqr((x1-x2)2+(y1-y2)2)B Sqr((x1-x2^2+(y1-y2)^2)C Sqr[(x1-x2)^2+(y1-y2)^2]D Sqr[(x1-x2)2+(y1-y2)2]26、下列语句正确定义了一个单精度实型变量x 的是（）。

A Dim x As SingleB 其它三项都不对C Dim x As StringD Dim x As Integer27、在VB中表示“x 属于区间[a,b)”的正确表达式是（）。

A a<=x<bB a≦x And x<bC a<=x Or x<bD a<=x And x<b28、阅读程序，写出运行结果Dim s As IntegerDim i As Integers=0For i=1 To 10 Step 4Print “#”;s=s+iNext iPrint s上述程序运行后，输出“#”的个数是__________；输出s的值是________。

（共6分，每空3分）29、阅读程序，写出运行结果Dim a As IntegerDim b As IntegerDim r As Integera=98b=63r=a Mod bDo While r <>0a=bb=rr=a Mod bLoopPrint b程序运行后，输出结果为：___________________。

（6分）30、算法设计与程序实现拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法换钱问题要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。

其中一种换法如下：5元：3张2元：38张1元：9张求出所有的换钱方案。

【算法设计】x表示5元的张数：1≦x≦20；y表示2元的张数：1≦y≦50；z表示1元的张数：1≦z≦100.【参考程序】Dim x AsIntegerDim y AsIntegerDim z As IntegerFor x=1 To20For y=1To 50Forz=1 To 100If ______________ThenPrint x;y;z ’x y z 之间以分号分隔End IfNextzNext yNext x根据上述回答下列问题：（8分，每空4分）1、本题采用的算法是 _____________（填：解析法/枚举法/排序法/递归法）。

2、程序代码中空白处应填写的条件是 _______________（填写字母：A/B/C/D）。

A 5x + 2y + z=100 Or x+ y + z = 50B 5x + 2y + z=100 And x + y + z = 50C 5*x + 2*y + z=100 Or x + y + z = 50D 5*x + 2*y + z=100 And x + y + z = 50第四套23、在VB中，下列属于字符串常量的是（）。

A 3.14B 2018C “Visual Basic”D cnt24、以10下程序段运行后，整型变量s的值是（）。

s=1Fori=1 To 10 Step 3s=s*iNext iPrint sA 280B 28C 3640D 5525、以下程序段运行后，整型变量max1，min1的值分别是（）。

a=3b=5max1=(a+b)/2+Abs(a-b)/2min1=(a+b)/2-Abs(a-b)/2A 3 3B 3 5C 5 3D 5 526、给定一个四位数的年份，判断它是否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。

例如2004年和2000年都是闰年，2100年不是闰年）。

下列判断年份。

下列判断年份y是闰年的表达式正确的是（）。

A yMod 4=0 And y Mod 100 <>0 Or y Mod 400=0B yMod 400=0C yMod 4=0D yMod 4=0 Or y Mod 100<>0 And y Mod 400=027、将(1/2)gt2数学表达式转化为VB表达式，下列选项正确的是（）。

A 1/2*g*t^2B 1/2gt^2C 1/2g*t^2D 1/2g*t228、分析并完善流程图执行流程图，当输入x的值为4时，输出y的值为2，则菱形判断框中的条件可能为________（填写字母：A/B/C/D 6分）。

A x>3B x>4C x<=4D x<=529、分析并完善程序以下是计算s=12+22+32+…+1002的程序代码，请补全程序。

（共6分，每空3分） Dim s As LongDim i As Integers=0For i=1 To 100s=s+________________________Print s30、算法设计与程序实现拖动滚动条浏览全部试题内容，点击右侧图标可切换输入法十进制整数转换为二进制整数采用“除2取余”法。

算法描述第1步：输入一个十进制正整数n；第2步：将n除以2，记录余数r；第3步：将r追加到字符串s的左边（s 用于记录转换后的二进制数，初值为空）；第4步：将n 除以2的商赋给n ；第5步：若n 为0，则转到第6步；若n不为0，转到第2步；第6步：输出s （即逆序输出每一次的余数）。

【参考程序】Dim s As String ‘记录转换后的二进制数Dim n As Integer ‘记录十进制正整数nDim r As Integer ‘记录n除以2的余数s=“ ”‘s记录转换后的二进制数，初值为空n=Val(Text1.Text)Do While n>0r=______①________s=r & sn=______②________LoopText2.Text=s1、上述算法描述采用的方法是：______________（填：自然语言/伪代码/流程图）。

（2分）2、在参考程序①处应填入____________（填写字母：A/B/C/D）。

（3分）A nMod 2B n \2C 2 Mod nD n/23、在参考程序②处应填入____________（填写字母：A/B/C/D）。

（3分）A n Mod 2B n \2C 2 Mod nD n/2第五套23、下列选项中，关于算法的描述正确的是（）。

A算法可以有0个或多个输入，但只能有一个输出 B算法只能用自然语言描述C 算法就是一种高级程序设计语言D 算法必须在有限步骤内实现24、下列选项中，能作为VB程序变量名的是（）。

A whileB distC 4A123D a%c25、以下程序段执行后，输出结果为（）。