計(jì)算機(jī)基礎(chǔ)模擬題及答案

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

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

答在試卷上不得分。（1）數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指（）oA.存儲(chǔ)在外存中的數(shù)據(jù)B.數(shù)據(jù)所占的存儲(chǔ)空間量C.數(shù)

據(jù)在計(jì)算機(jī)中的挨次存儲(chǔ)方式D.數(shù)據(jù)的規(guī)律結(jié)構(gòu)在計(jì)算機(jī)中的表示

（2）下列關(guān)于棧的描述中錯(cuò)誤的是（）oA.棧是先進(jìn)后出的線性表B.棧只能挨次存儲(chǔ)C.棧具有

記憶作用D.對(duì)棧的插入與刪除操作中，不需要轉(zhuǎn)變棧底指針

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

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

（4）對(duì)長(zhǎng)度為n的線性表進(jìn)行挨次查找，在最壞狀況下所需要的比較次數(shù)為（）oA.Iog2nB.n/2

C.nD.n+1

（5）下列對(duì)于線性鏈表的描述中正確的是（）oA.存儲(chǔ)空間不肯定是連續(xù)，且各元素的存儲(chǔ)挨次是任

意的B.存儲(chǔ)空間不肯定是連續(xù)，且前件元素肯定存儲(chǔ)在后件元素的前面C.存儲(chǔ)空間必需連續(xù)，且前件元素肯

定存儲(chǔ)在后件元素的前面D.存儲(chǔ)空間必需連續(xù)，且各元素的存儲(chǔ)挨次是任意的

（6）下列對(duì)于軟件測(cè)試的描述中正確的是（）0

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

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

C.軟件測(cè)試的目的是盡可能多地發(fā)覺(jué)程序中的錯(cuò)誤

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

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

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

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

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

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

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

A.程序就是軟件

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

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

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

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

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

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

D.以上三種說(shuō)法都不對(duì)

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

A.關(guān)系模型

B.網(wǎng)狀模型

C.層次模型

D.以上三個(gè)都是（11）在窗體（名稱為Forml）上畫(huà)一個(gè)名稱為Textl的文本框和一個(gè)名稱為Command1

的命令按鈕，然后編寫(xiě)一個(gè)大事過(guò)程。程序運(yùn)行后，假如在文本框中輸入一個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置

為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的大事過(guò)程是（）o

A.PrivateSubTextl_Change（）

Command1.Caption：”計(jì)算機(jī)等級(jí)考試〃

EndSub

B.PrivateSubCommand1_C1ick（）

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

EndSub

C.PrivateSubForml_Click（）

Textl.Caption/計(jì)算機(jī)等級(jí)考試〃

EndSub

D.PrivateSubCommand1_C1ick（）

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

EndSub

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

3>2*bOra=cAndbOcOrc>d

A.1

B.True

C.False

D.2

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

A.b=Left(a,10)

B.

b=Mid(a,10)

C.b二Right(a,10)

D.b二Mid(a,11,10)

(14)假定有如下的窗體大事過(guò)程：

PrivateSubForm_Click()

a$二〃MicrosoftVisualBasic〃

b$=Right(a$,5)

c$=Mid(a$,1,9)

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

EndSub

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

A.MicrosoftVisual

B.Microsoft

C.Basic

D.5

