vb歷年真題經(jīng)典版

2005年4月

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

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

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

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

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

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

A）棧是先進(jìn)后出的線性表

B）棧只能順序存儲(chǔ)

C）棧具有記憶作用

D）對(duì)棧的插入與刪除操作中，不需要改變棧底指針

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

A）冒泡排序?yàn)閚/2B）冒泡排序?yàn)閚

C）快速排序?yàn)閚D）快速排序?yàn)閚（n-l）/2

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

A）log2nB）n/2C）nD）n+1

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

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

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

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

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

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

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

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

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

D）軟件測(cè)試的目的是使程序符合結(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ù)只能被對(duì)應(yīng)的應(yīng)用程序所使用

D）以上三種說法都不對(duì)

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

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

(11)在窗體(名稱為Forml)上畫一個(gè)名稱為Texil的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫一個(gè)事件過程。

程序運(yùn)行后，如果在文本框中輸入?個(gè)字符，則把命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過程

是

A)PrivateSubTextl_Change()

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

EndSub

B)PrivateSubCommandI_Click()

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

EndSub

C)PrivateSubForml_Click()

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

EndSub

D)PrivateSubCommandl_Click()

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

EndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FasleD)2

(13)設(shè)a="Microsof(VisualBasic\則以下變量b的值為"VisualBasic”的語句是

A)b=Left(a,10)B)b=Mid(a,10)

C)b=Right(a,IO)D)b=Mid(a,ll,10)

(14)假定有如下的窗體事件代碼：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$,5)

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

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

EndSub

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

A)MicrosoftVisualB)Microsoft

C)BasicD)5

(15)設(shè)a="a",b="b",c="c",d="d'\執(zhí)行語句x=IIF((avB)Or(c>D),后,x的值為

A)"a"B)"b"C)"B'1D)"A"

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

A)Comandl.Move-200

B)Comand1.Move200

C)Command1.Left=Commandl.Left+200

D)Command1.Left=Command1.Left-200

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

PrivateSubForm_Click()

x=InpulBox(“請(qǐng)輸入一個(gè)整數(shù)”)

Printx+Textl.text

EndSub

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

A)123B)456C)579D)123456

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

Enabled屬性設(shè)置為False。程序運(yùn)行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時(shí)間。以下是實(shí)現(xiàn)上述

操作的程序：

PrivateSubCommandl_Click()

Umerl.

EndSub

PrivateSubTimerl_Timer()

lextl.Text=Time

EndSub

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

A)Enabled=TrueB)Enabled=False

C)Visible=TrueD)VisibIe=False

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

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

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

C)執(zhí)行語句Pic〔urel.Pic〔ure=""

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

(20)在窗體上畫一個(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)目的名稱。下列能正確實(shí)現(xiàn)上述操作的程序是

A)PrivateSubListl.Click()

Label1.Caption=List1.Listindex

EndSub

B)PrivateSubListl_Click()

Label1.Name=List1.Listindex

EndSub

C)PrivateSubListl_Click()

Label1.Name=List1.Text

EndSub

D)PrivateSubListl_Click()

Label1.Caption=List1.Text

EndSub

(21)在窗體上畫一個(gè)命令按鈕，其名稱為Command］，然后編寫如下事件過程：

PrivateSubCommand1_Ciick()

DimiAsInteger,xAsInteger

Fori=lTo6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A)9B)6C)12D)15

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

PrivateSubCommandl_Click()

c="ABCD''

Forn=lTo4

Print

Next

EndSub

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

D

CD

BCD

ABCD

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

A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)

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

DimxAsInteger.iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Nexti

后，x的值為

A)16B)17C)18D)19

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

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

C)SubMain過程或其他任何模塊D)SubMain過程或任何窗體

(25)假設(shè)建立「一個(gè)名為Command1的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是

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

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

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

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

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

Ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A)AB)BC)CD)D

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

PrivateSubCommand1_Click()

