信息技術會考算法與程序設計題

1、四、程序設計題 (本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分)程序段:a的值為程序段：1. 有如下 Visual Basica = 30b = 20a = b該程序段運行后，變量2. 有如下 Visual BasicDim a As Single, py As Stringa=Val(Text1.Text)If a>0 Then py="正數(shù)”If a=0 Then py="零”If a<0 Then py=" 負數(shù)”Label1.Capti on=py在文本框Text1中輸入100,則在Label1標簽上顯示的是 。3. 以下Vi

2、sual Basic程序的功能是：計算表達式1X 2X 3x 4 x 5X 6x 7x 8X 9X 10的值,并在文本框Text1中輸出結果。為了實現(xiàn)這一功能，程序中劃線處的語句應更正為Private Sub Comma nd1_Click()Dim i As In teger,sum As Longsum = 0Fori = 1 To 10sum = sum * iNext iText1.Text=Str(sum)End Sub4. 從改革開放以來，浙江省農(nóng)村家庭的可支配收入逐年增加，近幾年每年增長率在9%左右。小明一家今年的可支配收入是32000元，按現(xiàn)在的增長率9%十算，小明家?guī)啄旰罂芍?/p>

3、配收入將達到50000元？解決此問題的流程圖如VB-1所示。根據(jù)流程圖 VB-1編寫的Visual Basic 程序如下，在和劃線處，填入合適的語句或表達式，把程序補充完整。程序中劃線處應填入開始圖 VB - 1Private Sub Comma nd1_Click()Dim x As Long, p As DoubleDim n As In tegerx = 32000p = 0.09n = 0Do While x = x * (1 + p)LoopText1.Text = Str( n)End Sub程序中劃線處應填入 2007年6月高中信息技術會考算法與程序設計題(第二套)四、程序設計題

4、(本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分)1 .有如下 Visual Basic程序段：a="Good"b="Bye"c=a+b該程序段運行后，變量c的值是。2. 有如下Visual Basic程序段：x=3If x>5 The ny=x*xElsey=4*xEnd If該程序段運行后，變量y的值是。3. 下面程序的功能是：計算表達式1+3+5+(2n-1)的值，在文本框Text1中輸入n的值,結果在文本框Text2中輸出。則程序中劃線處的語句應更正為 。Private Sub Comma nd1_Click()Dim su

5、m As Lon g,i As In teger, n As In tegersum = 0n = Val(Text1.Text)For i = 1 To 2 * n - 1 Step 2sum = sum + 2Next iText2.Text=Str(sum)End Sub4依照中華人民共和國機動車駕駛員駕車時血液中酒精含量規(guī)定，血液中酒精含量大于或等于0.3mg/ml駕駛機動車的屬酒后駕車；大于或等于1.0mg/ml駕駛機動車的屬醉酒駕車。設計一個程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒有違法。解決此問題的流程圖如VB-1所示。根據(jù)流程圖 VB-1編寫的Visual Basic程

6、序如下，在和劃線處，填入合適的語句或表達式，把程序補充完整。Private Sub Comma nd1_Click()Dim x As Si nglex = Val(Text1.Text)If ThenLabel1.Cap tion ="ElseIf x >= 0.3 The nLabel1.Cap tion ="Label1.Cap tion ="End IfEnd IfEnd Sub你屬于醉酒駕車!"你屬于酒后駕車!"恭喜你沒有違法!"程序中劃線處應填入程序中劃線處應填入1. 有如下Visual Basic程序段：a=300

7、b=400b=b-a該程序段運行后，變量b的值為。2. 有如下Visual Basic程序段：a=2b=5If a<b Thenm=aElsem=bEnd If該程序段運行后，變量m的值為。3. 下面Visual Basic程序的功能是：計算表達式1+1/3+1/5+1/99的值，并在文本框Text1中輸出該表達式的值。為了實現(xiàn)這一功能，程序中劃線處的語句應更正為Private Sub Comma nd1_Click()Dim sum As Single , i As Integersum = 0For i = 1 To 99 Step 2sum = sum + iNext iText1

8、.Text = Str(sum)End Sub4.某人走樓梯，方法是每步跨1個臺階或跨2個臺階?，F(xiàn)要計算有20個臺階的樓梯，共有 多少種不同的走法？經(jīng)分析，臺階數(shù)與走法種數(shù)如下表:臺階數(shù)123456789走法種數(shù)1235813213455由上表得，走法種數(shù)的規(guī)律是：從第3項開始，每一項是它相鄰的前面 2項之和。解決上述問題的 Visual Basic 程序如下，在和劃線處，填入合適的語句或表達式,把程序補充完整。Private Sub Comma nd1_Click()Dim a As Long, b As Long, c As Long, n As In teger a = 1 b = 2c

9、 = a + bFor n = 4 Toa = bb = cNext nTextl.Text = Str(c)End Sub程序中劃線處應填入 程序中劃線處應填入 1. 有如下Visual Basic 程序段：a=2b=3c=4c=b-a該程序段運行后,變量c的值為。2. 有如下Visual Basic 程序段：a=2b=5If a>b The n m=a Else m=b該程序段運行后，變量 m的值為。3. 下面是一段 Visual Basic 程序：Private Sub Comma nd1_Click()Dim sum As Double , i As Integersum = 0

