高中信息技術(shù)VB算法部分的填空題會考

1、vb填空題專題（一）浙江省高中信息技術(shù)會考(六月卷)算法與程序設(shè)計題（第一套）四、程序設(shè)計題（本題有4 小題，第13 小題，每小題4 分，第4 小題6 分，共18 分）1.有如下visual basic 程序段：a = 30b = 20a = b該程序段運行后，變量a 的值為_ _。2.有如下visual basic 程序段：dim 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= "負(fù)數(shù)&qu

2、ot;label1.caption=py在文本框text1 中輸入100，則在label1 標(biāo)簽上顯示的是 。3. 以下visual basic 程序的功能是：計算表達(dá)式1×2×3×4×5×6×7×8×9×10 的值，并在文本框text1 中輸出結(jié)果。為了實現(xiàn)這一功能，程序中劃線處的語句應(yīng)更正為_ _。private sub command1_click()dim i as integer,sum as longsum = 0for i = 1 to 10sum = sum * inext itext1.

3、text=str(sum)end sub4.從改革開放以來，浙江省農(nóng)村家庭的可支配收入逐年增加，近幾年每年增長率在9%左右。小明一家今年的可支配收入是32000 元，按現(xiàn)在的增長率9%計算，小明家?guī)啄旰罂芍涫杖雽⑦_(dá)到50000 元？解決此問題的流程圖如vb-1 所示。根據(jù)流程圖vb-1 編寫的visual basic 程序如下，在和劃線處，填入合適的語句或表達(dá)式，把程序補充完整。private sub command1_click()dim x as long, p as double dim n as integerx = 32000p = 0.09n = 0do while x = x

4、* (1 + p) looptext1.text = str(n)end sub程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 算法與程序設(shè)計題（第二套）四、程序設(shè)計題（本題有4 小題，第13 小題，每小題4 分，第4 小題6 分，共18 分）1有如下visual basic 程序段：a="good"b="bye"c=a+b該程序段運行后，變量c 的值是_。2. 有如下visual basic 程序段：x=3if x>5 theny=x*xelsey=4*xend if該程序段運行后，變量y 的值是_。3. 下面程序的功能是：計算表達(dá)式1+3+5+(2n-

5、1)的值，在文本框text1 中輸入n 的值，結(jié)果在文本框text2 中輸出。則程序中劃線處的語句應(yīng)更正為_。private sub command1_click()dim sum as long,i as integer,n as integersum = 0n = val(text1.text)for i = 1 to 2 * n - 1 step 2 sum=sum + 2 next itext2.text=str(sum)end sub4依照中華人民共和國機動車駕駛員駕車時血液中酒精含量規(guī)定，血液中酒精含量大于或等于0.3mg/ml 駕駛機動車的屬酒后駕車；大于或等于1.0mg/ml

6、駕駛機動車的屬醉酒駕車。設(shè)計一個程序，幫助交警判定某人屬酒后駕車、醉酒駕車還是沒有違法。解決此問題的流程圖如vb-1 所示。根據(jù)流程圖vb-1 編寫的visual basic 程序如下，在和劃線處，填入合適的語句或表達(dá)式，把程序補充完整。private sub command1_click()dim x as singlex = val(text1.text)if thenlabel1.caption = "你屬于醉酒駕車!"elseif x >= 0.3 thenlabel1.caption = "你屬于酒后駕車!" label1.caption

7、 = "恭喜你沒有違法!"end ifend ifend sub程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 算法與程序設(shè)計題（第三套）四、程序設(shè)計題（本題有4 小題，第13 小題，每小題4 分，第4 小題6 分，共18 分）1. 有如下visual basic 程序段：a=300b=400b=b-a該程序段運行后，變量b 的值為_ _。2有如下visual basic 程序段：a=2b=5if a<b thenm=aelsem=bend if該程序段運行后，變量m 的值為_。3. 下面visual basic 程序的功能是：計算表達(dá)式1+1/3+1/5+1/99 的值，并

