当前位置:首页 >> 其它课程 >>

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 1 8、已知海伦公式:S= p( p ? a)( p ? b)( p ? c) ,其中 p= (a+b+c) ,a、b、c 分别为三角形的三条 2 边长。利用海伦公式求三角形面积的算法属于( ) 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)的两个实数根分别为: x1= ?b ?
b2 ? 4ac 2a

x2= ?b ?

b2 ? 4ac 2a

下列表达式正确的是(



A x2=-b-sqr(b^2-4*a*c)/(2*a)

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

C x2=(-b-sqr(b^2-4*a*c))/(2*a) D x1=-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、两个阻值为 R1、R2 的电阻并联后,电路阻值 R 可由公式 1 ? 1 ? 1 求解,下面能正确求出 R 的
R R1 R2

VB 表达式是(

) B ( R1 ? R2 ) /( R1 * R2 ) C R1 ? R2 /(R1 * R2 ) D R1 * R2 / R1 ? R2

A R1 * R2 /( R1 ? R2 )

18、下列问题不能用算法描述的是( ) 2 A 求一元二次方程 ax +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<x<=1 B x>0 and x<1 C 0<x and x<=1 D x>0 or x<=1 21、某 VB 的事件过程如下: Private Sub Command1_Click()
2

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
3

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 S S=s+s 0 0+8 0+8+1 N N=n \ 10 518 51 5 2、阅读下列程序,写出正确运行结果 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 Sum sum=sum+i * i 0 0+1^2 0+1^2+2^2 循 环 Sum<10 5 满足条 1 条件 满足条件 满足条件 件 3、阅读下列程序,写出正确运行结果 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、分析完善程序 考拉兹猜想:
4

第三步 5 0+8+1+5 0

第三步 0+1+1+1 0+1^2+2^2+3^2 14 不满足条件,循环终止

考拉兹猜想又称为 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、选择算法,解决问题 在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。 分析下面的问题,请选择最合适的算法:(填:解析法/穷举法/递归法/排序法,6 分) 穷举法 搬砖问题:100 块砖,100 人搬,一个男人搬 4 块,一个女人搬 3 块,两个小孩抬 1 块,要求一次 全搬完,问需男、女、小儿各多少人? 7、选择算法,解决问题 在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。 分析下面的问题,请选择最合适的算法:(填:解析法/穷举法/递归法/排序法,6 分) 递归法 猴子吃桃问题: 小猴有一天摘了若干个桃子,它非常贪吃,当天就吃掉了一半还多一个,第二天接着吃剩下的桃子 一半多一个,以后每天都是如此,至了第七天要吃桃子时,却发现只剩下一个。
5

问小猴那天一共摘了多少个桃子? 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 分)

A

B

C

D

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

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 个同心 圆。 请补充完成算法 2,使其实现与算法 1 相同的功能。 (6 分) 算法 1 算法 2 Circle(2000,2000),100 Circle(2000,2000),200 Circle(2000,2000),300 Dim k As Integer Circle(2000,2000),400 For k = 1 To 8 Circle(2000,2000),500 Circle (2000, 2000), k * 100 Circle(2000,2000),600 Next k Circle(2000,2000),700 Circle(2000,2000),800 12、分析完善程序 问题:输入一个正整数 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 毫米,??,每对折一次,其百度均变为对折前的两倍。 假设这张纸有足够大,可对折任意次,那么这张纸至少对折多少次后,其厚度将超过珠穆朗玛峰的
7