(15)設(shè)設(shè)b=〃b〃，c=〃c〃，d=〃d〃，執(zhí)行語(yǔ)句x=Hf((a

D.，"A”JB”)后，x的值為()o

A."a"

B.“b"

C.“B"

D."A"

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

A.Command1.Move-200

B.Command1.Move200

C.Command1.Left=Commandl.Left+200

D.Command1.Left=Command1.Left-200

（17）在窗體上畫(huà)一個(gè)文本框，然后編寫(xiě)如下大事過(guò)程:

PrivateSubForm_Click（）

x=InputBox（“請(qǐng)輸入一個(gè)整數(shù)〃）

Printx+Textl.Text

EndSub

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

在窗體上顯示的內(nèi)容為（）。

A.123

B.456

C.479

D.123456

（18）在窗體上畫(huà)一個(gè)文本框和一個(gè)計(jì)時(shí)器控件，名稱分別為Tcxtl和Timerl,在屬性窗口中把計(jì)時(shí)器的

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

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

PrivateSubCommandl_Click（）

Timer1.（）

EndSub

PrivateSubTimerl_Timer（）

Textl.Text=Time

EndSub

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

A.Enabled=True

B.Enabled=False

C.Visible=True

D.Visible=False

（19）假定在圖片框Picturel中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采納的正確方法

是（）。

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

B.執(zhí)行語(yǔ)句Picturel.Picture=LoadPicture（〃”）

C.執(zhí)行語(yǔ)句Picturel.Picture="〃

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

(20)在窗休上畫(huà)一個(gè)名稱為L(zhǎng)istl的列表框，一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目。當(dāng)

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

A.PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

B.PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C.PrivateSubListl_Click0

Labell.Name=Listl.Text

EndSub

D.PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub(21)在窗體上畫(huà)一個(gè)命令按鈕，其名稱為Comma

然后編寫(xiě)如下大事過(guò)

程：

PrivateSubCommandl_Click()

DimiAslnteger,xAslnteger

Fori=lTo6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

Endlf

Nexti

Printx

EndSub

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

A.9

B.6

12

D.15

(22)在窗體上畫(huà)一個(gè)名稱為Commandl命令按鈕，然后編寫(xiě)如下大事過(guò)程:

PrivateSubCommandl_Click()

c二“ABCD”

Forn=lTo4

Print()

Next

EndSub

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

D

CD

BCD

ABCD

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

A.Left(c,n)

B.Right(c,n)

Mid(c,n,1)

D.Mid(c,n,n)

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

DimiAsInteger,xAsInteger

x=0

Fori=20TolStep-2

x=x+i\5

Next

Printx

后，X的值為()o

A.16

B.17

C.18

D.19

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

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

B.任何窗體或過(guò)程

C.SubMain過(guò)程或其他任何模塊

D.SubMain過(guò)程或任何窗體

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

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

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

C.數(shù)組中全部命令按鈕可以使用同一個(gè)大事過(guò)程

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

(26)把窗體的KeyPreview屬性設(shè)置為True,然后編寫(xiě)如下大事過(guò)程

PrivateSubForm_KcyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A.A

B.B

C.C

D.D

(27)在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，名稱分別為Commandl和Textl,然后編寫(xiě)如下程序:

PrivateSubCommand1Click()

a=InputBox(“請(qǐng)輸入日期)

t二”旅游景點(diǎn)：”一

&Hf(a>0Anda<=10,“長(zhǎng)城”，””)_

&IIf(a>10Anda<=20,w故宮“，””)_

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

Textl.Text=t

EndSub

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

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

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

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

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

(28)在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abell的標(biāo)簽，然后編寫(xiě)如下大事過(guò)程：

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

D

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

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

A.12

B.13

14

D.15

(29)在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的大事過(guò)程:

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=l

Endlf

EndFunction

PrivateSubCommand1_C1ick()

DimiAsInteger,sAsInteger

s=0

Fori=lTo5

s=s+fun(i)

Next

Prints

EndSub

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

A.6

B.7

C.8

D.9

(30)閱讀程序：

OptionBasel

Dimarr()Aslnteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=lTo3

Forj=lTo2

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é)果為()o

A.21

B.13

C.8

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

OptionBasel

PrivateSubCommandIClickO

DimcAsInteger,dAsInteger

d=0

c=6

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

Fori=lTo6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

Endlf

Next

Printd

EndSub

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

A.10

B.16

C.12

D.20

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

PrivateSubCommand1_C1ick（）

DimcAsInteger,dAsInteger

c=4

d=InputBox（〃請(qǐng)輸入一個(gè)整數(shù)〃）

DoWhiled>0

Ifd>cThen

c=c+l

Endlf

d=InputBox（"請(qǐng)輸入一個(gè)整數(shù)〃）

Loop

Printc+d

EndSub

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

結(jié)果是（）o

A.12

B.11

10

D.9

（33）在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕和一個(gè)名稱為Textl的文本框，在文本框中輸入以下字

符串：MicrosoftVisu

然后編寫(xiě)如下大事過(guò)程:

PrivateSubCommand1_C1ick()

Opened:\temp\outf.txt，zForOutputAs#l

Fori=lToLen(Textl.Text)

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

Ifc>=〃A"Andc〈="Z"Then

Print#1,LCase(

Endlf

Nexti

Close

EndSub

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

A.MVBP

B.mvbp

C.M

D.m

Vv

Bb

Pp

(34)在窗體上畫(huà)一個(gè)名稱為Commandl的命令按鈕，然后編寫(xiě)如下程序:

DimSWAsBoolean

Functionfunc(XAsInteger)Aslnteger

IfX<20Then

Y二X

Else

Y=20+X

Endlf

func=Y

EndFunction

PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW二False

EndSub

PrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

PrivateSubCommandl_Click()

DimintNumAsInteger

intNum=InputBox(〃〃)

TfSHhen

Printfunc(intNum)

Endlf

EndSub

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

果為()o

A.輸出0

B.輸出25

輸出45

D.無(wú)任何輸出

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

PublicSubFun(a()Aslnteger,xAsInteger)

Fori=lTo5

x=x+a(i)

Next

EndSub

在窗體上畫(huà)一個(gè)名稱為Textl的文本框和一個(gè)名稱為Commandl的命令按鈕。然后編寫(xiě)如下的大事過(guò)程:

PrivateSubCommandl_Click()

Dimarr(5)Aslnteger,nAsInteger

Fori=lTo5

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分)