a=InpulBox(“請(qǐng)輸入日期(1-31)")

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

&nf(a>0Anda<=10,”長(zhǎng)城"，

&nf(a>10Anda<=20,w故宮”,

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

Textl.Text=t

EndSub

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

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

C)旅游景點(diǎn)：頤和園D)旅游景點(diǎn)：故宮

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

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsIntegerjAsInteger

Fori=2To4

Forj=2To4

arr(ij)=i*j

Nextj

Nexti

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

EndSub

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

A)12B)13C)14D)15

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

的事件過程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=l

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger.sAsInteger

s=0

Fori=lTo5

s=s+fun(i)

Next

Prints

EndSub

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

A)6B)7C)8D)9

(30)閱讀程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger.]AsInteger

ReDimarr(3,2)

Fori=Ilb3

Forj=lTo2

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

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3lb4

arr(3j)=j+9

Nextj

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

EndSub

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

A)21B)13C)8D)25

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

OptionBase1

PrivateSubCommandl_Ciick()

DimcAsIntegendAsInteger

d=0

c=6

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

Fori=llb6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

A)10B)16C)12D)20

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

PrivateSubCommandl_Click()

DimcAsIntegendAsInteger

c=4

d=InpulBox(“請(qǐng)輸入一個(gè)整數(shù)”)

DoWhiled>0

Ifd>cThen

c=c+l

EndIf

d=InputBox(“請(qǐng)輸入一個(gè)整數(shù)”)

loop

Printc+d

EndSub

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

則輸出結(jié)果是

A)12B)11C)10D)9

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

MicrosoftVisualBasicProgramming

然后編寫如下事件過程：

PrivateSubCommandI_Click()

Open"d:\iemp\ouif.ForOutputAs#1

Fori=lToLen(Text1.Text)

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

Ifc>="A"Andcv="Z”Then

Print#1.LCase(C)

EndIf

Nexti

Close

EndSub

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

A)MVBPB)mvbpC)MD)m

Vv

Bb

PP

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

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

Func=Y

EndFunction

PrivateSubForm_MouseDown(ButtonAsInteger.ShiftAsIntegenXAsSingle.YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger.ShiftAslnteger,XAsSingle.YAsSingle)

SW=True

EndSub

PrivateSubCommand1_Click()

DimintNumAsInteger

iniNum=InputBox("”)

IfSWThen

printfunc(intNum)

EndIf

EndSub

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

A)輸出0B)輸出25C)輸出45D)無任何輸出

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

PrivateSubFun(a()AsInteger.xAsInteger)

Fori=lTo5

x=x+a(i)

Next

EndSub

在窗體上畫個(gè)名稱為Textl的文本框和?個(gè)名稱為Command1的命令按鈕，然后編寫如卜.的事件過程:

PrivateSubCommand1_Click()

DimaiT(5)AsIntegennAsInteger

Fori=lTo5

arr(i)=i+i

Next

Funarr.n

Text1.Text=Str(n)

EndSub

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

A)30B)25C)20D)15

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

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

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

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

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

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

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

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

PrintInt(12345.6789*100+0.5)/l00

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

PrivateSubForm_Ciick()

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

EndSub

PrivateSubTextl_Change()

PictureI.Print"VBProgramming"

EndSub

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

(8)閱讀下面程序：

PrivateSubForm_Click()

DimCheckAsB（x）lean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Tlien

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

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

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

PrivateSubForm_Click()

DimaAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

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

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

OptionBase1

PrivateSubCommand1_Click(0

Dimarrl

DimMinAsInteger,!AsInteger

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

Min=[12]

Fori=2lb8

Ifarrl(i)<MinThen[13]

Nexti

Print"最小值是："；Min

EndSub

以上程序的功能是：用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組值各元素的最小值。請(qǐng)?zhí)羁铡?/p>

(11)在名稱為Form】的窗體上畫一個(gè)文本框，其名稱為Textl,在屬性窗口值把該文本框的

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

PrivateSubForm_Click()

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

DoWhileNot[14]

LineInput#1,aspects

Whole$=whole$+aspect$+Chr$(13)+Chr$(l0)

