信息技术程序设计试卷真题

浙江省2008年高中信息技术会考(六月卷)第1页共18页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+b100Thenpy=太大Ifa+b=100Thenpy=相等Ifa+b100Thenpy=太小Label1.Caption=py该程序段运行时，在Label1标签上显示的是。3．以下VisualBasic程序的功能是：计算表达式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。而我爱人年龄的平方与我的年龄之和却等于873。你计算一下吧！”设李老师年龄为x岁，他爱人年龄为y岁，由题意可得x，y满足的数学式为：x2+y=1053x+y2=873解决此问题的流程图如VB-1所示。根据流程图VB-1编写的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsInteger,yAsLongx=1y=1053-x*xDoWhile①浙江省2008年高中信息技术会考(六月卷)第2页共18页②y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入2008年6月高中信息技术会考算法与程序设计题（第二套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=Happyb=nessc=a+b该程序段运行后，变量c的值是___________。2．有如下VisualBasic程序段：DimxAsSingle,cAsStringx=Val(Text1.Text)Ifx12Thenc=PMElsec=AMEndIfLabel1.Caption=cNx+y2=873?开始x赋初值1结束y=1053-x2x值增加1计算y值输出x，yY图VB－1浙江省2008年高中信息技术会考(六月卷)第3页共18页该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是。3.下列VisualBasic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Text1中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为__________________。PrivateSubCommand1_Click()DimsumAsLongDimiAsIntegersum=0Fori=1To97Stepsum=sum+i*iNextiText1.Text=Str(sum)EndSub4．模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。解决上述问题的算法流程图如图VB-2所示，相应的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(a/b)ElseText4.Text=除数不能是零Else图VB-1浙江省2008年高中信息技术会考(六月卷)第4页共18页Text4.Text=运算符不正确EndIfEndSub程序中划线处①应填入程序中划线处②应填入2008年6月高中信息技术会考算法与程序设计题（第三套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下VisualBasic程序段：a=3:b=4c=a+bb=c*b该程序段运行后，变量b的值为_________。2．有如下VisualBasic程序段：a=10b=20c=5m=aIfbmThenm=bIfcmThenm=c浙江省2008年高中信息技术会考(六月卷)第5页共18页该程序段运行后，变量m的值为。3．以下VisualBasic程序的功能是：计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0k=2Fori=1To10s=s+kk=k*2NextiText1.Text=Str(s)EndSub4.某市近期向市民投放带2B开头尾数为001至999的机动车牌号，经过竞投有200个牌号被首批车主投中。下面VisualBasic程序段的功能是根据车牌号查找相应的车主身份证号码，其中车牌号按尾数从小到大的顺序存储在cno数组中，身份证号码存储在cnum数组中。界面如图VB-1所示，在文本框Text1中输入一个车牌号，单击“开始查找”按钮后，在文本框Text2中输出结果。如果查找成功，则输出对应的车主身份证号码，否则输出“找不到”。解决查找问题的算法流程图如图VB-2所示，相应的VisualBasic程序段如下，在①和②划线处，填入合适的语句或表达式，把程序段补充完整。PrivateSubCommand1_Click()DimkeyAsString,iAsIntegerDimjAsInteger,foundAsBooleani=1:j=200:found=False①DoWhilei=jAndNotfoundm=Int((i+j)/2)Ifcno(m)=keyThenfound=TrueElseIf②Theni=m+1Elsej=m–1EndIfLoopIfNotfoundThenText2.Text=找不到ElseText2.Text=cnum(m)EndSub程序中划线处①应填入程序中划线处②应填入图VB-1浙江省2008年高中信息技术会考(六月卷)第6页共18页2008年6月高中信息技术会考算法与程序设计题（第四套）四、程序设计题（本题共4小题，第1－3小题，每小题4分，第4小题6分，共18分）1．有如下VisualBasic程序段：a=3:b=2b=a*ba=a+b该程序段运行后，变量a的值为。2．有如下VisualBasic程序段：a=30:b=20:c=5m=aIfbmThenm=bIfcmThenm=c该程序段运行后，变量m的值为。3．有如下VisualBasic程序段：s=0Fori=0To4s=s+2^iNexti该程序段运行后，变量s的值为___________。4．某班级45名学生，每位学生中文姓名均不相同，并且都有一个英文名。下面程序的功能浙江省2008年高中信息技术会考(六月卷)第7页共18页是根据学生的中文姓名查找相应的英文名，其中学号存储在数组sno中，英文名存储在数组sname中，中文姓名存储在数组ch中。程序界面如图VB-1所示，在文本框text1中输入要查找的中文姓名，单击“开始查找”按钮，如果查找成功，则在文本框Text2中输出该学生的学号、中文姓名和英文名，否则在文本框Text2中输出“查无此人！”。解决查找问题的算法流程图如图VB-2所示，相应的VisualBasic程序段如下，在①和②划线处，填入合适的语句或表达式，把程序段补充完整。PrivateSubCommand1_Click()DimkeyAsString,iAsIntegerDimnAsInteger,foundAsBooleanfound=Falsen=0:i=1①DoWhilei=45AndNotfoundIfch(i)=keyThenn=i:found=Truei=i+1LoopIf②ThenText2.Text=查无此人！ElseText2.Text=Str(sno(n))+号:+ch(n)+的英文名是+sname(n)EndIfEndSub程序中划线处①应填入程序中划线处②应填入图VB-1图VB-2浙江省2008年高中信息技术会考(六月卷)第8页共18页2008年6月高中信息技术会考算法与程序设计题（第五套）四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）1.有如下程序段：a=3b=4c=a*b-2该程序段运行后，变量c的值为。2．有如下VisualBasic程序段：x=2.1Ifx6.0ThenLabel1.Caption=PassElseLabel1.Caption=FailEndIf该程序段运行后,Label1标签上显示为。3．以下VisualBasic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_____________。PrivateSubCommand1_Click()DimaAsInteger,sAsLongs=0a=1DoWhilea=1024s=s+aa=a+2LoopText1.Text=Str(s)EndSub4.《浙江省电网销售电价表》中规定，不满1千伏“一户一表”居民用电价格，按以下标准计算：月用电量在50千瓦时及以下部分，每千瓦时以0.538元计算；51～200千瓦时部分，则每千瓦时按0.568元计算；200千瓦时以上部分,每千瓦时按0.638元计算。设计一个程序，根据用户的月用电量分段计算电费。设某用户的当月用电量是x千瓦时，当x≤50时，电费为0.538×x元；当x≤200时，电费为0.568×(x-50)+0.538×50元；当x＞200时，电费为0.638×(x-200)+0.568×150+0.538×50元；在文本框Text1输入x，在文本框Text2中输出相应的电费。根据上述分析，解决此问题的算法流程图如图VB-1所示，相应的VisualBasic程序如下，在①和②划线处，填入合适的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsInteger①Ifx0Then浙江省2008年高中信息技术会考(六月卷)第9页共18页Text2.Text=用电量不能是负的！ElseIfx=50ThenText2.Text=Str(0.538*x)ElseIf②ThenText2.Text=Str(0.568*(x-50)+0.538*50)ElseText2.Text=Str(0.638*(x-200)+0.568*150+0.538*50)EndIfEndSub程序中划线处①应填入程序中划线处②应填入20