請(qǐng)將每空的正確答案寫(xiě)在答題卡【1］?［15］序號(hào)的橫線上，答在試卷上不得分。

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

(2)在面對(duì)對(duì)象方法中，類的實(shí)例稱為［2L

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

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

(5)問(wèn)題處理方案的正確而完整的描述稱為［5L

(6)以下語(yǔ)句輸出結(jié)果是［61

Printlnt(12345.6789*100+0.5)/100

(7)在窗體上畫(huà)一個(gè)文本框和一個(gè)圖片框，然后編寫(xiě)如下兩個(gè)大事過(guò)程：

PrivateSubForm_

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

EndSub

PrivateSubTextl_Change()

Picturel.Printz/VBProgrammingz/

EndSub

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

(8)閱讀下面的程序：

PrivateSubForm_Click()

DimCheckAsBoo1ean,CounterAsinteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+l

IfCounter=10Then

Check=False

ExitDo

Endlf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

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

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

PrivateSubFormClick()

DimnAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

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

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

OptionBasel

PrivateSubCommand1Click()

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ù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中各元素的

最小值。請(qǐng)?zhí)羁铡?/p>

(11)在名稱為Forml的窗體上畫(huà)一個(gè)文本框，其名稱為TextL在屬性窗口中把該文本框的MultiLine

屬性設(shè)置為True,然后編寫(xiě)如下的大事過(guò)程：

PrivateSubForm_Click()

Opened:\test\smtextl.txt^ForlnputAsttl

DoWhileNot[14]

Linelnputffl,aspect?

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

Loop

Textl.Text=whole$

Closeftl

Opened:\test\smtext2.txt^ForOutputAsftl

Print#l,[15]

Closeftl

EndSub

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

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

參考答案：

選擇題：

1-—5DBDCA

6--10CBDDC

11—15ABBCD

16—20CDABD

21—25ABCDB

26—30CDBBA

31—35CDDDA

填空題：

[1]19

[2]對(duì)象