8、在文本框text1 中輸出該表達(dá)式的值。為了實現(xiàn)這一功能， 程序中劃線處的語句應(yīng)更正為 _ _。private sub command1_click()dim sum as single，i as integersum = 0for i = 1 to 99 step 2 sum=sum + i next itext1.text = str(sum)end sub4. 某人走樓梯，方法是每步跨1 個臺階或跨2 個臺階?，F(xiàn)要計算有20 個臺階的樓梯，共有多少種不同的走法？經(jīng)分析，臺階數(shù)與走法種數(shù)如下表：臺階數(shù)123456789走法種數(shù)1235813213455由上表得，走法種數(shù)的規(guī)律是：從第3 項

9、開始，每一項是它相鄰的前面2 項之和。解決上述問題的visual basic 程序如下，在和劃線處，填入合適的語句或表達(dá)式，把程序補充完整。private sub command1_click()dim a as long, b as long, c as long, n as integera = 1b = 2c = a + bfor n = 4 to a = bb = c next ntext1.text = str(c)end sub程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 浙江省2007 年高中信息技術(shù)會考(六月卷)算法與程序設(shè)計題（第四套）四、程序設(shè)計題（本題共4 小題，第13 小題，

10、每小題4 分，第4 小題6 分，共18 分）1. 有如下visual basic 程序段：a=2b=3c=4c=b-a該程序段運行后,變量c 的值為_。2有如下visual basic 程序段：a=2b=5if a>b then m=a else m=b該程序段運行后,變量m 的值為_。3. 下面是一段visual basic 程序：private sub command1_click()dim sum as double，i as integersum = 0for i = 1 to 5sum=sum+i*inext itext1.text=str(sum)end sub該程序運行后，

11、語句sum=sum+i*i 共執(zhí)行了 次。4. 有一個有趣的兔子繁殖問題：第1 個月買來1 對小兔子，兩個月后，這對兔子就會生1對小兔子，以后每個月都會生一對小兔子；而生下來的這對小兔子，兩個月后又會開始生1對小兔子。依次類推，試問：幾個月后，兔子將超過50 對？分析問題得出月份與兔子對數(shù)的關(guān)系如下表：月份123456789兔子對數(shù)112358132134由表知兔子繁殖規(guī)律：從第3 個月開始，以后每月的兔子對數(shù)都是它相鄰的前面2 個月的兔子對數(shù)之和。解決上述問題的visual basic 程序如下，在和劃線處，填入合適的語句或表達(dá)式，把程序補充完整。private sub command1_c

12、lick()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) = looptext1.text = str(a(n)end sub程序中劃線處應(yīng)填入 程序中劃線處應(yīng)填入 浙江省2007 年高中信息技術(shù)會考(六月卷)2007 年6 月高中信息技術(shù)會考算法與程序設(shè)計題（第五套）四、程序設(shè)計題（本題有4 小題，第13 小題，每小題4 分，第4 小題6 分，共18 分）1有如下visual basic 程序段：a=2b=4b=a+b該

13、程序段運行后，變量b 的值是_。2有如下visual basic 程序段：x=1.5if x>1 thenlabel1.caption = "醉酒!"elselabel1.caption = "沒有醉酒! "end if該程序段運行后, label1 標(biāo)簽上顯示為_。3. 下面visual basic 程序的功能是：計算表達(dá)式1+1/2+1/3+1/100 的值，并在文本框text1 中輸出表達(dá)式的值。為了實現(xiàn)這一功能， 程序中劃線處的語句應(yīng)更正為_。private sub command1_click()dim sum as double，i as integersum = 0for i = 1 to 100sum=sum+inext itext1.text=str(sum)end sub4. 浙江省道路交通安全法第八十三條規(guī)定：機動車駕駛?cè)笋{駛機動車超過規(guī)定時速的，按以下標(biāo)準(zhǔn)處以罰款：（一）超過規(guī)定時速未達(dá)百分之五十的，處二百元罰款；（二）超過規(guī)定時速百分之五十的，處五百元罰款；每多超五公里，加處二百元罰款，但最高罰款不得超過二千元。設(shè)某公路的規(guī)定時速為80(km/h)，用x 表示車速，y 表示罰款數(shù)，該問題的數(shù)學(xué)式為：根據(jù)上述分析，解決此問題的visual basic 程序如下，在和劃線處，填入