2014山东省信息技术学业水平考试程序题.doc

程序题1、阅读下列程序，写出正确运行结果Dim n As LongDim s As LongDim x As Longn = Val(InputBox(n=)s = 0Do While n 0 x = n Mod 10 s = s + x n = n 10LoopPrint s程序运行时，输入518，运行输出结果是：_14_(6分)提示： 整除运算 如：23710=23 Mod 取余运算 如：237 mod 10=7分析：初始值第一步第而步第三步XX=n mod 100815SS=s+s00+80+8+10+8+1+5NN=n 1051851502、阅读下列程序，写出正确运行结果Dim sum As LongDim i As Longsum = 0i = 0Do While sum 10 i = i + 1 sum = sum + i * i LoopPrint sum运行结果是： 14 分析：初始值第一步第而步第三步ii =i+100+10+1+10+1+1+1Sumsum=sum+i * i00+120+12+220+12+22+32循环条件Sum 1 cnt = cnt + 1 变换次数cnt累加 If n Mod 2 = 0 Then n =_n/2_ Else n = _n*3+1_ End IfLoop分析验证：Private Sub Command1_Click()Dim n As LongDim cnt As Long 变换次数cntn = Val(InputBox(n=) 输入正整数ncnt = 0Do While n 1 cnt = cnt + 1 变换次数cnt累加 If n Mod 2 = 0 Then n = n / 2 Else n = n * 3 + 1 End IfPrint nLoopEnd Sub5、选择算法，解决问题在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。分析下面的问题，请选择最合适的算法：_(填：解析法/穷举法/递归法/排序法，6分)搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小孩抬1块，要求一次全搬完，问需男、女、小儿各多少人？6、选择算法，解决问题在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。分析下面的问题，请选择最合适的算法：_(填：解析法/穷举法/递归法/排序法，6分)猴子吃桃问题：小猴有一天摘了若干个桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着吃剩下的桃子一半多一个，以后每天都 是如此，至了第七天要吃桃子时，却发现只剩下一个。问小猴那天一共摘了多少个桃子？7、阅读下列程序，写出运行结果Dim x As IntegerDim y As Integery = 0For i = 1 To 5 x = Val(InputBox(请输入：) y = y + xNext iprint y程序运行后，依次输入：10 20 30 40 50 运行输出结果是： 150 分析：初始第1次第2次第3次第4次第5次第6次i0123456x01020304050不满足条件，循环终止y 00+100+10+200+10+20+300+10+20+30+400+10+20+30+40+508、阅读下列程序，选出运行结果For i = 1 To 10 i控制*的行数 For j = 1 To i j控制每行*的个数 Print * ; 输出 * Next j Print 输出换行Next i运行结果是：_D_(填：A/B/C/D,6分)ABCD9、分析完善程序“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如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之间的所有因子和为sum，如果sum的值和n的值相同，则n就是完数。以下代码是判断n是否为完数的程序片段，请你补全代码：（8分）Dim n As LongDim 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 iIf sum=n Then Print n & 是完数Else Print n & 不是完数End If10、分析解决问题VB语言中绘制圆的方法是：Circle（x,y）,r格式说明：其中(x,y)为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000，2000）为圆心，半径依次为100、200800的8个同心圆。请补充完成算法2，使其实现与算法1相同的功能。（6分）算法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 k As IntegerFor k = 1 To 8 Circle (2000, 2000), k * 100 Next k11、分析完善程序以下是求解一元二次方程ax2+bx+c=0(a0)的主要VB程序片段。请你补全代码：（8分）a = Val(InputBox(a=)b = Val(InputBox(b=)c = Val(InputBox(c=)d = b 2 - 4 * a * c 求判别式dIf d 0 Then X1 = (-b + Sqr(d) / (2 * a) X2 = (-b - Sqr(d) / (2 * a) Print x1=; X1 Print x2=; X2End IfIf d=0 Then Print x=; -b / (2 * a)End IfIf d 0 Then Print 无实数解End If12、分析完善程序问题：输入一个正整数n,判断该正整数是否为素数（质数）。要判断一个数n是否为素数，最简单的方法是：统计2到n-1之间的所有能整除n的整数个数s，若s大于0，则n不是素数，否则就是素数。根据以上方法，完善以下程序代码：（8分）n = Val(InputBox(n=)s = 0For i = 2 To n - 1 If n Mod i = 0 Then s = s + 1 统计因数个数 End IfNext iIf s = 0 Then -此处若写s=0也是正确的 Print n & 是素数Else Print n & 不是素数End If13、分析完善程序2005年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8844.43米，并停用之前的数据。现有一张白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，再对折一次，厚度变为0.32毫米，每对折一次，其百度均变为对折前的两倍。假设这张纸有足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请你补全代码：（8分）Dim height As DoubleDim h As DoubleDim cnt As Longheight = 8844430h = 0.08cnt = 0 Do While h height cnt = cnt + 1 h = h + h LoopPrint cnt14、分析解决问题在VB语言中常用的字符串截取函数有：（6分）函数名功能示例结果Mid(s,m,n)从字符串s的第m位开始截取长度为n的子串Mid(ABCDEFG, 5, 2)EFLeft(s,n)截取字符串s左边n个字符Left(ABCDEFG, 3)ABCRight(s,n)截取字符串s右边n个字符Right(ABCDEFG, 2)FG假如某人身份证号码s如果需要根据此身份证号码求出该人的“出生年月日”。下列四个表达式中不能实现的一个 D (填A/B/C/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)