Loop

Text1.Text=whole$

Close#1

Open"d:\text\smtext2.txt"ForOutputAs#1

Print#1.[15]

Close#1

EndSub

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

smiex12.【xi.請(qǐng)?zhí)羁铡?/p>

2005年9月

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

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

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

A）程序設(shè)計(jì)就是編制程序B）程序的測(cè)試必須由程序員自己去完成

C）程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試D）程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試

（2）下列數(shù)據(jù)結(jié)構(gòu)中，能用二分法進(jìn)行查找的是

A）順序存儲(chǔ)的有序線性表B）線性鏈表

C）二叉鏈表D）有序線性鏈表

（3）下列關(guān)于棧的描述正確的是

A）在棧中只能插入元素而不能刪除元素

B）在棧中只能刪除元素而不能插入元素

C）棧是特殊的線性表，只能在一端插入或刪除元素

D）棧是特殊的線性表，只能在?端插入元素，而在另?端刪除元素

（4）下列敘述中正確的是

A）一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲(chǔ)結(jié)構(gòu)

B）數(shù)據(jù)的邏輯結(jié)構(gòu)屬丁?線性結(jié)構(gòu)，存儲(chǔ)結(jié)構(gòu)屬了非線性結(jié)構(gòu)

C）一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)不影響數(shù)據(jù)處理的效率

D）一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)影響數(shù)據(jù)處理的效率

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

A）軟件工程只是解決軟件項(xiàng)目的管理問題

B）軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問題

C）軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則

D）軟件工程只是解決軟件開發(fā)中的技術(shù)問題

（6）在軟件設(shè)計(jì)中，不屬于過程設(shè)計(jì)工具的是

A）PDL（過程設(shè)計(jì)語言）B）PAD圖

C）N?S圖D）DFD圖

（7）下列敘述中正確的是

A）軟件交付使用后還需要進(jìn)行維護(hù)

B）軟件一旦交付使用就不需要再進(jìn)行維護(hù)

C）軟件交付使用后其生命周期就結(jié)束

D）軟件維護(hù)是指修復(fù)程序中被破壞的指令

（8）數(shù)據(jù)庫設(shè)計(jì)的根本目標(biāo)是要解決

A）數(shù)據(jù)共享問題B）數(shù)據(jù)安全問題

C）大量數(shù)據(jù)存儲(chǔ)問題D）簡(jiǎn)化數(shù)據(jù)維護(hù)

（9）設(shè)有如下關(guān)系表

則下列操作中正確的是

A）T=ROSB）T=RUSC）T=RXSD）T=R/S

（10）數(shù)據(jù)庫系統(tǒng)的核心是

A）數(shù)據(jù)模型B）數(shù)據(jù)庫管理系統(tǒng)

C）數(shù)據(jù)庫D）數(shù)據(jù)庫管理員

（11）假定一個(gè)VisualBasic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是

A）只保存窗體模塊文件

B）分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件

C）只保存窗體模塊和標(biāo)潴模塊文件

D）只保存工程文件

<12）為了清除窗體上的一個(gè)控件，下列正確的操作是

A）按同車鍵

B）按Esc鍵

C）選擇（單擊）要清除的控件，然后按Del鍵

D）選擇（單擊）要清除的控件，然后按回車健

（13）以下敘述中錯(cuò)誤的是

A）打開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件

B）當(dāng)程序運(yùn)行時(shí)，雙擊一個(gè)窗體，則觸發(fā)該窗體的DblClick事件

C）VisualBasic應(yīng)用程序只能以解釋方式執(zhí)行

D）事件可以由用戶引發(fā)，也可以有系統(tǒng)引發(fā)

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

Nota<=cOr4*c=bA2Andboa+c

A）-1B）1C）TrueD）False

（15）設(shè)a=5,b=I0,則執(zhí)行

c=In（（（b-A）*Rnd+A）+1

后，c值的范圍為

A）5?10B）6?9C）6-10D）5?9

（16）在窗體上畫一個(gè)命令按鈕，名稱為Command1,然后編寫如下事件過程:

