算法与程序设计选修模块综合评价试题.docx
《算法与程序设计选修模块综合评价试题.docx》由会员分享，可在线阅读，更多相关《算法与程序设计选修模块综合评价试题.docx（9页珍藏版）》请在冰豆网上搜索。
算法与程序设计选修模块综合评价试题
《算法与程序设计》选修模块综合评价试题
（2005—2006学年度第二学期）
本试卷分3大题，共100分。
考试时间为60分钟。
一、单选题（每题2分，共40分）
1、流程图中表示判断框的是（ ）。
Ａ、矩形框 Ｂ、菱形框 Ｃ、圆形框 Ｄ、椭圆形框
2、由“上车—掏钱—投币”所描述的问题是（ ）。
Ａ、无人售票车投币过程 Ｂ、乘公交车过程 Ｃ、上车过程 Ｄ、下车过程
3、下列给出的赋值语句中正确的是（ ）。
A、4=M B、-M=M C、B=A－3 D、x+y=0
4、下列VisualBasic中，下列（ ）的表达式的值不等于4。
A、int（4.1） B、Int（4.9） C、Abs（int（-3.9）） D、Abs（int（-4.5））
5、下列VisualBasic中，下列（ ）类型属于字符串型。
A、Integer B、Single C、String D、Boolean
6、下列VisualBasic中，下列关键字（ ）用于注释语句。
A、Rem B、End C、Else D、Loop
7、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2（ ）。
A、用于测试X是否偶数 B、返回一个整数
C、返回一个奇数 D、用于测试X是否整数
8、要改变新建对象的缺省名称，应使用属性（ ）。
A、Font B、ForeColor C、Name D、Height
9、如果下面程序执行后输出的结果是132，那么在程序until后面的“条件”应为（ ）。
i=12：
s=1
DO
s=s*i
第11题
i=i－1
LOOPUNTIL“条件”
PRINT s
END
A、i>11 B、i>=11 C、i<=11 D、i<11
10、给出以下一个算法的程序框图（如图所示），该程序框图的功能是（ ）。
A、求输出a,b,c三数的最大数 B、求输出a,b,c三数的最小数
C、将a,b,c按从小到大排列 D、将a,b,c按从大到小排列
11、右边的程序框图（如图所示），能判断任意输入的数x的奇偶性：
其中判断框内的条件是（ ）。
A、m=0 B、x=0 C、x=1 D、m=1
12、要使一个命令按钮显示文字“确定”，正确的设置是把该命令的（ ）。
A、属性Font设置为“确定” B、属性.ForeColor设置为“确定”
C、属性Caption设置为“确定” D、属性BorderStyle设置为“确定”
13、表达式Abs（-3.6）*sqr（100）的值是（ ）。
A、-360 B、360 C、-36 D、36
14、下面程序运行后的输出结果为（ ）。
i=1
doWHILEi<8
i=i+2
s=2*i+3
loop
PRINT s
END
A、17 B、19 C、21 D、23
15、下列VisualBasic程序段运行后，变量a,b,c的值为（ ）。
a=1:
b=1:
c=1
DoWhilea+b+c<=10
a=a+1
b=b*2
c=b/2
Loop
A、221 B、342 C、484 D、442
16、下列VisualBasic程序段运行后，变量x的值为（ ）。
x=3:
y=77
Do
x=x+2
LoopUntilx>Sqr（y）
A、7 B、8 C、9 D、10
17、下列VisualBasic程序段运行后，变量s的值为（ ）。
a=2:
b=1:
s=0
ForI=10To6Step-1
s=s+a
c=a+b
a=b
b=c
NextI
A、10 B、17 C、6 D、28
18、在VisualBasic中程序段是计算（ ）公式的。
s=0
ForI=1To10
t=1
forj=1toi
t=t*I
nextj
s=s+t
NextI
A、s=1+2+3+4+5+6+7+8+9+10 B、s=1*2*3*4*5*6*7*8*9*10
C、s=1!
+2!
+3!
+4!
+5!
+6!
+7!
+8!
+9!
+10!
D、s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10
19、下列VisualBasic程序段运行后，变量s、t的值为（ ）。
s=0:
t=1
Fork=2To4
s=s+k
t=t*k
Nextk
A、22 B、924 C、56 D、01
20、下列VisualBasic程序段运行后，变量max的值为（ ）。
a=5:
b=10:
max=a
IFb>maxThenmax=b
A、5 B、10 C、5和10 D、以上都不是
二、填空题（每空1.5分，共30分）
1、打印出如下图
1
222
33333
4444444
555555555
66666666666
程序如下：
PrivateSubCommand1_Click（）
Fori=1to____
printtab（20-i）
Forj=1to____
Print_____
Nextj
Print
Nexti
EndSub
2、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。
程序中有三处错误，请更正。
程序如下：
PrivateSubCommand1_Click（）
DimaAsSingle
DimpyAsString
a=Val（Text1）
Ifa>0Thenpy="正数"
Ifa=0Thenpy="零"
Ifa<=0Thenpy="负数"
Label3.Caption=a
EndSub
①___________________②___________________________③__________________
3、完善程序，使能输出：
1-2+3-4+5-6+...+99-100的值。
程序如下：
PrivateSubCommand1_Click（）
s=_____
Fori=1To_____
s=s+（（-1）^（______））*i
Nexti
Prints
EndSub
4、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。
修改程序，求方程的根。
要求：
如果方程无实数根，则输出“无实数根”，否则输出两个实数根。
PrivateSubCommand1_Click（）
Dima,b,c,dAsSingle
Dimx1,x2AsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
d=b^2-4*a*c
Ifd________Then
x1=（-b+Sqr（d））/（2*a）
x2=（-b-Sqr（d））/（2*a）
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
EndIf
EndSub
5、下面的程序是求7!
（7!
=1*2*3...*6*7）的值，并在默认窗口输出这个值。
程序中有三处错误，请更正。
PrivateSubCommand1_Click（）
DimaAsSingle
a=0
Fori=1ton
a=a*i
Nexti
Printi
EndSub
①___________________②___________________________③__________________
6、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。
程序中有三处错误，请更正。
PrivateSubCommand1_Click（）
DimsAsSingle
DimiAsSingle
s=1
Fori=1to100Step1
s=s*i
Nexti
Prints
EndSub
①___________________②___________________________③__________________
7、完善其中的程序，使能输出如下图形。
--******
----******
------******
--------******
----------******
------------******
---表示空格
程序如下：
PrivateSubCommand1_Click（）
Fori=1To6
PrintTab（______）;
Forj=1To_______
Print ＂*＂
Nextj
Print
Nexti
EndSub
三、简答题（每题10分，共30分）
1、已知一个三角形的三边长分别为a,b,c，求这个三角形的面积。
设计一个算法解决这个问题。
（用自然语言描述并写出伪代码）
2、设计算法求的值，要求画出程序框图，用基本语句编写的程序。
3、某电信部门规定：
拨打市内电话时，如果通话时间不超过3分钟，则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话不足1分钟时按1分钟计），试设计一个计算通话费用的算法。
要求写出算法，画出程序框图，编写程序。
《算法与程序设计》选修模块段考试题
（2005—2006学年度第二学期）
答 案 卡
一、单选题（每题2分，共40分）
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
升级会员 