2014山东省信息技术学考算法与程序设计试题答案附后讲解

2014山东省信息技术学考算法与程序设计试题答案附后讲解

山东省学考算法与程序设计试题

选择题

1、下列VB表达式中：

⑴Sqr(x) ⑵Text1.text ⑶Command1.caption ⑷"45"+"34" ⑸45+34值为字符串类型的是（）

A⑴⑵⑶ B⑵⑶⑷ C ⑴⑶⑸ D⑵⑷⑸

2、如果给出三条线段的长分别为a、b、c，且已知a≤b≤c，要问这三条线段能否构成三角形，仅需下列选项中的哪个判定条件即可？（）

A 其他选项都不对

B a+c>b

C a+b>c

D b+c>a

3、VB程序中“Dim n As Integer”这条语句的作用是（）

A 定义一个事件过程

B 定义一个数据输入方法

C 定义一个变量

D 定义一个数据处理方法

4、关于算法的描述，下列选项中正确的是（）

A 算法的每一步骤必须有确切的含义

B 算法必须有输入

C 算法的步骤可以是无穷的

D 算法本身就是一种程序设计语言

5、关于算法的描述，正确的是（）

A同一种算法只能用一种程序语言实现

B算法就是数值计算的方法

C描述算法的方法只有流程图

D算法是描述解决问题的方法和步骤

6、算法的描述方法有多种，下列选项中不适合描述算法的是（）

A机器语言 B自然语言 C流程图 D伪代码

7、长度分别为a、b、c的三条线段，能够组成三角形的条件是（）

A a+b>c Or a+c>b Or b+c>a

B a+b>c or a+c>b And b+c>a

C a+b>c Or a+c>b And b+c>a

D a+b>c And a+c>b And b+c>a

8、已知海伦公式：()()()

p p a p b p c

---p=1

2

（a+b+c），a、b、c分别为三角形的三条

边长。利用海伦公式求三角形面积的算法属于（）

A 排序法

B 解析法

C 穷举法

D 查找法

9、以下程序段中循环体执行的次数是（）

s=0

i=0

Do While s<10

i=i+1

s=s+i*i

Loop

A 1

B 3

C 2

D 4

10、下列VB表达式中，能正确表达不等式方程|x|>1的解的是（）

A x>-1 and x<1

B x>-1 or x<1

C x<-1 and x>1

D x<-1 or x>1

11、一元二次方程ax2+bx+c=0(a≠0)的两个实数根分别为：

x

1

24

b b ac

-+-

2

24

b b ac

---下列表达式正确的是（）

A x

2=-b-sqr(b^2-4*a*c)/(2*a) B x

1

=(-b+sqr(b^2-4ac))/(2*a)

C x 2=(-b-sqr(b^2-4*a*c))/(2*a)

D x 1=-b+sqr(b^2-4*a*c)/(2*a) 12、关于算法的描述，下列选项中正确的是（ ）

A 、一个算法可以没有输入

B 、算法只能用流程图表示

C 、一个算法，当没有输入时，也没有输出

D 、一个算法的执行步骤可以是无限的。

13、如果一个4位数恰好等于它的各位数字的4次方和，则这个4位数成为“玫瑰花”数。例如1634就是一个玫瑰花数：1634=1^4+6^4+3^4+4^4。如果要求出所有的玫瑰花数，下列算法最合适的是（ ）

A 解析法

B 排序法

C 查找法

D 穷举法 14、一个单窗体VB 程序的运行界面如右图所示。 下列说法正确的是（ ） ⑴窗体内有1个按钮 ⑵窗体内有2个文本框 ⑶窗体内有3个标签

⑷该窗体的标题（Caption ）属性值是“加法计算器” A ⑵⑶ B ⑴⑷ C ⑴⑵ D ⑶⑷ 15、下列VB 程序运行时（如图所示），在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ ）

Private Sub Command1_Click() a=Val(Text1.text) b=Val(Text2.text) Text3.text=a+b End Sub

A 33

B "33 "

C "2013 "

D 2013

注意：把程序中的Val 去掉，再执行程序，看结果是否发生改变。

16、在VB 语言中，字符串运算符“+”和“&”的作用是把两个或多个字符串连接成一个字符串。则表达式"20"+"13"&"20+13"的运算结果是（ ）

A"201320+13" B"201333" C"332013" D"3333" 17、两个阻值为R 1、R 2的电阻并联后，电路阻值R 可由公式1

2

111R

R R =+求解，下面能正确求出R 的

VB 表达式是（ ）

A

1212*/()

R R R R + B 1212()/(*)R R R R + C 1212/(*)R R R R + D 1212*/R R R R +

18、下列问题不能用算法描述的是（ ）

A 求一元二次方程ax 2+bx+c=0(a ≠0)的两个实数解

B 计算某班英语平均分

C 求方程y=2x+1的所有整数解

D 已知圆锥的底面半径和高，求表面积和体积