[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(1)

[13]min=arrl(i)

[14]EOF(l)

[15]textl.text(或whole$)

[結(jié)束]

07年4月二級(jí)VB語(yǔ)言筆試試題及答案

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

頁(yè)數(shù)：7頁(yè)

上一篇：06年四月全國(guó)等級(jí)考試二級(jí)VB語(yǔ)言考前密卷(一)

下一篇:02年9月二級(jí)VB語(yǔ)言筆試試題及答案

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

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

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

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

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

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

B）算法的時(shí)間簡(jiǎn)單度是指執(zhí)行算法所需要的計(jì)算工作量

0數(shù)據(jù)的規(guī)律結(jié)構(gòu)與存儲(chǔ)結(jié)構(gòu)是一一對(duì)應(yīng)的

D）算法的時(shí)間簡(jiǎn)單度與空間簡(jiǎn)單度肯定相關(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）軟件測(cè)試的主要目的是發(fā)覺(jué)程序中的錯(cuò)誤

B）軟件測(cè)試的主要目的是確定程序中錯(cuò)誤的位置

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

D）軟件測(cè)試是證明軟件沒(méi)有錯(cuò)誤

（4）下面選項(xiàng)中不屬于面對(duì)對(duì)象程序設(shè)計(jì)特征的是（C）

A）繼承性

B）多態(tài)性

C）類比性

D）封裝性

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

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

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

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

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

(6)對(duì)下列二叉樹(shù)(C)

A

BC

DEFX

YZ

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

A)DYBEAFCZX

B)YDEBFZXCA

OABDYECFXZ

D)ABCDEFXYZ

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

A)n+1

B)n-1

C)2n

D)n/2

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

A)并

B)交

C)投影

D)笛卡兒乘積

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

A)矩形

B)橢圓形

C)菱形

D)平行四邊形

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

A)在數(shù)據(jù)庫(kù)系統(tǒng)中，數(shù)據(jù)的物理結(jié)構(gòu)必需與規(guī)律結(jié)構(gòu)全都

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

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

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

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

A)Dimn,mASInterger,sASString

B)Dima%,b$,cASString

C)DimaASInteger,b,cASString

D)Dimx%,yASInteger,zASString

(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個(gè)名稱為Cl的命令按鈕,下面敘述中正確的是(B)

A)窗體的Click大事過(guò)程的過(guò)程名是Myform_Click

B)命令按鈕的Click大事過(guò)程名是Cl_Click

0命令按鈕的Click大事過(guò)程的過(guò)程名是Commandl_Click

(14)設(shè)窗體上有1個(gè)滾動(dòng)條,要求單擊滾動(dòng)條右端的/按鈕一次,滾動(dòng)條移動(dòng)肯定的刻度值,打算此刻

度的屬性是(C)

A)Max

B)Min

C)SmallChange

D)LargeChang

(15)1個(gè)二維數(shù)組可以存放1個(gè)矩形,在程序開(kāi)頭有語(yǔ)句OptionBascO,則下面定義的數(shù)組中正好可以存

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

A)Dima(-2ToO,2)ASInteger

B)Dima(3,2)ASIngeger

C)Dima(4,3)ASIngeger

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

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

框中顯示的是(A)

A)8個(gè)“$"

B)1個(gè)"$"

C)8個(gè)“*”

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

(17)設(shè)在窗體上有1個(gè)名稱為Combol的組合框,含有5個(gè)項(xiàng)目，要?jiǎng)h除最終一項(xiàng),正確的語(yǔ)句是(B)

B)Combo1.Removeltem4

D)Combol.Removeltem5

(18)工程中有2個(gè)窗體,名稱分別為Forml.Form2,Forml為啟動(dòng)窗體,該窗體上有命令按鈕Command1,

要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form2,則按鈕的Click大事過(guò)程應(yīng)當(dāng)是(A)

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_C1ick()

Form2.ShowForm2.Visible

EndSubEndSub

C)PrivateSubCommand1_C1ick()D)PrivateSubCommand1_C1ick()

LoadForm2Form2.Load

EndSubEndSub

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

PrivateSubCommandl_Click(IndexASInteger)

EndSub

則以下敘述中正確的是

A)此大事過(guò)程與不帶參數(shù)的大事過(guò)程沒(méi)有區(qū)分

