2007年6月浙江省信息技術(shù)會考程序填空題部分解讀

2007年6月浙江省信息技術(shù)會考程序填空題部分+++第一套+++1、有如下VisualBasic程序段：a="Good"b="Bye"c=a+b該程序段運行后，變量c的值是____(1)____。2、有如下VisualBasic程序段：x=3Ifx>5Theny=x*xElsey=4*xEndIf該程序段運行后，變量y的值是____(1)____。3、下面程序的功能是：計算表達(dá)式1+3+5+…+(2n-1)的值，在文本框Text1中輸入n的值，結(jié)果在文本框Text2中輸出。則程序中劃線處的語句應(yīng)更正為______(1)______。PrivateSubCommand1_Click()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val(Text1.Text)Fori=1To2*n-1Step2sum=sum+2NextiText2.Text=Str(sum)EndSub4、依照中華人民共和國《機(jī)動車駕駛員駕車時血液中酒精含量規(guī)定》，血液中酒精含量大于或等于0.3mg/ml駕駛機(jī)動車的屬酒后駕車；大于或等于1.0mg/ml駕駛機(jī)動車的屬醉酒駕車。設(shè)計一個程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒有違法。解決此問題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在(1)和(2)劃線處，填入合適的語句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)If(1)ThenLabel1.Caption="你屬于醉酒駕車!"ElseIfx>=0.3ThenLabel1.Caption="你屬于酒后駕車!"(2)Label1.Caption="恭喜你沒有違法!"EndIfEndIfEndSub程序中劃線處(1)應(yīng)填入程序中劃線處(2)應(yīng)填入+++第二套+++1、有如下VisualBasic程序段：a=2b=3c=4c=b-a該程序段運行后,變量c的值為___(1)____。2、有如下VisualBasic程序段：a=2b=5Ifa>bThenm=aElsem=b該程序段運行后,變量m的值為___(1)____。3、下面是一段VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub該程序運行后，語句sum=sum+i*i共執(zhí)行了(1)次。4、有一個有趣的兔子繁殖問題：第1個月買來1對小兔子，兩個月后，這對兔子就會生1對小兔子，以后每個月都會生一對小兔子；而生下來的這對小兔子，兩個月后又會開始生1對小兔子。依次類推，試問：幾個月后，兔子將超過50對？分析問題得出月份與兔子對數(shù)的關(guān)系如下表：月份123456789…兔子對數(shù)112358132134…由表知兔子繁殖規(guī)律：從第3個月開始，以后每月的兔子對數(shù)都是它相鄰的前面2個月的兔子對數(shù)之和。解決上述問題的VisualBasic程序如下，在(1)和(2)劃線處，填入合適的語句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()Dima(1To100)AsInteger,nAsIntegera(1)=1a(2)=1a(3)=a(2)+a(1)n=3DoWhilea(n)<=50n=(1)a(n)=(2)LoopText1.Text=Str(a(n))EndSub程序中劃線處(1)應(yīng)填入程序中劃線處(2)應(yīng)填入+++第三套+++1、有如下VisualBasic程序段：k=30h=5s=h*k/2該程序段運行后，變量s的值為(1)。2、有如下VisualBasic程序段：a=10b=20x=30Ifx>bThena=b+aElsea=b-aEndIf該程序段運行后，變量a的值為(1)。3、下面VisualBasic程序的功能是：計算表達(dá)式1×2+2×3+3×4+……+8×9+9×10的值，并在文本框Text1中輸出表達(dá)式的值。該程序運行后，程序中的語句sum=sum+i*(i+1)共執(zhí)行了(1)次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4、鐵路托運行李，是根據(jù)行李的重量按下列標(biāo)準(zhǔn)收費：若不超過50千克，按每千克0.35元收費，若超過50千克，超過部分則按每千克0.5元收費，行李重量不得超過設(shè)計一個VisualBasic程序，通過輸入托運行李的重量，計算并輸出托運行李的費用，若超過150千克，提示"行李超重!"設(shè)x表示行李重量，y表示托運費。通過分析可以得出該問題的數(shù)學(xué)表達(dá)式為：解決上述問題的VisualBasic程序如下，在(1)和(2)劃線處，填入合適的語句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimxasDoublex=Val(Text1.Text)Ifx>150ThenText2.Text="行李超重!"ElseIf(1)Theny=50*0.35+(x-50)*0.5Else(2)EndIfText2.Text=Str(y)EndIfEndSub程序中劃線處(1)應(yīng)填入程序中劃線處(2)應(yīng)填入+++第四套+++1、有如下VisualBasic程序段：a=8b=10b=a*b/2該程序段運行后，變量b的值為(1)。2、有如下VisualBasic程序段：a=5b=10max=aIfb>maxThenmax=b該程序段運行后，變量max的值為(1)。3、下面程序的功能是：計算表達(dá)式1×2×3×……×10的值，并在文本框Text1中輸出表達(dá)式的值。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為____(1)_____。PrivateSubCommand1_Click()DimiAsInteger，tAsLongt=0Fori=1To10t=t*iNextiText1.Text=Str(t)EndSub4、我國是人口大國，2007年初，我國人口總數(shù)已達(dá)13億5千萬。假設(shè)我國年人口增長率為0.5%，則從2007年起多少年后我國人口就會達(dá)到或超過15億？解決此問題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在(1)和(2)劃線處，填入合適的語句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_click()DimnAsInteger,rAsSingleDimpAsDoubler=0.5/100p=13.5n=0DoWhilep<15(1)n=n+1(2)Text1.Text=Str(n)EndSub程序中劃線處(1)應(yīng)填入程序中劃線處(2)應(yīng)填入+++第五套+++1、有如下VisualBasic程序段：a=15b=5a=a-b該程序段運行后，變量a的值是____(1)_____。2、有如下VisualBasic程序段：x=110Ifx>100ThenLabel1.Caption="你超速了!"ElseLabel1.Caption="你沒超速!"EndIf該程序段運行后,Label1標(biāo)簽上顯示為____(1)_____。3、下面VisualBasic程序的功能是：計算表達(dá)式1×2+3×4+5×6+7×8+9×10的值。運行該程序后，語句sum=sum+i*(i+1)共執(zhí)行了(1)次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9Step2sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub+++第六套+++1、有如下VisualBasic程序段：a=300b=400b=b-a該程序段運行后，變量b的值為____(1)____。2、有如下VisualBasic程序段：a=2b=5Ifa<bThenm=aElsem=bEndIf該程序段運行后，變量m的值為____(1)____。3、下面VisualBasic程序的功能是：計算表達(dá)式1+1/3+1/5+…+1/99的值，并在文本框Text1中輸出該表達(dá)式的值。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為_____(1)_____。PrivateSubCommand1_Click()DimsumAsSingle，iAsIntegersum=0Fori=1To99Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4、某人走樓梯，方法是每步跨1個臺階或跨2個臺階?，F(xiàn)要計算有20個臺階的樓梯，共有多少種不同的走法？經(jīng)分析，臺階數(shù)與走法種數(shù)如下表：臺階數(shù)123456789…走法種數(shù)1235813213455…由上表得，走法種數(shù)的規(guī)律是：從第3項開始，每一項是它相鄰的前面2項之和。解決上述問題的VisualBasic程序如下，在(1)和(2)劃線處，填入合適的語句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsLong,nAsIntegera=1b=2c=a+bForn=4To(1)a=bb=c(2)NextnText1.Text=Str(c)EndSub程序中劃線處(1)應(yīng)填入程序中劃線處(2)應(yīng)填入+++第七套+++1、有如下VisualBasic程序段：e=3f=7h=5s=(e+f)*h/2該程序段運行后，變量s的值為(1)。2、有如下VisualBasic程序段：a=10b=20x=5Ifx>bThena=a+bElsea=a-bEndIf3、該程序段運行后，變量a的值為(1)。下面VisualBasic程序的功能是：求1～20以內(nèi)的奇數(shù)和。運行該程序后，語句sum=sum+i共執(zhí)行了(1)次。PrivateSubCommand1_Click()DimsumasInteger,iasIntegersum=0Fori=1To20Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4、將一張面值為100元的人民幣等值換成5元、1元的零鈔共40張，要求每種零鈔不少于1張，問5元和1元面值的零鈔各多少張？設(shè)x、y分別為5元和1元面值的零鈔張數(shù)，通過分析可得出該問題的數(shù)學(xué)表達(dá)式為：且1≤x＜20解決上述問題的VisualBasic程序如下，但此程序存在兩處錯誤，已分別用劃線及(1)、(2)標(biāo)注。請改正這二處錯誤，并將正確內(nèi)容按順序填寫在程序下方(1)和(2)劃線處。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegery=1:x=1DoWhile5x+y<>100'(1)y=y+1x+y=40'(2)LoopLabel1.Caption="5元鈔"+Str(x)+"張"Label2.Caption="1元鈔"+Str(y)+"張"EndSub程序中劃線處(1)改為程序中劃線處(2)改為5、哥哥考弟弟一道數(shù)學(xué)題，題目是："有一筐雞蛋，2個2個數(shù)多1個，3個3個數(shù)多2個，4個4個數(shù)多3個，5個5個數(shù)正好數(shù)完，問這筐雞蛋最少是幾個？"為解決此問題，弟弟編了一個如下VisualBasic程序，其中s表示雞蛋數(shù)，t用于控制循環(huán)。但此程序存在兩處錯誤，已分別用劃線及(1)、(2)標(biāo)注。請改正這二處錯誤，并將正確內(nèi)容按順序填寫在程序下方(1)和(2)劃線處。PrivateSubCommand1_Click()DimsAsInteger,tAsBooleans=5t=FalseDoWhileNotts=s+1t=(sMod2=1)And(sMod3=2)And(sMod4=3)And(sMod5<>0)'(1)Next'(2)Text1.Text=Str(s)EndSub程序中劃線處(1)改為程序中劃線處(2)改為+++第八套+++1、有如下VisualBasic程序段：a=3b=5h=6v=a*b*h該程序段運行后，變量v的值是(1)。2、有如下VisualBasic程序段：Fori=lTo10a(i)=iNexti該程序段運行后，數(shù)組變量a(5)的值為(1)。3、下面VisualBasic程序的功能是：計算表達(dá)式1/2+1/4+…+1/100的值，并在文本框Text1中輸出結(jié)果。運行該程序后，語句sum=sum+1/(2*i)共執(zhí)行了(1)次。PrivateSubCommand1_Click()DimsumAsDouble,i