計(jì)算機(jī)二級歷年真題

計(jì)算機(jī)二級歷年真題

05年試卷

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

下列各題A）、B）、C）、D）四個選項(xiàng)中，只有一個選項(xiàng)是正確的，請將正確選項(xiàng)涂寫在答題卡相應(yīng)位置上,

答在試卷上不得分。（1）數(shù)據(jù)的存儲結(jié)構(gòu)是指（）?

A.存儲在外存中的數(shù)據(jù)B.數(shù)據(jù)所占的存儲空間量C.數(shù)據(jù)在計(jì)算機(jī)中的順序存儲方式D.數(shù)據(jù)的

邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示

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

A.棧是先進(jìn)后出的線性表B.棧只能順序存儲C.棧具有記憶作用D.對棧的插入與刪除操作中，不需

要改變棧底指針

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

A.冒泡排序?yàn)閚/2B.冒泡排序?yàn)閚C.快速排序?yàn)閚D.快速排序?yàn)閚（n-l）/2

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

A.Iog2nB.n/2C.nD.n+1

（5）下列對于線性鏈表的描述中正確的是（）。

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

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

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

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

（6）下列對于軟件測試的描述中正確的是（）。

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

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

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

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

（7）為了使模塊盡可能獨(dú)立，要求（）。

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

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

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

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

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

A.程序就是軟件

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

C.軟件既是邏輯實(shí)體，又是物理實(shí)體D.軟件是程序、數(shù)據(jù)與相關(guān)文檔的集合

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

A.數(shù)據(jù)與程序獨(dú)立存放

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

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

D.以上三種說法都不對

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

A.關(guān)系模型

B,網(wǎng)狀模型

C.層次模型

D.以上三個都是

(II)在窗體(名稱為Forml)上畫--個名稱為Textl的文本框和一個名稱為Command)的命令按鈕，

然后編寫一個事件過程。程序運(yùn)行后，如果在文本框中輸入?個字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)

等級考試”。以下能實(shí)現(xiàn)上述操作的事件過程是()。

A.PrivateSubTextl_Change()

Command1.Caption="計(jì)算機(jī)等級考試”

EndSub

B.PrivateSubCommand1_Click()

Caption="計(jì)算機(jī)等級考試”

EndSub

C.PrivateSubForm1_Click()

Textl.Caption="計(jì)算機(jī)等級考試”

EndSub

D.PrivateSubCommand1_Click()

Textl.Text="計(jì)算機(jī)等級考試”

EndSub

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

3>2*bOra=cAndb<>cOrc>d

A.1

B.True

C.False

D.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

程序運(yùn)行后，單擊窗體，則在彈出的信息框的標(biāo)題欄中顯示的信息是()o

A.MicrosoftVisual

B.Microsoft

C.Basic

D.5