19、已知在VB 语言中，int(x)函数的功能是返回不大于x 的最大整数，abs(x)函数的功能是返回x 的绝对值，则表达式abs(int(2.88)+int(-3.14))的值是（ ） A 0 B 2 C 1 D 5

20、在VB 语言中表示“x 属于区间（0，1]”的正确表达式是（ ）

A 0

B x>0 and x<1

C 0

D x>0 or x<=1 21、某VB 的事件过程如下：

Private Sub Command1_Click()

a=Val(Text1.text)

b=a*a+1

Text1.text=b

End Sub

程序运行时（如图所示），在文本框Text1中输入2，连续两次单击命令按钮Command1后，Text1中显示（）

A 2

B 677

C 26

D 5

22、下列流程图中能描述循环结构的是（）

A⑵⑷ B⑴⑶ C⑴⑵⑷ D⑵⑶⑷

23、二分查找又称折半查找，是一种应用于有序数列的高效查找算法。下列数列中适合二分查找算法的是（）

（1）11 99 5 17 2 39 （2）30 52 63 71 78 81

（3）67 62 68 6 15 15 （4）85 78 59 53 19 18

A、（3）（4）

B、（2）（3）

C、（1）（2）

D、（2）（4）

24、下列关于算法的描述错误的是（）

A、算法必须在有限步骤内实现

B、算法是解决某一类问题的方法和步骤

C、算法可以使用自然语言、伪代码、流程图等多种不同的方法来描述

D、一个有效的算法至少要有一个或多个输入

25、下列选项中，不属于计算机程序设计语言的是（）

A、高级语言

B、自然语言

C、汇编语言

D、机器语言

26、下列程序段执行后，变量s的值是（）

s=0

For i=1 To 10

s=s+i

Next i

A、1

B、0

C、55

D、10

选择题答案：1-5 BCCAD 6-10 ADBBD 11-15 CADBA 16-20 AACBC 21-25 CADDB 26 C

分析题

1、阅读下列程序，写出正确运行结果

Dim n As Long

Dim s As Long

Dim x As Long

n = Val(InputBox("n="))

s = 0

Do While n > 0

x = n Mod 10

s = s + x

n = n \ 10

Loop

Print s

程序运行时，输入518，运行输出结果是： 14 (6分)

提示： \ 整除运算如：237\10=23

Mod 取余运算如：237 mod 10=7

初始值第一步第二步第三步

X X=n mod 10 0 8 1 5

S S=s+s 0 0+8 0+8+1 0+8+1+5

N N=n \ 10 518 51 5 0

Dim sum As Long

Dim i As Long

sum = 0

i = 0

Do While sum < 10

i = i + 1

sum = sum + i * i

Loop

Print sum

运行结果是： 14

初始值第一步第二步第三步

i i =i+1 0 0+1 0+1+1 0+1+1+1

Sum sum=sum+i * i 0 0+1^2 0+1^2+2^2 0+1^2+2^2+3^2

循环条件Sum<10 满足条

件

1

满足条件

5

满足条件

14

不满足条件，循环终止

Dim sum As Integer

Dim k As Integer

sum = 0

For k = 1 To 10

If k Mod 2 = 0 Then sum = sum + k Next k

Print sum

程序运行后输出结果： 30

分析：2 4 6 8 10 的和

If k Mod 2 = 0 Then sum = sum + k 可写为

If k Mod 2 = 0 Then

sum = sum + k

End If

4、分析完善程序

考拉兹猜想：

考拉兹猜想又称为3n+1猜想，指的是对于给定的每一个正整数，经过下列有限次变换后，最终都能变为1：

如果它是偶数，则对它除以2；如果它是奇数，则对它乘3再加1；…………如此循环，直到得到1为止。

例如 n=6 ，根据上述规则需要8次变换后得到1，变换过程：6—3—10—5—16—8—4—2—1。以下是验证考拉兹猜想的主要VB程序片段，请你补全代码：（8分）

Dim n As Long

Dim cnt As Long '变换次数cnt

n = Val(InputBox("n=")) '输入正整数n

cnt = 0

Do While n > 1

cnt = cnt + 1 '变换次数cnt累加

If n Mod 2 = 0 Then

n = n/2

Else

n = n*3+1

End If

Loop

5、阅读下列程序，写出运行结果

Dim x As Integer

Dim y As Integer

y = 0

For i = 1 To 5

x = Val(InputBox("请输入："))

y = y + x

Next i

print y

程序运行后，依次输入：10 20 30 40 50

运行输出结果是： 150

初始第1

次

第2次第3次第4次第5次第6次

i 0 1 2 3 4 5 6

x 0 10 20 30 40 50 不满足条件，循环

终止

y 0 0+10 0+10+20 0+10+20+30 0+10+20+30+40 0+10+20+30+40+50

在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。

分析下面的问题，请选择最合适的算法：(填：解析法/穷举法/递归法/排序法，6分) 穷举法搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小孩抬1块，要求一次全搬完，问需男、女、小儿各多少人？