B)有1個(gè)名稱為Commandl的窗體,單擊此窗體則執(zhí)行此大事過(guò)程

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

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

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

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

循環(huán)休循環(huán)休

LoopWend

C)DoD)DoUntil<條件)

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

LoopLntilX條件》Loop

(21)在窗體上有1個(gè)名為Cdl的通月對(duì)話框,為了在運(yùn)行程序時(shí)打開(kāi)保存文件對(duì)話框,則在程序總應(yīng)使

用的語(yǔ)句是(A)

A)Cdl.Action=2

B)Cdl.Action=l

C)Cdl.ShowSave=Ture

D)Cdl.ShowSave=0

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

A)各級(jí)菜單中的全部菜單項(xiàng)的名稱必需唯一

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

0彈出式菜單也用菜單編輯器編輯

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

PrivateSubproc1(aAsInteger,bAsString,Optiona1xAsBoo1ean)

EndSub

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

A)Callproc1(5)

B)Callproc15,wabcw,False

Oprocl(12,wabcw,True)

D)proc15,aabcw

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

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

A)PrivateSubCommand1_C1ick()B)PrivateSubCommandl_Click()

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

EndSubEndSub

C)PrivateSubCommandlClick()D)PrivateSubCommand1C1ick()

EndSubEndSub

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

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

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

B)在Forml的Load大事過(guò)程中加入語(yǔ)句LoadForm2

C)在Form2的Load大事過(guò)程中加入語(yǔ)句Form2.Show

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

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

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

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

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_C1ick()

Open“out.txt”ForlnpitAsttlOpen“out.txt"ForOutpitAsftl

Printitl,Textl.TextPrintttl,Textl.Text

ClosettlClosettl

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_C1ick()

Open“out.txt”ForAppendAsftlOpen"out.txt”ForRandomAsftl

Printftl,Textl.TextPrintftl,Textl.Text

ClosettlClose#l

EndSubEndSub

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

k=l

s=0

Whilek<=99

k=k+2:s=s+k

Wend

Prints

在調(diào)試時(shí)發(fā)覺(jué)運(yùn)行結(jié)果有錯(cuò)誤，需要修改。下列錯(cuò)誤緣由和修改方案中正確的是(D)

A)While…Wend循環(huán)語(yǔ)句錯(cuò)誤，應(yīng)改為Fork=1TO99…Nextk

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

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

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

(29)在窗體上有1個(gè)名稱為Commo疝ialogl的通用對(duì)話框和1個(gè)名稱為Commandl的命令按鈕，以及

其他一些控件。要求在程序運(yùn)行時(shí)，單擊Coninandl按鈕，則顯示打開(kāi)文件對(duì)話框，并在選擇或輸入了1個(gè)文件

名后，就可以打開(kāi)該文件。以下是CommandLClick大事過(guò)程的兩種算法

算法1：

PrivateSubCommand1_C1ick()

CommonDialogl.ShowOpen

OpenCommonDialogl.FileNameForlnputAsftl

EndSub

算法2：

PrivateSubCommandl_Click()

CommonDialogl.ShowOpen

IfCommonDialogl.FileName<>"”Then

OpenCommonDialogl.FileNameForlnputAsftl

Endlf

EndSub

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

A)顯示打開(kāi)文件對(duì)話框后若未選擇或輸入任何文件名，則算法2會(huì)出錯(cuò)，算法1不會(huì)

B)顯示打開(kāi)文件對(duì)話框后若未選擇或輸入任何文件名，則算法1會(huì)出錯(cuò)，算法2不會(huì)

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

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

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

框，名稱分別為Textl、Text2,l個(gè)名稱為Commandl的命令按鈕，并有以下程序

PrivateSubCommand1Click()

DimstrAsString,sAsString,kAsInteger

s=Textl

Str="”

Fork=Listl.ListCount-ltoOStep-1

IflnStr(List.List(k),s)>Othen

str=str&List.List

Endlf

Nextk

Ifstr=""Then

Text2二”沒(méi)有匹配的項(xiàng)目”

Else

Text2=str

Endlf

EndSub

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

