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

2021年6月高中信息技术会考

算法与程序设计题〔第一套〕四、程序设计题〔此题有4小题，第1－3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：a=3:b=2:c=3b=a+b*c该程序段运行后，变量b的值为。.有如下VisualBasic程序段：a=39b=93Ifa+b>100Thenpy="太大”Ifa+b=100Thenpy="相等”Ifa+b<100Thenpy="太小”Label1.Caption=py该程序段运行时，在Label1标签上显示的是。.以下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®②y=1053-x*xLoopText1.Text=Str(x)Text2.Text=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入2021年6月高中信息技术会考算法与程序设计题〔第二套〕四、程序设计题〔此题有4小题，第1－3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：a="Happy"b="ness"c=a+b该程序段运行后，变量c的值是。.有如下VisualBasic程序段：DimxAsSingle,cAsStringx=Val(Text1.Text)Ifx>12Thenc="PM"Elsec="AM"EndIfLabel1.Caption=c该程序段运行时，在文本框丁0乂9中输入15.6,Labell标签上将显示的是。VisualBasic程序的功能是：计算表达式12+42+72+…+972的值，并在文本框Textl中输出表达式的值。为了实现这一目标，程序中For语句划线处的循环变量步长应为PrivateSubCommand1_Click()DimsumAsLongDimiAsIntegersum=0Fori=1To97Stepsum=sum+i*iNextiTextLText=Str(sum)EndSub4.模拟一个简单计算器，输入两个数和一个运算符〔加、减、乘、除〕，进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Textl中输入第一个数a,在文本框Text2中输入第二个数b,在文本框Text3中输入运算符ch,在文本框Text4中输出运算结果。图VB-1当输入的运算符不是加、减、乘、除四种运算符时，那么输出“运算符不正确〃；当进行除法运算时，如果除数为0,提示输出“除数不能为零〃。解决上述问题的算法流程图如图VB-2所示，相应的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,chAsStringa=Val(Textl.Text)b=Val(Text2.Text)①Ifch="+"ThenText4.Text=Str(a+b)Elselfch="*"ThenText4.Text=Str(a*b)Elselfch="-"ThenText4.Text=Str(a-b)Elselfch="/"ThenIf② =Str(a/b)Else二〃除数不能是零〃Else

Text=〃运算符不正确〃EndIfText=〃运算符不正确〃EndIfEndSub程序中划线处①应填入程序中划线处②应填入，结束二）图VB-22021年6月高中信息技术会考

算法与程序设计题〔第三套〕共18分〕四、程序设计题〔此题有4小题，第1—3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：a=3:b=4c=a+bb=c*b该程序段运行后，变量b的值为。.有如下VisualBasic程序段：a=10b=20c=5m=aIfb>mThenm=bIfc>mThenm=c该程序段运行后，变量m的值为。

.以下VisualBasic程序的功能是：计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Textl中输出结果。为了实现这一功能，程序中划线处的语句应更正为PrivateSubCommand1_Click()DimiAsInteger,sAsLongs=0k=2Fori=1To10s=s+kk=k*2NextiTextl.Text=Str(s)EndSub.某市近期向市民投放带2B开头尾数为001至999的机动车牌号，经过竞投有200个牌号被首批车主投中。下面VisualBasic程序段的功能是根据车牌号查找相应的车主身份证号码，其中车牌号按尾数从小到大的顺序存储在cno数组中，身份证号码存储在cnum数组中。界面如图VB-1所示，在文本框Textl中输入一个车牌号，单击“开始查找〃按钮后，在文本框Text2中输出结果。如果查找成功，那么输出对应的车主身份证号码，否那么输出“找不到〃。相应的VisualBasic程序段如下，在①和图VB-1解决查找问题的算法流程图如图相应的VisualBasic程序段如下，在①和图VB-1PrivateSubCommand1_Click()DimkeyAsString,iAsIntegerDimjAsInteger,foundAsBooleani=1:j=200:found=False①DoWhilei<=jAndNotfoundm=Int((i+j)/2)Ifcno(m)=keyThenfound=TrueElseElsej=m-1If②Theni=m+1EndIfElsej=m-1LoopIfNotfoundThenText2.Text="找不至U"ElseText2.Text=cnum(m)EndSub程序中划线处①应填入程序中划线处②应填入

2021年6月高中信息技术会考

算法与程序设计题〔第四套〕四、程序设计题〔此题共4小题，第1—3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：a=3:b=2b=a*ba=a+b该程序段运行后，变量a的值为。.有如下VisualBasic程序段：a=30:b=20:c=5m=aIfb<mThenm=bIfc<mThenm=c该程序段运行后，变量m的值为。.有如下VisualBasic程序段：s=0Fori=0To4s=s+2"iNexti该程序段运行后，变量s的值为。4.某班级45名学生，每位学生中文姓名均不相同，并且都有一个英文名。下面程序的功能

