算法与程式设计会考真题目.doc

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 n1 cnt=cnt+1 ‘变换次数累加 If n Mod 2=0 Then n=___n/2___ 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 算法2 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 Cicle(2000,2000),800 Dim k As Integer For k= 1 to 8 Cicle(2000,2000),___k*100___________ Next k 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,2005年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 hheight Cnt=cnt+1 h=___2*h___或2^cnt*0.008____ Loop Print cnt 6，以下是求解一元二次方程aX2+bx+c=0(a≠0)的主要VB程序片段，请补全代码： a=val(inputbox(“a=”)) b= val(inputbox(“b=”)) c=val(inputbox(“c=”