7、选择算法，解决问题

在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。

分析下面的问题，请选择最合适的算法：(填：解析法/穷举法/递归法/排序法，6分) 递归法猴子吃桃问题：

小猴有一天摘了若干个桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着吃剩下的桃子一半多一个，以后每天都是如此，至了第七天要吃桃子时，却发现只剩下一个。

问小猴那天一共摘了多少个桃子？

8、阅读下列程序，选出运行结果

For i = 1 To 10 'i控制*的行数

For j = 1 To i 'j控制每行*的个数

Print "*" ; '输出 * -----------注意末尾是分号 Next j

Print '输出换行

Next i

运行结果是： D (填：A/B/C/D,6分

)

9、分析完善程序

“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1、2、3，而6=1+2+3，因而6就是完数。再如28的因子为1、2、4、7、14，而28=1+2+4+7+14，因而28也是完数。

问题：输入一个正整数n，判断该正整数是否为完数。要判断一个整数n是否为完数，最简单的方法是：

求出1到n-1之间的所有因子和为sum，如果sum的值和n的值相同，则n就是完数。

以下代码是判断n是否为完数的程序片段，请你补全代码：（8分）

Dim n As Long

Dim sum As Long 'sum用来记录n的因子和

n = InputBox("n=")

For i = 1 To n - 1 '求n的因子和sum

If n Mod i = 0 Then sum = sum+i

Next i

If sum=n Then

Print n & "是完数"

Else

Print n & "不是完数"

End If

10、分析完善程序

以下是求解一元二次方程ax2+bx+c=0(a≠0)的主要VB程序片段。

请你补全代码：（8分）

a = Val(InputBox("a="))

b = Val(InputBox("b="))

c = Val(InputBox("c="))

d = b ^ 2 - 4 * a * c '求判别式d

If d > 0 Then

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

A B C D

Print "x1="; X1

Print "x2="; X2

End If

If d=0 Then

Print "x="; -b / (2 * a)

End If

If d < 0 Then

Print "无实数解"

End If

11、分析解决问题

VB语言中绘制圆的方法是：Circle(x,y),r

格式说明：其中(x,y)为圆心坐标，r为圆的半径。

下表中算法1是在窗体中绘制以（2000，2000）为圆心，半径依次为100、200……800的8个同心圆。

算法1 算法2

Circle(2000,2000),100

Circle(2000,2000),200

Circle(2000,2000),300 Circle(2000,2000),400 Circle(2000,2000),500 Circle(2000,2000),600 Circle(2000,2000),700 Circle(2000,2000),800 Dim k As Integer

For k = 1 To 8

Circle (2000, 2000), k * 100 Next k

问题：输入一个正整数n,判断该正整数是否为素数（质数）。

要判断一个数n是否为素数，最简单的方法是：

统计2到n-1之间的所有能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码：（8分）

n = Val(InputBox("n="))

s = 0

For i = 2 To n - 1

If n Mod i = 0 Then

s = s + 1 '统计因数个数

End If

Next i

If s = 0 Then '-----------此处若写s<=0也是正确的

Print n & "是素数"

Else

Print n & "不是素数"

End If

13、分析完善程序

2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8844.43米，并停用之前的数据。现有一张白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，再对折一次，厚度变为0.32毫米，……，每对折一次，其百度均变为对折前的两倍。

假设这张纸有足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰

的高度。

以下是求解该问题的程序片段，请你补全代码：（8分） Dim height As Double Dim h As Double Dim cnt As Long

height = 8844430 '-----------单位为毫米 h = 0.08 '-----------单位为毫米 cnt =0

Do While h < height cnt = cnt + 1

h = 2*h '-----------此处若写h+h 或h*2也是可以的 Loop

Print cnt

14、分析解决问题

函数名 功能 示例 结果

Mid(s,m,n) 从字符串s 的第m 位开始截

取长度为n 的子串

Mid("ABCDEFG", 5, 2) "EF"

Left(s,n) 截取字符串s 左边n 个字符 Left("ABCDEFG", 3) "ABC"

Right(s,n) 截取字符串s 右边n 个字符 Right("ABCDEFG", 2) "FG"

月日”。

下列四个表达式中不能实现的一个 D (填A/B/C/D)。 A. Mid(s, 7, 8)

B. Right(Left(s, 14), 8)

C. Mid(s, 7, 4) + Mid(s, 11, 2) + Mid(s, 13, 2)

D. Left(s, 14) - Left(s, 6) 15、分析解答问题 （6分） 右图所示的算法流程图： 执行情况如下：

当输入a 、b 的值分别为3、8时，输出结果为5 当输入a 、b 的值分别为11、7时，输出结果为4 问题一：下列流程图填入虚线框中，符合条件的是（ C ）（填：A/B/C ）

问题二：依据问题一所选流程图，当输入a 、b 的值分别为9、6时，输出结果 为 3 。

开始

输入a 、

输出c 结束