高中信息技术《算法与程序设计》选修模块综合评价试题Word文档下载推荐.docx

高中信息技术《算法与程序设计》选修模块综合评价试题Word文档下载推荐.docx

《高中信息技术《算法与程序设计》选修模块综合评价试题Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《高中信息技术《算法与程序设计》选修模块综合评价试题Word文档下载推荐.docx（12页珍藏版）》请在冰豆网上搜索。

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<

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

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:

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中程序段是计算（ 

）公式的。

ForI=1To10

t=1

forj=1toi

t=t*I

nextj

s=s+t

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、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，并输出判断结果。

程序中有三处错误，请更正。

DimaAsSingle

DimpyAsString

a=Val（Text1）

Ifa>

0Thenpy="

正数"

Ifa=0Thenpy="

零"

Ifa<

=0Thenpy="

负数"

Label3.Caption=a

①___________________②___________________________③__________________

3、完善程序，使能输出：

1-2+3-4+5-6+...+99-100的值。

s=_____

Fori=1To_____

s=s+（（-1）^（______））*i

Prints

4、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。

修改程序，求方程的根。

要求：

如果方程无实数根，则输出“无实数根”，否则输出两个实数根。

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

5、下面的程序是求7!

（7!

=1*2*3...*6*7）的值，并在默认窗口输出这个值。

a=0

Fori=1ton

a=a*i

Printi

6、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。

DimsAsSingle

DimiAsSingle

s=1

Fori=1to100Step1

s=s*i

Prints

7、完善其中的程序，使能输出如下图形。

--******

----******

------******

--------******

----------******

------------******

---表示空格

Fori=1To6

PrintTab（______）;

Forj=1To_______

Print 

＂*＂

Nextj

Print

Nexti

三、简答题（每题10分，共30分）

1、已知一个三角形的三边长分别为a,b,c，求这个三角形的面积。

设计一个算法解决这个问题。

（用自然语言描述并写出伪代码）

2、设计算法求的值，要求画出程序框图，用基本语句编写的程序。

3、某电信部门规定：

拨打市内电话时，如果通话时间不超过3分钟，则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话不足1分钟时按1分钟计），试设计一个计算通话费用的算法。

要求写出算法，画出程序框图，编写程序。

《算法与程序设计》选修模块段考试题

（20**—20**学年度第二学期）

答 

案 

卡

2

3

4

5

6

7

9

10

12

13

14

15

16

17