信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第一套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1.有如下VisualBasic程序段：a=30b=20a=b該程序段運(yùn)行后，變量a的值為________。2.有如下VisualBasic程序段：DimaAsSingle,pyAsStringa=Val(Text1.Text)Ifa>0Thenpy="正數(shù)"Ifa=0Thenpy="零"Ifa<0Thenpy="負(fù)數(shù)"Label1.Caption=py在文本框Text1中輸入100，則在Label1標(biāo)簽上顯示的是。3.以下VisualBasic程序的功能是：計(jì)算表達(dá)式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中輸出結(jié)果。為了實(shí)現(xiàn)這一功能，程序中劃線處的語(yǔ)句應(yīng)更正為_____________。PrivateSubCommand1_Click()DimiAsInteger,sumAsLongsum=0Fori=1To10sum=sum*iNextiText1.Text=Str(sum)EndSub4.從改革開放以來(lái)，浙江省農(nóng)村家庭的可支配收入逐年增加，近幾年每年增長(zhǎng)率在9%左右。小明一家今年的可支配收入是32000元，按現(xiàn)在的增長(zhǎng)率9%計(jì)算，小明家?guī)啄旰罂芍涫杖雽⑦_(dá)到50000元？解決此問(wèn)題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。x＜50000？開始x＜50000？開始增長(zhǎng)率：p←9%結(jié)束可支配收入：x←32000所需年數(shù)：n←0x←x(1+p)n←n+1輸出nYN圖VB－1DimxAsLong,pAsDoubleDimnAsIntegerx=32000p=0.09n=0DoWhile①x=x*(1+p)②LoopText1.Text=Str(n)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第二套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：a="Good"b="Bye"c=a+b該程序段運(yùn)行后，變量c的值是___________。2.有如下VisualBasic程序段：

x=3

If

x>5

Then

y=x*x

Else

y=4*x

End

If

