算法与程序设计会考真题Word文件下载.docx

1、要判断一个数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 &”是素数“Else”不是素数“End if3,VB语言中绘制圆的方法是：Circle（x,y）,r格式说明：其中（x,y）为圆心坐标，r为圆的半径。下表中算法1是在窗体中绘制以（2000，2000）为圆心，半径依次为100,200,800

2、的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 to 8 Cicle（2000,2000）,_k*100_ Next k4,“完数”是指一个自然数恰好等于它的因子（不包含本身）的和，如6的因子为1

3、，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 n-1 求N的因子和SUM If n mod i = 0 then sum = _sum+i_Next I If _sum=n_ then Prin

4、t n & “是完数” 不是完数”5,20XX年10月9日，国家测绘局正式宣布珠穆朗玛峰的高度是8848.43米，并停用之前的数据，现有一长白纸的厚度大约是0.08毫米，对折一次，厚度变为0.16毫米，每对折一次，厚度变为折前的两倍。假设这长纸足够大，可对折任意次，那么这张纸至少对折多少次后，其厚度将超过珠穆朗玛峰的高度。以下是求解该问题的程序片段，请补全代码：Dim height as double 定义珠穆朗玛峰的高度Dim h as double 定义一张纸的厚度Dim cnt as long 定义对折次数Height=8844430H=0.08Cnt=_0_Do while h0 th

5、enX1=（-b+sqrt（d）/（2*a）X2=（-b-sqrt（d）/（2*a）Print “x1=”;x1Print”x2=”;x2If _d=0_then Print “x=”;-b/（2*a）If d0 then Print “无实数解！”7,选择算法解决问题；在使用计算机解决问题时，选择合适的算法是有效解决问题的关键。分析下面的问题，请选择合适的算法：_穷举法_（填：解析法/穷举法/递归法/排序法，6分）搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小儿抬1块，要求一次全搬完，问需男、女、小儿各多少人。8，分析下面的问题，选择合适的算法（填：解析法/递归法/

6、穷举法/排序法）_递归法_猴子吃桃问题：小猴有一天摘了若干个桃子，它非常贪吃，当天就吃掉了一半还多一个，第二天接着剩下的一半多一个，以后每天都是如此，到了第七天要吃桃子时，却发现只剩下1个，问小猴子那天一共摘了多少个桃子。9,分析程序，得出结果：Dim sum as longDim I as longSum=0I=0Do while sum X=n mod 10 S=s+x N=n10Print s程序运行时，输入518，运行输出结果是：_14_（6分）（提示：（整除运算）如：23710=23;mod（取余数运算）如：237 mod 10=7）11,分析程序，得出结果Dim sum as in

7、tegerDim k as integerFor k=1 to 10 If k mod 2=0 then sum=sum+kNext k程序运行后输出结果是：_30_12,分析程序，得出结果Dim x as integerDim y as integerY=0For I =1 to 5 X=val（inputbox（“请输入”） Y=y+xPrint y程序运行后，依次输入：10 20 30 40 50运行输出的结果是：_150_（6 分）。13，程序段：for I =1 to 10 I控制*的行数 for j=1 to I J控制每行*的个数print “*” 输出* next jprint

8、 输出换行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）截取字符串S右边N个字符Right（“ABCDEFG”,2）“FG”假如某人身份证号码s=370102199602190000”,如果需要根据此身份证号码求出该人的“出生年月日”。下列四个表达式中不能实现的一个是_D_.A. mid（s,7,8） B.

9、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,下图所示的算法流程图：执行情况如下：当输入a,b的值为3、8时，输出结果为5 当输入a,b的值为11、7时，输出结果为4问题一：下列流程图填入虚线框中，符合条件的是：_C_（填：A/B/C）问题二：依据问题一所选流程图，当输入a,b的值分别为9，6时，输出结果为_3_。部分选择题：1，下列选项中，可以作为VB程序变量名的是（ D ）A、a+b B、a/b C、a-b D、ab2,下列程序执行后，变量s的值是（ B ）For I =1

10、to 10S=s+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+ba D、a+ba4,下列VB表达式中，能正确表示不等式方程解的是（ B ）A，x-1 and x1 or x-1 or x1 and x-15,已知海伦公式：其中a、b、c分别为三角形的三条边长，利用海伦公式求三角形的面积的算法属于（ B ）A、查找法B、解析法C、穷举法D、排序法6，如果一个4四位数恰好等于它的各位数字的确4次方各，则这个4位数称为“玫瑰花”数。例如1

11、634就是一个玫瑰花数，1634=14+64+34+44。如果要求出所有的玫瑰花数，下列算法最合适的是（ D ）A、排序法B、解析法C、查找法D、穷举法7,下列VB程序运行时（如图所示），在文本框Text1中输入20，在文本框Text2中输入13，单击命令按钮Command1后，文本框Text3中显示的内容是（ B ）Private sub Command1_click（） a=val（text1.text） b=val（text2.text） text3.text=a+bEnd subA、”2013” B、33 C、2013 D、”33”8,下列关于算法的描述错误的是（ A ）A、一个有效的算法至少要有一个或多个输入B、算法必须在有限步骤实现C、算法是解决某一问题的方法和步骤 D、算法可以使用自然语言、伪代码、流程图等多种不同的方法来描述9，下列VB表达式中：（1）sqr（x） （2）Text1.text （3）Command1.caption （4）”45”+”34” （5）45+34值为字符串类型的是（ D ）A，2、4、5 B，1、3、5 C，1、2、3 D，2、3、410，下列选项中，不属于计