最新高中信息技術(shù)《算法與程序設(shè)計(jì)》練習(xí)

PAGEPAGE23?算法與程序設(shè)計(jì)?練習(xí)〔總分值：100分〕說(shuō)明：本卷分為第一卷和第二卷兩局部。第一卷為客觀題，含單項(xiàng)選擇題和判斷題，其中單項(xiàng)選擇題30小題，共45分；判斷題20小題，共20分。第二卷為操作題，共3題，第1題15分，第2題10分，第3題10分，共35分。一、單項(xiàng)選擇題1、(1.5分)下面是4位同學(xué)為解決問(wèn)題編寫(xiě)的程序，完全正確的是()。同學(xué)1：某同學(xué)從17歲開(kāi)始栽了1棵樹(shù)，以后每年都比前一年多栽1棵，他要栽夠100棵樹(shù)，最小得多少歲？程序如下：

PrivateSubCommand1_Click()

DimAgeAsInteger,TreeAsInteger

Do

Age=17

Age=Age+1

Tree=Tree+Age〔Tree應(yīng)該是樹(shù)的累加數(shù)，這樣適宜嗎？〕

LoopUntilTree=100

PrintAge&“歲〞

EndSub同學(xué)2：計(jì)算S=1×2×3×4×5×6×7×8×9的值。程序如下：

PrivateSubCommand1_Click()

DimSAsInteger

〔S沒(méi)有初始值，默認(rèn)為0〕Fora=1To10〔終值設(shè)置錯(cuò)誤〕

S=S*a

Nexta

Print“S=〞&S

EndSub同學(xué)3：求解方程ax+b=0。程序如下：

PrivateSubCommand1_Click()

DimAAsSingle,BAsSingle

InputBox("A=")〔從鍵盤(pán)得到的數(shù)據(jù)賦給誰(shuí)了？〕

InputBox("B=")

X=-B/A

PrintX

EndSub同學(xué)4：計(jì)算S=1+(1+2)+(1+2+3)+…+(1+2+3+…+100)的值。程序如下:

PrivateSubCommand1_Click()

DimiAsInteger,TAsLong,SAsLong

S=0:T=0

Fori=1to100

T=T+i〔T的值為：1＋2＋3＋……n〕

S=S+T

NextI

Print"S=";S

EndSubA、同學(xué)1B、同學(xué)2C、同學(xué)3D、同學(xué)42、(1.5分)下面的4個(gè)VB程序段能使變量a、b、c的值全部相同的是()。程序一：

a=1:b=2:c=3

a=b

b=c

c=a程序二：

a=1:b=2:c=3

c=a

c=b

c=c程序三：

a=1:b=2:c=3

c=a

b=c程序四：

a=1:b=2:c=3

c=a=bA、程序一B、程序二C、程序三D、程序四

3、(1.5分)如果要改變窗體的標(biāo)題，那么需要設(shè)置的屬性是()

A、CaptionB、名稱(chēng)C、FontD、Visible

4、(1.5分)數(shù)組D的1到N號(hào)元素已經(jīng)賦入常數(shù)值，下面4個(gè)程序段都把這N個(gè)常數(shù)值輸出，其中不能保證輸出的數(shù)據(jù)是由小到大的程序段是哪個(gè)？()。程序一：

fori=1ton-1

Min=D〔i〕:M=i

forj=i+1ton

ifD(j)＜MinthenMin=D(j):M=j

Nextj

k=D(i):D(i)=Min:D(M)=k

NextI

fori=1toN

printD〔i〕;

Nexti程序二：

Fori=1Ton-1

Forj=nToi+1Step-1

Ifd(j)＜d(j-1)ThenM=d(j):d(j)=d(j-1):d(j-1)=M

Nextj

Nexti

fori=1toN

printD(i);

Nexti程序三：

fori=1ton-1

forj=i+1ton

ifD(j)＜D(i)thenM=D(j):D(j)=D(i):D(i)=M

Nextj

Nexti

fori=1toN

printD(i);

Nexti程序四：

Fori=1Ton-1

Forj=i+1Ton

Ifd(j)＜d(j-1)ThenM=d(j):d(j)=d(j-1):d(j-1)=M

Nextj

Nexti

fori=1toN

printD(i);

NextiA、程序一B、程序二C、程序三D、程序四

〔調(diào)試程序時(shí)請(qǐng)將以下代碼加在源代碼的前面Dimd(5)AsIntegerFori=1To5d(i)=InputBox("D("&i&")=")NextN=5〕5、(1.5分)以下程序運(yùn)行后輸出的結(jié)果是()。

PrivateSubCommand1_Click()

a=71*72

P=10000\a+1〔“\〞為取整運(yùn)算〕Fori=P*aTo11111Stepa

c=i\100Mod10

Ifc=2ThenPrintI;

Nexti

