历年算法与程序设计学业水平考试真题带答案文档格式.docx

1、5）or（y6） C. （x=6）And（y=5） D. Not（x4）14模块化程序设计方法反映了结构化程序设计的（ ）基本思想。 A、自顶向下，逐步求精 B、面向对象 C、自定义函数、过程 D、可视化编程15、一位同学想编程解决“韩信点兵”的问题，他制定的如下工作过程中，最恰当的是（ ） A、设计算法，编写程序，提出问题，运行程序，得到答案 B、分析问题，编写程序，设计算法，运行程序，得到答案 C、分析问题，设计算法，编写程序，运行程序，得到答案D设计算法，提出问题，编写程序，运行程序，得到答案16、交换变量A和B, 语句为（ ） A. A=B;B=C;C=A B. C=A;A=B;B=C

2、 C. A=B;B=A D. C=A;B=A;17执行下列程序段后，变量y的值为（ ） x=3 : y=7 Do While x Sqr（y） x = x + 2 Loop A、7 B、8 C、10 D、918在VB程序设计中交换变量x和y的值，应使用的赋值语句是（ ） A、t = x : y=x : y=t B、x=y : y=t : t=x C、x=y : y=x D、t=x : x=y : y=t19下列程序执行后A、B的值是（ ） A = 5 B = 6 A = B : B = A : A = BA、5、6 B、6、6 C、6、5 D、5、520流程图中表示判断框的是（ ） A、钜形框

3、 B、菱形框 C、圆形框 D、椭圆形框21以下描述中最适合用计算机编程来处理的是（ ）。 A、确定放学回家的路线 B、计算某个同学期中考试各科成绩部分C、计算100以内的奇数平方和 D、在因特网上查找自己喜欢的歌曲22下列程序执行后A、B的值是（ ）。 A=30 B=40A=A+B：B=A-B：A=A-BA、30、40 B、40、40 C、40、30 D、30、3023VB语言中，下列各种基本数据类型说明符中表示整型数的是（ ）。 A、Boolean B、Integer C、Single D、String24执行下列程序段后，变量x的值为（ ）。 x =3 : y = 77 Do While

4、x Sqr （ y ） x = x + 2 Loop A、7 B、8 C、10 D、925下面是用VB编写的求1 + 1/2 + 1/3 +1/100和的程序，该程序循环终止时 i 的值是多少？（ ）Private Sub Form_Activate（ ）Dim i As Integer , sum As Integersum = 0For i = 1 To 100 sum = sum + 1/iNext iPrint “sum = “ ; sumEnd SubA、i = 102 B、i = 100 C、i = 101 D、无法判断26、由语句：Dim K（11） As Long，判断下列结论

5、中错误的是（ ）。A、语句定义了数组K，它的下标是从0到11B、数组K共有12个分量C、数组K的各个分量都是长整型数D、数组K的各个分量的值将按从小到大的顺序自动排列27、下列是合法变量名的是：A、a-3 B、7 C、a$ D、text728、以下不属于算法基本特征的是（ ）。 A、可执行性 B、确定性 C、有穷性 D、无限性29、用计算机程序解决问题时，调试程序和检测结果的目的是（ ） A、前者用于检查语法是否正确，后者检查能否按要求完成任务 B、前者检查算法是否正确，后者检查是否有语法错误 C、前者用于检查语法是否正确，后者检查是否有病毒 D、两者无区别30、下面属于逻辑运算符的是（ ）

6、A、or B、False C、True D、31、下列程序段运行后，变量max 的值为 （ ）。 a = 5 b = 10 max = a IF b max Then max = b A、5 B、10 C、5和10 D、其他三项都不是32、以下属于程序的基本控制结构的是（ ） A、星形结构 B、选择结构 C、网络结构 D、平行结构 二、程序分析题1、Private Sub Form_Activate（ ）Dim a, b, c As Integera = 15: b = 60: c = 38If a c Then m = cPrint M=; m运行结果:_M=15_2、Private Sub

7、 Form_Load（ ）Dim X As Integer, Y As IntegerText1.Text = X = 99: Y = 98: M = XIf X =0 thenY=X Else Y=-X End If Text1.Text=Y End Sub4、计算1+2+3+100的值。 Dim i, s AS Integer s=0 For i=1 TO 100 s= s+i Next i Print “S=”; s5、计算1+3+5+99的值。 s = 0 for i =1 to 99 Step 2 s = s+i Next is6、分析程序，写出计算结果Private Sub For