PrivateSubCommand1_Click（）

aS="softwareandhardware"

bS=Right（a$,8）

c$=Mid（a$,1,8）

MsgBoxa$,,b$,c$,1

EndSub

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

A）softwareandhardwareB）software

C）hardwareD）1

（17）在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Commandl和Textl,把文本框的Text屬性設(shè)置為空白，然后編

寫如下事件過程：

PrivateSubCommand1_Click（）

a=InpulBoxC'Enteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10,則文本框中顯示的內(nèi)容是

A)108B)18C)810D)出錯(cuò)

(18)在窗體上畫兩個(gè)文本框，其名稱分別為Tex。和Texi2,然用編寫如下程序：

PrivateSubForm_Load()

Show

Text1.Text=,,H

Text2.Text=""

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

Text2.Text=Mid(Textl.Text,8)

EndSub

程序運(yùn)行用，如果在文本框蜃xil中輸入BeijingChina,則在文本框Texl2中顯示的內(nèi)容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)istl和CommandI,然后編寫如下事件過程;

PrivateSubForm_Load()

List1.Additem"Item1"

Listl.Addkem"Item2"

List1.Additem"Item3"

EndSub

PrivateSubCommand1_Click()

Listl.List(ListI.ListCount)="AAAA"

EndSub

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

A)把字符串“AAAA”添加到列表框中，但位置不能確定

B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)

C)把列表框中原有的最后一?項(xiàng)改為“AAAA”

D)把字符串“AAAA”插入到列表框的最前而(即“Iteml”的前面)

(20)假定有如下事件過程

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx.n

EndSub

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

A)814B)563C)281D)2435

(21)有如下程序：

PrivateSubForm_Click()

DimCheck,Counter

Check=True

Counter=0

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter,Check

EndSub

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

A)150B)20-1C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=21b10

IfiMod2o0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

A)12B)30C)24D)18

(23)在窗體上畫一個(gè)名稱為Textl的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:

PrivateSubCommandl_Ciick()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=ITo3

Forj=21b4

arrayl(i,j)=i+j

Nextj

Nexti

Text1.Text=array1(2,3)+array1(3,4)

EndSub

程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是

A)12B)13C)14D)15

(24)在窗體上畫個(gè)命令按鈕，其名稱為Command1,然后編寫如下事件過程:

PrivateSubCommand1_Click()

Dimal(4,4),a2(4,4)

Fori=1lb4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printa1(3,3);a2(3,3)

EndSub

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

A)66B)105C)721D)612

(25)有如下程序:

OptionBaseI

PrivateSubForm_Click()

Dimarr,Sum

Sum=0

arr=Array(1,3,5,7,9,11,13,15,17,19)

Fori=ITb10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

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

A)25B)26C)27D)28

(26)在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

PrivateSubCommandI_Click()

Dima(5)AsString

Fori=ITb5

a(i)=ChrCAscfA")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

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

A)ABCDEB)12345C)abcdeD)出錯(cuò)信息

(27)以下關(guān)于函數(shù)過程的敘述中，正確的是

A)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型

B)函數(shù)過程的返回值可以有多個(gè)

C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引用方式傳遞

D)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系

(28)函數(shù)過程F1的功能是：如果參數(shù)b為奇數(shù)，則返回值為1,否則返回值為0,以下能正確實(shí)現(xiàn)上述功能的代碼是

A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)

IfbMod2=0ThenIfbMod2=0Then

Return0Fl=0

ElseElse

Return1Fl=l

EndIfEndIf

EndFunctionEndFunction

C)FunctionFl(b?\sInteger)D)FunctionFl(bAsInteger)

IfbMod2=0ThenIfbMod2=0Tlien

Fl=lReturn0

ElseElse

Fl=0Return1

EndIfEndIf

EndFunctionEndFunction

(29)以下關(guān)于KeyPress事件過程中參數(shù)KeyAscii的敘述中正確的是

A)KeyAscii參數(shù)是所按鍵的ASCII