(15)^a="a",b="b",c="c",d="d",執(zhí)行語句x=Hf((a

D.A“，“B”)后，x的值為()。

A."a"

B.”b"

C.”B”

D."A”

(16)為了使命令按鈕(名稱為Command1)右移200,應(yīng)使用的語句是()。

A.Commandl.Move-200

B.Commandl.Move200

C.Commandl.Left=Commandl.Left+200

D.Commandl.Left=Commandl.Left-200

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

PrivateSubForm_Click()

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

Printx+Text1.Text

EndSub

程序運(yùn)行時，在文本框中輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在

窗體上顯示的內(nèi)容為()?

A.123

B.456

C.479

D.123456

(18)在窗體上畫一個文本框和一個計(jì)時器控件，名稱分別為Textl和Timerl,在屬性窗口中把計(jì)時器的

Interval屬性設(shè)置為1000,Enabled屬性設(shè)置為False。程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本

框中顯示一次當(dāng)前的時間。以下是實(shí)現(xiàn)上述操作的程序：

PrivateSubCommand1_Click()

Timer1.()

EndSub

PrivateSubTimerl_Timer()

Textl.Text=Time

EndSub

在下劃線處應(yīng)填入的內(nèi)容是()。

A.Enabled=True

B.Enabled=False

C.Visible=True

D.Visible=False

(19)假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形(不刪除圖片框)，應(yīng)采用的正確方法是

()。

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

B.執(zhí)行語句Picture1.Picture=LoadPicture("")

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

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

(20)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標(biāo)簽，列表框中顯示若干個項(xiàng)目。當(dāng)單

擊列表框中的某個項(xiàng)目時，在標(biāo)簽中顯示被選中項(xiàng)目的名稱。下列能正確實(shí)現(xiàn)上述操作的程序是：。

A.PrivateSubListl_Click()

Label1.Caption=List1.Listindex

EndSub

B.PrivateSubListl_Click()

Label1.Name=List1.Listindex

EndSub

C.PrivateSubListl_Click()

Label1.Name=Listl.Text

EndSub

D.PrivateSubListl_Click()

Label1.Caption=List1.Text

EndSub(21)在窗體上畫?個命令按鈕，其名稱為Comma

,然后編寫如下事件過程:

PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A.9

B.6

12

D.15

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

PrivateSubCommand1_Click()

c="ABCD”

Forn=1To4

Print()

Next

EndSub

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

D

CD

BCD

ABCD

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

A.Left(c,n)

B.Right(c,n)

Mid(c,n,l)

D.Mid(c,n,n)

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

DimiAsInteger,xAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Next

Printx

后，x的值為()o

A.16

B.17

C.18

D.19

(24)在VisualBasic工程中，可以作為“啟動對象”的程序是()。

A.任何窗體或標(biāo)準(zhǔn)模塊

B.任何窗體或過程

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

D.SubMain過程或任何窗體

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

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

B.數(shù)組中每個命令按鈕的標(biāo)題(Caption屬性)都一樣

C.數(shù)組中所有命令按鈕可以使用同一個事件過程

D.用名稱Commands下標(biāo))可以訪問數(shù)組中的每個命令按鈕

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A.A

B.B

C.C

D.D

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

PrivateSubCommand1_Click()

a=InputBox(“請輸入日期)

t=”旅游景點(diǎn)："_