高度。 以下是求解该问题的程序片段,请你补全代码: (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、分析解决问题 在 VB 语言中常用的字符串截取函数有: (6 分) 函数名 功能 示例 结果 从字符串 s 的第 m 位开始截 Mid(s,m,n) Mid("ABCDEFG", 5, 2) "EF" 取长度为 n 的子串 截取字符串 s 左边 n 个字符 Left("ABCDEFG", 3) Left(s,n) "ABC" 截取字符串 s 右边 n 个字符 Right("ABCDEFG", 2) Right(s,n) "FG" 假如某人身份证号码 s="370102199602190000",如果需要根据此身份证号码求出该人的”出生年 月日” 。 下列四个表达式中不能实现的一个 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 的值 当输入 a、b 的值分别为 11、7 时,输出结果为 4 问题一:下列流程图填入虚线框中,符合条件的是( C ) (填:A/B/C)

输出 c 的值

结束

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

3



8


相关文章:
2014山东省信息技术学考算法与程序设计试题 答案附后.doc
2014山东省信息技术学考算法与程序设计试题 答案附后_其它课程_高中教育_教育专区。2014山东省信息技术学业水平考试程序答案附后 ...
2014山东省信息技术学考算法与程序设计试题答案附后讲解.doc
2014山东省信息技术学考算法与程序设计试题答案附后讲解 - 山东省学考算法与程
...信息技术学业水平考试2018年6月算法与程序设计1-5套....doc
山东高中信息技术学业水平考试2018年6月算法与程序设计1-5套题(附答案及解析)_高考_高中教育_教育专区。山东高中信息技术学业水平考试2018年6月算法与程序设计1-5...
《算法与程序设计》试题带答案.doc
《算法与程序设计》试题答案_其它考试_资格考试/认证_教育专区。高中算法与程序设计题,简单实用 《算法与程序设计》试题学校: 学校:___ 班级: 学号: 姓名: 班...
信息技术会考算法与程序设计模块测试题.doc
信息技术会考算法与程序设计模块测试题_其它课程_高中教育_教育专区。2008 信息技术会考算法与程序设计测试题第四模块:算法与算法的一、单项选择题 1. 下面关于算法...
2016年冬山东省信息技术学业水平测算法与程序设计.pdf
2016年冬山东省信息技术学业水平测算法与程序设计_纺织/轻工业_工程科技_专业资料。2017 年信息技术学业水平复习题 算法与程序设计(一)一、选择题 1、流程图是...
高中信息技术_算法与程序设计题库(含答案).doc
高中信息技术_算法与程序设计题库(含答案)_其它课程...以下程序段执行后,整型
高中信息技术《算法与程序设计》试题.doc
高中信息技术算法与程序设计试题,高中信息技术算法与程序设计知识点6,高中信息技术选修算法与程序设计6,2018广东学业水平考试6,2018学业水平考试时间6,高中学业...
历年算法与程序设计学业水平考试真题(带答案).doc
历年算法与程序设计学业水平考试真题(带答案)_其它...算法历年考试真题 一、选择题 1、流程图是描述( )...山东高中信息技术学业水... 25页 1下载券 江苏...
高中信息技术学业水平考试算法与程序设计题、填空题、....doc
高中信息技术学业水平考试算法与程序设计题、填空题、...答案:解析法 8.动员成绩进行公布现在要编写一个程序...山东省2013年高中信息技... 6页 免费 喜欢...
历年算法与程序设计学业水平考试真题(带答案)...doc
历年算法与程序设计学业水平考试真题(带答案)..,2017年会考试卷答案,广东学业...山东高中信息技术学业水... 25页 1下载券 江苏学业水平测试物理历... 24...
高二算法与程序设计试题及答案.doc
高二信息技术(算法与程序设计)试题卷一、单项选择题(每小题 2.5 分共 50 分 将正确答案填到答题卷相应题号下) 1、一同学想通过程序设计解决“鸡兔同笼”的...
山东省普通高中学业水平考试算法与程序设计复习资料.doc
山东省普通高中学业水平考试算法与程序设计复习资料_...End If A.4 B.256 C.16 D.其他三项答案都不对...2010年山东省信息技术学... 24页 1下载券 山东...
历年算法与程序设计学业水平考试真题(带答案).pdf
历年算法与程序设计学业水平考试真题(带答案)_电子/电路_工程科技_专业资料。算法历年考试真题 一、选择题 1、流程图是描述( )的常用方式。 A、程序 B、算法 C...
历年算法与程序设计学业水平考试真题(带答案).doc
历年算法与程序设计学业水平考试真题(带答案)_数学_...算法历年考试真题 一、选择题 1、流程图是描述( )...山东高中信息技术学业水... 789人阅读 25页 1下载...
高中信息技术《算法与程序设计》期末测试题.doc
高中信息技术算法与程序设计》期末测试题 测试考试...(20 分,共 1 题)(答案:略) 四、阅读程序写出...2013-2014学年海南省海南... 暂无评价 13页 ...
2012年信息技术学业水平考试模拟练习题(算法与程序设计).doc
2012年信息技术学业水平考试模拟练习题(算法与程序设计)_其它考试_资格考试/认证_教育专区。单选题:×1 分 1.某工厂的产品利用计算机进行管理,其中仓库管理软件属于...
江苏省高中信息技术《算法与程序设计VB》模拟考试试卷2....doc
江苏省高中信息技术算法与程序设计VB》模拟考试试卷20套含答案_高中作文_高中...("2014 年青奥会",6)的值为(A) A、2014 年青 B、2014 年 C、2014 年...
2018辽宁信息技术学业水平考试模拟试卷一(附答案).doc
2018辽宁信息技术学业水平考试模拟试卷一(附答案)_...信息技术考试范围:辽宁省学考考纲;考试时间:50 分钟...第二部分 选考题算法与程序设计】 三、实践分析...
学业水平测试训练信息技术试题(附答案).doc
学业水平测试训练信息技术试题(附答案)_其它课程_...非选择题,全卷共 8 页,满分 100 分,考试时间为...算法与程序设计】 选修模块试题 三、判断题 每小题...
更多相关标签: