历年算法与程序设计学业水平考试真题(带答案)

1、、选择题1、流程图是描述（）的常用方式。2、 下面不属于算法描述方式的是（）。3、以下运算符中运算优先级最高的是（A、+B、A4、某程序中三个连续语句如下：a=1b=2c=b+aA、顺序结构B、选择结构5、穷举法的适用范围是（）A、一切问题C、解的个数有限且可一一列举6、在现实生活中，人工解题的过程）C、 =D、 *它属于（）C、 循环结构D、以上三种都不是B、解的个数极多的问题D、不适合设计算法般分为（A、理解分析问题t寻找解题方法t用工具计算t验证结果B、寻找解题方法t理解分析问题t用工具计算t验证结果C、用工具计算T验证结果T寻找解题方法T理解分析问题D、用工具计算T验证结果T理解分析问

2、题T寻找解题方法7、下列关于算法的特征描述不正确的是（）A、有穷性：算法必须在有限步之内结束C、输入：算法必须至少有一个输入&下列哪一个不是用于程序设计的软件（）B、确定性：算法的每一步必须确切的定义D、输出：算法必须至少有一个输出D、PascalD、8A、BASICB、C 语言C、Word9、下列可以作为合作变量名的是（）A、a7B、7aC、a-310、 编程求1+2+3+1000的和，该题设计最适合使用的控制结构为（）A、顺序结构B、分支结构C、循环结构D、选择结构11、下列步骤不属于软件开发过程的是（）A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护12 以下程序

3、段运行时，语句k=k+1执行的次数为（）次k=-10dok=k+1|loop while (until)k=0A. 9 B. 10C.11 D.1213.已知x=6, y=5,则以下运算结果为True的是（）A . Not（xy） B. （x6） C. （x=6）And（y=5） D. Not（x4）14 模块化程序设计方法反映了结构化程序设计的（）基本思想。A、自顶向下，逐步求精B、面向对象C、自定义函数、过程D、可视化编程15、一位同学想编程解决韩信点兵”的问题，他制定的如下工作过程中，最恰当的是（）A、设计算法，编写程序，提出问题，运行程序，得到答案B分析问题，编写程序，设计算法，运行程

4、序，得到答案C分析问题，设计算法，编写程序，运行程序，得到答 案D设计算法，提出问题，编写程序，运行程序，得到答案16、交换变量A和B,语句为（）A. A=B;B=C;C=AB. C=A;A=B;B=CC. A=B;B=AD. C=A;B=A;B=C17 .执行下列程序段后，变量y的值为（）x=3 : y=7Do While x Sqr（y）x = x + 2LoopA、 7B、 8C、 10 D、 918 .在VB程序设计中交换变量 x和y的值，应使用的赋值语句是（）A、t = x : y=x : y=t B、x=y : y=t : t=xC、x=y : y=x D、t=x : x=y :

5、y=t19 .下列程序执行后 A、B的值是（）A = 5B = 6A = B : B = A : A = BA 、 5、 6 B 、 6、 6C、 6、 5 D 、 5、 520流程图中表示判断框的是（）A、柜形框B、菱形框C、圆形框D、椭圆形框21 以下描述中最适合用计算机编程来处理的是（）。A、确定放学回家的路线B、计算某个同学期中考试各科成绩部分C、计算100以内的奇数平方和D、在因特网上查找自己喜欢的歌曲22 .下列程序执行后 A、B的值是（）。A=30B=40A=A+B : B=A-B : A=A-BA、 30、 40B、 40、 40C、 40、 30D、 30、 3023. VB

6、语言中，下列各种基本数据类型说明符中表示整型数的是（）。A、BooleanB、IntegerC、SingleD、String24. 执行下列程序段后，变量x的值为（）。x =3 : y = 77Do While x Sqr （ y ）x = x + 2LoopA、7B、8C、10D、925. 下面是用 VB编写的求1 + 1/2 + 1/3 +1/100程序，该程序循环终止时i的值是多少?（）Private Sub Form_Activate（）Dim i As In teger , sum As In tegersum = 0For i = 1 To 100sum = sum + 1/iNe

7、xt iPrint “ sum =“ ; sumEnd SubA、 i = 102B、i = 100C、i = 101D、无法判断26、 由语句：Dim K（11） As Long,判断下列结论中错误的是（）。A、语句定义了数组 K，它的下标是从0到11B、数组K共有12个分量C、数组K的各个分量都是长整型数D、数组K的各个分量的值将按从小到大的顺序自动排列27、 下列是合法变量名的是：（）A、a-3B、7C、a$D、text728、 以下不属于算法基本特征的是（）。A、可执行性B、确定性C、有穷性D、无限性29、用计算机程序解决问题时，调试程序和检测结果的目的是（）A、前者用于检查语法是否正

8、确，后者检查能否按要求完成任务B、前者检查算法是否正确，后者检查是否有语法错误C、前者用于检查语法是否正确，后者检查是否有病毒D、两者无区别30、下面属于逻辑运算符的是（）C、TrueD 、 A、 orB、False31 、下列程序段运行后,变量max的值为（）。a = 5b = 10max = aIF b maxThenmax =bA、 5B、 10C、5和10D、其他三项都不是32、以下属于程序的基本控制结构的是( )A、星形结构B、选择结构C、网络结构D、平行结构二、程序分析题1 、 Private Sub Form_Activate( ) Dim a, b, c As Integera

