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

1 山东省学考算法与程序设计试题 选择题 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 已知海伦公式 S 其中 p a b c a b c 分别为三角形的三条 p papbpc 1 2 边长 利用海伦公式求三角形面积的算法属于 A 排序法 B 解析法 C 穷举法 D 查找法 9 以下程序段中循环体执行的次数是 s 0 i 0 Do While s1 的解的是 A x 1 and x 1 or x 1 C x1 D x1 11 一元二次方程 ax2 bx c 0 a 0 的两个实数根分别为 x1 x2 下列表达式正确的是 2 4 2 bbac a 2 4 2 bbac a A x2 b sqr b 2 4 a c 2 a B x1 b sqr b 2 4ac 2 a 2 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 语言中 字符串运算符 和 输出 注意末尾是分号分号 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 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 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 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 毫米 每对折一次 其百度均变为对折前的两倍 8 假设这张纸有足够大 可对折任意次 那么这张纸至少对折多少次后 其厚度将超过珠穆朗玛峰 的高度 以下是求解该问题的程序片段 请你补全代码 8 分 Dim height As Double Dim h As Double Dim cnt As Long height 单位为毫米 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 分 函数名功能示例结果 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 假如某人身份证号码 s 如果需要根据此身份证号码求出该人的 出生年月日 下列四个表达式中不能实现的一个 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 分析解答