&IIf(a>OAnda<=10/,長城“

&IIf(a>10Andav=20,“故宮"

&Hf(a>20Anda<=31,"頤和園“，””)

Text1.Text=t

EndSub

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

A.旅游景點(diǎn)：長城故宮

B.旅游景點(diǎn)：長城頤和園

C.旅游景點(diǎn)：頤和園

D.旅游景點(diǎn)：故宮

(28)在窗體上畫一個名稱為Labell的標(biāo)簽，然后編寫如下事件過程：

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

D

&Page=3imiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

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

A.12

B.13

14

D.15

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

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

程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是()。

A.6

B.7

C.8

D.9

(30)閱讀程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=1To3

Forj=1To2

arr(i,j)=i*2+j

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3To4

arr(3,j)=j+9

Nextj

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

EndSub

程序運(yùn)行后，單擊窗體，輸入結(jié)果為()。

A.21

B.13

C.8

D.25(31)在窗體上畫一個名稱為Commandl的命令按鈕，然后編寫如下程序:

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

Next

Printd

EndSub

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

A.10

B.16

C.12

D.20

(32)設(shè)有如下程序：

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

c=4

d=InputBox("請輸入?個整數(shù)”)

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

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

Loop

Printc+d

EndSub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中依次輸入1、2、3、4、5、6、7、8、9、0,則輸出結(jié)

果是()。

A.12

B.11

10

D.9

(33)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為Textl的文本框，在文本框中輸入以下字

符串：MicrosoftVisu

&Page=4alBasicProgramming

然后編寫如下事件過程：

PrivateSubCommand1_Click()

Open"d:\temp\outf.txt0ForOutputAs#1

Fori=1ToLen(Textl.Text)

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

Ifc>="AHAndc<="Z"Then

Print#1,LCase(

EndIf

Nexti

Close

EndSub

程序運(yùn)行后，單擊命令按鈕，文件outf.txt中的內(nèi)容是()。

A.MVBP

B.mvbp

C.M

D.m

Vv

Bb

Pp

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

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunction

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=InputBox(',H)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

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

為()。

A.輸出0

B.輸出25

輸出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

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

A.30

B.25

C.20

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

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

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

(2)在面向?qū)ο蠓椒ㄖ?，類的?shí)例稱為【2】。

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

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

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

(6)以下語句輸出結(jié)果是［6】o

PrintInt(12345.6789*100+0.5)/100

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

PrivateSubForm_

&Page=5Click()

Textl.Text=nVB程序設(shè)計(jì)”

EndSub

PrivateSubTextl_Change()

Picture!.Print"VBProgramming',

EndSub

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

(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

程序運(yùn)行后，單擊窗體，輸出結(jié)果為【9】o

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

PrivateSubForm_Click()

DimnAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是【10】o程序運(yùn)行后，單擊窗體，輸出結(jié)果為[11]O

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

OptionBase1

PrivateSubCommandl_Click()

Dimarrl

DimMinAsInteger,iAsInteger

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

Min=[12]

Fori=2To8

Ifarrl(i)<MinThen[13]

Next

Print”最小值是：Min

EndSub

以上程序的功能是：用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的最

小值。請?zhí)羁铡?/p>

(11)在名稱為Forml的窗體上畫一個文本框，其名稱為Textl,在屬性窗口中把該文本框的MulliLine

屬性設(shè)置為True,然后編寫如下的事件過程：

PrivateSubForm_Click()

Open"d:\test\smtextl.txt"ForInputAs#1

DoWhileNot[14]

LineInput#1,aspect$

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text=whole$

Close#1

Open"d:\test\smtext2.txt”ForOutputAs#1

Print#1,[15]

Close#!

EndSub

上述程序的功能是，把磁盤文件smtextl.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中

的內(nèi)容存入磁盤文件smtext2.txt。請?zhí)羁?005年4月全國計(jì)算機(jī)等級考試二級VB語言筆試答案

參考答案：

選擇題：

1—5DBDCA

6—10CBDDC

11-15ABBCD

16-20CDABD

21-25ABCDB

26-30CDBBA

31-35CDDDA

填空題：

[1]19

[2]對象

[3]程序調(diào)試

[4]關(guān)系

[5]算法

[6]12345.68

[7]VB程序設(shè)計(jì)

[8]VBProgramming

[9]10

[10]求1-8的和

[11]36

[12]arrl(l)

[13]min=arrl(i)

[14]EOF(1)

[15]textl.text(sXwhole$)

1結(jié)束]

07年4月二級VB語言筆試試題及答案

發(fā)布時間：11-04

頁數(shù)：7頁

上一篇:06年四月全國等級考試二級VB語言考前密卷(一)

下一篇:02年9月二級VB語言筆試試題及答案

2007年4月全國計(jì)算機(jī)等級考試二級筆試試卷

VisualBasic語言程序設(shè)計(jì)

?、選擇題（第小題2分，共70分）下列各題A）、B）、C）、D）四個選項(xiàng)中，只有一個選項(xiàng)是正確的。請將

正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。

（1）下列敘述中正確的是（B）

A）算法的效率只與問題的規(guī)模有關(guān)，而與數(shù)據(jù)的存儲結(jié)構(gòu)無關(guān)

B）算法的時間復(fù)雜度是指執(zhí)行算法所需要的計(jì)算工作量

C）數(shù)據(jù)的邏輯結(jié)構(gòu)與存儲結(jié)構(gòu)是一對應(yīng)的

D）算法的時間復(fù)雜度與空間復(fù)雜度一定相關(guān)

（2）在結(jié)構(gòu)化程序設(shè)計(jì)中，模塊劃分的原則是（D）

A）各模塊應(yīng)包括盡量多的功能

B）各模塊的規(guī)模應(yīng)盡量大

C）各模塊之間的聯(lián)系應(yīng)盡量緊密

D）模塊內(nèi)具有高內(nèi)聚度、模塊間具有低耦合度

（3）下列敘述中正確的是（A）

A）軟件測試的主要目的是發(fā)現(xiàn)程序中的錯誤

B）軟件測試的主要目的是確定程序中錯誤的位置

C）為了提高軟件測試的效率，最好由程序編制者自己來完成軟件的測試工作

D）軟件測試是證明軟件沒有錯誤

（4）下面選項(xiàng)中不屬于面向?qū)ο蟪绦蛟O(shè)計(jì)特征的是（C）

