計算機2級試題

計算機2級試題

考試時間90分鐘，滿分100分）

一、選擇題（（1）~（35）每小題2分，共70分）

下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的，請將正確選項涂寫在

答題卡相應位置上，答在試卷上不得分。

（1）數(shù)據(jù)的存儲結(jié)構(gòu)是指

A）存儲在外存中的數(shù)據(jù)B）數(shù)據(jù)所占的存儲空間量

C）數(shù)據(jù)在計算機中的順序存儲方式D）數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的表示

（2）下列關(guān)于棧的描述中錯誤的是

A）棧是先進后出的線性表B）棧只能順序存儲

C）棧具有記憶作用D）對棧的插入與刪除操作中，不需要改變棧底指針

（3）對于長度為n的線性表，在最壞情況下，下列各排序法所對應的比較次數(shù)中正確的

是

A）冒泡排序為n/2B）冒泡排序為

C)快速排序為nD)快速排序為n(n-l)/2

(4)對于長度為n的線性表進行順序查找，在最壞情況下所需要的比較次數(shù)為

A)log2nB)n/2C)nD)n+I

(5)下列對于線性鏈表的描述中正確的是

A)存儲空間不一定是連續(xù)，且各元素的存儲順序是任意的

B)存儲空間不一定是連續(xù)，且前件元素一定存儲在后件元素的前面

C)存儲空間必須連續(xù)，且前件元素一定存儲在后件元素的前面

D)存儲空間必須連續(xù)，且各元素的存儲順序是任意的

(6)下列對于軟件測試的描述中正確的是

A)軟件測試的目的是證明程序是否正確

B)軟件測試的目的是使程序運行結(jié)果正確

C）軟件測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯誤

D）軟件測試的H的是使程序符合結(jié)構(gòu)化原則

（7）為了使模塊盡可能獨立，要求

A）模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強

B）模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱

C）模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱

D）模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強

（8）下列描述中正確的是

A）程序就是軟件

B）軟件開發(fā)不受計算機系統(tǒng)的限制

C）軟件既是邏輯實體，又是物理實體

D）軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合

（9）數(shù)據(jù)獨立性是數(shù)據(jù)庫技術(shù)的重要特點之一。所謂數(shù)據(jù)獨立性是指

A）數(shù)據(jù)與程序獨立存放

B）不同的數(shù)據(jù)被存放在不同的文件中

C）不同的數(shù)據(jù)只能被對應的應用程序所使用

D）以上三種說法都不對

（10）用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模型是

A）關(guān)系模型B）網(wǎng)狀模型C）層次模型D）以上三個都是

11、在窗體（名稱為Forml）上畫一個名稱為Textl的文本框和一個名稱為Command1

的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把

命令按鈕的標題設(shè)置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是：

A)PrivateSubTextl_Change()

Command1.Caption=計算機等級考試”

EndSub

B)PrivateSubCommand1_Click()

Caption="計算機等級考試”

EndSub

C)PrivateSubForml_Click()

Textl.Caption="計算機等級考試”

EndSub

D)PrivateSubCommand1_Click()

Text1.76X1="計算機等級考試”

EndSub

(12)設(shè)a=5,b=4,c=3,d=2,下列表達式的值是

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FalseD)2

(13)設(shè)a="MicrosoftVisualBasic”,則以下使變量b的值為“VisualBasic,,的語句是

A)b=Left(a,10)

B)b=Mid(a,10)

C)b=Right(a,10)

D)b=Mid(a,11,10)

(14)假定有如下的窗體事件過程:

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$,5)

c=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

EndSub

程序運行后單擊窗體，則在彈出的信息框H」的標題欄中顯示的信息是:

A)MicrosoftVisual

B)Microsoft

C)Basic

D)5

(15)設(shè)a="a"，b="b"，c="c"，d="d"，執(zhí)行語句x=Iif((ad),“A“，“B")后，x的值

為：

A)”aM

B)“b”

C)“B

D)"A"

(16)為了使命令按鈕(名稱為Commandl)右移200,應使用的語句是

A)Commandl.Move-200

B)Commandl.Move200

C)Commandl.Left=Command1.Left+200

D)Command1.Left=Command1.Left-200

(17)在窗體上畫一個文本框，然后編寫如下事件過程:

