算法与程序设计会考真题

1、1,分析并完善程序：考拉兹猜想：又称为3n+1猜想，指的是对于给定的每个正整数n,经过一系列的有限次变化后，最终都能变为了：如果它是偶数，则对它除以2,如果它是奇数，则对它乘3再加1;如此循环，直到得到位为止。例如：n=6,根据上述需要8次变换后得1，变换过程：6-3-10-5-16-8-4-2-1。以下是验证考拉兹猜想的主要程序片段，请你补全代码，Dim n As LongDim cnt AS Long 变换次数cntn=Val(InputBox(“n=”)输入正整数ncnt=0Do While n1 cnt=cnt+1 变换次数累加 If n Mod 2=0 Then n=_n/2_ El

2、se n=_3*n+1_ endifLoopPrint cnt 输出变换次数2，输入一个正整数n,判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是，统计2到n-1之间的所有能整除n的整数个数s,若s大于0，则n不是素数，否则不是素数，根据以上方法，完善以下程序代码：N= val(InputBox(“n=”)S=0 For i=2 to n-1If n mod i=0 Then S=_s+1_统计因数个数EndifNext iIf_s=0_ThenPrint n &”是素数“ElsePrint n &”不是素数“End if3,VB语言中绘制圆的方法是：Circle(x,

3、y),r格式说明：其中（x,y）为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000，2000）为圆心，半径依次为100,200,800的8个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6分）算法1算法2Cicle(2000,2000),100Cicle(2000,2000),200Cicle(2000,2000),300Cicle(2000,2000),400Cicle(2000,2000),500Cicle(2000,2000),600Cicle(2000,2000),700Cicle(2000,2000),800Dim k As Integer For k= 1

4、to 8 Cicle(2000,2000),_k*100_ Next k4,“完数”是指一个自然数恰好等于它的因子（不包含本身）的和，如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 longDim sum as long量级 SUM用来记录N的因子和N= inputBox(“n=”)For I = 1 to

5、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,2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8848.43米，并停用之前的数据，现有一长白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，每对折一次，厚度变为折前的两倍。假设这长纸足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请补全代码：Dim height as double 定义珠穆朗玛峰的

6、高度Dim h as double 定义一张纸的厚度Dim cnt as long 定义对折次数Height=H=0.08Cnt=_0_Do while h0 thenX1=(-b+sqrt(d)/(2*a)X2=(-b-sqrt(d)/(2*a)Print “x1=”;x1Print”x2=”;x2End ifIf _d=0_then Print “x=”;-b/(2*a)EndifIf d0 then Print “无实数解！”Endif7,选择算法解决问题；在使用计算机解决问题时，选择合适的算法是有效解决问题的关键。分析下面的问题，请选择合适的算法：_穷举法_(填：解析法/穷举法/递归法

7、/排序法，6分)搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小儿抬1块，要求一次全搬完，问需男、女、小儿各多少人。8，分析下面的问题，选择合适的算法（填：解析法/递归法/穷举法/排序法）_递归法_猴子吃桃问题：小猴有一天摘了若干个桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着剩下的一半多一个，以后每天都是如此，到了第七天要吃桃子时，却发现只剩下1个，问小猴子那天一共摘了多少个桃子。9,分析程序，得出结果：Dim sum as longDim I as longSum=0I=0Do while sum0 X=n mod 10 S=s+x N=n10LoopPri

8、nt s程序运行时，输入518，运行输出结果是：_14_(6分)(提示：(整除运算)如：23710=23;mod(取余数运算)如：237 mod 10=7)11,分析程序，得出结果Dim sum as integerDim k as integerSum=0For k=1 to 10 If k mod 2=0 then sum=sum+kNext kPrint sum程序运行后输出结果是：_30_12,分析程序，得出结果Dim x as integerDim y as integerY=0For I =1 to 5 X=val(inputbox(“请输入”) Y=y+xNext I Print

9、 y程序运行后，依次输入：10 20 30 40 50运行输出的结果是：_150_(6 分)。13，程序段：for I =1 to 10 I控制*的行数 for j=1 to I J控制每行*的个数print “*” 输出* next jprint 输出换行next i运行结果是_D_(填：A/B/C/D) A B C D14,在VB语言中常用的字符串截取函数有：函数名功能示例结果Mid(s,m,n)从字符串S的第M位开始，截取长度为N的子串Mid(“ABCDEFG”,5,2)“EF”Left(s,n)截取字符串S左边N个字符Left(“ABCDEFG”,3)“ABC”Right(s,n)截取

10、字符串S右边N个字符Right(“ABCDEFG”,2)“FG”假如某人身份证号码s=”,如果需要根据此身份证号码求出该人的“出生年月日”。下列四个表达式中不能实现的一个是_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输入a,b的值开始输出c的值结束问题一：下列流程图填入虚线框中，符合条件的是：_C_(填：A/B/

11、C)YNabc=b-ac=a-bCYNabc=a-bc=b-aB问题二：依据问题一所选流程图，当输入a,b的值分别为9，6时，输出结果为_3_。部分选择题：1，下列选项中，可以作为VB程序变量名的是（ D ）A、a+b B、a/b C、a-b D、ab2,下列程序执行后，变量s的值是（ B ）S=0For I =1 to 10S=s+iNext iA、1 B、55 C、10 D、03,长度分别是a,b,c的三条线段，能够组成三角形的条件是（ A ）A、a+bc and a+cb and b+ca B、a+bc or a+cb or b+ca C、a+bc and a+cb or b+ca D、

12、a+bc or a+cb and b+ca4,下列VB表达式中，能正确表示不等式方程解的是（ B ）A，x-1 and x1 or x-1 or x1 and xa B、 a+cb C、 a+bc D、其他选项都不对15,已知在VB语言中，int(x)函数的功能是返回不大于x的最大整数，abs(x)函数的功能是返回x的绝对值，则表达式int(2.88)+abs(-3)的值是（A）A、5 B、6 C、0 D、116，一元二次方程ax2+bx+c=0(a0)的两个实数根分别为下列表达式正确的是（C ）A、x2=-b-sqr(b2-4*a*c)/(2*a) B、x1=(-b+sqr(b2-4ac)/

13、(2*a) C、x2=(-b-sqr(b2-4*a*c)/(2*a) D、x1=-b+-sqr(b2-4*a*c)/(2*a)17,在VB语言中，字符串运算符“+”和“&“的作用是把两个或多个字符串连接成一个字符串。则表达式“20”+“13”&“20+13”的运算结果是（ D ）A、” B、”3333” C、” D、”+13”18,两个阻值分别为R1、R2的电阻并联后，电路阻值R可由公式求解，下面能正确求出R的VB表达式是（ D ）。A、R1+R2/(R1*R2) B、R1*R2 / R1+R2 C、(R1+R2)/(R1*R2) D、R1*R2/(R1+R2) 19,关于算法的描述，下列选项

14、中正确的是（ B ）。A、一个算法的执行步骤可是无限的 B、一个算法可以没有输入C、一个算法，当没有输入时，也没有输出 D、算法只能用流程图来表示20，下列问题不能用算法描述的是（ A ）。A、求方程y=2x+1的所有整数解 B、已知圆锥的底面半径和高，求表面积和体积C、计算某班英语平均分 D、求一元二次方程ax2+bx+c=0(a0)的两个实数解21，在VB语言中表示“X属于区间（0,1”的正确表达式是( C ).A、x0 or x0 and x0 and x=1 D、0x=122,下列流程图中能描述循环结构的是（ D ）。A、（1）（3）B、（1）（2）（4）C、（2）（3）（4）D、（2

15、）（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(text1.text)b=a*a+1text1.text=bEndsub程序运行时（如图所示），在文本框text1中输入2，连续两次单击命令按钮Command1后，text1中显示的内容是（C ）。A、5 B、2 C、26 D、

16、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文件列表可以看

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

18、示高二（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两张图的设计方式设

19、计汽车的外部及内部结构较为方便？_；（2分）该图书属于那种类型的图？_(3分)2、从题干给出的数据和C、D两图来看，A、B两图的主要特点分别是什么？A图：_(3分)B图：_(3分)3、制作A类型的图，常用的软件有哪些？_(2分) 制作B类型的图，常用的软件有哪些？_(2分)(至少答出一种，填可选中的序号，可选项有：1.phtoshop 2.画图 3.flash 4.Coreldraw 5.绘声绘影 6.Cool Edit Pro）答案：1、图B；矢量图 2、容量大，放大失真; 容量小，放大不失真 3、1,2；3,4（五）、下面是一个“大”字的8*8信息编码点阵图，假设孔方块用“0”表示，黑方块

20、用“1”表示，试分析并回答下列问题。1、点阵图第二行用“0”和“1”从左向右排列的信息编码是怎样的？_(5分) 2、表示该字型的方法是点阵方式还是矢量方式？_（5分）3、只修改一行编码就可以将原图的“大”字改写成“人”字，修改那一行？_（2分）修改后的编码是什么？_(3分)答案：1、 2、点阵方式 3、第五行；（六）、该表为顾客满意度调查表，根据表中内容回答下面问题。1、在不考虑加权系数时顾客最满意的两项是什么？_;（2分）用折线图、柱形图、饼图中哪一种图可以更加直观的表现不加权系数下的满意度？_(3分)2、在考虑加权系数后顾客最不满意的两项是什么？_(5分)3、表中服务的最终满意度19.4是

21、怎样算出的？列出算式即可_(5分)答案：1、服务，价格；柱形图 2、包装、交付；3、=加权系数*分值（七）、某银行国际业务部通过折线图比较业务处理效率情况，可掌握业务效率变化，及时发现业务延迟和低效率，提高服务水平，下面是汇入汇款，电子转发，分报四中业务的折线图，请根据该折线图分析并回答以下问题：1、从折线图可以看出，汇入汇款，汇出汇款，电子转发，分报四种业务所耗时间变化波动最小的是哪一个？_(5分)2、四种业务中，那种业务工作效率提高很快，服务时间最短？_（5分）3、四种业务中，那种业务所耗时间容易反弹，需要加强控制？_(5分)答案：1、分报 2、汇入汇款 3、电子转发（八）、PM2.5，中文名称：细颗粒物，科学家用PM2.5表示每立方米空气中这种颗粒的含量，这个值越高，就代表空气污染越严重。2012年2月，国务院同意发布新修订的环境空气质量标准增加了细颗粒物检测指标。我国很多城市PM2.5严重超标，时刻危害着人们的健康，根据下图回答问题。（拖动滚动条可