2018信息技术考试题算法(1-5)

2018第一套(算法部分)

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)

(3)”123+45” (4) Sqr(x) (5) n

A (1)(3)(5)

B (2)(3)(5)

C (2)(4)(5)

D (1)(2)(3)

27、在VB中，下列哪个选项是正确的赋值语句？（

）

A 2018=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=n2

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

B 3 ≦s≦6

C s>3 And s<=6

D s>3 Or s<=6

2018第二套(算法部分)

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

【参考程序】

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

2

+b

2

=c

2

B a

2

+b

2

=c

2

C a

D a

2018第三套(算法部分)

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=”N020170502”），则变量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增长问题

某省2016年的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

输出：单号 输出：双号

【算法描述】

自然语言 流程图

第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)

(3)输入：A8963C

输出：单号

‘将输入的车牌号赋值给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

2018第四套(算法部分)

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

Ba<=x Or x

C a≦x And x

D a<=x

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

2018第五套(算法部分)

23、在VB中，下列属于字符串常量的是（

）。

Acnt

B3.14

C2018

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整除也是闰年。例如2004年和2000年都是闰年，2100

年不是闰年）。下列判断年份。下列判断年份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=1

2

+2

2

+3

2

+…+100

2

的程序代码，请补全程序。（共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()

Do While n>0

r=______①________

s=r & s

n=______②________

Loop

=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