10、For i = 1 To 5sum=sum+i*iNext iText1.Text=Str(sum)End Sub該程序運行后，語句sum=sum+i*i共執(zhí)行了 次。4. 有一個有趣的兔子繁殖問題：第 1個月買來1對小兔子，兩個月后，這對兔子就會生1對小兔子，以后每個月都會生一對小兔子；而生下來的這對小兔子，兩個月后又會開始生1對小兔子。依次類推，試問：幾個月后，兔子將超過50對?分析問題得出月份與兔子對數(shù)的關系如下表：月份123456789兔子對數(shù)112358132134由表知兔子繁殖規(guī)律： 從第3個月開始，以后每月的兔子對數(shù)都是它相鄰的前面2個月的兔子對數(shù)之和。解決上述問題的 Visua

11、l Basic程序如下，在和劃線處，填入合適的語句或表達式, 把程序補充完整。Private Sub Comma nd1_Click()Dim a(1 To 100) As Integer, n As Integera(1) = 1a(2) = 1a(3) = a(2) + a(1)n = 3Do While a(n) <= 50n =a( n) =LoopTextl.Text = Str(a( n)End Sub程序中劃線處應填入 程序中劃線處應填入 1 .有如下 Visual Basic程序段：a=2b=4b=a+b該程序段運行后，變量b的值是。2. 有如下Visual Basic程

12、序段：x=1.5If x>1 The nLabel1.Caption ="醉酒!"ElseLabel1.Caption ="沒有醉酒！"End If該程序段運行后丄abel1標簽上顯示為。3. 下面Visual Basic程序的功能是：計算表達式1+1/2+1/3+1/100的值，并在文本框Text1中輸出表達式的值。為了實現(xiàn)這一功能，程序中劃線處的語句應更正為Private Sub Comma nd1_Click()Dim sum As Double , i As Integersum = 0For i = 1 To 100 sum=sum+i_

13、Next iText1.Text=Str(sum)End Sub4. 浙江省道路交通安全法第八十三條規(guī)定：機動車駕駛人駕駛機動車超過規(guī)定時速的，按以下標準處以罰款：(一) 超過規(guī)定時速未達百分之五十的，處二百元罰款；(二) 超過規(guī)定時速百分之五十的，處五百元罰款；每多超五公里，加處二百元罰款，但 最咼罰款不得超過二千兀。設某公路的規(guī)定時速為80(km/h)，用x表示車速，y表示罰款數(shù)，該問題的數(shù)學式為：0x 蘭 8020080 vxE120y =500 +1 nt(x1.5漢80)/5)匯200x >120(Int(x)的值為不大于 x的的最大整數(shù))2000y 2000根據(jù)上述分析，解決

14、此問題的Visual Basic 程序如下，在和劃線處，填入合適的語句或表達式，把程序補充完整。Private Sub Comma nd1_Click()Dim x As Sin gle, y As Sin glex = Val(Text1.Text)If x <= 80 The ny = 0ElseIf The ny = 200ElseIf y > 2000 Then y = 2000End IfEnd IfLabell.Caption = Str(y)End Sub程序中劃線處應填入 程序中劃線處應填入 1 .有如下 Visual Basic程序段：a=15b=5a=a-b該程

15、序段運行后，變量a的值是。2. 有如下Visual Basic程序段：x=110If x>100 ThenLabell.Caption ="你超速了 !"ElseLabel1.Caption ="你沒超速！"End If該程序段運行后丄abel1 標簽上顯示為。3. 下面Visual Basic程序的功能是：計算表達式1 x 2+3X 4+5X 6+7x 8+9x 10的值。運行該程序后，語句 sum=sum+i*(i+1)共執(zhí)行了 次。Private Sub Comma nd1_Click()Dim sum As Integer , i As I

16、ntegersum = 0For i = 1 To 9 Step 2sum = sum + i * (i+1)Next iText1.Text=Str(sum)End Sub4. 哥哥考弟弟一道數(shù)學題，題目是：“有一筐雞蛋，2個2個數(shù)多1個，3個3個數(shù)多2個，4個4個數(shù)多3個，5個5個數(shù)正好數(shù)完，問這筐雞蛋最少是幾個？”為解決此問題，弟弟編了一個如下Visual Basic程序，其中s表示雞蛋數(shù)，t用于控制循環(huán)。但此程序存在兩處錯誤，已分別用劃線及、標注。請改正這二處錯誤，并將正確 內(nèi)容按順序填寫在程序下方和劃線處。Private Sub Comma nd1_Click()Dim s As I

17、n teger, t As Boolea ns = 5t = FalseDo While Not ts = s + 1t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And(s Mod 5 <> 0)'Next 'Text1.Text = Str(s)End Sub程序中劃線處改為程序中劃線處改為2007年6月高中信息技術會考算法與程序設計題(第七套)四、程序設計題(本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分)1. 有如下Visual Basic程序段：a=8b=10b=a*b/2該程序

