当前位置:首页 >> 其它课程 >> 2014山东省信息技术学业水平考试程序题

2014山东省信息技术学业水平考试程序题


程序题
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 S N X=n mod 10 S=s+s N=n \ 10 0 0 518 第一步 8 0+8 51 第而步 1 0+8+1 5 第三步 5 0+8+1+5 0

sum = sum + i * i Loop Print sum 运行结果是: 14 分析:
初始值 i Sum 循 环 条件 i =i+1 sum=sum+i * i Sum<10 0 0 满足条 件 第一步 0+1 0+1^2 1 满足条件 第而步 0+1+1 0+1^2+2^2 5 满足条件 第三步 0+1+1+1 0+1^2+2^2+3^2 14 不满足条件,循环终止

2、阅读下列程序,写出正确运行结果 Dim sum As Long Dim i As Long sum = 0 i=0 Do While sum < 10 i=i+1
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、分析完善程序 考拉兹猜想: 考拉兹猜想又称为 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

分析验证: Private Sub Command1_Click() 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 Print n Loop End Sub

2

分析: 5、选择算法,解决问题 在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。 分析下面的问题,请选择最合适的算法:_________(填:解析法/穷举法/递归 法/排序法,6 分) 搬砖问题: 100 块砖,100 人搬,一个男人搬 4 块,一个女人搬 3 块,两个小孩抬 1 块, 要求一次全搬完,问需男、女、小儿各多少人? 6、选择算法,解决问题 在使用计算机解决问题时,选择合适的算法,是有效解决问题的关键。 分析下面的问题,请选择最合适的算法:_________(填:解析法/穷举法/递归 法/排序法,6 分) 猴子吃桃问题: 小猴有一天摘了若干个桃子,它非常贪吃,当天就吃掉了一半还多一个,第二 天接着吃剩下的桃子一半多一个,以后每天都 是如此,至了第七天要吃桃子 时,却发现只剩下一个。 问小猴那天一共摘了多少个桃子? 7、阅读下列程序,写出运行结果 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
3
初始 i x y 0 0 0 第1次 1 10 0+10 第2次 2 20 0+10+20 第3次 3 30 0+10+20+30 第4次 4 40 0+10+20+30+40 第5次 5 50 0+10+20+30+40+50 第6次 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 分)

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 n = InputBox("n=") For i = 1 To n - 1 If n Mod i = 0 Then sum = Next i If sum=n Then Print n & "是完数" Else Print n & "不是完数" End If

算法 1 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

算法 2

Dim k As Integer For k = 1 To 8 Circle (2000, 2000), Next k

k * 100

'sum 用来记录 n 的因子和 '求 n 的因子和 sum sum+i

10、分析解决问题 VB 语言中绘制圆的方法是:Circle(x,y),r 格式说明:其中(x,y)为圆心坐标,r 为圆的半径。 下表中算法 1 是在窗体中绘制以 (2000, 2000) 为圆心, 半径依次为 100、 200?? 800 的 8 个同心圆。 请补充完成算法 2,使其实现与算法 1 相同的功能。 (6 分)
4

11、分析完善程序 以下是求解一元二次方程 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) 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

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 分) Dim height As Double Dim h As Double
5

Dim cnt As Long height = 8844430 h = 0.08 cnt = 0 Do While h < height cnt = cnt + 1 h= h+h Loop Print cnt 14、分析解决问题 在 VB 语言中常用的字符串截取函数有: (6 分) 函数名 Mid(s,m,n) Left(s,n) Right(s,n) 功能 从字符串 s 的第 m 位开 始截取长度为 n 的子串 截取字符串 s 左边 n 个 字符 截取字符串 s 右边 n 个 字符 示例 Mid("ABCDEFG", 5, 2) Left("ABCDEFG", 3) Right("ABCDEFG", 2) 结果 "EF" "ABC" "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 的值

输出 c 的值

结束 执行情况如下: 当输入 a、b 的值分别为 3、8 时,输出结果为 5 当输入 a、b 的值分别为 11、7 时,输出结果为 4 问题一:下列流程图填入虚线框中,符合条件的是( C ) (填:A/B/C)

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

6


更多相关文档:

山东省2014年信息技术学业水平考试真题完整版_图文

2013 年山东省信息技术学业水平考试真题 1、真题题库 2、分析操作题 1、真题...其工作流程可以分为 下列几个步骤,正确的顺序应该是( C )(1)指纹图像采集 (...

2014年山东省信息技术学业水平考试题6

2014年山东省信息技术学业水平考试题6_其它课程_高中教育_教育专区 暂无评价|0人阅读|0次下载|举报文档 2014年山东省信息技术学业水平考试题6_其它课程_高中教育_...

2014年山东省信息技术学业水平考试题8

2014年山东省信息技术学业水平考试题8_其它课程_高中教育_教育专区。选择题 71、...及时安装计算机系统的补丁程序 D.安装正版杀毒软件并定期升级 73、据统计我国...

山东省2014年信息技术学业水平考试分析题

山东省2014信息技术学业水平考试分析题_其它课程_高中教育_教育专区。山东省学业...___(5 分) 3、根据图中信息回答,该微博除了可以发布文字类型外,还可以发布...

2014山东省信息技术学业水平考试真题题库_图文

2014山东省信息技术学业水平考试真题题库 一、选择题 1. 学校要举行篮球比赛制,各队之间的对阵方案,采用下列哪种表达方法更好 些?( B A 文本描述 C 流程图 )...

山东2014信息技术学业水平考试会考复习题_图文

山东省 2014信息技术学业水平考试复习题(1) 1、小明把银行卡插入 ATM 机后可以查看银行卡上的余额,这一过程实质是对数据库进 行( C ) B、删除记录操作 ...

2014年山东省信息技术学业水平考试题20

2014年山东省信息技术学业水平考试题20_其它课程_高中教育_教育专区。2014 年山东信息技术会考分析题(九) 、PM2.5 超标严重危害着人们的健康,北京的雾霾天气成了人...

2014年山东省信息技术学业水平考试题21

2014年山东省信息技术学业水平考试题21_其它课程_高中教育_教育专区。2014 年山东信息技术会考分析题(十) 、微博是当时比较流行的一种信息传递方式,根据微博截图回答...

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

2014山东省信息技术学考算法与程序设计试题 答案附后_其它课程_高中教育_教育专区。2014山东省信息技术学业水平考试程序题 答案附后 ...

2014年山东省信息技术学业水平考试题10

2014年山东省信息技术学业水平考试题10_其它课程_高中教育_教育专区。选择题 91...描述算法的方法只有流程图 C.同一种算法只能用一种程序语言来实现 D.算法就是...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com