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

６月高中信息技术会考

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

四、程序设计题(本题有4小题，第1－３小题,每小题4分，第４小题６分,共18分）

1.有如下VisｕalＢasｉｃ程序段:

a=3:b=2:ｃ=3

b=a+b*c

该程序段运营后,变量b的值为。

2．有如下ＶisualBaｓic程序段：

a=３9

b=93

Ifａ+ｂ10０Theｎpｙ=＂太大＂

Ｉfa+b=100Thenｐｙ=相等

Ｉfa＋b＜100Tｈenpy＝太小

Laｂel１.Captｉｏｎ=ｐy

该程序段运营时，在Ｌａｂｅｌ１标签上显示的是。

3．如下VisuａｌＢasｉc程序的功效是:计算体现式1+2＋４＋8+16＋32+…+1０２４的值,并在文本框Tｅｘｔ1中输出成果。为了实现这一功效,程序中划线处的体现式应改正为___________＿_。

PriｖateＳｕbCｏmｍand1_Clicｋ()

DimｉＡsInteｇｅr,sAsＬong

s＝0

i=1

ＤoWhilｅi=１０24

ｓ=s+2*i

i=i＊2

Looｐ

Text1.Text=Ｓtr(s)

ＥnｄSｕb

4.有一道趣味题,张老师问李老师:“你今年几岁？你爱人今年几岁？”李老师笑笑说：“我年龄的平方与我爱人年龄之和恰好等于105３。而我爱人年龄的平方与我的年龄之和却等于87３。你计算一下吧！”

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

ｘ2＋y=１053

ｘ+y2=8７3

解决此问题的流程图如VＢ－１所表达。依照流程图VB－１编写的ＶｉsｕａlＢaｓｉc程序如下,在①和②划线处,填入适宜的语句或体现式，把程序补充完整。

PriｖatｅSｕbＣommaｎd１_Ｃlicｋ()

DｉmxAsIｎｔeｇer,ｙAsLｏng

ｘ=1

y=1053-ｘ＊x

ＤoＷｈiｌe①

②

y=10５３-x*ｘ

Lｏoｐ

Ｔext1.Texｔ＝Str（ｘ）

Text２.Tｅxt＝Stｒ(ｙ)

EｎdSub

程序中划线处①应填入

程序中划线处②应填入N

N

x+y2=873?

开始

x赋初值1

结束

y=1053-x2

x值增加1

计算y值

输出x，y

Y

图VB－1

6月高中信息技术会考

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

四、程序设计题(本题有４小题,第1－3小题,每小题４分,第４小题６分，共１8分)

1.有如下VisuａlＢａsic程序段:

a=Happy＂

b=ness

ｃ=a+b

该程序段运营后，变量ｃ的值是___＿__＿＿__＿。

２.有如下ＶiｓualBａｓic程序段：

DｉmｘAsＳinｇlｅ,cＡsStrｉng

ｘ=Val(Ｔeｘt1.Tｅxｔ)

Ｉfx1２Then

ｃ＝PＭ

Eｌｓｅ

c=AM

EndIｆ

Labeｌ1.Ｃapｔion=c

该程序段运营时，在文本框Ｔｅxt1中输入１５.6，Ｌaｂel１标签上将显示的是。

３.以下ＶisｕalBａsic程序的功效是：计算体现式12+４2+72＋…＋９７2的值，并在文本框Text１中输出体现式的值。为了实现这一目标,程序中Foｒ语句划线处的循环变量步长应为__＿__＿______＿___＿＿。

PrｉvateＳｕbCommａnd1_Cｌick(）

DimsumＡsLonｇ

DiｍiAsInｔｅger

sｕｍ=0

?Fｏｒi=1To97Ｓtep

sｕm=ｓum+i＊ｉ

Nexti

Tｅxt1.Text=Str(sum)

EｎdSub

４.模拟一个简朴计算器,输入两个数和一个运算符(加、减、乘、除）,进行算术运算，并输出运算成果。

程序界面如图VB-1所表达,在文本框Text1中输入第一个数a，在文本框Ｔｅxt2中输入第二个数b，在文本框Ｔext3中输入运算符cｈ,在文本框Text4中输出运算成果。

图VB-1当输入的运算符不是加、减、乘、除四种运算符时,则输出“运算符不对的”；当进行除法运算时,假如除数为0，提醒输出“除数不能为零”。

图VB-1

解决上述问题的算法流程图如图ＶＢ-２所表达，相应的ViｓuａlBaｓic程序如下，在①和②划线处，填入适宜的语句或体现式，把程序补充完整。

Ｐriv