B)KeyAscii參數(shù)的數(shù)據(jù)類型為字符串

C)KeyAscii參數(shù)可以省略

D)KeyAscii參數(shù)是所按鍵上標(biāo)注的字符

(30)設(shè)窗體上有一個(gè)名為Ibxtl的文本框，并編寫如下程序：

PrivateSubForm_Load()

Show

Textl.lfext"

Text1.SetFocus

EndSub

PrivateSubForm_MouseUp(ButconAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Print"程序設(shè)計(jì)"

EndSub

PrivateSubText1_KeyDown(KeyCcxleAsInteger,ShiftAsInteger)

Print"VisualBasic"

EndSub

程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是

A)VisualBasicB)程序設(shè)計(jì)

C)VisualBasic程序設(shè)計(jì)D)a程序設(shè)計(jì)

(31)假定有下表所列的菜單結(jié)構(gòu)：

標(biāo)題名稱層次

顯示appear1(主菜單)

大圖標(biāo)bigicon2(子菜單)

小圖標(biāo)smallicon3(子菜單)

要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前面添加一個(gè)“V”，以下正確的事件過程是

A)PrivateSubbigicon_Click()B)PrivateSubbigicon_Click()

bigicon.Checked=FlaseMe.appeiir.bigicon.Checked=Flase

EndSubEndSub

C)PrivateSubbigicon_Click()D)PrivateSubbigicon_Click()

bigicon.Checked=Trueappear.bigicon.Checked=Flase

EndSubEndSub

(32)假定通用對(duì)話框的名稱為CommonDialogl,命令按鈕的名稱為Command】，則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)

題為“NewTiile”的事件過程是

A)PrivateSubCommand1_Click()

CommonDialogI.Dialoglltle="NewTitle"

CommonDialogl.Showprinter

EndSub

B)PrivateSubCommandl_Click()

CommonDialogl.DialogTille="NewTitle"

CommonDialogl.ShowFont

EndSub

C)PrivateSubCommand1_Click()

CommonDialogl.DialogTille="NewTitle"

CommonDialogl.ShowOpen

EndSub

D)PrivateSubCommandl_Click()

CommonDialogl.DialogTitie="NewTide"

CommonDialogl.ShowColor

EndSub

(33)如果?個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是

A)任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體

B)不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動(dòng)模塊

C)用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中清除該窗體

D)如果工程中含有SubMain過程，則程序一定首先執(zhí)行該過程

(34)假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

要求當(dāng)執(zhí)行事件過程CommandLClick時(shí)，在順序文件Person.txt中寫入一條記錄。下列能夠完成該操作的事件過程是

A)PrivateSubCommandl_Click()

DimBAsBooks

OpenHc:\Pcrson.txt"ForOutputAs#1

B.Name=InputBox("輸入姓名")

B.TelNum=InputBox("輸入電話號(hào)碼")

Write#1.B.Name.B.TelNum

Close#1

EndSub

B)PrivateSubCommandl_Click()

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox，'輸入姓名”）

B.TelNum=InpuiBox（"愉入電話號(hào)碼”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

C）PrivateSubCommand\_Click（）

DimBAsBooks

Open"c:\Pcrson.txt"ForOutputAs#1

Name=InputBox（"輸入姓名"）

TelNum=InpuiBox（"輸入電話號(hào)碼"）

Write#I,B

Close#1

EndSub

D）PrivateSubCommandl_Click（）

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox（"輸入姓名"）

B.TelNum=InpuiBox1輸入電話號(hào)碼”）

Print#1.B.Name,B.TelNum

Close#1

EndSub

（35）目錄列表框的Path屬性的作用是

A）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上某目錄下的文件名

B）顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)

C）顯示根目錄下的文件名

D）顯示指定路徑下的文件

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

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

（1）數(shù)據(jù)管理技術(shù)發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立性最高的階段是

（2）算法復(fù)雜度主要包括時(shí)間熨雜度和【2】復(fù)雜度。

（3）在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊（樁模塊）。其中