A)京

B)北京南京

C)南京

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

(31)在窗體上畫(huà)1一個(gè)名稱為Commandl的命令按鈕，并編寫(xiě)以下程序

PrivateSubCommandl_Click()

Printfun(aABCDEFGw)

EndSub

Functionfun(stAsString)AsString

stlen=Len(st)

temp=

Fork

fun=temp

EndFunction

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

A)ABCDEFG

B)AGBFCE

OGFEDCBA

D)AGBFCED

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

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

能實(shí)現(xiàn)此功能的大事過(guò)程是(0

A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicturel.Left+X,Picturel.

Top+Y)

EndSub

B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

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

EndSub

C)B)PrivateSubPictureIDragDrop(SourceAsContro1,XAsSingle,YAsSingle)

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

EndSub

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

banana.Movebanana.Left+X,bananaTop+Y

EndSub

(33)在窗體上畫(huà)1個(gè)名稱為Commandl的命令按鈕，然后編寫(xiě)如下大事過(guò)程

OptionBasel

PribatcSubCommandl_Click()

Dima(5.5)Aslnteger

Fori=lTo5

a(I,j)*5\10

Nextj

Nexti

s二o

Fori=lTo5

S=s+a(i,i)

Nexti

Prints

EndSub

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

A)15

B)13

Oil

D)9

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

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

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

A)PrivateSubTextlKeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa>=0ora<=1OOThen

Text2.SetFocus

Else

TextLSetFocus;MsgBox("分?jǐn)?shù)錯(cuò)”)

Endlf

Endlf

EndSub

B)PrivateSubTextl_Keypress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa>=0Anda<=lOOThen

Textl.SetFocus

Else

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

Endlf

Endlf

EndSub

C)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa<0Anda>lOOThen

Text2.SetFocus

Else

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

Endlf

Endlf

EndSub

D)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa>=0Anda<=lOOThen

Text2.SetFocus

Else

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

Endlf

Endlf

EndSub

(35)在窗體上畫(huà)2個(gè)命令按鈕，名稱分別為Commandscommand2,并編寫(xiě)如下程序

Constn=5,m=4

Dima(m,n)

PrivateSubCommand1Click()

K=1

Fori=lTom

Forj=lTon

a(i,j)=k

k=k+l

Nextj

Nexti

PrivateSubCommand2_Click()

Summ=O

Fori=lTom

Forj=lTon

Ifi=10ri=mThen

Summ=summ+a(i,j)

Else

Ifj=IOrj=nThen

Summ=summ+a(i,j)

Endlf

Endlf

Nextj

Nexti

Printsumm

EndSub

過(guò)程Command1_Click()的作用是二維數(shù)組a中存放1個(gè)m行n列的矩陣;過(guò)程Command2_Click()的作

用是(A)

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

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

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

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

二、填空題（每空2分，共30分）

請(qǐng)將每一個(gè)空的正確答案寫(xiě)在答題紙上序號(hào)的橫線上，答在試卷上，答在試卷上不得分，

留意：以命令關(guān)鍵字填空的必需寫(xiě)完整

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

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

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

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

____階段。

(5)在結(jié)構(gòu)化分析使用的數(shù)據(jù)流圖(DFD)中，采用數(shù)據(jù)字典對(duì)其中的圖形元素進(jìn)行準(zhǔn)確解釋。

(6)1++++....n最大的n。請(qǐng)?zhí)羁?/p>

PrivateSubCommand1―Click()

Dims,m,nASInteger

(InputBox(“請(qǐng)輸入一個(gè)大于100的整數(shù)”))

n=0

s=0

DoWhilesN=n+1

S=s+n*n

Loop

Print”滿意不等式的最大n是nT

EndSub

(7)下面程序的功能是把文件file",txt中重復(fù)字符去掉后(即若有多個(gè)字符相同，則只保留1個(gè))

寫(xiě)入文件file2.txt。請(qǐng)?zhí)羁铡?/p>

PrivateSubCommand1Click()

DimincharASString,tempASString,outcharASString