18、段運行后，變量b的值為。2. 有如下Visual Basic 程序段：a=5b=10max=aIf b>max The n max=b該程序段運行后，變量max的值為。3. 下面程序的功能是：計算表達式1 x 2X 3XX 10的值，并在文本框 Text1中輸出表達式的值。為了實現(xiàn)這一功能，程序中劃線處的語句應更正為。Private Sub Comma nd1_Click()Dim i As Integer, t As Longt=0For i=1 To 10t=t*iNext iText1.Text=Str(t)End Sub4我國是人口大國，千萬。假設我國年人口增長率為 后我國人口就

19、會達到或超過解決此問題的流程圖如2007年初，我國人口總數(shù)已達13億50.5%,則從2007年起多少年 15億？VB-1所示。根據(jù)流程圖開始VB-1 編寫的 Visual Basic程序如下，在和劃線處，填入合適的語句或表達式，把程序補充完整。Private Sub Comma nd1_click()Dim n As In teger, r As Sin gleDim p As Doubler = 0.5/100p = 13.5n = 0Do While p < 15n = n + 1Text1.Text = Str( n) End Sub程序中劃線處應填入 程序中劃線處應填入輸出n結束

20、今年人口： pJ 13.5增長率：rJ 0.5%所需年數(shù)：nJ 0NYpv 15 ?p J p(1+r)rnJn+1圖 VB 11 .有如下 Visual Basic 程序段：k=30h=5s=h*k/2該程序段運行后，變量s的值為。2. 有如下Visual Basic 程序段：a=10b=20x=30If x>b Thena= b+aElsea=b-aEnd If該程序段運行后，變量a的值為。3. 下面Visual Basic程序的功能是：計算表達式 1 X 2+2X 3+3x 4+8X 9+9X 10的值, 并在文本框Text1中輸出表達式的值。該程序運行后，程序中的語句 sum=s

21、um+i*(i+1)共執(zhí) 行了次。Private Sub Comma nd1_Click()Dim sum As Integer , i As Integersum = 0Fori = 1 To 9sum=sum+i*(i+1)Next iText1.Text=Str(sum)End Sub4. 鐵路托運行李，是根據(jù)行李的重量按下列標準收費：若不超過50千克，按每千克0.35元收費，若超過 50千克，超過部分則按每千克0.5元收費，行李重量不得超過150千克。設計一個Visual Basic程序，通過輸入托運行李的重量，計算并輸出托運行李的費用， 若超過150千克，提示“行李超重！”。設x表示

22、行李重量，y表示托運費。通過分析可以得出該問題的數(shù)學表達式為：0.35 xx 乞 50y =<50 匯 0.35 +(x50)漢 0.550cx 蘭150、行李超重！x A150解決上述問題的 Visual Basic程序如下，在和劃線處，填入合適的語句或表達式，把程序補充完整。Private Sub Comma nd1_Click()Dim x as Doublex=Val(Text1.Text)If x>150 ThenText2.Text="行李超重!"ElseIf The ny=50*0.35+(x-50)*0.5ElseEnd IfText2.Text

23、=Str(y)End IfEnd Sub程序中劃線處應填入 程序中劃線處應填入1 .有如下 Visual Basic 程序段：e=3f=7h=5s=(e+f)*h/2該程序段運行后，變量s的值為。2.有如下Visual Basic 程序段：a=10b=20x=5If x>b Thena=a+bElsea=a-bEnd If該程序段運行后，變量a的值為。3.下面Visual Basic程序的功能是：求120以內(nèi)的奇數(shù)和。運行該程序后，語句sum=sum+i 共執(zhí)行了 次。Private Sub Comma nd1_Click()Dim sum as In teger,i as In teg

24、ersum=0For i=1 To 20 Step 2 sum=sum+iNext iText1.Text=Str(sum)End Sub 4 .將一張面值為100元的人民幣等值換成 5元、1元的零鈔共40張，要求每種零鈔不少于 1張，問5元和1元面值的零鈔各多少張？設x、y分別為5元和1元面值的零鈔張數(shù)，通過分析可得出該問題的數(shù)學表達式為：5x y =100x y =40且 1 w xv 20解決上述問題的 Visual Basic程序如下，但此程序存在兩處錯誤，已分別用劃線及、標注。請改正這二處錯誤，并將正確內(nèi)容按順序填寫在程序下方和劃線處。Private Sub Comma nd1_Cl

25、ick()Dim x As In teger, y As In tegery = 1 : x = 1Do While 5x + y <> 100 'y = y + 1x + y = 40 'LoopLabell.Captio n = "5元鈔 ” + Str(x) + "張”Label2.Captio n = "1元鈔 ” + Str(y) + "張”End Sub程序中劃線處改為程序中劃線處改為1 .有如下 Visual Basic程序段：a = 3b = 5h = 6v = a * b * h該程序段運行后，變量 v的值是。2. 有如下Visual Basic程序段：For i=l To 10a(i)=iNext i該程序段運行后，數(shù)組變量a(5)的值為。3. 下面Visual Basic程序的功能是：計算表達式1/2+