EndSubA、10224B、1022456232C、56232D、153366、(1.5分)下面的4個(gè)程序在運(yùn)行時(shí)都會(huì)出錯(cuò)，其中不屬于語(yǔ)法錯(cuò)誤的是()。程序一：

fori=-10to10

s*1=s〔賦值語(yǔ)句中“＝〞的左面只能是變量〕nextI

prints程序二：

fori=-10to10

s=s+1/i〔除數(shù)不能為零〕

nextI

prints程序三：

fori=-10to10

s=s+i*(i+1)

nexts〔循環(huán)變量不一致〕prints程序四：

fori=-10to10step2

s=s+1

nexti

printsA、程序一B、程序二C、程序三D、程序四

7、(1.5分)

面向?qū)ο蟮母靖拍畎▽?duì)象、()、消息和繼承。

A、方法B、事件C、類(lèi)D、屬性8、(1.5分)

以下程序段運(yùn)行后S的值是()。

s=0

Fori=1To14

x=3*i

IfxMod3=0Thens=s+1

NextiA、0B、4C、5D、14

9、(1.5分)

當(dāng)a=5,b=7,c=-2,d=1時(shí)，以下結(jié)果為False的是()。

A、a+b＞c+dAnda＞=5OrNotc＞0Ord＜0

B、c+d＞a+bAnda＞=5OrNotc＞0Andd＞0

C、a+d＜b+cAnda＞=5OrNotc＜0Andd＜0

D、a+b＞c+dAnda＜5OrNotc＞0Ord＜0〔運(yùn)算符的優(yōu)先級(jí)：算術(shù)運(yùn)算〔符合四那么運(yùn)算法那么〕>比擬運(yùn)算>邏輯運(yùn)算〔Not>And>or〕〕10、(1.5分)

運(yùn)行如下程序段可輸出由“*〞組成的()。

ForX=1To4

PrintSpace(4)&"*****"

NextX

A、矩形

B、平行四邊形

C、三角形

D、梯形

11、(1.5分)

用折半查找法〔二分查找法〕從數(shù)列3，6，7，10，12，16，25，30，75中找到數(shù)據(jù)25的最少查找次數(shù)是()。

A、2

B、3

C、4

D、7

12、(1.5分)

如果A=30，B=40,執(zhí)行A=A+B:B=A-B:A=A-B語(yǔ)句后,A、B的值是()。(交換兩個(gè)變量數(shù)據(jù)的另一方法)A、30、40

B、40、40

C、40、30

D、30、30

13、(1.5分)

用冒泡排序法對(duì)數(shù)據(jù)7，6，3，9，2從大到小排序，第2趟結(jié)果是()。

A、9,6,3,7,2

B、7,9,6,3,2

C、9,7,3,6,2

D、9,7,6,3,214、(1.5分)

以下程序段運(yùn)行時(shí)語(yǔ)句k=k+1執(zhí)行次數(shù)為()次。

k=－20

do

k=k+1

loopwhile(k=0)

A、20

B、無(wú)數(shù)次

C、1

D、0

15、(1.5分)

數(shù)列2，4，8，16，32，……的遞推公式為()。

A、f(n)=n*2

B、f(n)=f(n-1)*2

C、f(n)=2^n

D、f(n)=f(n-1)+2

16、(1.5分)

以下程序段運(yùn)行后X的值是()。

x=0

Fori=1To5

Forj=iTo5

x=x+1〔循環(huán)次數(shù)計(jì)數(shù)器〕Nextj

Nexti

A、0

B、5

C、10

D、15

17、(1.5分)

假設(shè)X=False，執(zhí)行IfXThenX=0ElseX=1后X的結(jié)果為()。

A、False

B、編譯錯(cuò)誤

C、1

D、0

18、(1.5分)

模塊化程序設(shè)計(jì)方法反映了結(jié)構(gòu)化程序設(shè)計(jì)的()根本思想

A、自頂而下、逐步求精B、面向?qū)ο?/p>

C、自定義函數(shù)、過(guò)程

D、可視化編程

19、(1.5分)

程序段如下：

c="1234"

Fori=1To4

Print_____,

Next

如果要讓程序運(yùn)行后得到如下結(jié)果：

1234123121

那么在下劃線處應(yīng)填入的內(nèi)容為()。(提示：Right(x,n):從字符串右面取n個(gè)字符，Left(x,n):從字符串左邊取n個(gè)字符)A、Right(c,5-i)

B、Left(c,5-i)

C、Right(c,i-5)

D、Left(c,i-5)

20、(1.5分)

要從n個(gè)數(shù)據(jù)元素中順序查找一個(gè)元素，最少查找次數(shù)是()?！沧疃嗖檎掖螖?shù)呢？〕A、1

B、n

C、n/2

D、lgn

21、(1.5分)