0utchar=,,w

0pen="filel.txt"ForlnputASttl

Open二"file2.txt"For0utputAS#2

n=L0F(l)

inchar=Tnput$(n,1)

Fork=lTon

temp=Mid(inchar,k,1)

IfInStr(outchar,temp)=0Then

outchar=outchar&temp

Endlf

Nextk

print#2,outchar

close#2

closeftl

EndSub

(8)在窗體上先畫(huà)1個(gè)名為Text1的文本框和平個(gè)名為L(zhǎng)abel1的標(biāo)簽,再畫(huà)1個(gè)名為0P1的有4個(gè)單選

按鈕數(shù)組,其Index屬性按季度挨次為053(見(jiàn)圖1)。在文件sales,txt中按月份挨次存有某企業(yè)某年12個(gè)月

的銷售額。要求在程序執(zhí)行時(shí)，鼠標(biāo)單擊1個(gè)單選按鈕，則Textl中顯示相應(yīng)季度的銷售總額，并把相應(yīng)的文

字顯示在標(biāo)簽上。圖2是單擊“第3季度”單選按鈕產(chǎn)生的結(jié)果。請(qǐng)?zhí)羁铡?/p>

Dimsales(12)AsLong

PrivateSubForm_Load()

open"sales,txt"ForlnputASftl

Fork=lTol2

Inputttl,sales(k)

Nextk

Close#1

EndSub

PrivateSubOplClick(Index,ASInteger)

DimsumASLong,kASIngeger,monthASIngeger

sum=0

month=Index*3

Fork=lTo3

month=month+l

sum=sum+sales(month)

Nextk

Label1.Caption=Opl(Index).Caption&“銷售總額：”

Textl=sum

EndSub

(9)某人編寫(xiě)如下函數(shù)來(lái)推斷a是否為素?cái)?shù)，若是，則函數(shù)返回True；否則返回False

Functionprime(aAsInteger)ASBoolean

DimkAsInterger,isprimeASBoo1ean

Ifa<2Then

isprime=False

Else

isprime=True

k=2

DoWhilekIfaModk=OThen

isprime=False

ELSE

k=k+1

EndIF

LOOP

Endlf

prime=isprime

EndFunction

在測(cè)試時(shí)發(fā)覺(jué)有1個(gè)非素?cái)?shù)也被推斷為素?cái)?shù)，這個(gè)錯(cuò)判的數(shù)是4

2007年4月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)VB語(yǔ)言筆試試題答案

選擇題：

l-10cdacdcabaa

1l-20ddbcdabadc

21-30bbdcacddbc

31-35bcada

填空：

63黑盒測(cè)試DBMS開(kāi)發(fā)階段數(shù)據(jù)詞典0N-l#210

outcharopl_click3caption4

07年9月全國(guó)計(jì)算機(jī)二級(jí)VB筆試含答案

引用地址：http:〃www.xici.net/b941278/d66726339.htm［復(fù)制|超文本復(fù)制］返回《金牌計(jì)算機(jī)二級(jí),?》

關(guān)閉窗口

13887330dxjzsyt發(fā)表于：08-03-1009:50

123456

一個(gè)家具系無(wú)賴的自白

［東大傳奇］那個(gè)女孩［紫金之巔］二食堂中鍋菜［軍理工FOREVER］蝴蝶［高校生社區(qū)］逝去童年，沾染塵埃［雨

中情-雨花臺(tái)..?］19路公交車（版里好久沒(méi)人..［南農(nóng)之浦口風(fēng)云］你！就要畢業(yè)了....［九中情］徐武老師是九

中的君子［江蘇經(jīng)貿(mào)學(xué)院論假如我們分手了，你會(huì)怎樣..［傾城曉莊］今年夏天

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

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

（考試時(shí)間90分鐘，滿分100分）

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

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

答在試卷上不得分。

（1）軟件是指

A）程序B）程序和文檔

C）算法加數(shù)據(jù)結(jié)構(gòu)D）程序、數(shù)據(jù)與相關(guān)文檔的完整集