信息技术程序设计试卷真题 .pdf

信息技术程序设计试卷真题

算法与程序设计题（第一套）

四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）

1．有如下VisualBasic程序段：

a=3:b=2:c=3

b=a+b*c

该程序段运行后，变量b的值为。

2．有如下VisualBasic程序段：

a=39

b=93

Ifa+b100Thenpy=太大

Ifa+b=100Thenpy=相等

Ifa+b100Thenpy=太小

Label1.Caption=py

该程序段运行时，在Label1标签上显示的是。

3．以下VisualBasic程序的功能是：运算表达式1+2+4+8+16+32+…+1024的值，并在文

本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为

_____________。

PrivateSubCommand1_Click()

DimiAsInteger,sAsLong

s=0

i=1

DoWhilei=1024

s=s+2*i

i=i*2

Loop

Text1.Text=Str(s)

EndSub

4．有一道趣味题，张老师问李老师:“你今年几岁？你爱人今年几岁？”李老师笑笑说：“我

年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄之和却等于

873。你运算一下吧！”

设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：

2

x+y=1053

x+y2=873

解决此问题的流程图如VB-1所示。依照流程图VB-1编写的VisualBasic程序如下，

在①和②划线处，填入合适的语句或表达式，把程序补充完整。

PrivateSubCommand1_Click()

DimxAsInteger,yAsLong

x=1

y=1053-x*x

DoWhile①

②

y=1053-x*x

Loop

Text1.Text=Str(x)

Text2.Text=Str(y)

EndSub

程序中划线处①应填入

程序中划线处②应填入

开始

x赋初值1

x2

y=1053-

YN

x+y2=873?

输出x，yx值增加1

终止运算y值

图VB－1

2008年6月高中信息技术会考

算法与程序设计题（第二套）

四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）

1．有如下VisualBasic程序段：

a=Happy

b=ness

c=a+b

该程序段运行后，变量c的值是___________。

2．有如下VisualBasic程序段：

DimxAsSingle,cAsString

x=Val(Text1.Text)

Ifx12Then

c=PM

Else

c=AM

EndIf

Label1.Caption=c

该程序段运行时，在文本框Tex