2017年12月山东高中信息技术学业水平考试算法部分五套

第一套

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 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=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

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(i)=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

B a

C a

D a

第三套

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 Intege r

y=30

For i=1 To 3

x=Val(InputBox(“x=”))

If y< x Then

y=x

End If

Next i

Print y