曲线计算公式算法与程序设计会考真题

1,分析并完善程序：
考拉兹猜想：又称为3n+1猜想，指的是对于给定的每个正整数n, 经过一系列的有限次变化后，最终都能
变为了：
如果它是偶数，则对它除以2,如果它是奇数，则对它乘3再加1;……
如此循环，直到得到位为止。例如：n=6,根据上述需要8次变换后得1，变换过程：
6 ---3---10---5---16---8---4---2--- 1。以下是验证考拉兹猜想的主要程序片段，请你补全代码，
Dim n As Long
Dim cnt AS Long ’变换次数cnt
n=Val(InputBox(“n=”))’输入正整数n
cnt=0
Do While n>1
cnt=cnt+1 ‘变换次数累加
If n Mod 2=0 Then
n=___n2___
Else
n=__3*n+1____
endif
Loop
Print cnt ‘输出变换次数
2，输入一个正整数n,判断该 正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是，
统计2到n-1之间的所有 能整除n的整数个数s,若s大于0，则n不是素数，否则不是素数，根据以上方法，
完善以下程序代码 ：
N= val(InputBox(“n=”)
S=0
For i=2 to n-1
If n mod i=0 Then
S=__s+1____’统计因数个数
Endif
Next i
If____s<=0________Then
Print n &”是素数“
Else
Print n &”不是素数“
End if
3,VB语言中绘制圆的方法是：Circle(x,y),r
格式说明：其中（x,y）为 圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000，2000）为圆
心，半径依次为 100,200,……,800的8个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6
分）
算法1
Cicle(2000,2000),100
Cicle(2000,2000),200
Cicle(2000,2000),300
Cicle(2000,2000),400
Cicle(2000,2000),500
Cicle(2000,2000),600
Cicle(2000,2000),700
算法2
Dim k As Integer
For k= 1 to 8
Cicle(2000,2000),___k*100___________
Next k
Cicle(2000,2000),800
4,“完数”是指一个自然数恰 好等于它的因子（不包含本身）的和，如6的因子为1，2，3，而6=1+2+3，
因而6就是“完数 ”，如28=1+2+4+7+14
问题：输入一个正整数n，判断该数是否为“完数”
要判断一个整数N是否为“完数”，最简单的方法是：
求出现1到n-1之间n的所有因子和 为sum,如果sum的值和n的值相同，则n就是完数。以下代码是判断
n是否为完数的程序片段，请 补全代码：
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 &” 不是完数”
5,20XX年10月9日 ，国家测绘局正式宣布珠穆朗玛峰的高度是8848.43米，并停用之前的数据，现有一
长白纸的厚度 大约是0.08毫米，对折一次，厚度变为0.16毫米，……，每对折一次，厚度变为折前的两
倍。
假设这长纸足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以
下是求解该问题的程序片段，请补全代码：
Dim height as double ‘定义珠穆朗玛峰的高度
Dim h as double ‘定义一张纸的厚度
Dim cnt as long ‘定义对折次数
Height=8844430
H=0.08
Cnt=__0________
Do while h Cnt=cnt+1
h=___2*h_______
Loop
Print cnt
6，以下是求解 一元二次方程aX
2
+bx+c=0(a≠0)的主要VB程序片段，请补全代码：
a=val(inputbox(“a=”))
b= val(inputbox(“b=”))
c=val(inputbox(“c=”))
d=___b*b-4*a*c_________________________ ‘求判别式
If d>0 then
X1=(-b+sqrt(d))(2*a)
X2=(-b-sqrt(d))(2*a)
Print “x1=”;x1
Print”x2=”;x2
End if
If ___d=0_____then
Print “x=”;-b(2*a)
Endif
If d<0 then
Print “无实数解！”
Endif

7,选择算法解决问题；在使用计算机解决问题时，选择合适的算法是有效解决问题的关键。 分析下面的问
题，请选择合适的算法：____穷举法_______(填：解析法穷举法递归法排序法 ，6分)
搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小儿抬1块， 要求一次全搬完，
问需男、女、小儿各多少人。
8，分析下面的问题，选择合适的算法（填： 解析法递归法穷举法排序法）____递归法________
猴子吃桃问题：小猴有一天摘了若干个 桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着剩下
的一半多一个，以后每天都是如此，到 了第七天要吃桃子时，却发现只剩下1个，问小猴子那天一共摘了
多少个桃子。
9,分析程序，得出结果：
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______
10,分析程序，得出结果
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=n10
Loop
Print s
程序运行时，输入518，运行输出结果是：________14__________(6分)
(提示：(整除运算)如：23710=23;mod(取余数运算)如：237 mod 10=7)
11,分析程序，得出结果
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____
12,分析程序，得出结果
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________(6 分)。
13，程序段：
for I =1 to 10 ‘I控制*的行数
for j=1 to I ‘J控制每行*的个数
print “*” ‘输出*
next j
print ‘输出换行
next i
运行结果是_____D_____(填：ABCD)

A B C D
14,在VB语言中常用的字符串截取函数有：
函数名
Mid(s,m,n)
Left(s,n)
Right(s,n)
功能 示例 结果
“EF”
从字符串S的第M位开始，截取长度
Mid(“ABCDEFG”,5,2)
为N的子串
截取字符串S左边N个字符
截取字符串S右边N个字符
Left(“ABCDEFG”,3)
Right(“ABCDEFG”,2)

“ABC”
“FG”
假如某人身份证号码s=’’370000”,如果需要根据 此身份证号码求出该人的“出生年月日”。下
列四个表达式中不能实现的一个是_____D_____ .
A. mid(s,7,8) (left(s,14)8) (s,7,4)+mid(s,11,2)+mid(s,13,2) (s,14)-left(s,6)
15,下图所示的算法流程图：（6分）
执行情况如下：当输入a,b的值为3、8时，输出结果为5
当输入a,b的值为11、7时，输出结果为4




开始




输入a,b的值







输出c的值



结束


问题一：下列流程图填入虚线框中，符合条件的是：____C_____(填：ABC)


N

N N
a>b
c=b-a c=b-a

ab

Y

Y Y


c=b-a
c=a-b c=a-b




B
A C


问题二：依据问题一所选流程图，当输入a,b的 值分别为9，6时，输出结果为______3_____。
c=a-b
部分选择题：
1，下列选项中，可以作为VB程序变量名的是（ D ）
A、a+b B、ab C、a-b D、ab
2,下列程序执行后，变量s的值是（ B ）
S=0
For I =1 to 10
S=s+i
Next i
A、1 B、55 C、10 D、0
3,长度分别是a,b,c的三条线段，能够组成三角形的条件是（ A ）
A、a+b>c and a+c>b and b+c>a B、a+b>c or a+c>b or b+c>a
C、a+b>c and a+c>b or b+c>a D、a+b>c or a+c>b and b+c>a
4,下列VB表达式中，能正确表示不等式方程解的是（ B ）
A，x>-1 and x<1 B,x>1 or x<-1 C,x>-1 or x<1 D,x>1 and x<-1
5,已知海伦公式：其中a、b、c分别为三角形的三
条边长，利用海伦公式求三角形的面积的 算法属于（ B ）
A、查找法B、解析法C、穷举法D、排序法
6，如果一个4四位 数恰好等于它的各位数字的确4次方各，则这个4位数称为“玫瑰花”数。例如1634
就是一个玫瑰花 数，1634=1
4
+6
4
+3
4
+4
4
。如果要求出所有的玫瑰花数，下列算法最合适的是（ D ）
A、排序法B、解析法C、查找法D、穷举法
7,下列VB程序运行时（如图所示），在文本 框Text1中输入20，在文本框Text2中输入13，单击命令按钮
Command1后，文本框 Text3中显示的内容是（ B ）
Private sub Command1_click()
a=val()
b=val()
=a+b
End sub
A、”2013” B、33 C、2013 D、”33”
8,下列关于算法的描述错误的是（ A ）
A、一个有效的算法至少要有一个或多个输入B、算法必须在有限步骤实现
C、算法是解决某一问题的方法和步骤
D、算法可以使用自然语言、伪代码、流程图等多种不同的方法来描述
9，下列VB表达式中：（1）sqr(x) (2) (3)n (4)”45”+”34” (5)45+34值为字符串类
型的是（ D ）
A，2、4、5 B，1、3、5 C，1、2、3 D，2、3、4
10，下列选项中，不属于计算机程序设计语言的是（ B ）
A、 汇编语言 B、自然语言 C、高级语言 D、机器语言
11，VB程序中“dim n as integer”这条语句的作用是（ A ）
Ａ、定义一个变量 Ｂ、定义一个事件过程 Ｃ、定义一个数据处理方法论Ｄ、定义一个数据输入方法
１２、关于算法的描述，下列选项中正确的是（ B ）
Ａ、算法必须有输入 Ｂ、算法的每一步骤必须有确切的含义
Ｃ、算法的步骤可以是无穷的 Ｄ、算法本身就是一种程序设计语言
１３、二分查找又称为折半查找，是一种应用于有序数列的高效查 找算法。下列数列中适合二分查找算法
的是（ B ）
Ａ、11 99 5 17 2 39 Ｂ、85 78 59 53 19 18 Ｃ、30 52 43 71 78 81 Ｄ、67 62 68 6 15 15
14、如果给出一条线段的长分别为a、b、c，且已知a≤b≤c,要 问这一条线段能否构成三角形，仅需下列
选项中的哪个判定条件即可？（ C ）
A、b+c>a B、 a+c>b C、 a+b>c D、其他选项都不对
15,已知在VB语言中，int(x)函数的功能是返回不大于x的最大整数，abs(x)函数的功能是返 回x的绝对值，
则表达式int(2.88)+abs(-3)的值是（ A ）
A、5 B、6 C、0 D、1
16，一元二次方程ax
2
+bx+c=0( a≠0)的两个实数根分别为下
列表达式正确的是（C ）
A、x2=-b-sqr(b^2-4*a*c)(2*a) B、x1=(-b+sqr(b^2-4ac))(2*a)
C、x2=(-b-sqr(b^2-4*a*c))(2*a) D、x1=-b+-sqr(b^2-4*a*c)(2*a)
17,在VB语言中，字符串运算符“ +”和“&“的作用是把两个或多个字符串连接成一个字符串。则表达
式“20”+“13”&“20+ 13”的运算结果是（ D ）
A、”332013” B、”3333” C、”201333” D、”201320+13”
18,两个阻值分别为R
1< br>、R
2
的电阻并联后，电路阻值R可由公式求解，下面能正确求出R的
VB表达 式是（ D ）。
A、R
1
+R
2
(R
1
*R
2
) B、R
1
*R
2
R
1
+R
2 C、(R
1
+R
2)
(R
1
*R
2
) D、R
1
*R
2
(R
1
+R
2
)
19,关于算法的描述，下列选项中正确的是（ B ）。
A、一个算法的执行步骤可是无限的 B、一个算法可以没有输入
C、一个算法，当没有输入时，也没有输出 D、算法只能用流程图来表示
20，下列问题不能用算法描述的是（ A ）。
A、求方程y=2x+1的所有整数解 B、已知圆锥的底面半径和高，求表面积和体积
C、计算某班英语平均分 D、求一元二次方程ax
2
+bx+c=0(a≠0)的两个实数解
21，在VB语言中表示“X属于区间（0,1]”的正确表达式是( C ).
A、x>0 or x<=1 B、x>0 and x<1 C、x>0 and x<=1 D、022,下列流程图中能描述循环结构的是（ D ）。