A）繼承性

B）多態(tài)性

C）類比性

D）封裝性

（5）下列對隊(duì)列的敘述正確的是（D）

A）隊(duì)列屬于非線性表

B）隊(duì)列按“先進(jìn)后出”原則組織數(shù)據(jù)

C）隊(duì)列在隊(duì)尾刪除數(shù)據(jù)

D）隊(duì)列按“先進(jìn)先出”原則組織數(shù)據(jù)

（6）對下列二叉樹（C）

A

BC

DEFX

YZ

進(jìn)行前序遍歷的結(jié)果為

A)DYBEAFCZX

B)YDEBFZXCA

C)ABDYECFXZ

D)ABCDEFXYZ

(7)某二叉樹中有n個度為2的結(jié)點(diǎn)，則該二叉樹中的葉子結(jié)點(diǎn)數(shù)為(A)

A)n+1

B)n-1

C)2n

D)n/2

(8)在下列關(guān)系運(yùn)算中，不改變關(guān)系表中的屬性個數(shù)但能減少元組個數(shù)的是(B)

A)并

B)交

C)投影

D)笛卡兒乘積

(9)在E-R圖中，用來表示實(shí)體之間聯(lián)系的圖形是(C)

A)矩形

B)橢圓形

C)菱形

D)平行四邊形

(10)下列敘述中錯誤的是(A)

A)在數(shù)據(jù)庫系統(tǒng)中，數(shù)據(jù)的物理結(jié)構(gòu)必須與邏輯結(jié)構(gòu)一致

B)數(shù)據(jù)庫技術(shù)的根本目標(biāo)是解決數(shù)據(jù)共享問題

C)數(shù)據(jù)庫技術(shù)是指己有數(shù)據(jù)管理系統(tǒng)的基礎(chǔ)上建立數(shù)據(jù)庫

D)數(shù)據(jù)庫系統(tǒng)需要操作系統(tǒng)的支持

(11)下面可以正確定義2個整形變量和1個字符串變量的語句的是(D)

A)Dimn,mASInterger,sASSiring

B)Dima%,b$,cASString

C)DimaASInteger,b,cASString

D)Dimx%,yASIntegersASString

(12)下列表述中不能判斷x是否為偶數(shù)的是(D)

A)x/2=Int(x/2)

B)xMod2=0

C)Fix(x/2)=x/2

D)x\2=0

13)設(shè)在名稱為Myform的窗體上只有1個名稱為Cl的命令按鈕,下面敘述中正確的是(B)

A)窗體的Click事件過程的過程名是Myform_Click

B)命令按鈕的Click事件過程名是Cl_Click

C)命令按鈕的Click事件過程的過程名是Commandl_Click

(14)設(shè)窗體上有1個滾動條,要求單擊滾動條右端的/按鈕一次，滾動條移動一定的刻度值，決定此刻度的

屬性是(C)

A)Max

B)Min

C)SmallChange

D)LargeChang

(15)1個二維數(shù)組可以存放1個矩形.在程序開始有語句OptionBase0,則下面定義的數(shù)組中正好可以存放

1個4*3矩陣(即只有12個元素)的是(B)

A)Dima(-2To0,2)ASInteger

B)Dima(3,2)ASIngeger

C)Dima(4,3)ASIngeger

D)Dima(-lTo-4,-1To-3)ASIngeger

(16)若設(shè)置了文本框的屬性PasswordChar="$”，則運(yùn)行程序時向文本框中輸入8個任意字符后，文本框中

顯示的是(A)

A)8個“$"

B)1個“$"

