信息关键技术考试题算法.doc

第一套(算法某些)
23、下列选项中，关于算法描述对的是（  ）。
A算法只能用自然语言描述
B算法必要在有限环节内实现
C 算法就是一种高档程序设计语言
D算法可以有0个或各种输入，但只能有一种输出
24、下列选项中，能作为VB程序变量名是（  ）。
A while
B 4A123
C a%c
D dist
25、如下程序段执行后，输出成果为（ ）。
  m=29
  If m Mod 3 <> 0  Then
Print  m  &  “不能被3整除”
  Else
Print  m  &  “能被3整除”
  End  If
  A n能被3整除
  B n不能被3整除
  C 29不能被3整除
  D 29能被3整除

26、下列VB表达式中，值为字符串类型是（  ）。
(1) Abs(x)
(2) Text1.Text
(3)”123+45” (4) Sqr(x)  (5) Labell.Caption
A (1)(3)(5)
B (2)(3)(5)
C (2)(4)(5)
D (1)(2)(3)
27、在VB中，下列哪个选项是对的赋值语句？（
）
A =x
B 5s=80
  C a+b=c
D s=s+5
28、阅读程序，写出运营成果
Dim n As Integer
n=Val(InputBox(“n=”))
Do While n Mod 2=0
n=n\2
Loop
Print n
程序运营时，输入24，输出n值是：______
29、分析并完善程序
如下是计算s=1+6+11+…+101程序代码，请完善程序。
  Dim s As Integer
  Dim i As Integer
  s=0
  For i=1 To 101 Step__________
  s=____________
  Next i
  Print s
30、算法设计与程序实现
某市出租车收费原则如下：
  （1）3公里内（含3公里），收费8元；
  （2）超过3公里但未超过6公里某些，按1.5元/公里收费；
  （3）超过6公里某些，按2.25元/公里收费。
依照以上原则，输入出租车行驶公里数，请计算顾客需付费多少元？
【参照代码】
Dim s As Single 
Dim p As Single  
s=Val(InputBox(“s=”))
If s<=3 Then
  p=8
End  If
If ______________Then
  p=1.5*(s-3)+8
End If
If s>6 Then
  p=2.25*(s-6)+1.5*3+8
End If
Print p

依照上述回答下列问题：
1、本题采用算法是__________（填写：解析法/查找法/枚举法/排序法）。
2、程序代码中空白处应填写条件是____________（填写字母：A/B/C/D）.
A 3<s≦6
B 3 ≦s≦6 
C  s>3 And s<=6  
D s>3 Or s<=6
第二套(算法某些)
23、设a=2，b=5，在VB中，表达式a>b And b>3值是（  ）。
A 1
B -1
C False
D True
24、如下程序段运营后，x和st值分别是（  ）。
 Dim  x  As Integer
 Dim  st  As String
  x=123+678
  st=”123”+”678”
A 123678  “123678”
B 801
  “123678”
C 123678
“801”
D 801
“801”
25、用流程图表达条件“A>B”与否成立，要用到如下哪个图形？（  ）
A  平行四边形
B  菱形
C  圆角矩形
直角矩形D 
26、下列选项中，能作为VB程序变量名是（  ）。
A dim
B 3ab
C a*b
D xy
27、如下程序段运营后， s值是（  ）。
n=0
s=0
Do While  s<=10
 n=n+3
 s=s+n
loop

A 30
B 18
C 0
D 3
28、阅读程序，写出运营成果
Dim a(10)  As  Integer
 Dim iAs Integer
 a(1)=1
 a(2)=1
 Fori=3 To 6
  a(1)=a(i-1)+a(i-2)
 Next  i
 Print a(6)
 上述程序运营后，输出a(6)值是_________________________。（6分）
29、分析并完善程序
如下是计算s=1*2*3*…*10程序代码，请补全程序。（6）
  Dim s As Long
  Dim i As Integer
  s=__________
  For i=1 To 10
  s=__________
  Next i
  Print s
30、算法设计与程序实现
  勾股数