A、（1）（3）B、（1）（2）（4）C、（2）（3）（4）D、（2）（4）
23，一个单窗体VB程序的运行界面如图所示。下列说法正确的是
（ D ）。
（1）窗体内有1个按钮
（2）窗体内有2个文本框
（3）窗体内有3个标签
（4）该窗体的标题（Caption）属性值是“加法计算器”




A、（1）（4） B、（2）（3） C、（3）（4） D、（1）（2）



24，某VB的事件过程如下：
Private Sub Command1_Click()
a=val()
b=a*a+1
=b
Endsub
程序运行时（如图所示），在文本框text1中输入2，连续两次
单 击命令按钮Command1后，text1中显示的内容是（C ）。
A、5 B、2 C、26 D、677
三、分析题


答案：1，2、4 2，衬于文字下方 3，C 4,A

（一）、禽流感病毒（H7N9）悄然来袭，人们时 刻在关注疫情的发展，下图为截止到4.15日
的疫情图，根据图示内容回答问题。（拖动滚动条可浏览 全图）

1、北京最早何时确诊有（H7N9）病毒?__________________(3分)
2、确诊人员中年龄最大的地区？__________；（3分）年龄最小的地区？___________ ___（3
分）
3、死亡总人数为多少？_______(3分)病危几人？___________（3分）
（二）、由几位同学组成关于中国传统文化之脸谱的研究性学习小组，该小组通过网上查找相
关资料， 制作了一个主题为“脸谱文化”的网站，网站部分素材如题1所示，网站结构如图
2所示，主页效果如同 3所示。

