2010年浙江省信息技术会考试题 -算法填空题

第一套有如下VisualBasic程序段：a=12:b=20b=a+b+28a=b+a-5b=a+b该程序段运行后，变量b的值为。有如下VisualBasic程序段：a=5b=Len("1011")Ifa>bThenLabel1.Caption="请重新输入"ElseLabel1.Caption="欢迎光临"EndIf该程序段运行后，在标签Labell上显示的是。以下VisualBasic程序的功能是：计算表达式1X1+2X2+3X3+4X4+5X5+6X6的值，并在文本框Text_1中输出结果。PrivateSubCommand1_Click()Dima(1To6)AsIntegerDimsAsInteger,iAsIntegers=0Fori=1To6a(i)=i*is=s+a(i)Nexti=str(s)EndSub问：为了计算上述表达式的值，上面程序段划线处应填入。该程序段运行后，a(5)的值是。用辗转相除法求最大公约数。已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1,num2,r分别表示被除数m、除数n和余数)求num1/num2的余数r；若r=0，则执行第⑤步；将num2的值放在num1中，将r的值放在num2中；重新执行第①步；输出最大公约数num2。下列VisualBasic程序用于求三个正整数的最大公约数。程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数a、b和c，单击"求最大公约数"按钮(Command1)后，在文本框Text4中输出a、b、c的最大公约数y。Functiontemp(num1asInteger,num2asInteger)asIntegerDimrasInteger'此函数用于计算两个正整数的最大公约数r=num1Modnum2DoWhile①num1=num2num2=rr=num1Modnum2Looptemp=num2EndFunctionPrivateSubCommand1_Click()DimaasInteger,basInteger,casInteger,xasInteger,yasIntegera=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)x二②y=temp(x,c)Text4.Text=Str(y)EndSub解决此问题的算法是。(选填：解析法或枚举法)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入。程序中②划线处应填入。第二套有如下VisualBasic程序段:m=-5n=-2s=m+Int（n）该程序段运行后，变量s的值为有如下VisualBasic程序段：a=10Ifa>bThenLabel1.Caption="morning"ElseLabel1.Caption="byebye"EndIf该程序段运行后，在标签Label1上显示的是有如下VisualBasic程序段：s=0a=5Fori=1To10Step2a=a+is=a*iNexti问：该程序段运行后，（1）变量i的值是。（2）变量s的值是。某超市打折促销，规定如下：购物未超过500元按原价支付；购物超过500元但未超过1000元，超过500元部分按9折优惠计价；购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价;购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价;购物超过3000元，超过3000元部分按6折优惠计价。根据以上规定，假定购物货款为x元，则实付金额y为：500(k-500)+0.9k^500500<k^1000y=500500+0.9500500+0.9J500500(k-500)+0.9k^500500<k^1000y=500500+0.9500500+0.9J500500*0.9+仗一1000)*0.8+500+0.8+仗一1500)*0.7+500*0.8+1500*0.7+(k-3000)1OOO<k^15OO1500<k^3000*0.6X>3000程序界面如图所示，在〃输入购物金额（单位：元）〃后的文本框orgtext中输入购物金额（单位：元），单击"实付金额计算"按钮（Command1）后，在〃实际支付金额（单位：元）为〃后的文本框cashText中输出实付金额。解决此问题相应的VisualBasic程序如下：PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(orgtext.Text)Ifx<=500Theny=xElself①Theny=500+(x-500)*0.9ElseIfx<=1500Theny=500+500*0.9+(x-1000)*0.8ElseIfx<=3000Theny=500+500*0.9+500*0.8+(x-1500)*0.7Elsey=500+500*0.9+500*0.8+1500*0.7+(x-3000)*0.6EndIf②EndSub解决此问题的算法是。(选填：解析法或枚举法)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序中①划线处应填入。程序中②划线处应填入。第三套有如下VisualBasic程序段：〃1〃m="sch"n=Mid("tools",2,3)s=m+n该程序段运行后，变量s的值为。有如下VisualBasic程序段：a=3:b=4:c=5Ifa>bAndb>cThenLabel1.Caption="happy"ElseLabel1.Caption="better"EndIf该程序段运行后，在标签Label1上显示的是。有如下VisualBasic程序段：DimiAsInteger,sAsIntegers=0i=1:a=5DoWhilei<=100s=s+a*ii=i*5Loop问：该程序段运行后，变量i的值是。变量s的值为。要求从某一字符串中删除指定的字符(假设所含的英文字母均为小写字母)，并将处理后的字符串重新输出。程序界面如图所示，在文本框Text_l中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击〃删除此字符〃按钮(Commandl)后，在文本框Text_3中输出处理后的结果。解决此问题的算法流程图如图所示，相应的VisualBasic程序如下:DimpAsString,kAsStringPrivateSubCommand1_Click()DimsAsInteger,resultAsString,flagAsBooleanresult=p=Text_1.Textk=Text_2.TextFors=1ToLen(p)flag=f(s)IfNotflagThenresult二result+①EndIfNexts②EndSubFunctionf(sAsInteger)AsBooleanIfMid(p,s,1)=kThenf=TrueEndFunction解决此问题的算法是。(选填：顺序查找或对分查找)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。程序中①划线处应填入。程序中②划线处应填入。开始Y结束Y£个字符与k不相等⑦~/输人原始字符串口~~=开始Y结束Y£个字符与k不相等⑦~/输人原始字符串口~~=/和要删除的字符k/输岀TUEUlt将此字符加瓜.resultresult清空汁£+1第四套有如下VisualBasic程序段：a=-1:b=2c=3Modbb=b+c该程序段运行后，变量b的值为。有如下VisualBasic程序段：a=13：b=24：c=5Ifa>bOrb>cThenLabel1.Caption="monday"ElseLabel1.Caption="tiger"EndIf该程序段运行后，在标签Label1上显示的是有如下VisualBasic程序段：s=10Fori=1To20Step3s=s+iNextiForj=1To3s=s*jNextj问：该程序段运行后，语句“s二s*j”执行的次数为。变量s的值为。某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下VisualBasic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。程序界面如图所示，左边列表框List1中显示原始数据(成绩和相应的姓名)，单击"排序"按钮(Commandl),排序后的结果按成绩从高到低显示在列表框List2中。■协会钓鱼比赛匚®区原始数据排序后的成绩解决此问题的算法流程图如图所示，排序部分的程序段如下Dima(1To10)AsSingleDimb(1To10)AsStringPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAsStringFori=1To9k=iForj=i+1To10If①Thenk二jNextjIfk<>iThenx=a(i):a(i)=a(k):②y=b(i):b(i)=b(k):b(k)=yEndIfNextiFori=1To10List2.AddItemStr(a(i))+""+b(i)NextiEndSubPrivateSubForm_Load()'此过程用于对数组a和数组b进行初始赋值，代码略EndSub(1)解决此问题的算法是。(选填：冒泡排序或选择排序)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入。程序中②划线处应填入。第五套有如下VisualBasic程序段：〃・〃s="expression"a=25b=a+Len(s)该程序段运行后，变量b的值为有如下VisualBasic程序段：a=1：b=2：c=5Ifa>bAnda>cThenc=a+bElsec=a+5EndIfLabel1.Caption=Str(c)该程序段运行后，在标签Label1上显示的是。已知某数列前二项分别为：a=1、a=2，以后每项都满足:12a=a+a(i>2)有如下VisualBasic程序段：Dima(1To20)AsIntegera(1)=1:a(2)=2Fori=3Toa(i)=a(i-2)+a(i-1)Nexti问：数组a存储该数列的前20项，上面程序段划线处应填入。该程序段运行后，a(6)的值为。王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。程序界面如图所示，单击〃帮助找回密码〃按钮(Command"后，可能的密码显示在列表框List1中。解决此问题的相应程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAslong,bAsInteger,iAsIntegerFori=0To9999①s=310000+iIfsMod46=0Then②b=(sMod100)\10Ifa=bThenList1.AddItemStr(s)EndIfEndIfNextiEndSub(1)解决此问题的算法是。(选填：枚举算法或排序算法)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入。程序中②划线处应填入。开始1^1+16第六套有如下VisualBasic程序段：a=15b=Val("256")a=a*2+b该程序段运行后，变量a的值为。有如下VisualBasic程序段：a=Mid("Pleaseinput",4,2)b="Please"IfLen(a)<Len(b)ThenLabel1.Caption="标准"ElseLabel1.Caption="不合格"EndIf该程序段运行后，在标签Label1上显示的是。已知某数列前二项分别为：a=1，a=2，以后每项都满足：12a=a+a(i>2)有如下VisualBasic程序段：Dima(1To20)AsIntegera(1)=1:a(2)=2Fori=3To20a(i)=+a(i-2)Nexti问：如果用数组a存储该数列的前20项，程序段划线处应填入。该程序段运行后，a(4)的值为。小明设计了某单位的公积金查询系统，输入职工的公积金账号，可以查出该账号对应的余额。所有职工的公积金账号和相应的余额已分别保存在数组a(按从小到大排序)和数组b中，第i个职工的账号保存在a(i)中，对应的账号余额保存在b(i)中。程序界面如图所示，左边列表框Listl中显示的是部分职工的账号和余额，在文本框Textl中输入职工的公积金账号，单击"查询余额"按钮(Commandl)后，如果找到此账号，则在标签Label2中显示〃此账号余额为〃和账号对应的余额值，如果未找到则显示"找不到此账号，请重新输入"。解决此问题的算法流程图如图所示，相应的查找部分程序段如下：Dima(1Ton)AsLongDimb(1Ton)AsSinglePrivateSubCommand1_Click()DimxAsLong,iAsLong,jAsLong,mAsLong,fAsBooleanx=Val(Text1.Text)i=1:j=n:f=False'设账号总数为nDoWhile(i<=j)AndNotf①Ifx=a(m)Thenf=TrueElseIfx<a(m)Thenj=m-1Else②EndIfLoopIffThenLabel2.Caption="此账号余额为"+Str(b(m))+"元"ElseLabel2.Caption="找不到此账号，请重新输入"EndIfEndSubPrivateSubForm_Load()'此过程用于对数组a和数组b进行初始赋值，代码略EndSub解决此问题的算法是。(选填：对分查找或顺序查找)在程序①和②划线处填入适当的语句或表达式，将程序补充完整：程序中①划线处应填入程序中②划线处应填入亩产量原始数据按亩产量排序860.1775.8668.4789.9亩产量原始数据按亩产量排序860.1775.8668.4789.9T756.4806.1764.3911.64烽晨芝玲婵文民仓敏晓华兰晓小向小传小川陈陆M方倪郑叶赵壬裘排序911.6壬小敏872.4裘川871.7倪小蝉860.1陈晓握806.1叶小民789.9方晓玲775.8陆华晨764.3赵传仓756.4郑向文668.4萤兰芝第七套有如下VisualBasic程序段：a=210b=-19b=a+a\5该程序段运行后，变量b的值为。有如下VisualBasic程序段：a=11b=Len("VisualBasic")Ifa>bThenLabel1.Caption="计算机基础"ElseLabel1.Caption="课外活动"EndIf该程序段运行后，在标签Label1上显示的是。有如下VisualBasic程序段：s=150:i=1DoWhiles>100s=s-i+1i=i+20Loop问：该程序段运行后，变量i的值是。变量s的值为。陈晓峰和同学们去农科院开展研究性学习，大家都收获很大，晓峰设计了一个VisualBasic程序，他把同学们收集到的水稻亩产量和同学姓名已分别保存在数组a和数组b中，第i个同学收集的亩产量保存在a(i)中，对应的同学姓名保存在b(i)中，最后按亩产量从高到低进行排序。程序界面如图所示，左边列表框Listl中显示的是所有同学收集到的原始数据，单击"排序"按钮(Commandl)后，在右边的列表框List2中显示排序完成后的结果(按亩产量从高到低排列)。首水稻苗产情况研究解决此问题的算法流程图如图所示，相应的排序部分程序如下Dima(1Ton)AsSingleDimb(1Ton)AsStringPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,cAsSingle,tAsStringFori=1Ton'设共有n名同学Forj=nToi+1①If②Thenc=a(j-1)a(j-1)=a(j)a(j)=ct=b(j-1)b(j-1)=b(j)b(j)=tEndIfNextjNextiFori=1TonList2.AddItemStr(a(i))+""+b(i)NextiEndSubPrivateSubForm_Load()'此过程用于对数组a和数组b进行初始赋值，代码略EndSub解决此问题的算法是。(选填：选择排序或冒泡排序)在程序①和②划线处填入适当的语句或表达式，将程序补充完整：程序中①划线处应填入。程序中②划线处应填入。第八套有如下VisualBasic程序段：a=29:b=6a=aModbb=a+Len("Input")该程序段运行后，变量b的值为。有如下VisualBasic程序段：x=2010s=10Ifx<2012Thens=s+xLabel1.Caption=Str(s)该程序段运行后，在标签Label1上显示的是。有如下VisualBasic程序段：DimiAsInteger,sAsIntegeri=5s=0DoWhilei<=50s=s+i:i=i*2Loop问：该程序段运行后，语句“s=s+i”执行的次数为。变量s的值为。数制转换。将一个K进制(k<=10)数乂转换成十进制数可采用如下方法：主要方法是从右向左，依次取数x的各位数字，分别计算出该数从右边数起的第i位数字与k(i-的积，再将其累加，直到所有的数字取完为止。例如，将五进制数1231转换成十进制数的方法如下：(1231)5=1X5°+3X5t+2X5Z+1X5-(191)10下列VisualBasic程序的功能是将K进制(k<=10)数乂转换成十进制数。界面如图所示，在文本框Text1中输入数制k,在文本框Text2中输入数x,单击"转换"按钮(Commandl)后，在标签Label4中输出转换的结果。解决此问题的算法流程图如图所示，相应的VisualBasic程序如下：PrivateSubCommand1_Click()DimbAsLong,iAsInteger,kAsInteger,xAsLong,tAsIntegerb=0:i=1k=Val(Text1.Text)x=Val(Text2.Text)t=xMod10TOC\o"1-5"\h\zDoWhile①b=②x=x\10t=xMod10i=i+1LoopLabel4.Caption=Str(k)+"进制数"+Text2.text+"转换成十制数为"+Str(b)EndSub解决此问题所用的算法是。(选填：解析法或枚举法)在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入。程序中②划线处应填入。

第九套有如下VisualBasic程序段：b=Len(〃-l.25〃)s=Mid(〃picture〃,2,b)该程序段运行后，变量s的值为。有如下VisualBasic程序段：x=100s=10Ifx>sThens=s+xText1.Text=Str(s)该程序段运行后，在文本框Text1中显示的是有如下VisualBasic程序段：DimaAsInteger,bAsInteger,cAsIntegera=20b=0c=2DoWhilea>bAnda>cb=b+1c=c+bLoop问：该程序段运行后，语句“b二b+1”执行的次数为。变量c的值为。学校〃电脑周〃活动已经结束，林敏在班里举行了一个〃我最关注的竞赛项目〃的投票活动，她设计了一个VisualBasic程序，把所有同学的投票情况输入到电脑里，先将各项目得票数和项目名分别保存在数组a和数组b中，第i个项目的得票数保存在a(i)中，对应的项目名保存在b(i)中。筍"电苗周”莪量喜耋项目评选1n回区筍"电苗周”莪量喜耋项目评选1n回区同学评选原始数据投票排名58748456323949819512587484563239498195129887776665flazh作品网络应用能力电脑小报閣像处理电脑绘画电子书打字比赛、kutoCad■设计VB程序设计程序界面如图所示，左边列表框Listl中显示同学评选的原始数据，单击〃得票统计"按钮(Commandl)，所有得票数从高到低显示在列表框List2中。解决此问题的算法流程图如图所示，排序部分的程序段如下：Dima(lTon)AsSingleDimb(lTon)AsStringPrivateSubCommand1_Click()DimiAsInteger,jAsInteger,kAsInteger,xAsSingle,yAsStringFori=1Ton-1'假设共有n个竞赛项目k=iForj=i+1TonIfa(k)<a(j)Then①NextjIfk<>iThenx=a(i)a(i)=a(k)a(k)=xy=b(i)b(i)=b(k)b(k)=y②NextiFori=1TonList2.AddItemStr(a(i))+""+b(i)NextiEndSubPrivateSubForm_Load()'此过程用于对数组a和数组b进行初始赋值，代码略EndSub(1)解决此问题用的算法是。(选填：