PrivateSubForm_Click()

x=InputBox。'請輸入一個整數(shù)")

Printx+Text1.Text

EndSub

程序運行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確

定”按鈕后，在窗體上顯示的內(nèi)容是：

A)123

B)456

C)579

D)123456

(18)在窗體上畫一個文本框和一個計時器控件，名稱分別為Textl和Time1在屬性

窗口中把計時器的Interval屬性設(shè)置為1000,Enabled屬性設(shè)置為False,程序運行后，如果單

擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序：

PrivateSubCommandl_Click()

Timer1._________

EndSub

PrivateSubTimerl_Timer()

Textl.Text=Time

EndSub

在______處應填入的內(nèi)容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

(19)假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形(不刪除圖片框)，應采

用的正確方法是：

A)選擇圖片框，然后按Del鍵

B)執(zhí)行語句Picturel.Picture=LoadPicture(af,)

C)執(zhí)行語句Picture1.Picture=

D)選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵

(20)在窗體上畫一個Listl的列表框，一個名稱為Labell的標簽，列表框中顯示若干

個項目，當單擊列表框中的某個項目時;在標簽中顯示被選中的項目的名稱，下列能正確實

現(xiàn)上述操作的程序是

A)PrivateSubListl_Click()

Label1.Caption=Listl.ListIndex

EndSub

B)PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C)PrivateSubListl_Click()

Label1.Name=List1.Text

EndSub

D)PrivateSubListl_Click()

Label1.Caption=List1.Text

EndSub

(21)在窗體上畫一個命令按鈕，名稱為Commandl,然后編寫如下事件過程:

PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

程序運行后，單擊命令按鈕，其輸出結(jié)果為

A)9

B)6

C)12

D)15

(22)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如F事件過程:

PrivateSubCommandl_Click()

c="ABCD”

Forn=1To4

Print

Next

EndSub

程序運行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容:

D

CD

BCD

ABCD

則在處應填入的內(nèi)容為

A)Left(c,n)

B)Right(c,n)

C)Mid(c,n,l)

D)Mid(c,n,n)

(23)執(zhí)行以F程序段

DimxAsInteger,iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextI

后，X的值為

A)16

B)17

C)18

D)19

（24）在VisualBasic工程中，可以作為啟動對象的程序是

A）任何窗體或標準模塊

B）任何窗體或過程

C）SubMain過程或其他任何模塊

D）SubMain過程或任何窗體

（25）假定建立了一個名為Commandl的命令按鈕數(shù)組，則以下說法中錯誤的是

A）數(shù)組中每個命令按鈕的名稱（名稱屬性）均為Command1

B）數(shù)組中每個命令按鈕的標題（dption屬性）都一樣

C）數(shù)組中所有命令按鈕可以使用同一個時間過程

D）用名稱Command1（下標）可以訪問數(shù)組中的每個命令按鈕

（26）把窗體的KeyPreview屬性設(shè)置為True,然后編寫如下事件過程:

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序運行后,按鍵盤上的"A“鍵，則在窗體上顯示的內(nèi)容是

A)A

B)B

C)C

D)D

(27)在窗體上畫一個命令按鈕和一個文本框，名稱分別為Commandl和Textl,然后編寫如

下程序：

PrivateSubCommandl_Click()

a=InputBox("請輸入日期(1~31)")

t="旅游景點:"一

&IIf(a>0Anda<=10,"長城"，巧

&IIf(a>10Anda<=20,“故宮_

&IIf(a>20Anda<=30,”頤和園“，巧

Textl.Text=t

EndSub

程序運行后，如果從鍵盤輸入16,則在文本框中顯示的內(nèi)容是:

A）旅游景點：長城故宮

B）旅游景點：長城頤和園

C）旅游景點：頤和園

D）旅游景點：故宮

（28）在窗體上畫一個名稱為Label1的標簽，然后編寫如下事件過程:

PrivateSubForm_Click()

Diman*(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

Label1.Caption=Str(arr(2,2)+arr(3,3))

EndSub

程序運行后，單擊窗體，在標簽中顯示的內(nèi)容是

A)12

B)13

C)14

D)15

(29)在窗體上畫一個名稱為Comamndl的命令按鈕,然后編寫如下通用過程和命令按鈕

的事件過程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

Prints

EndSub

