欢迎来到天天文库
浏览记录
ID:35539790
大小:408.98 KB
页数:27页
时间:2019-03-25
《2010年6月信息技术会考-算法与程序设计试题》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、2009年6月高中信息技术会考算法与程序设计题(第一套)四、程序设计题(本题有4小题,第1—3小题,每小题4分,第4小题6分,共18分)1.有如下VisualBasic程序段:m=〃VB〃〃•〃n=is〃〃t=easyt=m+n+t该程序段运行后,变量t的值为o2.有如下VisualBasic程序段:a=23b=34Ifa>bThenLabel1.Caption二ElseLabel1.Caption="a〈二b"EndIf该程序段运行后,在标签Label1上显示的是o3.以下VisualBasic程序的功能是
2、:计算表达式1X3+2X3+3X3+・・・100X3的值,并在文本框Textl中输出计算结果。PrivateSubConimandl_Click()DimiAsInteger,sAsIntegers=0i=1DoWhilei<=100s=i*3i=i+1LoopTextl.Text=Str(s)EndSub问:(1)刚退出循环时,变量i的值是O(2)为了实现上述表达式的计算,程序中划线处的表达式应更正为o4.某市出租车计费标准规定:出租车启动后行程不超过3千米(包含3千米)计费5元;如果行程超过3千米且不超过
3、10千米(包含10千米),则超过3千米部分按1.5元/千米计费(3千米及以内部分计费仍为5元);若行程超过10千米,则在前面计费基础上,超出10千米部分按1.8元/千米计费。假定某出租车行程为x千米,计费标准如下:当xW3千米吋,计费为5元;当34、解决此问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。PrivateSubCommand1Click()DimxAsSingle,sAsSinglex=Vai(Textl.Text)If①Thens=5Elselfx<=10Thens=5+(x-3)*1.5Elses二5+(10-3)*1.5+(x-10)*1.8EndIf②=Str(s)EndSub程序中①划线处应填入程序中②划线处应填入图VB・12009年6月高中信息技术5、会考算法与程序设计题(第二套)四、程序设计题(本题有4小题,第1一3小题,每小题4分,第4小题6分,共18分)1.有如下VisualBasic程序段:a=12b=32c=ac=c+b该程序段运行后,变量c的值为o2.有如下VisualBasic程序段:x=12Ifx<=10Thens二8Elses=xEndTf该程序段运行后,变量s的值为°3.以下VisualBasic程序的功能是:计算表达式1+3+9+27+81+-2187的值,并在文本框Textl中输出计算结果。PrivateSubCommandlCli6、ck()DimiAsTnteger,tAsLongt=0i二1DoWhilei<=2187t=t+ii=i+3LoopTextl.Text=Str(t)EndSub问:(1)为了实现这一目标,程序划线处的表达式应更正为O(2)运行更正后的程序,循环刚退出吋变量i的值为o1.将一个十进制正整数转化为二进制数可以采用“除二取余法”,主要方法就是将十进制数用2除,保存所得余数,然后将商的整数部分作为下次运算的被除数,重复上述“除二取余”操作,直到商的整数部分为零停止。程序界面如图VB-1所示,在文本框Textl中输7、入一个正整数,单击“开始转换”按钮(Command1)后,对应的二进制数在标签Label3中显示出来。解决此问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。PrivateSubCoiiunandlClick()DimxAsInteger,sAsString,rAsInteger,tAsInteger①〃〃s=DoWhilex<>0r=xMod2s=Str(r)+sX=直LoopLabel3.Caption=sEndSub程序中8、①划线处应填入程序中②划线处应填入图VB—12009年6月高中信息技术会考算法与程序设计题(第三套)四、程序设计题(本题有4小题,第1一3小题,每小题4分,第4小题6分,共18分)1.有如下VisualBasic程序段:m=8n=5t二m+nt=t-n该程序段运行后,变量t的值为。2.有如下VisualBasic程序段:x=5001s=1Ifx>5000Thens=s+1Label1.Caption
4、解决此问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。PrivateSubCommand1Click()DimxAsSingle,sAsSinglex=Vai(Textl.Text)If①Thens=5Elselfx<=10Thens=5+(x-3)*1.5Elses二5+(10-3)*1.5+(x-10)*1.8EndIf②=Str(s)EndSub程序中①划线处应填入程序中②划线处应填入图VB・12009年6月高中信息技术
5、会考算法与程序设计题(第二套)四、程序设计题(本题有4小题,第1一3小题,每小题4分,第4小题6分,共18分)1.有如下VisualBasic程序段:a=12b=32c=ac=c+b该程序段运行后,变量c的值为o2.有如下VisualBasic程序段:x=12Ifx<=10Thens二8Elses=xEndTf该程序段运行后,变量s的值为°3.以下VisualBasic程序的功能是:计算表达式1+3+9+27+81+-2187的值,并在文本框Textl中输出计算结果。PrivateSubCommandlCli
6、ck()DimiAsTnteger,tAsLongt=0i二1DoWhilei<=2187t=t+ii=i+3LoopTextl.Text=Str(t)EndSub问:(1)为了实现这一目标,程序划线处的表达式应更正为O(2)运行更正后的程序,循环刚退出吋变量i的值为o1.将一个十进制正整数转化为二进制数可以采用“除二取余法”,主要方法就是将十进制数用2除,保存所得余数,然后将商的整数部分作为下次运算的被除数,重复上述“除二取余”操作,直到商的整数部分为零停止。程序界面如图VB-1所示,在文本框Textl中输
7、入一个正整数,单击“开始转换”按钮(Command1)后,对应的二进制数在标签Label3中显示出来。解决此问题的算法流程图如图VB-2所示,相应的VisualBasic程序如下,在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。PrivateSubCoiiunandlClick()DimxAsInteger,sAsString,rAsInteger,tAsInteger①〃〃s=DoWhilex<>0r=xMod2s=Str(r)+sX=直LoopLabel3.Caption=sEndSub程序中
8、①划线处应填入程序中②划线处应填入图VB—12009年6月高中信息技术会考算法与程序设计题(第三套)四、程序设计题(本题有4小题,第1一3小题,每小题4分,第4小题6分,共18分)1.有如下VisualBasic程序段:m=8n=5t二m+nt=t-n该程序段运行后,变量t的值为。2.有如下VisualBasic程序段:x=5001s=1Ifx>5000Thens=s+1Label1.Caption
此文档下载收益归作者所有