信息技术会考算法与程序设计题

2007年6月高中信息技术会考算法与程序设计题（第一套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下VisualBasic程序段：a=30b=20a=b该程序段运行后，变量a的值为________。2.有如下VisualBasic程序段：DimaAsSingle,pyAsStringa=Val(Text1.Text)Ifa>0Thenpy="正数"Ifa=0Thenpy="零"Ifa<0Thenpy="负数"Label1.Caption=py在文本框Text1中输入100，则在Label1标签上显示的是。3.以下VisualBasic程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。PrivateSubCommand1_Click()DimiAsInteger,sumAsLongsum=0Fori=1To10sum=sum*iNextiText1.Text=Str(sum)EndSub4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。小明一家今年的可支配收入是32000元，按现在的增长率9%计算，小明家几年后可支配收入将达到50000元？解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。x＜50000？开始x＜50000？开始增长率：p←9%结束可支配收入：x←32000所需年数：n←0x←x(1+p)n←n+1输出nYN图VB－1DimxAsLong,pAsDoubleDimnAsIntegerx=32000p=0.09n=0DoWhile①x=x*(1+p)②LoopText1.Text=Str(n)EndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第二套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a="Good"b="Bye"c=a+b该程序段运行后，变量c的值是___________。2.有如下VisualBasic程序段：

x=3

If

x>5

Then

y=x*x

Else

y=4*x

End

If

该程序段运行后，变量y的值是___________。3.下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为__________________。PrivateSubCommand1_Click()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val(Text1.Text)Fori=1To2*n-1Step2sum=sum+2NextiText2.Text=Str(sum)EndSub4．依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。xx≥1？开始结束YN图VB－1输出：你属于醉酒驾车!x≥0.3？输出：你属于酒后驾车!输出：恭喜你没有违法!将酒精含量的值送变量xYNPrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)If①ThenLabel1.Caption="你属于醉酒驾车!"ElseIfx>=0.3ThenLabel1.Caption="你属于酒后驾车!"②Label1.Caption="恭喜你没有违法!"EndIfEndIfEndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第三套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下VisualBasic程序段：a=300b=400b=b-a该程序段运行后，变量b的值为_________。2．有如下VisualBasic程序段：a=2b=5Ifa<bThenm=aElsem=bEndIf该程序段运行后，变量m的值为___________。3.下面VisualBasic程序的功能是：计算表达式1+1/3+1/5+…+1/99的值，并在文本框Text1中输出该表达式的值。为了实现这一功能，程序中划线处的语句应更正为__________________。PrivateSubCommand1_Click()DimsumAsSingle，iAsIntegersum=0Fori=1To99Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4.某人走楼梯，方法是每步跨1个台阶或跨2个台阶。现要计算有20个台阶的楼梯，共有多少种不同的走法？经分析，台阶数与走法种数如下表：台阶数123456789…走法种数1235813213455…由上表得，走法种数的规律是：从第3项开始，每一项是它相邻的前面2项之和。解决上述问题的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsLong,nAsIntegera=1b=2c=a+bForn=4To①a=bb=c②NextnText1.Text=Str(c)EndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第四套）四、程序设计题（本题共4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下VisualBasic程序段：a=2b=3c=4c=b-a该程序段运行后,变量c的值为___________。2．有如下VisualBasic程序段：a=2b=5Ifa>bThenm=aElsem=b该程序段运行后,变量m的值为___________。3.下面是一段VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub该程序运行后，语句sum=sum+i*i共执行了次。4.有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，两个月后，这对兔子就会生1对小兔子，以后每个月都会生一对小兔子；而生下来的这对小兔子，两个月后又会开始生1对小兔子。依次类推，试问：几个月后，兔子将超过50对？分析问题得出月份与兔子对数的关系如下表：月份123456789…兔子对数112358132134…由表知兔子繁殖规律：从第3个月开始，以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。解决上述问题的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()Dima(1To100)AsInteger,nAsIntegera(1)=1a(2)=1a(3)=a(2)+a(1)n=3DoWhilea(n)<=50n=①a(n)=②LoopText1.Text=Str(a(n))EndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第五套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=2b=4b=a+b该程序段运行后，变量b的值是___________。2．有如下VisualBasic程序段：x=1.5Ifx>1ThenLabel1.Caption="醉酒!"ElseLabel1.Caption="没有醉酒!"EndIf该程序段运行后,Label1标签上显示为___________。3.下面VisualBasic程序的功能是：计算表达式1+1/2+1/3+…+1/100的值，并在文本框Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为__________________。PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To100sum=sum+iNextiText1.Text=Str(sum)EndSub4.《浙江省道路交通安全法》第八十三条规定：机动车驾驶人驾驶机动车超过规定时速的，按以下标准处以罚款：（一）超过规定时速未达百分之五十的，处二百元罚款；（二）超过规定时速百分之五十的，处五百元罚款；每多超五公里，加处二百元罚款，但最高罚款不得超过二千元。设某公路的规定时速为80(km/h)，用x表示车速，y表示罚款数，该问题的数学式为：根据上述分析，解决此问题的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<=80Theny=0ElseIf①Theny=200Else②Ify>2000Theny=2000EndIfEndIfLabel1.Caption=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第六套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=15b=5a=a-b该程序段运行后，变量a的值是___________。2．有如下VisualBasic程序段：x=110Ifx>100ThenLabel1.Caption="你超速了!"ElseLabel1.Caption="你没超速!"EndIf该程序段运行后,Label1标签上显示为___________。3．下面VisualBasic程序的功能是：计算表达式1×2+3×4+5×6+7×8+9×10的值。运行该程序后，语句sum=sum+i*(i+1)共执行了次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9Step2sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4.哥哥考弟弟一道数学题，题目是：“有一筐鸡蛋，2个2个数多1个，3个3个数多2个，4个4个数多3个，5个5个数正好数完，问这筐鸡蛋最少是几个？”为解决此问题，弟弟编了一个如下VisualBasic程序，其中s表示鸡蛋数，t用于控制循环。但此程序存在两处错误，已分别用划线及①、②标注。请改正这二处错误，并将正确内容按顺序填写在程序下方①和②划线处。PrivateSubCommand1_Click()DimsAsInteger,tAsBooleans=5t=FalseDoWhileNotts=s+1t=(sMod2=1)And(sMod3=2)And(sMod4=3)And(sMod5<>0)'①Next'②Text1.Text=Str(s)EndSub程序中划线处①改为程序中划线处②改为