程序運行后,單擊命令按鈕，則窗體上顯示的是:

A)6

B)7

C)8

D)9

(30)閱讀程序:

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=1To3

Forj=1To2

arr(ij)=i*2+j

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3To4

arr(3,j)=j+9

Nextj

Printarr(3,2)+arr(3,4)

EndSub

程序運行后，單擊窗體，輸;H結(jié)果為:

A)21

B)13

C)8

D)25

31)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如卜.程序:

OptionBase1

PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

d=0

c=6

x=Array(2,4,6,8,10,12)

Fori=1To6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序運行后，如果單擊命令按鈕，則在窗體上輸入的內(nèi)容為

A)10

B)16

C)12

D)20

（32）設(shè)有如下程序:

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

c=4

d=InpulBox（“請輸入一個整數(shù)”）

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox（"請輸入一個整數(shù)"）

Loop

Printc+d

EndSub

程序運行后，單擊命令按鈕如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、

0,則輸出結(jié)果是：

A)12

B)ll

C)10

D)9

(33)在窗體上畫一個名稱為Commandl的命令按鈕和一個名稱為Textl的文本框,在文本

框中輸入以下字符串：

MicrosoftVisualBasicProgramming

然后編寫如卜.事件過程:

PrivateSubCommandl_Click()

Opennd:\temp\outf.txtnForOutputAs#1

Fori=1ToLen(Textl.Text)

c=Mid(Textl.Text,i,1)

Ifc>=nAnAndc<=HZnThen

Print#1,LCase(c)

EndIf

Nexti

Close

EndSub

程序運行后,單擊命令按犯，文件oulf.lxl中的內(nèi)容是:

A)MVBP

B)mvbp

C)M

V

B

P

D)m

v

b

P

(34)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如卜程序:

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunction

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=InputBox('H,)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAs

Single)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

程序運行后,單擊命令按鈕，將顯示一個輸入對話框,如果在對話框中輸入25,則程序的執(zhí)

行結(jié)果是：

A)輸出0

B)輸出25

C)輸出45

D)無任何輸出

(35)設(shè)有如下通用過程：

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗體上畫一個名稱為Textl的文本框和一個名稱為Command1的命令按鈕，然后編寫

如下事件過程：

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=i+i

Next

funarr,n

Textl.Text=Str(n)

EndSub

程序運行后，單擊命令按鈕,則在文本框中顯示的內(nèi)容是

A)30

B)25

C)20

D)15

二、填空題(每空2分，共30分)

請將每一個空的正確答案寫在答題卡［1】?【15】序號的橫線上，答在試卷上不得分。

注意：以命令關(guān)鍵字填空的必須拼寫完整。

(1)某二*樹中度為2的結(jié)點有18個，則該二*樹中有【1】個葉子結(jié)點。

(2)在面向?qū)ο蠓椒ㄖ校惖膶嵗Q為【2】。

(3)診斷和改正程序中錯誤的工作通常稱為【3】。

(4)在關(guān)系數(shù)據(jù)庫中，把數(shù)據(jù)表示成二維表，每一個二維表稱為［4］o

(5)問題處理方案的正確而完整的描述稱為【5】o

(6)以下語句的輸出結(jié)果是：【6】

PrintInt(l2345.6789*100+0.5)/100

⑺在窗體上畫一個文本框和一個圖片框，然后編寫如下兩個事件過程:

PrivateSubForm_Click()

Textl.Text=UVB程序設(shè)計”

EndSub

PrivateSubTextl_Change()

Picture!.Print"VBProgramming"

EndSub

程序運行后，單擊窗體，在文本框中顯示的內(nèi)容是【7］，而在圖片框中顯示的內(nèi)容是［8】

(8)閱讀下面的程序

PrivateSubForm_Click()

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序運行后，單擊窗體，輸出結(jié)果是［9】

(9)設(shè)有如下程序

PrivateSubForm_Click()

DimaAsInteger,sAsInteger

n=8

s=0

Do

s=s4-n

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是【10】，程序運行后，單擊窗體，輸出結(jié)果為［11)

(10)設(shè)有如下程序:

OptionBase1

PrivateSubCommand1_Click()

Dimarrl

DimMinAsInteger,iAsInteger

arrl=Array(12,435,76,-24,78,54,866,43