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

Dim a, b, c As Integer
a = 15: b = 60: c = 38
If a < b Then
m = a
Else
m = b
End If
If m > c Then
m = c
End If
Print "M="; m
End Sub
运行结果:____M=15______
2、
Private Sub Form_Load( )
24．执行下列程序段后，变量x的值为（ ）。
x =3 : y = 77
Do While x < Sqr ( y )
x = x + 2
Loop
A、7B、8C、10D、9
25．下面是用VB编写的求1 + 1/2 + 1/3 +……+1/100和的程序，该程序循环终止时i的值是多少？（ ）
Private Sub Form_Activate( )
A = 5
B = 6
A = B : B = A : A =B
A、5、6B、6、6C、6、5D、5、5
20．流程图中表示判断框的是（ ）
A、钜形框B、菱形框C、圆形框D、椭圆形框
21．以下描述中最适合用计算机编程来处理的是（ ）。
A、确定放学回家的路线
B、计算某个同学期中考试各科成绩部分
C、计算100以内的奇数平方和
14．模块化程序设计方法反映了结构化程序设计的（ ）基本思想。
A、自顶向下，逐步求精B、面向对象C、自定义函数、过程D、可视化编程
15、一位同学想编程解决“韩信点兵”的问题，他制定的如下工作过程中，最恰当的是（ ）
A、设计算法，编写程序，提出问题，运行程序，得到答案
B、分析问题，编写程序，设计算法，运行程序，得到答案
29、用计算机程序解决问题时，调试程序和检测结果的目的是（ ）
A、前者用于检查语法是否正确，后者检查能否按要求完成任务
B、前者检查算法是否正确，后者检查是否有语法错误
C、前者用于检查语法是否正确，后者检查是否有病毒
D、两者无区别
30、下面属于逻辑运算符的是（ ）
A、orB、FalseC、TrueD、<>
sum=0
For i=1 To 100
sum=sum+1/i
next i
12．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 6
If p >= 10 Then Exit For
Next I
Print 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()
p=p+i
next i
print “I,P分别为：”; i,p
输出：I，P 分别为：_6___,___16___
10．Sum=0
For i=1 To 100
sum=sum+2
Next i
print “Sum=”; sum
输出：__ Sum=200________
11．下面是1+1/2+1/3+…+1/100 的和的程序，该程序循环终止时 i 的值是多少？（ 101 ）
For j = 1 To__i__
Print "*";
Next j
Print
__ Next i ______________
14．执行下列程序段后，变量x的值为：（ 9 ）
x=3;y=77
DO WHILE x<sqr(y)
x=x+2
LOOP
15．
p = 0: n = 5
For I = 1 To n
p = p + I * 2
31、下列程序段运行后，变量max 的值为 （ ）。
a = 5
b = 10
max = a
IF b > max Then max = b
A、5B、10C、5和10 D、其他三项都不是
32、以下属于程序的基本控制结构的是（ ）
A、星形结构B、选择结构C、网络结构D、平行结构
二、程序分析题
1、Private Sub Form_Activate( )
A、任务分析与系统设计B、软件的销售C、代码编写与测试D、软件测试与维护
12．以下程序段运行时，语句k=k+1执行的次数为（ ）次。
k=-10
do
k=k+1
loop while（until）k=0
A. 9B. 10C. 11D. 12
13．已知x=6, y=5,则以下运算结果为True的是（）
A．Not(x>y)B. (x<5)or(y>6)C. (x>=6)And(y>=5)D. Not(x>4)
Dim i,s as integer
s=0
for i=2 to 6
s=s+I
Next i
Print“S=”;s
End Sub
执行结果：____S=20_______
三、程序部分大题：
1.题目中是一个求二次函数曲线顶点坐标的VB程序，在运行是Text1、Text2、Text3分别输入3、6、9三个数，请问Text4、Text5输出结果分别就应为多少？（每空4分，共8分）
s =s+i
Next i
Print“S=”;s
End Sub
6、分析程序，写出计算结果
Private Sub Form_Activate()
Dim i,S as integer
S=1
Fori=1to4
S=S*i
Next i
Print “S=”;S
End Sub
运行结果:_____S=24_________
Next i
Print “sum=”; sum
End Sub1/i
3、写出程序结果：
Private Sub Form_Activate( )
Dim ch As String, i As Integer
ch = “DEF”
For i = 1 To 3
ch = ch & Mid (ch, i, 1 )
Next i
C、用工具计算→验证结果→寻找解题方法→理解分析问题
D、用工具计算→验证结果→理解分析问题→寻找解题方法
7、下列关于算法的特征描述不正确的是（ ）
A、有穷性：算法必须在有限步之内结束B、确定性：算法的每一步必须确切的定义
C、输入：算法必须至少有一个输入D、输出：算法必须至少有一个输出
8、下列哪一个不是用于程序设计的软件（ ）
Print ch
End Sub答案：________________________
DEFDEF
4.表一是某种绘图软件的部分指令，如要根据表中的指令画出图一的图形，请根据分析填空：
FORWARD 4 FORWARD 5 LEFT 120
5．写出程序结果：
Private Sub Command1_Click()
Dim i, s AS Integer
s=0
For i=1 TO100
s=s+i
Next i
Print“S=”;s
End Sub
5、计算1+3+5+……+99的值。
Private Sub Form_Activate( )
Dim i, s AS Integer
s = 0
for i =1 to99Step 2
Dim X As Integer, Y As Integer
Text1.Text = ""
X = 99: Y = 98: M = X
If X < Y Then
M = Y
End If
Text1.Text = M
End Sub
运行结果:_____99________
3、用程序实现函数：y=|x|
Private Sub Form_Load( )
Do While x < Sqr(y)
x = x + 2
Loop
A、7B、8C、10D、9
18．在VB程序设计中交换变量x和y的值，应使用的赋值语句是（ ）
A、t = x:y=x:y=tB、x=y : y=t : t=xC、x=y : y=xD、t=x : x=y : y=t
19．下列程序执行后A、B的值是（ ）
A、顺序结构B、选择结构C、循环结构D、以上三种都不是
5、穷举法的适用范围是（ ）
A、一切问题B、解的个数极多的问题
C、解的个数有限且可一一列举D、不适合设计算法
6、在现实生活中，人工解题的过程一般分为（ ）
A、理解分析问题→寻找解题方法→用工具计算→验证结果
B、寻找解题方法→理解分析问题→用工具计算→验证结果
C、分析问题，设计算法，编写程序，运行程序，得到答案
D设计算法，提出问题，编写程序，运行程序，得到答案
16、交换变量A和B, 语句为( )
A. A=B;B=C;C=AB. C=A;A=B;B=C
C. A=B;B=A D. C=A;B=A;B=C
17．执行下列程序段后，变量y的值为（ ）
x=3 : y=7
A、BASICB、C语言C、WordD、Pascal
9、下列源自文库以作为合作变量名的是（ ）
A、a7B、7aC、a-3D、8
10、编程求1+2+3+........+1000的和，该题设计最适合使用的控制结构为（ ）。
A、顺序结构B、分支结构C、循环结构D、选择结构
11、下列步骤不属于软件开发过程的是（ ）
Private Sub Form_Activate()
Dim I As Integer, S As Integer
S = 0
For I = 2 To 6
S = S + I
Next I
Print "S="; S
End Sub
运行结果:_______S=20___________
9．p=1
For i=1 to 5
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________
Next i
Print “S=”;s
End Sub
8、分析程序，写出计算结果
Dim X AS Integer，YAS Interger
Text1.Text=””
X=InputBox(“X=?”)
ifx>=0then
Y=X
Else
Y=-X
End If
Text1.Text=Y
End Sub
4、计算1+2+3+……+100的值。
Private Sub Form_Activate( )
Dim 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=”;m
End Sub执行结果：______M=15________
18、分析程序，写出执行结果
(VB代码)
Private Sub Form_Activate()
D、在因特网上查找自己喜欢的歌曲
22．下列程序执行后A、B的值是（ ）。
A=30
B=40
A=A+B：B=A-B：A=A-B
A、30、40B、40、40C、40、30D、30、30
23．VB语言中，下列各种基本数据类型说明符中表示整型数的是（ ）。
A、BooleanB、IntegerC、SingleD、String
A、语句定义了数组K，它的下标是从0到11
B、数组K共有12个分量
C、数组K的各个分量都是长整型数
D、数组K的各个分量的值将按从小到大的顺序自动排列
27、下列是合法变量名的是：（ ）
A、a-3B、7C、a$D、text7
28、以下不属于算法基本特征的是（ ）。
A、可执行性B、确定性C、有穷性D、无限性
一、选择题
1、流程图是描述（ ）的常用方式。
A、程序B、算法C、数据结构D、计算规则
2、下面不属于算法描述方式的是（ ）。
A、自然语言B、伪代码C、流程图D、机器语言
3、以下运算符中运算优先级最高的是（ ）。
A、+B、^C、>=D、*
4、某程序中三个连续语句如下：
a=1b=2c=b+a 它属于（ ）
-1,6
2.下面是用VB编写的求1+1/2+1/3+……+1/100和的程序，在空缺部分填上相应的语句。
Private Sub Form_Activate()
Dim i As Integer, sum As Integer
sum = 0
For i = 1 To 100
sum = sum + _______________
Dim i As Integer , sum As Integer
sum = 0
For i = 1 To 100
sum = sum + 1/i
Next i
Print “sum = “ ; sum
End Sub
A、i = 102B、i = 100C、i = 101D、无法判断
26、由语句：Dim K(11) As Long，判断下列结论中错误的是（ ）。