信息技术学业水平考试-算法程序题

分析完善程序1.圆周率n值得计算方法有多种，其中一种近似值计算公式如下：九2=1+工+工+…+工对于n的不同取值，得到的n值精度不同。如：当n=100000时，计算出n=3.14158310432646当n=1000000时，计算出n=3.1459169866051。以下程序是利用上述公式求n=10000000时n近似值的主要程序片段，请你补全代码。DimsAsDoubleDimpiAsDoubles=0Fori=1To10000000 ‘求公式右边的值ss=s+1/(i*i)Nextipi=Sqr()Print"n="；pi.2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8844.43米，并停用之前的数据。现有一张白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，再对折一次，厚度变为0.32毫米，……，每对折一次，其厚度均变为对折前的两倍。假设这张纸有足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请你补全代码。Height=8844.43 ,珠穆朗玛峰高度8844.43米h=0.08 '一张纸的厚度约为0.08毫米cnt=0 'cnt用来记录对折次数DoWhileh<Height*1000cnt=cnt+1h= LoopPrintcnt.考拉兹猜想：考拉兹猜想又称为3n+1猜想，是相对于每一个正整数，如果它是奇数，则对它乘3再加1,如果它是偶素，则对它除以2；……，如此循环，最终都能够得到1。如n=6,根据上述规则，得出6f3f10f5f16f8f4f2-1。(共有8个步骤)以下是验证考拉兹猜想的主要VB程序片段，请你补全代码：n=Val(InputBox("n="))cnt=0 '统计步骤数DoWhilen>1cnt=cnt+1IfnMod2=0Thenn= Elsen= EndIfLoopPrintcnt ,输出步骤数.“完数”是指一个自然数恰好等于它的因子(不包含本身)之和。如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之间的n的所有因子和为Sum,如果Sum的值和n的值相同，则n就是完数。以下代码是判断n是否为完数的程序片段，请你补全代码。DimnAsLongDimSumAsLongn=InputBox("n=")Fori=1Ton-1IfnModi=0ThenSum=NextiIfThenPrintn&"是完数”ElsePrintn&”不是完数”EndIf.以下是求解一元二次方程ax2+bx+c=0(a/0)的主要VB程序片段，请你补全代码。a=Val(InputBox("a="))b=Val(InputBox("b="))c=Val(InputBox("c="))d=，求判别式dIfd>0Thenx1=(-b+Sqr(d)/(2*a)x2=(-b-Sqr(d)/(2*a)Print"x1=",x1Print"x2=",x2EndIfIfThenPrint"x=",-b/(2*a)EndIfIfd<0ThenPrint"无实数解！"EndIf选择算法解决问题在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。.分析下面的问题，请选择最合适的算法:(请用英文字母填写)A.解析法B.递归法C.穷举法D.排序法猴子吃桃问题：小猴有一天摘了若干个桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着吃剩下的桃子一半多一个，以后每天都如此，到了第七天要吃桃子时，却发现只剩下一个。.分析下面的问题，请选择最合适的算法：(请用英文字母填写)A.解析法B.递归法C.穷举法D.排序法搬砖问题：100块砖，100个人搬，一个男人搬4块，一个女人搬3块，两个小儿抬1块，要求一次全搬完，问需要男、女、小儿各多少人。阅读下列程序，写出运行结果DimSumAsIntegerDimkAsIntegerSum=0Fork=1To20IfkMod2=0ThenSum=Sum+kNextkPrintSum程序运行后输出结果是： DimaAsIntegerDimbAsIntegerDimcAsIntegera=1b=1ForI=1To4c=a+ba=bb=cNextiPrintc运行结果是： DimxAsIntegerDimyAsIntegery=Val(InputBox("y=")) ‘输入第一个数赋值给yFori=1To3 ‘循环3次，每次输入1个数x=Val(InputBox("x="))Ifx<yTheny=xEndIfNextiPrinty程序运行后，依次输入：45 96 11 37运行输出结果是： DimnAsLongDimsAsLongDimxAsLongn=Val(InputBox("n="))s=0DoWhilen>0x=nMod10s=s+xn=n\10LoopPrints程序运行时，输入518,（提示：\ （整除运算）Mod （取余数运算）运行输出结果是： 如：237\10=23如：237mod10=7）5.Fori=1To10Forj=1ToIPrint"*"NextjPrintNexti'i控制*的行数'j控制每行*的个数，输出*'输出换行运行结果是：（请用英文字母填写）t****t<******************i-***i.ACb5

分析解决问题.在VB语言中，常用的字符串截取函数有:函数名功能示例结果Mid(s,m,n)从字符串s的第m位开始，截取长度为n的子串Mid("ABCDEFGn,5,2)“EF"Left(s,n)截取字符串s左边n个字符Left("ABCDEFG"，3)"ABC"Right(s,n)截取字符串s右边n个字符Right("ABCDEFG,2")"FG"假如某人身份证号码S="37010219960219000”，如果需要根据此身份证号码求出该人的“出生年月”。下列表达式不能实现的是(单选)Mid(s,7,8)Right(Left(s,14),8)Mid(s,7,4)+Mid(s,11,2)+Mid(s,13,2)Left(s,14)-Left(s,6).VB语言中绘制圆的方法是：Circle(x,y),r格式说明，期中(x,y)为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以(2000,2000)为圆心，半径依次为100、200、……、800的8个同心圆。请补充完成算法2,使其实现与算法1相同的功能。算法1算法2Circle(2000,2000),100Circle(2000,2000),200Circle(2000,2000),300Circle(2000,2000),400Circle(2000,2000),500Circle(2000,2000),600Circle(2000,2000),700Circle(2000,2000),800Dim