求出100以内满足a<b所有勾股数。
【参照程序】
Dim a As Integer
Dim b As Integer
Dim c As Integer
For a=1 To 100
 For b=1 To 100
  For c=1 To 100
If ________Then
 Print a;b;c
End If
  Next c
 Next b
Next a
1、本题采用算法是__________（填写：解析法/ 枚举法/排序法/递归法）。2、程序代码中空白处应填写条件是________（填写字母：A/B/C/D）.
A  a<b  And  a2+b2=c2
B  a<b  Or  a2+b2=c2
C  a<b  And a^2+b^2=c^2
D  a<b  Or a^2+b^2=c^2
第三套(算法某些)
23、下列选项中，能作为VB程序变量名是（  ）。
A 、s+1
B 、3stu
C 、true
D 、s1
24、下列哪个程序段运营成果如图1所示？（
）
******
******
******
******
  图1
A 、
 for  i=1 to5
For
j=1 to  6
  Print” *”
 next j 
print
  next i
B 、
 for  i=1 to5
for
i=1 to  6
print” *”
next  i 
print
next  i 
C、
 for  i=1  to5
For
j=1 to  6
Print” *”
next  j 
print
next j
D、
  for  i=1 to5
For
j=1 to  6
Print” *”
next  j  
print
next i
25、在VB中，Int(x) 函数功能是返回不不不大于x最大整数，设a=3 ，b=4，c=5，则下列表达式运算成果中值最大是（  ）。
A 、Sqr(c)
B、 Abs(a-b)
C 、Int(2*a-c/b)
D  、a^2+b^2-c^2
26、在VB中，用变量code存储学生借阅卡编码（code=”N00502”），则变量code 数据类型应定义为（  ）。
A  Integer
B  Double
C  String
D  Single
27、Visual Basic程序设计语言属于（  ）。
A、汇编语言
B、自然语言
C、高档语言
D、机器语言
28、阅读程序，写出运营成果
Dim i As Integer
Dim x As Integer
Dim y As Integer
y=30
For i=1  To  3
x=Val(InputBox(“x=”))
If  y< x
Then
  y=x
End If
Next  i
Print  y
程序运营后，依次输入：36  87  51
运营后输出成果是_________________。（6分）
29、算法设计与程序实现
（拖动滚动条浏览所有试题内容，点击右侧图标可切换输入法）
GDP增长问题
 某省GDP是6.7万亿元，如果每年按7%比例增长，问多少年后来此省GDP超过15万亿？
【算法分析】
  假设n 年后此省GDP超过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万亿元。”
依照上述回答下列问题：（共6分，每空3分）
1、 本题采用算法是______________（填写：解析法/枚举法/排序法/递归法）。
2、 写出程序中空白处表达式_______________________________。
30、算法设计与程序实现
判断车牌单双号
【背景知识】
 为了保障空气质量，减少雾霾，某市决定当空气污染严重时，实行汽车单双号限行，违背规定车辆将予以惩罚。
如何让高清摄像头自动判断车牌单双号，交警犯了愁，她需要编程高手你帮忙，完善下面程序。（提示：（1）所有车牌号中都具有数字，并且车牌号长度都是6；（2）以车牌中最后一位阿拉伯数字奇、偶来决定单双号。）

（1）输入：AD2367
（2）输入：A8888A
(3)输入：A8963C
输出：单号
输出：双号
输出：单号
【算法描述】
自然语言
流程图
第1步：输入车牌号
第2步：取车牌号最后一位x；
第3步：判断x与否为数字，如果是，转第4步；如果不是，则依次获得倒数第二、三……位判断，懂得找到数字为止；
第4步：判断x 是奇数还是偶数，然后输出相应成果。

开始

请依照上述算法描述补全代码
  Dim n As Integer
  Dim s As String
’定义s 为字符串类型
  Dim x As String
  s=InputBox(“s=”,s)
‘将输入车牌号赋值给s
  n=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位
  Loop
  If _______②_______then
  Print“双号”
