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)的值是。用輾轉相除法求最大公約數(shù)。已知用輾轉相除法求兩個正整數(shù)m、n的最大公約數(shù)的算法如下：(用num1,num2,r分別表示被除數(shù)m、除數(shù)n和余數(shù))求num1/num2的余數(shù)r；若r=0，則執(zhí)行第⑤步；將num2的值放在num1中，將r的值放在num2中；重新執(zhí)行第①步；輸出最大公約數(shù)num2。下列VisualBasic程序用于求三個正整數(shù)的最大公約數(shù)。程序界面如圖所示，在文本框Text1、Text2和Text3中分別輸入三個數(shù)a、b和c，單擊"求最大公約數(shù)"按鈕(Command1)后，在文本框Text4中輸出a、b、c的最大公約數(shù)y。Functiontemp(num1asInteger,num2asInteger)asIntegerDimrasInteger'此函數(shù)用于計算兩個正整數(shù)的最大公約數(shù)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解決此問題的算法是。(選填：解析法或枚舉法)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整：程序中①劃線處應填入。程序中②劃線處應填入。第二套有如下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的值是。某超市打折促銷，規(guī)定如下：購物未超過500元按原價支付；購物超過500元但未超過1000元，超過500元部分按9折優(yōu)惠計價；購物超過1000元但未超過1500元，超過1000元部分按8折優(yōu)惠計價;購物超過1500元但未超過3000元，超過1500元部分按7折優(yōu)惠計價;購物超過3000元，超過3000元部分按6折優(yōu)惠計價。根據(jù)以上規(guī)定，假定購物貨款為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解決此問題的算法是。(選填：解析法或枚舉法)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。程序中①劃線處應填入。程序中②劃線處應填入。第三套有如下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解決此問題的算法是。(選填：順序查找或對分查找)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整。程序中①劃線處應填入。程序中②劃線處應填入。開始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”執(zhí)行的次數(shù)為。變量s的值為。某協(xié)會進行釣魚比賽，最后有十人進入決賽，錄入員編制了如下VisualBasic程序，功能是根據(jù)成績進行排序，程序中數(shù)組a保存所有參賽者的成績，數(shù)組b保存此成績對應的姓名，第i位參賽者的成績保存在a(i)中，姓名保存在b(i)中。程序界面如圖所示，左邊列表框List1中顯示原始數(shù)據(jù)(成績和相應的姓名)，單擊"排序"按鈕(Commandl),排序后的結果按成績從高到低顯示在列表框List2中?！鰠f(xié)會釣魚比賽匚?區(qū)原始數(shù)據(jù)排序后的成績解決此問題的算法流程圖如圖所示，排序部分的程序段如下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()'此過程用于對數(shù)組a和數(shù)組b進行初始賦值，代碼略EndSub(1)解決此問題的算法是。(選填：冒泡排序或選擇排序)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整：程序中①劃線處應填入。程序中②劃線處應填入。第五套有如下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上顯示的是。已知某數(shù)列前二項分別為：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問：數(shù)組a存儲該數(shù)列的前20項，上面程序段劃線處應填入。該程序段運行后，a(6)的值為。王敏的E-Mail郵箱密碼忘記了，但她需要收一封很重要的來信，請你幫她盡可能找出密碼。她零星記得自己密碼信息：密碼是六位數(shù)字，前面兩位為31；最后兩位數(shù)字相同；能被16和46整除。程序界面如圖所示，單擊〃幫助找回密碼〃按鈕(Command"后，可能的密碼顯示在列表框List1中。解決此問題的相應程序如下：PrivateSubCommand1_Click()DimaAsInteger,sAslong,bAsInteger,iAsIntegerFori=0To9999①s=310000+iIfsMod46=0Then②b=(sMod100)\10Ifa=bThenList1.AddItemStr(s)EndIfEndIfNextiEndSub(1)解決此問題的算法是。(選填：枚舉算法或排序算法)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整：程序中①劃線處應填入。程序中②劃線處應填入。開始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上顯示的是。已知某數(shù)列前二項分別為：a=1，a=2，以后每項都滿足：12a=a+a(i>2)有如下VisualBasic程序段：Dima(1To20)AsIntegera(1)=1:a(2)=2Fori=3To20a(i)=+a(i-2)Nexti問：如果用數(shù)組a存儲該數(shù)列的前20項，程序段劃線處應填入。該程序段運行后，a(4)的值為。小明設計了某單位的公積金查詢系統(tǒng)，輸入職工的公積金賬號，可以查出該賬號對應的余額。所有職工的公積金賬號和相應的余額已分別保存在數(shù)組a(按從小到大排序)和數(shù)組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'設賬號總數(shù)為nDoWhile(i<=j)AndNotf①Ifx=a(m)Thenf=TrueElseIfx<a(m)Thenj=m-1Else②EndIfLoopIffThenLabel2.Caption="此賬號余額為"+Str(b(m))+"元"ElseLabel2.Caption="找不到此賬號，請重新輸入"EndIfEndSubPrivateSubForm_Load()'此過程用于對數(shù)組a和數(shù)組b進行初始賦值，代碼略EndSub解決此問題的算法是。(選填：對分查找或順序查找)在程序①和②劃線處填入適當?shù)恼Z句或表達式，將程序補充完整：程序中①劃線處應填入程序中②劃線處應填入畝產量原始數(shù)據(jù)按畝產量排序860.1775.8668.4789.9畝產量原始數(shù)據(jù)按畝產量排序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程序，他把同學們收集到的水稻畝產量和同學姓名已分別保存在數(shù)組a和數(shù)組b中，第i個同學收集的畝產量保存在a(i)中，對應的同學姓名保存在b(i)中，最后按畝產量從高到低進行排序。程序界面如圖所示，左邊列表框Listl中顯示的是所有同學收集到的原始數(shù)據(jù)，單擊"排序"按鈕(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()'此過程用于對數(shù)組a和數(shù)組b進行初始賦值，代碼略EndSub解決此問題的算法是。(選填：選擇排序或冒泡排序)在程序①和②劃線處填入適當?shù)恼Z句或表達式，將程序補充完整：程序中①劃線處應填入。程序中②劃線處應填入。第八套有如下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”執(zhí)行的次數(shù)為。變量s的值為。數(shù)制轉換。將一個K進制(k<=10)數(shù)乂轉換成十進制數(shù)可采用如下方法：主要方法是從右向左，依次取數(shù)x的各位數(shù)字，分別計算出該數(shù)從右邊數(shù)起的第i位數(shù)字與k(i-的積，再將其累加，直到所有的數(shù)字取完為止。例如，將五進制數(shù)1231轉換成十進制數(shù)的方法如下：(1231)5=1X5°+3X5t+2X5Z+1X5-(191)10下列VisualBasic程序的功能是將K進制(k<=10)數(shù)乂轉換成十進制數(shù)。界面如圖所示，在文本框Text1中輸入數(shù)制k,在文本框Text2中輸入數(shù)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)+"進制數(shù)"+Text2.text+"轉換成十制數(shù)為"+Str(b)EndSub解決此問題所用的算法是。(選填：解析法或枚舉法)在程序①和②劃線處，填入適當?shù)恼Z句或表達式，把程序補充完整：程序中①劃線處應填入。程序中②劃線處應填入。

第九套有如下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”執(zhí)行的次數(shù)為。變量c的值為。學?！娔X周〃活動已經(jīng)結束，林敏在班里舉行了一個〃我最關注的競賽項目〃的投票活動，她設計了一個VisualBasic程序，把所有同學的投票情況輸入到電腦里，先將各項目得票數(shù)和項目名分別保存在數(shù)組a和數(shù)組b中，第i個項目的得票數(shù)保存在a(i)中，對應的項目名保存在b(i)中。筍"電苗周”莪量喜耋項目評選1n回區(qū)筍"電苗周”莪量喜耋項目評選1n回區(qū)同學評選原始數(shù)據(jù)投票排名58748456323949819512587484563239498195129887776665flazh作品網(wǎng)絡應用能力電腦小報閣像處理電腦繪畫電子書打字比賽、kutoCad■設計VB程序設計程序界面如圖所示，左邊列表框Listl中顯示同學評選的原始數(shù)據(jù)，單擊〃得票統(tǒng)計"按鈕(Commandl)，所有得票數(shù)從高到低顯示在列表框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()'此過程用于對數(shù)組a和數(shù)組b進行初始賦值，代碼略EndSub(1)解決此問題用的算法是。(選填：