2007年6月高中信息技术会考算法与程序设计题（第七套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）有如下VisualBasic程序段：a=8b=10b=a*b/2该程序段运行后，变量b的值为。2．有如下VisualBasic程序段：a=5b=10max=aIfb>maxThenmax=b该程序段运行后，变量max的值为。3．下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为__________________。PrivateSubCommand1_Click()DimiAsInteger，tAsLongt=0Fori=1To10

t=t*iNextiText1.Text=Str(t)EndSubp＜15？开始增长率：r←0.5%p＜15？开始增长率：r←0.5%结束今年人口：p←13.5所需年数：n←0p←p(1+r)n←n+1输出nYN图VB－1解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_click()DimnAsInteger,rAsSingleDimpAsDoubler=0.5/100p=13.5n=0DoWhilep<15①n=n+1②Text1.Text=Str(n)EndSub程序中划线处①应填入程序中划线处②应填入2007年6月高中信息技术会考算法与程序设计题（第八套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：k=30h=5s=h*k/2该程序段运行后，变量s的值为。2．有如下VisualBasic程序段：a=10b=20x=30Ifx>bThena=b+aElsea=b-aEndIf该程序段运行后，变量a的值为。3．下面VisualBasic程序的功能是：计算表达式1×2+2×3+3×4+……+8×9+9×10的值，并在文本框Text1中输出表达式的值。该程序运行后，程序中的语句sum=sum+i*(i+1)共执行了次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4.铁路托运行李，是根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费，若超过50千克，超过部分则按每千克0.5元收费，行李重量不得超过150千克。设计一个VisualBasic程序，通过输入托运行李的重量，计算并输出托运行李的费用，若超过150千克，提示“行李超重!”。设x表示行李重量，y表示托运费。通过分析可以得出该问题的数学表达式为：解决上述问题的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxasDoublex=Val(Text1.Text)Ifx>150ThenText2.Text="行李超重!"ElseIf①Theny=50*0.35+(x-50)*0.5Else②EndIfText2.Text=Str(y)EndIfEndSub程序中划线处①应填入程序中划线处②应填入

2007年6月高中信息技术会考算法与程序设计题（第九套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：e=3f=7h=5s=(e+f)*h/2该程序段运行后，变量s的值为。2．有如下VisualBasic程序段：a=10b=20x=5Ifx>bThena=a+bElsea=a-bEndIf该程序段运行后，变量a的值为。3．下面VisualBasic程序的功能是：求1～20以内的奇数和。运行该程序后，语句sum=sum+i共执行了次。PrivateSubCommand1_Click()DimsumasInteger,iasIntegersum=0Fori=1To20Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4．将一张面值为100元的人民币等值换成5元、1元的零钞共40张，要求每种零钞不少于1张，问5元和1元面值的零钞各多少张？设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为：且1≤x＜20解决上述问题的VisualBasic程序如下，但此程序存在两处错误，已分别用划线及①、②标注。请改正这二处错误，并将正确内容按顺序填写在程序下方①和②划线处。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegery=1:x=1DoWhile5x+y<>100'①y=y+1x+y=40'②LoopLabel1.Caption="5元钞"+Str(x)+"张"Label2.Caption="1元钞"+Str(y)+"张"EndSub程序中划线处①改为程序中划线处②改为

2007年6月高中信息技术会考算法与程序设计题（第十套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=3b=5h