2015会考真题及答案

《2015会考真题及答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、数ncnt=0DoWhilen>1cnt=cnt+1‘变换次数累加IfnMod2=0Thenn=___n/2___Elsen=__3*n+1____endifLoopPrintcnt‘输出变换次数2，输入一个正整数n,判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是，统计2到n-1之间的所有能整除n的整数个数s,若s大于0，则n不是素数，否则是素数，根据以上方法，完善以下程序代码：N=val(InputBox(“n=”)S=0Fori=2ton-1Ifnmodi=0The

3、nS=__s+1____’统计因数个数EndifNextiIf____s=0________ThenPrintn&”是素数“ElsePrintn&”不是素数“Endif3,VB语言中绘制圆的方法是：Circle(x,y),r格式说明：其中（x,y）为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000，2000）为圆心，半径依次为100,200,……,800的8个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6分）算法1算法2Cicle(2000,2000),100Cicle

4、(2000,2000),200Cicle(2000,2000),300Cicle(2000,2000),400Cicle(2000,2000),500DimkAsIntegerFork=1to8Cicle(2000,2000),___k*100___________NextkCicle(2000,2000),600Cicle(2000,2000),700Cicle(2000,2000),8004,“完数”是指一个自然数恰好等于它的因子（不包含本身）的和，如6的因子为1，2，3，而6=1+2+3，

5、因而6就是“完数”，如28=1+2+4+7+14问题：输入一个正整数n，判断该数是否为“完数”要判断一个整数N是否为“完数”，最简单的方法是：求出现1到n-1之间n的所有因子和为sum,如果sum的值和n的值相同，则n就是完数。以下代码是判断n是否为完数的程序片段，请补全代码：DimnaslongDimsumaslong量级‘SUM用来记录N的因子和Sum=0N=inputBox(“n=”)ForI=1ton-1‘求N的因子和SUMIfnmodi=0thensum=_sum+i________N

6、extIIf___sum=n_____thenPrintn&“是完数”ElsePrintn&”不是完数”5,2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8848.43米，并停用之前的数据，现有一长白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，……，每对折一次，厚度变为折前的两倍。假设这长纸足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请补全代码：Dimheightasdouble‘定义珠穆朗玛峰的高度Di

7、mhasdouble‘定义一张纸的厚度Dimcntaslong‘定义对折次数Height=8844430H=0.08Cnt=__0________Dowhileh

8、-4*a*c_________________________‘求判别式Ifd>0thenX1=(-b+sqrt(d))/(2*a)X2=(-b-sqrt(d))/(2*a)Print“x1=”;x1Print”x2=”;x2EndifIf___d=0_____thenPrint“x=”;-b/(2*a)EndifIfd<0thenPrint“无实数解！”Endif7,选择算法解决问题；在使用计算机解决问题时，选择合适的算法是有效解决问题的关键。分析下面的问题，请选择合适的算法：____穷举法_