1、从图1、图2文件列表可以看出，images、web文件夹下存放的内容 分别是什么类型的文
件？images文件夹下______________(3分)web文件夹下 ____________(3分)
2、该网站主页文件名为____________（3分）在F rontPage编辑状态下，右击网页，在出现
的菜单中（如图4所示）选择哪一项进行修改可以使得 标题栏中看到“脸谱文化网”
_____________(3分)
3、网页中需要一段京剧 表演的视频，小组成员何辉同学打算从光盘中截取一段视频，可以使
用的常用软件是_________ ______(3分)（答出一个即可）
答案：1、图像文件；网页文件2、;网页属性3、超级解霸
（三）、下图是某校高二信息技术课选修模块的人数统计表


1、上图中 单元格D10表示所有班级选择“模块三”的人数之和，单元格G5表示高二（2）班
参与模块选修的人 数。若C4的值发生变化，则值发生变化的单元格有哪些？（4分）
答案：______________
2、右图中单元格F10表示的是选修模块五的人数之 和。请写出单元格F10的值的公式。（6
分）答案：______________________
3、表格数据的图形化表达类型有柱形图、饼图、折线图等，下图中能清楚地表示各个选修模
块 人数比例的图形的序号是多少？_________________（2分）其图形化表达类型为？
_ _________________（3分）