Else
  Print“单号”
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 = 1
C、Val(x) Mod 2=0

D、Val(x) Mod 2 <> 0
第四套(算法某些)
23、一下程序段运营后，y值是（ ）。
  x=3
  If x>3 Then
  y=2*x
  Else
  y=3*x+1
end if
A 25
B 26
C 10
D 5
24、某晚会猜数字游戏中，有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 是（ ）。
ADim x As Single
B 其他三项都不对
CDim x As Integer
DDim x As String
27、在VB中表达“x 属于区间[a,b)”对的表达式是（  ）。
Aa<=x And x<b
Ba<=x Or x<b
C a≦x And x<b
D a<=x<b
28、阅读程序，写出运营成果
  Dim s As Integer
  Dim i As Integer
  s=0
  For i=1 To 10 Step 4
Print “#”;
s=s+i
  Next i
  Print s
  上述程序运营后，输出“#”个数是__________；输出s值是________。（共6分，每空3分）
29、阅读程序，写出运营成果
  Dim a As Integer
  Dim b As Integer
  Dim r As Integer
 a=98
  b=63
  r=a Mod b
  Do While r <>0
  a=b
  b=r
  r=a Mod b
  Loop
  Print 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 AsInteger
Dim y AsInteger
Dim z As Integer
For x=1 To20
For y=1To 50
Forz=1 To 100
  If ______________Then
Print x;y;z
  ’x y z 之间以分号分隔
  End If
Nextz
Next y
  Next x
依照上述回答下列问题：（8分，每空4分）
1、本题采用算法是 _____________（填：解析法/枚举法/排序法/递归法）。
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 = 5
第五套(算法某些)
23、在VB中，下列属于字符串常量是（
）。
  Acnt
  B3.14
  C
  D “Visual  Basic”
24、将数学表达式转化为VB表达式，下列选项对的是（  ）。

25、以10下程序段运营后，整型变量s值是（ ）。
  s=1
  Fori=1 To 10 Step 3
 s=s*i
 Next  i
 Print  s
  A  55
  B  3640
  C  28
  D  280
26、 如下程序段运营后，整型变量max1，min1值分别是（  ）。
  a=3
  b=5
 max1=(a+b)/2+Abs(a-b)/2
 min1=(a+b)/2-Abs(a-b)/2
27、给定一种四位数年份，判断它与否为闰年：四年一闰、百年不闰；四百年又闰（年份能被4整除但不能被100整除是闰年，或者年份能被400整除也是闰年。例如和都是闰年，21不是闰年）。下列判断年份。下列判断年份y是闰年表达式对的是（  ）。
  A yMod 4=0 Or y Mod 100<>0 And y Mod 400=0
  B yMod 4=0
  C yMod 4=0 And y Mod 100 <>0 Or y Mod 400=0
  D yMod 400=0
28、分析并完善流程图

执行流程图，当输入x值为4时，输出y值为2，则菱形判断框中条件也许为________（填写字母：A/B/C/D 6分）。
A x>3  B  x>4
C x<=4  D  x<=5
29、分析并完善程序
  如下是计算s=12+22+32+…+1002程序代码，请补全程序。（共6分，每空3分）
  Dim s As Long
  Dim i As Integer
  s=0
  For i=1 To 100
  s=s+_____________
  ___________
  Print s

30、算法设计与程序实现
拖动滚动条浏览所有试题内容，点击右侧图标可切换输入法
十进制整数转换为二进制整数采用“除2取余”法。

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

举例阐明
界面设计
将一种十进制数13转换为二进制。

【参照程序】
  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=s

1、  上述算法描述采用办法是：______________（填：自然语言/伪代码/流程图）。（2分）
2、  在参照程序①处应填入____________（填写字母：A/B/C/D）。（3分）
A  nMod 2
B n \2
C 2 Mod n
D n/2
3、在参照程序②处应填入____________（填写字母：A/B/C/D）。（3分）
A n Mod 2
 B n \2
C 2 Mod n
D n/2