是根据学生的中文姓名查找相应的英文名，其中学号存储在数组sn。中，英文名存储在数组sname中，中文姓名存储在数组ch中。程序界面如图VB-1所示，在文本框textl中输入要查找的中文姓名，单击”开始查找〃按钮，如果查找成功，那么在文本框Text2中输出该学生的学号、中文姓名和英文名，否那么在文本框Text2中输出“查无此人！〃。解决查找问题的算法流程图如图VB-2所示，相应的VisualBasic程序段如下，在①和②划线处，填入适宜的语句或表达式，把程序段补充完整。时查找英文名 时查找英文名 HE®根据学生中文名查找相应的英文名输入查找的中文名王小明根据学生中文名查找相应的英文名输入查找的中文名王小明[5号:王小明英文吝是Jack诳髓我]①DoWhilei<=45AndNotfoundIfch(i)=keyThenn=i:found=Truei=i+1LoopIf②ThenText2.Text="查无此人！” 图VB-1ElseText2.Text=Str(sno(n))+”号："+ch(n)+”的英文名是"+sname(n)EndIfEndSub程序中划线处①应填入程序中划线处②应填入图VB-2图VB-22021年6月高中信息技术会考

算法与程序设计题〔第五套〕四、程序设计题〔此题有4小题，第1－3小题，每题4分，第4小题6分，共18分〕.有如下程序段：a=3b=4c=a*b-2该程序段运行后，变量c的值为。.有如下VisualBasic程序段：IfxThenLabel1.Caption="Pass"ElseLabel1.Caption="Fail"EndIf该程序段运行后，Label1标签上显示为。.以下VisualBasic程序的功能是：计算表达式1+2+4+8+16+32+…+1024的值，并在文本框Textl中输出结果。为了实现这一功能，程序中划线处的语句应更正为。PrivateSubCommand1_Click()DimaAsInteger,sAsLongs=0a=1DoWhilea<=1024s=s+aa-a+2LoopText1.Text=Str(s)EndSub.?浙江省电网销售电价表?中规定，不满1千伏“一户一表〞居民用电价格，按以下标准计算：月用电量在50千瓦时及以下局部，每千瓦时以0.538元计算；51〜200千瓦时局部，那么每千瓦时按0.568元计算；200千瓦时以上局部,每千瓦时按0.638元计算。设计一个程序，根据用户的月用电量分段计算电费。设某用户的当月用电量是x千瓦时，当xW50时，电费为Xx元；当xW200时，电费为XX50元；当x>200时，电费为XX150X50元；在文本框Text1输入x,在文本框Text2中输出相应的电费。根据上述分析，解决此问题的算法流程图如图VB-1所示，相应的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimxAsInteger①Ifx<0ThenText2.Text="用电量不能是负的！"

Elselfx<=50ThenText2.Text=Str(0.538*x)ElselfThThenText2.Text=Str(0.568*(x-50)+0.538*50)ElseText2.Text=Str(0.638*(x-200)+0.568*150+0.538*50)EndIfEndSub程序中划线处①应填入程序中划线处②应填入2021年6月高中信息技术会考算法与程序设计题〔第六套〕共18分〕四、程序设计题〔此题有4小题，第1—3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：a=15b=3c=a/b+2该程序段运行后，变量c的值为。.有如下VisualBasic程序段：Ifx>0ThenLabel1.Caption="Positive”Ifx=0ThenLabel1.Caption="Zero"Ifx<0ThenLabel1.Caption="Negative"该程序段运行后，Label1标签上显示为。.有如下VisualBasic程序段：