在流程圖中表示算法中變量的計(jì)算與賦值時(shí)使用()圖形框。

A、菱形框

B、矩形框

C、圓形框

D、平行四邊形框

22、(1.5分)

VB語(yǔ)言中，以下各種根本數(shù)據(jù)類(lèi)型說(shuō)明符中表示整型數(shù)的是()。

A、Integer

B、Boolean

C、Single

D、String

23、(1.5分)

以下哪個(gè)是合法的變量名()?！沧兞康拿s定：1、以字母或漢字開(kāi)頭，不能以數(shù)字或其他字符開(kāi)頭；2、只能由字母、漢字、數(shù)字俄下劃線組成，不能含有小數(shù)點(diǎn)、空格等字符；3、字符個(gè)數(shù)不超過(guò)255個(gè)；4、不能使用VB中的保存字〕A、sqr

B、2pai

C、c+j

D、abc

24、(1.5分)

程序的根本結(jié)構(gòu)有順序結(jié)構(gòu)、選擇結(jié)構(gòu)和()。

A、邏輯結(jié)構(gòu)

B、模塊結(jié)構(gòu)

C、循環(huán)結(jié)構(gòu)D、層次結(jié)構(gòu)

25、(1.5分)

VB函數(shù)Right()從字串右端開(kāi)始取局部字串，那么Right("VisualBasic6.0",8)的值為()。

A、VisualB

B、Visual

C、VisualBa

D、asic6.0

26、(1.5分)

VB中保存窗體文件的文件擴(kuò)展名為()。

A、vbp

B、frmC、doc

D、pas

27、(1.5分)

人們利用計(jì)算機(jī)解決問(wèn)題的根本過(guò)程一般有如下四個(gè)步驟〔①～④〕，請(qǐng)按各步驟的先后順序在以下選項(xiàng)中選擇正確的答案()。

①調(diào)試程序②分析問(wèn)題③設(shè)計(jì)算法④編寫(xiě)程序

A、①②③④B、②③①④C、③②④①D、②③④①28、(1.5分)

程序設(shè)計(jì)語(yǔ)言的開(kāi)展歷程中不包括()。

A、機(jī)器語(yǔ)言

B、自然語(yǔ)言C、匯編語(yǔ)言

D、高級(jí)語(yǔ)言

29、(1.5分)

VB表達(dá)式2*8Mod12+4的值是()。〔Mod為取余運(yùn)算〕A、8

B、22

C、20

D、0

30、(1.5分)

下面關(guān)于算法的說(shuō)法錯(cuò)誤的是()。

A、算法必須有輸出

B、算法必須在計(jì)算機(jī)上用某種語(yǔ)言實(shí)現(xiàn)

C、算法不一定有輸入

D、算法必須在有限步執(zhí)行后能結(jié)束

二、判斷題

31、(1分)

運(yùn)行程序時(shí)，程序中的每一條語(yǔ)句至少運(yùn)行一次。

〔錯(cuò)誤。反例：注釋語(yǔ)句〕32、(1分)

VB表達(dá)式〔A+B+C〕的值一定是數(shù)值型數(shù)據(jù)。

〔錯(cuò)誤。字符型變量也可以進(jìn)行“＋〞、“－〞運(yùn)算〕33、(1分)

高級(jí)語(yǔ)言是能夠被計(jì)算機(jī)直接接受和執(zhí)行的計(jì)算機(jī)語(yǔ)言。

〔錯(cuò)誤。只有機(jī)器語(yǔ)言才能被計(jì)算機(jī)直接接受和執(zhí)行〕34、(1分)

機(jī)器語(yǔ)言是程序設(shè)計(jì)的核心，是程序設(shè)計(jì)的靈魂。

〔錯(cuò)誤。算法＋數(shù)據(jù)結(jié)構(gòu)＝程序〕35、(1分)

列舉一切與命題相關(guān)的情況，然后根據(jù)問(wèn)題設(shè)定的條件，逐個(gè)加以檢查，找到滿足條件的解答的方法稱(chēng)為遞歸算法。

〔錯(cuò)誤。這是“窮舉法〞的根本思想〕36、(1分)

在程序循環(huán)結(jié)構(gòu)中必須設(shè)定終止循環(huán)的條件，否那么會(huì)出現(xiàn)死循環(huán)。

〔錯(cuò)誤。終值條件一定要有，但不一定明確“設(shè)定〞，如，F(xiàn)or/Next循環(huán)〕37、(1分)

VB中的事件驅(qū)動(dòng)就是當(dāng)應(yīng)用程序中某對(duì)象的特定事件發(fā)生時(shí)，通過(guò)執(zhí)行一段程序代碼，來(lái)完成該特定事件所對(duì)應(yīng)的操作。

38、(1分)