C)8個“*”

D)無任何內(nèi)容

(17)設(shè)在窗體上有1個名稱為Combo1的組合框，含有5個項(xiàng)目，要刪除最后一項(xiàng),正確的語句是(B)

A)Combo1.RemoveitemCombo1.Text

B)Combo!.RemoveItem4

C)Combo1.RemoveitemCombo1.ListCount

D)ComboLRemoveItem5

(18)工程中有2個窗體，名稱分別為Forml.Form2,Form1為啟動窗體,該窗體上有命令按鈕Commandl,要求

程序運(yùn)行后單擊該命令按鈕時顯示Form2,則按鈕的Click事件過程應(yīng)該是(A)

A)PrivateSubCommandl_CIick()B)PrivateSubCommandl_Click()

Form2.ShowForm2.Visible

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_Click()

LoadForm2Form2.Load

EndSubEndSub

(19)若在某窗體模塊中有如下事件過程(D)

PrivateSubCommand1_Click(IndexASInteger)

EndSub

則以下敘述中正確的是

A)此事件過程與不帶參數(shù)的事件過程沒有區(qū)別

B)有1個名稱為Command1的窗體，單擊此窗體則執(zhí)行此事件過程

C)有1個名稱為Command1的空件數(shù)組,數(shù)組中有多個不同類型控件

D)有1個名稱為Commandl的空件數(shù)組,數(shù)組中有多個相同類型控件

(20)以下循環(huán)語句中在任何情況下都至少執(zhí)行一次循環(huán)體的是(C)

A)DoWhilev條件〉B)While〈條件>

循環(huán)體循環(huán)體

LoopWend

C)DoD)DoUntilv條件〉

循環(huán)體循環(huán)體

LoopUntil〈條件》Loop

(21)在窗體上有1個名為Cdl的通用對話框，為了在運(yùn)行程序時打開保存文件對話框，則在程序總應(yīng)使用的

語句是(A)

A)Cdl.Action=2

B)Cdl.Action=l

C)Cd1.ShowSave=Ture

D)Cd1.ShowSave=0

(22)下面關(guān)于菜單的敘述中錯誤的是(B)

A)各級菜單中的所有菜單項(xiàng)的名稱必須唯一

B)同一子菜單中的菜單項(xiàng)名稱必須唯一，但不同子菜單中的菜單項(xiàng)名稱可以相同

C)彈出式菜單也用菜單編輯器編輯

(23)已知有下面的過程(D)

PrivateSubprocl(aAsInteger,bAsString,OptionalxAsBoolean)

EndSub

正確調(diào)用此過程的語句是

A)Callprocl(5)

B)Callprocl5,"abc^,False

C)procl(12,nabc,y,True)

D)procl5,"abc”

(24)在窗體上有一個文件名稱為Textl的文本框和1個名稱為Commandl的命令按鈕，要求在程序執(zhí)行

時，每單擊命令按鈕一次，文本框向右移動一定距離。下面能夠正確實(shí)現(xiàn)上述功能的程序是(C)

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()

Textl.Left=100Textl.Left=Textl.Left-100

EndSubEndSub

C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()

Textl.Move.Text.Left+100Textl.Move.Text.Left

EndSubEndSub

(25)某人創(chuàng)建了1個工程，其中的窗體名稱為Forml;之后又添加了1個名為Form2的窗體，并希望程序

執(zhí)行時先顯示Form2窗體，那么，他需要做的工作是(A)

A)在工程屬性對話框中把“啟動對象”設(shè)置為Form2

B)在Forml的Load事件過程中加入語句LoadForm2

C)在Form2的Load事件過程中加入語句Form2.Show

D)在Form2的Tabindex屬性設(shè)置為1,把Form!的Tabindex屬性設(shè)置為2

(26)窗體上有1個名稱為Textl的文本框和1個名稱為Command1的命令按鈕。要求程序運(yùn)行時，單擊

命令按鈕，就可以把文本框中的內(nèi)容寫到文件out.txt中，每次寫入的內(nèi)容附加到文件原有內(nèi)容之后。下面能

