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

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

2、一验证结果一寻找解题方法一理解分析问题 D、用工具计算一验证结果一理解分析问题一寻找解题方法7、以下关于算法的特征描述不正确的选项是A、有穷性：算法必须在有限步之内结束C、输入：算法必须至少有一个输入8、以下哪一个不是用于程序设计的软件A、BASICB、C 语言B、确定性：算法的每一步必须确切的定义D、输出：算法必须至少有一个输出C、WordD、Pascal9、以下可以作为合作变量名的是A、a7B、7aC、a-3D、810、编程求1+2+3+ 1000的和,该题设计最适合使用的限制结构为A、顺序结构 B、分支结构C、循环结构D、选择结构11、以下步骤不属于软件开发过程的是A、任务分析与系统设计

3、B、软件的销售C、代码编写与测试 D、软件测试与维护12 .以下程序段运行时,语句 k=k+1执行的次数为次.k=-10 do k=k+1 loop while untilk=0A. 9 B. 10C. 11 D.1213 .x=6, y=5,那么以下运算结果为True的是A. Notx>y B. x<5ory>6 C. x>=6Andy>=5 D. Notx>414 .模块化程序设计方法反映了结构化程序设计的根本思想.A、自顶向下,逐步求精B、面向对象 C、自定义函数、过程D、可视化编程15、一位同学想编程解决韩信点兵的问题,他制定的如下工作过程中,最恰当

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

5、=t B、x=y : y=t : t=x C、x=y : y=x D、t=x : x=y : y=t19 .以下程序执行后 A、B的值是A = 5B = 6 A = 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、40 B

6、、40、40C、40、30D、30、3023 . VB语言中,以下各种根本数据类型说明符中表示整型数的是.A、Boolean B、IntegerC、SingleD、String24 .执行以下程序段后,变量 x的值为.x =3 : y = 77 Do While x < Sqr y x = x + 2LoopA、7B、8C、10 D、925.下面是用 VB编写的求1 + 1/2 + 1/3 +1/1皿程序,该程序循环终止时i的值是多少?Private Sub Form_Activate()Dim i As Integer , sum As Integer sum = 0For i = 1

7、 To 100sum = sum + 1/iNext iPrint " sum =" ; sumEnd SubA、i = 102 B、i = 100C、i = 101D、无法判断26、由语句：Dim K11 As Long,判断以下结论中错误的选项是.A、语句定义了数组 K,它的下标是从0到11B、数组K共有12个分量C、数组K的各个分量都是长整型数D、数组K的各个分量的值将按从小到大的顺序自动排列27、以下是合法变量名的是：A、a-3 B、7C、a$ D、text728、以下不属于算法根本特征的是.A、可执行性B、确定性C、有穷性 D、无限性29、用计算机程序解决问题时,

8、调试程序和检测结果的目的是A、前者用于检查语法是否正确,后者检查能否按要求完成任务 B、前者检查算法是否正确,后者检查是否有语法错误C、前者用于检查语法是否正确,后者检查是否有病毒D、两者无区别30、下面属于逻辑运算符的是A、orB、FalseC、True D、<>31、以下程序段运行后,变量 max的值为 .a = 5b = 10max = aIF b > max Then max = bA、5B、10C、5和10 D、其他三项都不是32、以下属于程序的根本限制结构的是A、星形结构B、选择结构C、网络结构 D、平行结构二、程序分析题1、Private SubForm_Act

9、ivate()Dim a, b, cAs Integera = 15: b = 60: c = 38 If a < b Thenm = aElsem = bEnd IfIf m > c Then m = cEnd IfPrint "M=" mEnd Sub运行Z果:M=152、Private Sub Form_Load()Dim X As Integer, Y As IntegerTextl.Text =""X = 99: Y = 98: M = XIf X < Y ThenM = YEnd IfTextl.Text = MEnd Su

10、b运彳丁Z果:993、用程序实现函数：y=|x|Private Sub Form_Load()Dim X AS Integer, Y AS IntergerText1.Text=" X=InputBox( X=?") if_x>=0 _ thenY=XElse_ Y=-X End IfText1.Text=Y End Sub4、计算1+2+3+100的值.Private Sub Form_Activate() Dim i, s AS Integer s=0For i=1 TO _100 step 2s=一 s+iNext iPrintS=" sEnd Sub

11、5、计算1+3+5+99的值.Private Sub Form_Activate() Dim i, s AS Integer s = 0 for i =1 to 99 Step 2 s = s+iNext i PrintS="sEnd Sub6、分析程序,写出计算结果Private Sub Form_Activate() Dim i,S as integer S=1 For i=1 to 4 S=S*i Next iPrint" S= ;SEnd Sub 运行结果：S=247、计算1 + 1/2+1/50的值.Private Sub Form_activate() Dim

