原创力文档- 1、本文档共18页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
信息技术程序设计试卷真题
算法与程序设计题（第一套）
四、程序设计题（本题有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
文档评论（0）