2007年6月高中信息技術會考算法與程序設計題（第一套）四、程序設計題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1.有如下VisualBasic程序段：a=30b=20a=b該程序段運行后，變量a的值為________。2.有如下VisualBasic程序段：DimaAsSingle,pyAsStringa=Val(Text1.Text)Ifa>0Thenpy="正數"Ifa=0Thenpy="零"Ifa<0Thenpy="負數"Label1.Caption=py在文本框Text1中輸入100，則在Label1標簽上顯示的是。3.以下VisualBasic程序的功能是：計算表達式1×2×3×4×5×6×7×8×9×10的值，并在文本框Text1中輸出結果。為了實現這一功能，程序中劃線處的語句應更正為_____________。PrivateSubCommand1_Click()DimiAsInteger,sumAsLongsum=0Fori=1To10sum=sum*iNextiText1.Text=Str(sum)EndSub4.從改革開放以來，浙江省農村家庭的可支配收入逐年增加，近幾年每年增長率在9%左右。小明一家今年的可支配收入是32000元，按現在的增長率9%計算，小明家幾年后可支配收入將達到50000元？解決此問題的流程圖如VB-1所示。根據流程圖VB-1編寫的VisualBasic程序如下，在①和②劃線處，填入合適的語句或表達式，把程序補充完整。x＜50000？開始x＜50000？開始增長率：p←9%結束可支配收入：x←32000所需年數：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程序中劃線處①應填入程序中劃線處②應填入

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

x=3

If

x>5

Then

y=x*x

Else

y=4*x

End

If

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

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

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

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

2007年6月高中信息技術會考算法與程序設計題（第六套）四、程序設計題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）1．有如下VisualBasic程序段：a=15b=5a=a-b該程序段運行后，變量a的值是___________。2．有如下VisualBasic程序段：x=110Ifx>100ThenLabel1.Caption="你超速了!"ElseLabel1.Caption="你沒超速!"EndIf該程序段運行后,Label1標簽上顯示為___________。3．下面VisualBasic程序的功能是：計算表達式1×2+3×4+5×6+7×8+9×10的值。運行該程序后，語句sum=sum+i*(i+1)共執行了次。PrivateSubCommand1_Click()DimsumAsInteger，iAsIntegersum=0Fori=1To9Step2sum=sum+i*(i+1)NextiText1.Text=Str(sum)EndSub4.哥哥考弟弟一道數學題，題目是：“有一筐雞蛋，2個2個數多1個，3個3個數多2個，4個4個數多3個，5個5個數正好數完，問這筐雞蛋最少是幾個？”為解決此問題，弟弟編了一個如下VisualBasic程序，其中s表示雞蛋數，t用于控制循環。但此程序存在兩處錯誤，已分別用劃線及①、②標注。請改正這二處錯誤，并將正確內容按順序填寫在程序下方①和②劃線處。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月高中信息技術會考算法與程序設計題（第七套）四、程序設計題（本題有4小題，第1－3小題，每小題4分，第4小題6分，共18分）有如下VisualBasic程序段：a=8b=10b=a*b/2該程序段運行后，變量b的值為。2．有如下VisualBasic程序段：a=5b=10max=aIfb>maxThenmax=b該程序段運行后，變量max的值為。3．下面程序的功能是：計算表達式1×2×3×……×10的值，并在文本框Text1中輸出表達式的值。為了實現這一功能，程序中劃線處的語句應更正為__________________。PrivateSubCommand1_Click()DimiAsInteger，tAsLongt=0Fori=1To10

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

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