對(duì)一個(gè)排好序的數(shù)組來(lái)說(shuō)，要查找一個(gè)元素，可以用順序查找法，也可以用二分查找法，其中二分查找一定比順序查找快。

〔錯(cuò)誤。不同的查找方法解決不同的問(wèn)題，效率上下并不絕對(duì)〕39、(1分)

遞歸過(guò)程一般通過(guò)函數(shù)或子過(guò)程來(lái)實(shí)現(xiàn)。

40、(1分)

對(duì)于多種情況的選擇問(wèn)題，只能采用多重選擇語(yǔ)句來(lái)處理，不能使用條件語(yǔ)句。

〔錯(cuò)誤?？梢圆捎肐f語(yǔ)句的嵌套〕41、(1分)

通過(guò)分析問(wèn)題中各要素之間的關(guān)系，用最簡(jiǎn)練的語(yǔ)言或形式化的符號(hào)來(lái)表達(dá)它們的關(guān)系，得出解決問(wèn)題所需的表達(dá)式，然后設(shè)計(jì)程序求解問(wèn)題的方法稱(chēng)為解析法。

42、(1分)

在VB程序設(shè)計(jì)中，方法對(duì)應(yīng)于對(duì)象內(nèi)部的一段程序代碼，既可能是一個(gè)函數(shù)，也可能是一個(gè)過(guò)程。

43、(1分)

控件是應(yīng)用程序的圖形用戶(hù)界面中顯示可供用戶(hù)操縱，并可控制應(yīng)用程序的圖形界面元素，是VB可視化編程的根本操作對(duì)象。

44、(1分)

多重循環(huán)的原那么是：外層循環(huán)與內(nèi)層循環(huán)不必層層相套，循環(huán)體之間可以交叉。

〔錯(cuò)誤。外循環(huán)必須完全包含內(nèi)循環(huán)，也就是說(shuō)內(nèi)外層Next語(yǔ)句的位置不能交叉〕45、(1分)

VB中所有對(duì)象的屬性只能在屬性窗口中設(shè)定。

〔錯(cuò)誤。可以在程序中設(shè)定。如：修改command1的caption屬性為“計(jì)算〞可以用comand1.caption=“計(jì)算〞實(shí)現(xiàn)〕46、(1分)

在程序設(shè)計(jì)中容易出現(xiàn)的錯(cuò)誤主要有：編輯時(shí)出現(xiàn)的錯(cuò)誤、編譯時(shí)出現(xiàn)的錯(cuò)誤、運(yùn)行時(shí)的錯(cuò)誤和邏輯錯(cuò)誤。

47、(1分)

三角形的兩邊分別為a、b，它們的夾角為60度，圓周率取3.14，在VB中可用公式(a*b*Sin(60*3.14/180)/2)求出該三角形的面積。

48、(1分)

在VB中，可將調(diào)試好的程序編譯生成能夠脫離VB集成環(huán)境在Windows平臺(tái)上獨(dú)立運(yùn)行的可執(zhí)行文件。

49、(1分)

在VB中，Int(100*Rnd+1)的取值范圍是1～100之間的所有實(shí)數(shù)〔包括1和100〕

〔錯(cuò)誤。是“整數(shù)〞而不是“實(shí)數(shù)〞〕50、(1分)

算法是有限步驟內(nèi)求解問(wèn)題所使用的一組定義明確的規(guī)那么。

三、操作題

51、(15分)

有一數(shù)列A1、A2、A3、A4、A5、，A1=0、A2=1、A3=1、A4=A1+2*A2＋A3、A5=A2+2*A3+A4、，依此類(lèi)推編程輸出第23項(xiàng)的值。PrivateSubCommand1_Click()Printf(23)EndSubPrivateFunctionf(nAsInteger)AsSingleIfn=1Thenf=0ElseIfn=2Orn=3Thenf=1Elsef=f(n-3)+2*f(n-2)+f(n-1)EndIfEndIfEndFunction

52、(10分)

編程求12709到45368之間有多少個(gè)其各位數(shù)字之和為5的倍數(shù)的正整數(shù)。PrivateSubCommand1_Click()s=0Fori=12709To45368a=Int(i/10000)b=Int((i-a*10000)/1000)c=Int((i-a*10000-b*1000)/100)d=Int((i-a*10000-b*1000-c*100)/10)e=i-a*10000-b*1000-c*100-d*10If(a+b+c+d+e)Mod5=0Thens=s+1NextPrintsEndSub

53、(10分)

三角形的兩邊分別為13、17，它們的夾角為36度，圓周率取3.14，編程求該三角形的面積〔精度：四舍五入保存小數(shù)點(diǎn)后6位〕。

PrivateSubCommand1_Click()Print(13*17*Sin(36*3.14/180)/2)EndSub參考答案單項(xiàng)選擇題：123456789101112131415DCADABCDCAACCCC161718192021222324/