12、i,s as integer s=0Next iPrint " S=" ;sEnd Sub8、分析程序,写出计算结果Private Sub Form_Activate() Dim I As Integer, S As IntegerS = 0For I = 2 To 6S = S + INext IPrint "S=" SEnd Sub运行结果：S=209. p=1 For i=1 to 5 P=P+i next i print "I,P分别为： ；i,p 输出：I, P分别为：_6,16 10. Sum=0 For i=1 To 100 su

13、m=sum+2 Next i print" Sum= ; sum输出： Sum=200101 )11 .下面是1+1/2+1/3+1/100的和的程序,该程序循环终止时i的值是多少(sum=0 For i=1 To 100 sum=sum+1/i next i12 . a=1;b=0 Do while a<=5 b=b+a*a a=a+1 Loop Print a, b 屏幕上显示的内容是：_6_ , _55_13 .完善程序,打印如以下列图形 * * * * * *For I = 1 To 6For j = 1 To i Print "*" Next j

14、Print Next i14 .执行以下程序段后,变量 x的值为：9x=3;y=77DO WHILE x<sqr(y) x=x+2LOOP15 . p = 0: n = 5 For I = 1 To n p = p + I * 2 If p >= 10 Then Exit For Next IPrint p答案：_12_16 . Ch="DEF For i=1 to 3 ch=ch & mid(ch,i,1) Next i Print ch答案： DEF DEF 17、分析程序,写出执行结果 (VB代码) Private Sub Form_Activate()Di

15、m a,b,c as integer a=15 b=60 c=38 if a<b then m=a else m=b If m>c then m=c Print M= "mEnd Sub 执行结果： M=1518、分析程序,写出执行结果 (VB代码) Private Sub Form_Activate() Dim i,s as integer s=0 for i=2 to 6 s=s+INext i Print S="s End Sub 执行结果：S=20三、程序局部大题：1.题目中是一个求二次函数曲线顶点坐标的VB程序,在运行是 Textl、Text2、Tex

16、t3分别输入3、6、9三个数,请问Text4、Text5输出结果分别就应为多少每空 4分,共8分Private Sub coiKnandl_click ()Dim a As text, b As tezt, c As text a = Vai (Textl, Text j b = Vai(T ext iText) c = Vai(Text3. Text) m =-b / (2 * a) n =(4*a*c-b*b) / Text!. Text = m Text5. Test = nEnd SubTgt4输出结果为:Test 5输出结果为:2.下面是用VB编写的求1 + 1/2+1/3+1/10

17、0和的程序,在空缺局部填上相应的语句.Private Sub Form_Activate()Dim i As Integer, sum As Integer sum = 0For i = 1 To 100sum = sum +Next iPrint" sum=" sumEnd Sub 3、写出程序结果：Private Sub Form_Activate()Dim ch As String, i As Integer ch =" DEF'For i = 1 To 3ch = ch & Mid (ch, i, 1 )Next iPrint chEnd

18、Sub答案：4 .表一是某种绘图软件的局部指令,如要根据表中的指令画出图一的图形,请根据分析填空:2、方法二工RIGHT 90FORWARD 4LEFT 1501、方法一：FORWARD 3RIGHT 120FORWARD 5RIGHT 150石 FORWARD 3p5 .写出程序结果： Private Sub Command1_Click() Dim p As Integer, i As Integer, n As Integer p=0 : n=5 For i=1 To n p=p+i*2 If p>=10 Then Exit For Next i Print p End Sub 答

19、案：6 .填补程序：假设你从今年开始为“希望工程存钱,今年存入 100元钱,第二年存入 200元钱, 第三年存入300元钱依此类推,问：20年时间你将为“希望工程存入多少钱Private Sub Command1_Click()Dim n as integer, intsum as integer intsum=0 For n=1 to intsum=intsum+n*100Lb1sum.caption= 两年共存入："& intsum & 元""End Sub优秀学习资料欢迎下载7 .某快递公司规定：快件不超过i公斤的,双递n 10元,而过i公斤

20、的局部,按每公斤5元计费, 编写快递费计算程序运费为S,重量为P8 .写出程序结果：(8分,每空4分)Private Sub Form_Activate()Dim p As Integer, i As Integer p = 1 For i = 1 To 5P = P + iNext iPrint “I P 分别为： ；i, pEnd Sub 输出结果：I P分别为：, 9 . Private Sub Command1_Click()Dim a As Integer, b As Integer a = 1 : b = 0Do While a <= 5b = b + a * aa = a + 1LoopPrint a, bEnd Sub运行结果： 10.小华从今