山东高中信息技术学业水平考试2018年6月算法与程序设计1-5套题(附答案及解析)

山东高中信息技术学业水平考试

2018年6月算法与程序设计1-5套题（附答案及解析)

第一套

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、设a=2，b=5，在VB中，表达式a>b And b>3的值是（）。

A True

B -1

C 1

D False

24、以下程序段运行后，x和st的值分别是（）。

Dim x As Integer

Dim st As String

x=123+678

st=”123”+”678”

A 123678 “801”

B 801 “801”

C 801 “123678”

D 123678 “123678”

25、用流程图表示条件“A>B”是否成立，要用到以下哪个图形？（）

A 菱形

B 圆角矩形

C 平行四边形

D 直角矩形

26、下列选项中，能作为VB程序变量名的是（）。

A dim

B 3ab

C xy

D a*b

27、以下程序段运行后，s的值是（）。

n=0

s=0

Do While s<=10

n=n+3

s=s+n

loop

A 3

B 18

C 0

D 30

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、一下程序段运行后，y的值是（）。

x=3

If x>3 Then

y=2*x

Else

y=3*x+1

end if

A 10

B 25

C 5

D 26

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 的是（）。

A Dim x As Single

B 其它三项都不对

C Dim x As String

D Dim x As Integer

27、在VB中表示“x 属于区间[a,b)”的正确表达式是（）。

A a<=x

B a≦x And x

C a<=x Or x

D a<=x And 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张

求出所有的换钱方案。