8、m_Activate（） Dim i,S as integer S=1 For i=1 to 4 S=S*iPrint “S=”;S_S=24_7、 计算1+1/2+1/50的值。 Private Sub Form_activate（） Dim i,s as integer s=0 For i=1 to _50 step 1_ s=_s+1/i_ Print “S=”;8、分析程序，写出计算结果 Dim I As Integer, S As Integer S = 0 For I = 2 To 6 S = S + I Next IS= S_ _S=20_9p=1 For i=1 to 5 p=

9、p+i next i print “I,P 分别为：”; i,p 输出：I，P 分别为：_6_,_16_10Sum=0 For i=1 To 100 sum=sum+2 print “Sum=”;_ Sum=200_11下面是1+1/2+1/3+1/100 的和的程序，该程序循环终止时 i 的值是多少？（ 101 ） sum=0 For i=1 To 100 sum=sum+1/i next i12a=1; b=0 Do while a=5 b=b+a*a a=a+1 Print a, b 屏幕上显示的内容是：_6_ ，_55_13完善程序，打印如下图形 *For I = 1 To 6For

10、j = 1 To_i_ * Next j Print_ Next i _14执行下列程序段后，变量x 的值为：（ 9 ）x=3;y=77DO WHILE x= 10 Then Exit ForPrint p 答案：_12_16Ch=”DEF” For i=1 to 3 ch=ch & mid（ch,i,1） Print ch 答案：_ DEF DEF _17、分析程序，写出执行结果 （VB代码） Private Sub Form_Activate（） Dim a,b,c as integer a=15b=60 c=38 if ac then m=c Print “M=”;m End Sub 执

11、行结果：_M=15_18、分析程序，写出执行结果 Dim i,s as integers=0 for i=2 to 6 s=s+I End Sub 执行结果：_S=20_ 三、程序部分大题：1. 题目中是一个求二次函数曲线顶点坐标的VB程序，在运行是Text1、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别就应为多少？（每空4分，共8分）-1,62. 下面是用VB编写的求1+1/2+1/3+1/100和的程序，在空缺部分填上相应的语句。 Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 s

12、um = sum + _ Print “sum=”; End Sub 1/i3、写出程序结果：Dim ch As String, i As Integerch = “DEF”For i = 1 To 3 ch = ch & Mid （ch, i, 1 ）Print chEnd Sub 答案：_DEFDEF4.表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形，请根据分析填空：FORWARD 4 FORWARD 5 LEFT 1205写出程序结果： Private Sub Command1_Click（） Dim p As Integer, i As Integer, n As In

13、teger p=0 : n=5 For i=1 To n p=p+i*2 If p=10 Then Exit For Print p答案：_ 126. 填补程序：假设你从今年开始为“希望工程”存钱，今年存入100元钱，第二年存入200元钱，第三年存入300元钱依此类推，问：20年时间你将为“希望工程”存入多少钱？ Private Sub Command1_Click（ ） Dim n as integer, intsum as integer intsum=0 For n=1 to _ 20 intsum=intsum+n*100 _ next n Lb1sum.caption=”两年共存入：

14、”& intsum & “元”7. 某快递公司规定：快件不超过1公斤的，快递费10元，超过1公斤的部分，按每公斤5元计费，编写快递费计算程序（运费为S，重量为P）10 10+5*（P-1）8. 写出程序结果：（8分，每空4分） Private Sub Form_Activate（ ） Dim p As Integer, i As Integer p = 1 For i = 1 To 5 p = p + i Next i Print “I P分别为： i, p输出结果：I P分别为：_，_ 6 169 Private Sub Command1_Click（ ） Dim a As Integer, b As Integer a = 1 : b = 0 Do While a 2时，f（n）=2f（n-1）+3f（n-2）编程求f（100）的值。 解决上述问题，哪种算法最为合适？_ 递归法4、在学校举办的运动会中，要对运动员成绩进行公布，现在要求写一个程序自动完成成绩编排，请问最好采用哪种算法解决？_ 冒泡排序法5如”ab”+”cd”的结果是 abcd 那么”27”+”23”的运算结果是： 2723 6要实现变量M 与变量 N 的值进行交换，可用语句：（ ）7下列程序执行后，A，B的值是：（ 40,30 ） A=30；B=40；A=A+B；B=A-B；A=A-B；