夠?qū)崿F(xiàn)上述功能的程序是(C)

A)PrivateSubCommandl_Click()B)PrivateSubCommandl_Click()

Open“out.txt"ForInpitAs#lOpen“out.txt”ForOutpitAs#l

Print#1,Textl.TextPrint#1,Textl.Text

Close#1Close#1

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_Click()

Open“out.txt”ForAppendAs#lOpen“out.txt”ForRandomAs#l

Print#1,Textl.TextPrint#1,Textl.Text

Close#IClose#1

EndSubEndSub

(27)為計(jì)算1+3+5+……+99的值，某人編程如下

k=l

s=0

Whilek<=99

k=k+2:s=s+k

Wend

Prints

在調(diào)試時發(fā)現(xiàn)運(yùn)行結(jié)果有錯誤，需要修改。卜列錯誤原因和修改方案中正確的是(D)

A)While…Wend循環(huán)語句錯誤，應(yīng)改為Fork=lTo99Nextk

B)循環(huán)條件錯誤，應(yīng)改為Whliek<99

C)循環(huán)前的賦值語句k=l錯誤，應(yīng)改為k=0

D)循環(huán)中兩條賦值語句的順序錯誤，應(yīng)改為s=s+k:

(29)在窗體上有1個名稱為CommonDialog1的通用對話框和1個名稱為Command1的命令按鈕，以

及其他一些控件。要求在程序運(yùn)行時，單擊Commandl按鈕，則顯示打開文件對話框，并在選擇或輸入了1

個文件名后，就可以打開該文件。以下是Commandl_Click事件過程的兩種算法

算法1：

PrivateSubCommand1_Click()

CommonDialog1.ShowOpen

OpenCommonDialog1.FileNameForInputAs#l

EndSub

算法2：

PrivateSubCommand1_Click()

CommonDialog1.ShowOpen

IfCommonDialogl.FileNameo""Then

OpenCommonDialogl.FileNameForInputAs#1

EndIf

EndSub

下面關(guān)于這兩種算法的敘述中正確的是(B)

A)顯示打開文件對話框后若未選擇或輸入任何文件名，則算法2會出錯，算法1不會

B)顯示打開文件對話框后若未選擇或輸入任何文件名，則算法1會出錯，算法2不會

C)兩種算法的執(zhí)行結(jié)果完全一樣

D)算法1允許輸入的文件名中含有空格，而算法2不允許

(30)窗體上有1個名稱為List的列表框，其中已經(jīng)輸入了若干個項(xiàng)目(如圖所示)：還有2個文本框,

名稱分別為TextKText2,1個名稱為Command1的命令按鈕，并有以下程序

PrivateSubCommandl_Click()

DimstrAsString,sAsString,kAsInteger

s=Textl

Str=,M,

Fork=Listl.ListCount-1to0Step-1

IfInStr(List.List(k),s)>0then

str=str&List.List(k)&”"

EndIf

Nextk

Ifstr=,,vThen

Text2="沒有匹配的項(xiàng)目”

Else

Text2=str

EndIf

EndSub

程序運(yùn)行時，在Textl中輸入“京”，單擊命令按鈕，則在Text2中顯示的內(nèi)容是(C)

A)京

B)北京南京

C)南京

D)沒有匹配的項(xiàng)目

(31)在窗體上畫1一個名稱為Command1的命令按鈕，并編寫以下程序

PrivateSubCommand1_Click()

Printfun("ABCDEFG")

EndSub

Functionfun(stAsString)AsString

stlen=Len(st)

temp=

Fork

fun=temp

EndFunction

程序運(yùn)行時，單擊命令按鈕，則窗體上顯示的是(B)

A)ABCDEFG

B)AGBFCE

C)GFEDCBA

D)AGBFCED

(32)在窗體上先后畫2個圖片框，名稱分別為Picturel和banana,banana中添加了香蕉圖片(見圖1),且

將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時，可以用鼠標(biāo)把banana拖拽到Picturel中(見圖2)。能