該程序段運(yùn)行后，變量y的值是___________。3.下面程序的功能是：計(jì)算表達(dá)式1+3+5+…+(2n-1)的值，在文本框Text1中輸入n的值，結(jié)果在文本框Text2中輸出。則程序中劃線處的語(yǔ)句應(yīng)更正為__________________。PrivateSubCommand1_Click()DimsumAsLong,iAsInteger,nAsIntegersum=0n=Val(Text1.Text)Fori=1To2*n-1Step2sum=sum+2NextiText2.Text=Str(sum)EndSub4．依照中華人民共和國(guó)《機(jī)動(dòng)車駕駛員駕車時(shí)血液中酒精含量規(guī)定》，血液中酒精含量大于或等于0.3mg/ml駕駛機(jī)動(dòng)車的屬酒后駕車；大于或等于1.0mg/ml駕駛機(jī)動(dòng)車的屬醉酒駕車。設(shè)計(jì)一個(gè)程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒(méi)有違法。解決此問(wèn)題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。xx≥1？開始結(jié)束YN圖VB－1輸出：你屬于醉酒駕車!x≥0.3？輸出：你屬于酒后駕車!輸出：恭喜你沒(méi)有違法!將酒精含量的值送變量xYNPrivateSubCommand1_Click()DimxAsSinglex=Val(Text1.Text)If①ThenLabel1.Caption="你屬于醉酒駕車!"ElseIfx>=0.3ThenLabel1.Caption="你屬于酒后駕車!"②Label1.Caption="恭喜你沒(méi)有違法!"EndIfEndIfEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第三套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1.有如下VisualBasic程序段：a=300b=400b=b-a該程序段運(yùn)行后，變量b的值為_________。2．有如下VisualBasic程序段：a=2b=5Ifa<bThenm=aElsem=bEndIf該程序段運(yùn)行后，變量m的值為___________。3.下面VisualBasic程序的功能是：計(jì)算表達(dá)式1+1/3+1/5+…+1/99的值，并在文本框Text1中輸出該表達(dá)式的值。為了實(shí)現(xiàn)這一功能，程序中劃線處的語(yǔ)句應(yīng)更正為__________________。PrivateSubCommand1_Click()DimsumAsSingle，iAsIntegersum=0Fori=1To99Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4.某人走樓梯，方法是每步跨1個(gè)臺(tái)階或跨2個(gè)臺(tái)階?，F(xiàn)要計(jì)算有20個(gè)臺(tái)階的樓梯，共有多少種不同的走法？經(jīng)分析，臺(tái)階數(shù)與走法種數(shù)如下表：臺(tái)階數(shù)123456789…走法種數(shù)1235813213455…由上表得，走法種數(shù)的規(guī)律是：從第3項(xiàng)開始，每一項(xiàng)是它相鄰的前面2項(xiàng)之和。解決上述問(wèn)題的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsLong,nAsIntegera=1b=2c=a+bForn=4To①a=bb=c②NextnText1.Text=Str(c)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第四套）四、程序設(shè)計(jì)題（本題共4小題，第1－3小題，每小題4分，第4小題6分，共18分）1.有如下VisualBasic程序段：a=2b=3c=4c=b-a該程序段運(yùn)行后,變量c的值為___________。2．有如下VisualBasic程序段：a=2b=5Ifa>bThenm=aElsem=b該程序段運(yùn)行后,變量m的值為___________。3.下面是一段VisualBasic程序：PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To5sum=sum+i*iNextiText1.Text=Str(sum)EndSub該程序運(yùn)行后，語(yǔ)句sum=sum+i*i共執(zhí)行了次。4.有一個(gè)有趣的兔子繁殖問(wèn)題：第1個(gè)月買來(lái)1對(duì)小兔子，兩個(gè)月后，這對(duì)兔子就會(huì)生1對(duì)小兔子，以后每個(gè)月都會(huì)生一對(duì)小兔子；而生下來(lái)的這對(duì)小兔子，兩個(gè)月后又會(huì)開始生1對(duì)小兔子。依次類推，試問(wèn)：幾個(gè)月后，兔子將超過(guò)50對(duì)？分析問(wèn)題得出月份與兔子對(duì)數(shù)的關(guān)系如下表：月份123456789…兔子對(duì)數(shù)112358132134…由表知兔子繁殖規(guī)律：從第3個(gè)月開始，以后每月的兔子對(duì)數(shù)都是它相鄰的前面2個(gè)月的兔子對(duì)數(shù)之和。解決上述問(wèn)題的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()Dima(1To100)AsInteger,nAsIntegera(1)=1a(2)=1a(3)=a(2)+a(1)n=3DoWhilea(n)<=50n=①a(n)=②LoopText1.Text=Str(a(n))EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第五套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：a=2b=4b=a+b該程序段運(yùn)行后，變量b的值是___________。2．有如下VisualBasic程序段：x=1.5Ifx>1ThenLabel1.Caption="醉酒!"ElseLabel1.Caption="沒(méi)有醉酒!"EndIf該程序段運(yùn)行后,Label1標(biāo)簽上顯示為___________。3.下面VisualBasic程序的功能是：計(jì)算表達(dá)式1+1/2+1/3+…+1/100的值，并在文本框Text1中輸出表達(dá)式的值。為了實(shí)現(xiàn)這一功能，程序中劃線處的語(yǔ)句應(yīng)更正為__________________。PrivateSubCommand1_Click()DimsumAsDouble，iAsIntegersum=0Fori=1To100sum=sum+iNextiText1.Text=Str(sum)EndSub4.《浙江省道路交通安全法》第八十三條規(guī)定：機(jī)動(dòng)車駕駛?cè)笋{駛機(jī)動(dòng)車超過(guò)規(guī)定時(shí)速的，按以下標(biāo)準(zhǔn)處以罰款：（一）超過(guò)規(guī)定時(shí)速未達(dá)百分之五十的，處二百元罰款；（二）超過(guò)規(guī)定時(shí)速百分之五十的，處五百元罰款；每多超五公里，加處二百元罰款，但最高罰款不得超過(guò)二千元。設(shè)某公路的規(guī)定時(shí)速為80(km/h)，用x表示車速，y表示罰款數(shù)，該問(wèn)題的數(shù)學(xué)式為：根據(jù)上述分析，解決此問(wèn)題的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<=80Theny=0ElseIf①Theny=200Else②Ify>2000Theny=2000EndIfEndIfLabel1.Caption=Str(y)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第六套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：a=15b=5a=a-b該程序段運(yùn)行后，變量a的值是___________。2．有如下VisualBasic程序段：x=110Ifx>100ThenLabel1.Caption="你超速了!"ElseLabel1.Caption="你沒(méi)超速!"EndIf該程序段運(yùn)行后,Label1標(biāo)簽上顯示為___________。3．下面VisualBasic程序的功能是：計(jì)算表達(dá)式1×2+3×4+5×6+7×8+9×10的值。運(yùn)行該程序后，語(yǔ)句sum=sum+i*(i+1)共執(zhí)行了次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9Step2sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4.哥哥考弟弟一道數(shù)學(xué)題，題目是：“有一筐雞蛋，2個(gè)2個(gè)數(shù)多1個(gè)，3個(gè)3個(gè)數(shù)多2個(gè)，4個(gè)4個(gè)數(shù)多3個(gè)，5個(gè)5個(gè)數(shù)正好數(shù)完，問(wèn)這筐雞蛋最少是幾個(gè)？”為解決此問(wèn)題，弟弟編了一個(gè)如下VisualBasic程序，其中s表示雞蛋數(shù)，t用于控制循環(huán)。但此程序存在兩處錯(cuò)誤，已分別用劃線及①、②標(biāo)注。請(qǐng)改正這二處錯(cuò)誤，并將正確內(nèi)容按順序填寫在程序下方①和②劃線處。PrivateSubCommand1_Click()DimsAsInteger,tAsBooleans=5t=FalseDoWhileNotts=s+1t=(sMod2=1)And(sMod3=2)And(sMod4=3)And(sMod5<>0)'①Next'②Text1.Text=Str(s)EndSub程序中劃線處①改為程序中劃線處②改為

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第七套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）有如下VisualBasic程序段：a=8b=10b=a*b/2該程序段運(yùn)行后，變量b的值為。2．有如下VisualBasic程序段：a=5b=10max=aIfb>maxThenmax=b該程序段運(yùn)行后，變量max的值為。3．下面程序的功能是：計(jì)算表達(dá)式1×2×3×……×10的值，并在文本框Text1中輸出表達(dá)式的值。為了實(shí)現(xiàn)這一功能，程序中劃線處的語(yǔ)句應(yīng)更正為__________________。PrivateSubCommand1_Click()DimiAsInteger，tAsLongt=0Fori=1To10

t=t*iNextiText1.Text=Str(t)EndSubp＜15？開始增長(zhǎng)率：r←0.5%p＜15？開始增長(zhǎng)率：r←0.5%結(jié)束今年人口：p←13.5所需年數(shù)：n←0p←p(1+r)n←n+1輸出nYN圖VB－1解決此問(wèn)題的流程圖如VB-1所示。根據(jù)流程圖VB-1編寫的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_click()DimnAsInteger,rAsSingleDimpAsDoubler=0.5/100p=13.5n=0DoWhilep<15①n=n+1②Text1.Text=Str(n)EndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第八套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：k=30h=5s=h*k/2該程序段運(yùn)行后，變量s的值為。2．有如下VisualBasic程序段：a=10b=20x=30Ifx>bThena=b+aElsea=b-aEndIf該程序段運(yùn)行后，變量a的值為。3．下面VisualBasic程序的功能是：計(jì)算表達(dá)式1×2+2×3+3×4+……+8×9+9×10的值，并在文本框Text1中輸出表達(dá)式的值。該程序運(yùn)行后，程序中的語(yǔ)句sum=sum+i*(i+1)共執(zhí)行了次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4.鐵路托運(yùn)行李，是根據(jù)行李的重量按下列標(biāo)準(zhǔn)收費(fèi)：若不超過(guò)50千克，按每千克0.35元收費(fèi)，若超過(guò)50千克，超過(guò)部分則按每千克0.5元收費(fèi)，行李重量不得超過(guò)150千克。設(shè)計(jì)一個(gè)VisualBasic程序，通過(guò)輸入托運(yùn)行李的重量，計(jì)算并輸出托運(yùn)行李的費(fèi)用，若超過(guò)150千克，提示“行李超重!”。設(shè)x表示行李重量，y表示托運(yùn)費(fèi)。通過(guò)分析可以得出該問(wèn)題的數(shù)學(xué)表達(dá)式為：解決上述問(wèn)題的VisualBasic程序如下，在①和②劃線處，填入合適的語(yǔ)句或表達(dá)式，把程序補(bǔ)充完整。PrivateSubCommand1_Click()DimxasDoublex=Val(Text1.Text)Ifx>150ThenText2.Text="行李超重!"ElseIf①Theny=50*0.35+(x-50)*0.5Else②EndIfText2.Text=Str(y)EndIfEndSub程序中劃線處①應(yīng)填入程序中劃線處②應(yīng)填入

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第九套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：e=3f=7h=5s=(e+f)*h/2該程序段運(yùn)行后，變量s的值為。2．有如下VisualBasic程序段：a=10b=20x=5Ifx>bThena=a+bElsea=a-bEndIf該程序段運(yùn)行后，變量a的值為。3．下面VisualBasic程序的功能是：求1～20以內(nèi)的奇數(shù)和。運(yùn)行該程序后，語(yǔ)句sum=sum+i共執(zhí)行了次。PrivateSubCommand1_Click()DimsumasInteger,iasIntegersum=0Fori=1To20Step2sum=sum+iNextiText1.Text=Str(sum)EndSub4．將一張面值為100元的人民幣等值換成5元、1元的零鈔共40張，要求每種零鈔不少于1張，問(wèn)5元和1元面值的零鈔各多少?gòu)?？設(shè)x、y分別為5元和1元面值的零鈔張數(shù)，通過(guò)分析可得出該問(wèn)題的數(shù)學(xué)表達(dá)式為：且1≤x＜20解決上述問(wèn)題的VisualBasic程序如下，但此程序存在兩處錯(cuò)誤，已分別用劃線及①、②標(biāo)注。請(qǐng)改正這二處錯(cuò)誤，并將正確內(nèi)容按順序填寫在程序下方①和②劃線處。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegery=1:x=1DoWhile5x+y<>100'①y=y+1x+y=40'②LoopLabel1.Caption="5元鈔"+Str(x)+"張"Label2.Caption="1元鈔"+Str(y)+"張"EndSub程序中劃線處①改為程序中劃線處②改為

2007年6月高中信息技術(shù)會(huì)考算法與程序設(shè)計(jì)題（第十套）四、程序設(shè)計(jì)題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：a=3b=5h