Fori=1To10IfiMod3=0Thenk=k+1Nexti该程序段运行后，变量k的值为o.模拟两人掷骰子游戏。由电脑随机产生两个1到6之间的整数，表示甲乙两人所掷的骰子数，根据这两个数字之和是偶数还是奇数，判定哪一方赢了？偶数表示甲赢了，奇数表示乙赢了。掷了假设千次后，分别统计甲乙各赢了几次？程序界面如图VB-1所示，在文本框Textl中输入总次数n,单击“开始〃按钮，在文本框Text2中输出甲赢的次数，在文本框Text3中输出乙赢的次数。在列表框Listl中输出游戏次数和判断结果。算法流程图如图VB-2所示，相应的VisualBasic程序如下，其中变量a、b分别存储甲、乙两人所掷的骰子数，变量n存储游戏总次数，变量k、j分别存储甲、乙各自赢的次数。在①和②划线处，填入适宜的语句或表达式，把程序补充完整。L£345E7PrivateSubCommand1_Click()L£345E7DimaAsInteger,bAsInteger,nAsIntegerDimjAsInteger,kAsInteger,iAsIntegerk=0J=0①Fori=1Tona=Int(Rnd()*6+1)b=Int(Rnd()*6+1)If②Then 图VB-1Listl.AddItemStr(i)+”甲赢了！”k=k+1ElseList1.AddItemStr(i)+”乙赢了！"j=j+1EndIfText2.Text=Str(k)Text3.Text=Str(j)NextiEndSub程序中划线处①应填入程序中划线处②应填入图VB-22021年6月高中信息技术会考算法与程序设计题〔第七套〕四、程序设计题〔此题有4小题，第1—3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：i=6i=i+1j=2*i-1该程序段运行后，变量j的值为。.有如下VisualBasic程序段：Ifx>0Thenx=x+2Elsex=x-2EndIf该程序段运行后，变量x的值为。.有如下VisualBasic程序段：s=0Fori=1To10IfiMod3=0Thens=s+iNexti该程序段运行后，变量s的值为。4.某学生说他的年龄不低于10岁，且他的年龄减去10,平方以后得到的一个数，恰好是他的年龄加上10,问他的年龄多大?设这位学生年龄为y,他年龄减去10的平方为r,那么r=〔y-10〕2,那么y满足的表达式为: 〔y-10〕2=y+10解决此问题的算法流程图如图VB-1所示，相应的VisualBasic程序如下，在①和②划线处,填入适宜的语句或表达式,把程序补充完整。PrivateSubCommand1_Click()DimyAsInteger,rAsIntegery=10r=(y-10)-2DoWhile®②r=(y-10)-2LoopText1.Text=Str(y)EndSub程序中划线处①应填入程序中划线处②应填入图VB—12021年6月高中信息技术会考

算法与程序设计题〔第八套〕四、程序设计题〔此题有4小题,第1—3小题,每题4分,第4小题6分,共18分〕.有如下VisualBasic程序段：a=4b=3b=a+ba=a+b该程序段运行后，变量a的值为。.有如下VisualBasic程序段：a=120Ifa>100thenLabel1.Caption="超重"ElseLabel1.Caption="正常"EndIf该程序段运行后，Labell标签上显示为。.有如下VisualBasic程序段：s=0=3DoWhiles<=10s=s+ii=i+3Loop该程序段运行后，变量s的值为。4．用50元钱兑换面值为1元、2元、5元的纸币共25张。每种纸币不少于1张，求出有多少种兑换方案？每种兑换方案中1元、2元、5元的纸币各有多少张？假设面值为1元、2元、5元的纸币分别是x、y、z张，兑换方案有k种，从题意可得出x、y、z满足的表达式为{x+y+z=25x+2y+5z=50解决此问题的算法流程图如图VB-1所示，相应的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimkAsIntegerDimxAsInteger,yAsInteger,zAsIntegerk=0Fory=1To22Forz=1To9x=25-y-zIf①ThenListLAddItem"1元"+Str(x)+”张2元"+Str(y)+”张5元"+Str(z)+"张"②EndIfNextzNextyLabel1.Caption="共有"+Str(k)+"种兑换方案"EndSub程序中划线处①应填入程序中划线处②应填入变量赋初值： k-*— k-*—25-y-z方案数k增加L2021年6月高中信息技术会考算法与程序设计题〔第九套〕共18分〕四、程序设计题〔此题有4小题，第1—3小题，每题4分，第4小题6分，共18分〕.有如下VisualBasic程序段：k=10k=k-1t=2*k+1该程序段运行后，变量t的值为。.有如下VisualBasic程序段：x=1000Ifx>1024Thensize="大了"Elsesize="刚好”EndIfLabel1.Caption=size该程序段运行后，Label1标签上显示为。.以下VisualBasic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为PrivateSubCommand1_Click()DimiAsInteger,sumAsIntegersum=0Fori=1to100IfiMod3=0Thensum=sum+3NextiText1.Text=Str(sum)EndSub4．下面的算式表示一个四位数乘以9，积还是一个四位数。算式中相同的字母表示相同的数字，不同的字母表示不同的数字。那么算式中的a、b、c、d各代表什么数字？abcd* 9dcba从算式分析可知，第一式上最高位a*9没有产生进位，可得a=1,再由d*9结果的个位数是a，即1,可得d=9，b、c满足的表达式为(1000+100b+10c+9)*9=9000+100c+10b+1解决此问题的算法流程图如图VB-1所示，相应的VisualBasic程序如下，在①和②划线处，填入适宜的语句或表达式，把程序补充完整。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimcAsInteger,dAsIntegera=1①Forb=0To9Forc=0To9If( ②)*9=9001+100*c+10*bThenTextLText=Str(a)Text2.Text=Str(b)Text3.Text=Str(c)Text4.Text=Str(d)EndIfNextcNextbEndSub程序中划线处①应填入程序中划线处②应填入

2021年6月高中信息技术会考

算法与程序设计题〔第十套）四、程序设计题〔此题有4小题，第1—3小题，每题4分