9、 = 15: b = 60: c = 38If a c The nm = cEnd IfPrin t M=; mEnd Sub运行结果：M=15 2、Private Sub Form_Load()Dim XAs In teger, Y As In tegerTextl.Text = ”X = 99: Y = 98: M = XIf X =0 the nY=XElse_ Y=-XEnd IfText1.Text=YEnd Sub4、计算1+2+3+100的值。Private Sub Form_Activate() Dim i, s AS In teger s=0For i=1 TO _100 s

10、= s+iNext iPrintS=;sEnd Sub5、计算1+3+5+99的值。Private Sub Form_Activate() Dim i, s AS In teger s = 0for i =1 to 99_ Step 2s = s+ijNext i PrintS=”sEnd Sub6、分析程序，写出计算结果Private Sub Form_Activate()Dim i,S as in tegerS=1For i=1 to 4S=S*iNext iPrint“ S=” ;SEnd Sub运行结果：S=247、计算1 + 1/2+1/5 0的值。Private Sub Form_

11、activate()Dim i,s as in tegers=0For i=1 to50 step 1s=s+1/iNext iPrint“ S=” ;sEnd Sub&分析程序，写出计算结果Private Sub Form_Activate() Dim I As In teger, S As In teger S = 0For I = 2 To 6S = S + INext IPrin t S=; SEnd Sub运行结果：S=209. p=1For i=1 to 5P=P+inext iprintf；P 分别为：” ;i,p输出：I, P分别为：_6,1610. Sum=0For i=1

12、To 100sum=sum+2Next iprint“ Sum= ; sum输出：_ Sum=200i的值是多少？（101 )11. 下面是1+1/2+1/3+1/100的和的程序，该程序循环终止时sum=0For i=1 To 100sum=sum+1/inext i12. a=1;b=0Do while a=5b=b+a*aa=a+1LoopPrint a, b屏幕上显示的内容是：_6_ , _55_13. 完善程序，打印如下图形*For I = 1 To 6For j = 1 To_i_ Prin t *;Next jPrintNext i14. 执行下列程序段后，变量x的值为：（9）x

13、=3;y=77DO WHILE x= 10 Then Exit ForNext IPrint p答案：_1216.Ch=”DEF”For i=1 to 3ch=ch & mid(ch,i,1)Next iPrint ch答案：_ DEF DEF _17、分析程序，写出执行结果(VB代码)Private Sub Form_Activate()Dim a,b,c as in tegera=15b=60c=38if ac the n m=cPrint M= ”;mEnd Sub 执行结果： M=15 18、分析程序，写出执行结果(VB代码)Private Sub Form_Activate()Dim

14、 i,s as in teger s=0for i=2 to 6s=s+INext iPrint S=;sEnd Sub执行结果：S=20三、程序部分大题:1. 题目中是一个求二次函数曲线顶点坐标的VB程序，在运行是Textl、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别就应为多少？（每空 4分，共8分）Private Sub coimandl_click0Dim a As text, b As tq 辰 text = Yal Textl, Text)b 二 7al (TestTezt)c 二 Vai (Text3, Text)m = -b / (2

15、* a)n = (4 * a* c - I7 * b) / 4 *Tezt4. Text二 IDTeztS. Teitt=XLEnd SubTest4输出结果为:Test 5岀结杲为:-1,62. 下面是用VB编写的求1 + 1/2+1/3+1/100和的程序，在空缺部分填上相应的语句。Private Sub Form_Activate()Dim i As In teger, sum As In tegersum = 0For i = 1 To 100sum = sum +Next iPrint“ sum= sumEnd Sub1/i3、写出程序结果：Private Sub Form_Acti

16、vate()Dim ch As String, i As In tegerch =“ DEFFor i = 1 To 3ch = ch & Mid (ch, i, 1 )Next iPrint chEnd Sub答案：DEFDEF4. 表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形，请根据分析填空:蜡4痂FDBffAED aIH t左轉t度REGHI t右转十度FORWARD 3KIGHT 90RIGHT 120FORVTAKL 4FORWARD 5LEFT 150RIG町 150FORVAKD 3FORWARD 4FORWARD 5 LEFT 1205.写出程序结果:Priv

17、ate SubComma nd1_Click()Dim p p=0 : n=5For i=1As In teger,To np=p+i*2IfNextp=10 TheniPrinti AsIn teger,n As In tegerExitForEnd Sub答案：126.填补程序：假设你从今年开始为“希望工程”存钱，20年时间你将为“希望工程”存入多少钱?今年存入100元钱,第二年存入200元钱,第三年存入300元钱依此类推，问:Private SubDim nComma nd1_Click() as in teger, in tsumas in tegerin tsum=0For n=1t

18、o20in tsum=in tsum+n*100n ext nLb1sum.caption= 两年共存入：” & intsum & 元 End Sub7.某快递公司规定：快件不超过1公斤的，快递费10元，超过1公斤的部分，按每公斤 5元计费,编写快递费计算程序（运费为S,重量为P）10 10+5*(P-1)8. 写出程序结果：(8分，每空4分)Private Sub Form_Activate()Dim p As In teger, i As In tegerp = 1For i = 1 To 5P = P + iNext iPrint “I P 分别为：” ；i, pEnd Sub输出结果：I P分别为：， 6 16