2010年6月信息技术会考-算法与程序设计试题

《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元；当3

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