實(shí)現(xiàn)此功能的事件過程是(C)

A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.Move

Picturel.Left+X,Picture1.Top+Y)

EndSub

B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

Source.MovePicturel.Left+X.Picture1.Top+Y

EndSub

C)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

Source.MovePicturel.Left+X.Picture1.Top+Y

EndSub

D)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

banana.Movebanana.Left+X,banana.Top+Y

EndSub

(33)在窗體上畫1個名稱為Commandl的命令按鈕，然后編寫如下事件過程

OptionBase1

PribateSubCommand1_Click()

Dima(5.5)AsInteger

Fori=lTo5

a(I,j)*5\10

Nextj

Nexti

S=0

Fori=lTo5

S=s+a(i,i)

Nexti

Prints

EndSub

程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是(A)

A)15

B)13

C)ll

D)9

(34)在窗體上從左到右有Textl、Text2兩個文本框(見圖)，要求程序運(yùn)行時，在Textl中輸入1個分?jǐn)?shù)

后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為0~100中的1個數(shù)，周圍光標(biāo)移到Text2中；否則光標(biāo)不動，

并彈出對話框顯示“分?jǐn)?shù)錯”，下血程序中正確的是(D)

A)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then，回車符的ACSII碼是13

a=Val(Text1)

Ifa>=0ora<=100Then

Text2.SetFocus

Else

Textl.SetFocus;MsgBox(“分?jǐn)?shù)錯”)

EndIf

EndIf

EndSub

B)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then，回車符的ACSII碼是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Textl.SetFocus

Else

Text2.SetFocus;MsgBox(“分?jǐn)?shù)錯”)

EndIf

EndIf

EndSub

C)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then'回車符的ACSII碼是13

a=Val(Textl)

Ifa<0Anda>100Then

Text2.SetFocus

Else

Textl.SetFocus;MsgBox(“分?jǐn)?shù)錯”)

EndIf

EndIf

EndSub

D)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then'回車符的ACSII碼是13

a=Val(Textl)

Ifa>=0Anda<=100Then

Text2.SetFocus

Else

Textl.SetFocus;MsgBox(“分?jǐn)?shù)錯”)

EndIf

EndIf

EndSub

(35)在窗體上畫2個命令按鈕，名稱分別為Command1、command2,并編寫如下程序

Constn=5,m=4

Dima(m,n)

PrivateSubCommand1_Click()

K=1

Fori=lTom

Forj=lTon

a(i,j)=k

k=k+l

Nextj

Nexti

PrivateSubCommand2_Click()

Summ=0

Fori=1Tom

Forj=lTon

Ifi=lOri=mThen

Summ=summ+a(i,j)

Else

Ifj=IOrj=nThen

Summ=summ+a(i,j)

EndIf

EndIf

Nextj

Nexti

Printsumm

EndSub

過程Commandl_Click()的作用是二維數(shù)組a中存放1個m行n列的矩陣；過程Command2_Click()的

作用是(A)

A)計(jì)算矩陣外圍一圈元素的累加和

B)計(jì)算矩陣除外一圈以外的所有元素的累加和

C)計(jì)算矩陣第1列和最后一列元素的累加和

D)計(jì)算矩陣第1行和最后一行元素的累加和

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

請將每一個空的正確答案寫在答題紙上[1]?[15]序號的橫線上，答在試卷上，答在試卷上不得分，

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

(1)在深度為7的滿二叉樹中，度為2的結(jié)點(diǎn)個數(shù)為-63o

(2)軟件測試分為白箱(盒)測試和黑箱(盒)測試，等價(jià)類劃分法屬于一黑箱(或黑盒)測試。

(3)在數(shù)據(jù)庫系統(tǒng)中，實(shí)現(xiàn)各種數(shù)據(jù)管理功能的核心軟件稱為數(shù)據(jù)庫管理系統(tǒng)(DBMS)o

(4)軟件生命周期可分為多個階段，一般分為定義階段、開發(fā)階段和維護(hù)階段。編碼和測試屬于