2008年浙江省信息技术会考试题 算法与程序设计题

《2008年浙江省信息技术会考试题 算法与程序设计题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、浙江省2008年高中信息技术会考(六月卷)2008年6月高中信息技术会考算法与程序设计题（第一套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=3:b=2:c=3b=a+b*c该程序段运行后，变量b的值为。2．有如下VisualBasic程序段：a=39b=93Ifa+b>100Thenpy="太大"Ifa+b=100Thenpy="相等"Ifa+b<100Thenpy="太小"Label1.Caption=py该程序段运行时，在Label1标签上显示的是　　　。3．以下Vis

2、ualBasic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_____________。PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0i=1DoWhilei<=1024s=s+2*ii=i*2LoopText1.Text=Str(s)EndSub4．有一道趣味题，张老师问李老师:“你今年几岁？你爱人今年几岁？”李老师笑笑说：“我年龄的平方与我爱人年龄之和恰好等于1053。而我爱人年龄的平方与我的年龄

3、之和却等于873。你计算一下吧！”设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2+y=1053x+y2=873解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsInteger,yAsLongx=1第18页共18页浙江省2008年高中信息技术会考(六月卷)y=1053-x*xDoWhile①②y=1053-x*xLoopText1.Text=Str(x)Text2.Tex

4、t=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入Nx+y2=873?开始x赋初值1结束y=1053-x2x值增加1计算y值输出x，yY图VB－12008年6月高中信息技术会考算法与程序设计题（第二套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a="Happy"b="ness"c=a+b该程序段运行后，变量c的值是___________。2．有如下VisualBasic程序段：DimxAsSingle,cAsStringx=Val(Text1.Text)Ifx

5、>12Thenc="PM"Elsec="AM"EndIfLabel1.Caption=c第18页共18页浙江省2008年高中信息技术会考(六月卷)该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是　　　。3.下列VisualBasic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。PrivateSubCommand1_Click()DimsumAsLongDimiAsIntegersu

6、m=0Fori=1To97Stepsum=sum+i*iNextiText1.Text=Str(sum)EndSub4．模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。图VB-1当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。解决上述问题的算法流程图如图VB-2所示，

7、相应的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,chAsStringa=Val(Text1.Text)b=Val(Text2.Text)①Ifch="+"ThenText4.Text=Str(a+b)ElseIfch="*"ThenText4.Text=Str(a*b)ElseIfch="-"ThenText4.Text=Str(a–b)ElseIfch="/"ThenIf②ThenText4.Text=Str(

8、a/b)ElseText4.Text="除数不能是零"Else第18页共18页浙