答案：1、C10、G4 2、=sum(F4:F9) 3、 3；饼图
（四）、A、B两幅图为保时捷汽车图，图A经过 放大6倍后成为图C，图B经过放大6倍后变
成图D。图A大小为5M，图B大小仅为982K。

1、工程师在设计新款保时捷时，用A、B两张图的设计方式设计汽车的外部及内部结构较为
方便？__________________；（2分）该图书属于那种类型的图？________ _______(3分)
2、从题干给出的数据和C、D两图来看，A、B两图的主要特点分别是什么？
A图：___ __________________________________________________ ____________(3分)
B图：__________________________ ________________________________________(3分)
3、制作A类型的图，常用的软件有哪些？__________________(2分)
制作B类型的图，常用的软件有哪些？__________________(2分)
(至少答出一种，填可选中的序号，可选项有：op 2.画图 raw
5.绘声绘影 Edit Pro）
答案：1、图B；矢量图 2、容量大，放大失真; 容量小，放大不失真 3、1,2；3,4
（五）、下面是一个 “大”字的8*8信息编码点阵图，假设孔方块用“0”表示，黑方块用“1”
表示，试分析并回答下列 问题。
1、点阵图第二行用“0”和“1”从左向右排列
编码是怎样的？
__________________________________(5分)
2、 表示该字型的方法是点阵方式还是矢量方
______________________（5分）
3、只修改一行编码就可以将原图的“大”字改
“人”字，修改那一行？
_____ ______________（2分）修改后的编码是
___________________(3 分)
答案：1、01000100 2、点阵方式 3、第五行；00010000
什 么？
写成
式？
的信息
（六）、该表为顾客满意度调查表，根据表中内容回答下 面问题。

1、在不考虑加权系数时顾客最满意的两项是什么？_____________ ___;（2分）用折线图、
柱形图、饼图中哪一种图可以更加直观的表现不加权系数下的满意度？__ ___________(3分)
2、在考虑加权系数后顾客最不满意的两项是什么？___________________(5分)
3、表中服务的最终满意度19.4是怎样算出的？列出算式即可
________________________________(5分)
答案：1、服务，价格；柱形图 2、包装、交付；3、=加权系数*分值

（七） 、某银行国际业务部通过折线图比较业务处理效率情况，可掌握业务效率变化，及时发
现业务延迟和低效 率，提高服务水平，下面是汇入汇款，电子转发，分报四中业务的折线图，
请根据该折线图分析并回答以 下问题：

1、从折线图可以看出，汇入汇款，汇出汇款，电子转发，分报四种业务所耗时间 变化波动最
小的是哪一个？____________________________(5分) < br>2、四种业务中，那种业务工作效率提高很快，服务时间最短？_________________（5 分）
3、四种业务中，那种业务所耗时间容易反弹，需要加强控制？_______________ ___(5分)
答案：1、分报 2、汇入汇款 3、电子转发
（八）、PM2.5， 中文名称：细颗粒物，科学家用PM2.5表示每立方米空气中这种颗粒的含量，
这个值越高，就代表空 气污染越严重。20XX年2月，国务院同意发布新修订的《环境空气质
量标准》增加了细颗粒物检测指 标。我国很多城市PM2.5严重超标，时刻危害着人们的健康，
根据下图回答问题。（拖动滚动条可浏 览全图）



要求：以下作答只答表中序号
1、根据图中箭头 指示内容可知，一次污染物中哪些成分构成了细颗粒物PM2.5？
________________ _________________(5分)
2、从图中箭头指向可以看出，和酸雨的形成有直接关 系的是哪些物质？
__________________________________（5分）
3、如图所示PM2.5污染的源头是什么？列出涉及方面
________________ __________________(5分)
答案：1、SO
2
、NO
2
、烟尘、粉尘 2、SO
2
、NO
2土
3、燃煤、冶金、水泥、汽车排放。
（九） 、PM2.5超标严重危害着人们的健康，北京的雾霾天气成了人们热议的话题，全国各地
多出出现PM 2.5超标。对于雾霾，酸雨，沙尘暴等恶劣天气人们都在积极寻找原因，根据下
图回答问题。


1、读图可知PM2.5污染的主要来源可以分为那两大类？
______________________________(6分)
2、如图所示PM2.5污染的源头是什么？列出涉及方面
_______________ ______________________________________（4分）
3、根 据二次反应生成PM2.5的过程和生成的成分可以推测，当湿度达到一定程度时可能出现
的不良天气？ ____________________(5分)
答案：1、直接排放，二次反应生成 2、煤炭、工业、汽车、施工 3、酸雨、雾霾
（十）、微博是当时比较流行的一种信息传 递方式，根据微博截图回答下面为题。（拖动滚动
条可浏览全图）

1、我们常用什 么来发布微博？_______________(备选项：电脑，MP3，MP4，智能手机，电视
台 )（4分）
2、图中微博还待发布，已输入“祝同学们在信息技术学业水平考试中考出好成绩”，该网 站
的微博最多可以发布多少个汉字？_________________(5分)
3、根据 图中信息回答，该微博除了可以发布文字类型外，还可以发布上传的媒体类型有哪两
类？每种类型列出两 种常见格式？
第一种类型为___________,(1分) 常见格式_________________(2分)
第二种类型为___________,(1分) 常见格式_________________(2分)
答案：1、电脑，智能手机 2、163 3、图片，JPG、GIF；视频，avi、rm