vb歷年真題經典版

2005年4月

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

下列各題A）、B）、C）、D）四個選項中，只有?個選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。

（1）數據的存儲結構是指

A）存儲在外存中的數據B）數據所占的存儲空間量

C）數據在計算機中的順序存儲方式D）數據的邏輯結構在計算機中的表示

（2）下列關于棧的描述中錯誤的是

A）棧是先進后出的線性表

B）棧只能順序存儲

C）棧具有記憶作用

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

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

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

C）快速排序為nD）快速排序為n（n-l）/2

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

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

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

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

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

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

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

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

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

B）軟件測試的目的是使程序運行結果正確

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

D）軟件測試的目的是使程序符合結構化原則

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

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

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

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

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

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

A）程序就是軟件

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

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

D）軟件是程序、數據與相關文檔的集合

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

A）數據與程序獨立存放

B）不同的數據被存放在不同的文件中

C）不同的數據只能被對應的應用程序所使用

D）以上三種說法都不對

（10）用樹形結構表示實體之間聯系的模型是

A）關系模型B）網狀模型C）層次模型D）以上三個都是

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

程序運行后，如果在文本框中輸入?個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現上述操作的事件過程

是

A)PrivateSubTextl_Change()

Commandl.Caption="計算機等級考試"

EndSub

B)PrivateSubCommandI_Click()

Caption="計算機等級考試”

EndSub

C)PrivateSubForml_Click()

Texll.Text="計算機等級考試"

EndSub

D)PrivateSubCommandl_Click()

Textl.Text="計算機等級考試"

EndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FasleD)2

(13)設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

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

A)MicrosoftVisualB)Microsoft

C)BasicD)5

(15)設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,應使用的語句是

A)Comandl.Move-200

B)Comand1.Move200

C)Command1.Left=Commandl.Left+200

D)Command1.Left=Command1.Left-200

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

PrivateSubForm_Click()

x=InpulBox(“請輸入一個整數”)

Printx+Textl.text

EndSub

程序運行時，在文本框輸入456,然后單擊窗體，在輸入對話框中輸入123,單擊“確定”按鈕后，在窗體上顯示的內容為

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

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

Enabled屬性設置為False。程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現上述

操作的程序：

PrivateSubCommandl_Click()

Umerl.

EndSub

PrivateSubTimerl_Timer()

lextl.Text=Time

EndSub

在處應填入的內容是

A)Enabled=TrueB)Enabled=False

C)Visible=TrueD)VisibIe=False

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

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

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

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

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

(20)在窗體上畫一個名稱為Listl的列表框，一個名稱為Labell的標簽，列表框中顯示若干個項目。當單擊列表框中的某個項

目時，在標簽中顯示被選中項目的名稱。下列能正確實現上述操作的程序是

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)在窗體上畫一個命令按鈕，其名稱為Command］，然后編寫如下事件過程：

PrivateSubCommand1_Ciick()

DimiAsInteger,xAsInteger

Fori=lTo6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

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

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

PrivateSubCommandl_Click()

c="ABCD''

Forn=lTo4

Print

Next

EndSub

程序運行吼，單擊命令按鈕，要求在窗體上顯示如下內容：

D

CD

BCD

ABCD

則在處應填入的內容為

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工程塊中，可以作為“啟動對象”的程序是

A)任何窗體或標準模塊B)任何窗體或過程

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

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

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

B)數組中每個命令按鈕的標題(Caption屬性)都一樣

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

D)用名稱Command](下標)可以訪問數組中的每個命令按鈕

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

Ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序運行后，按鍵盤上的“A”鍵，則在窗體上顯示的內容是

A)AB)BC)CD)D

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

PrivateSubCommand1_Click()

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

t=”旅游景點：”.

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

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

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

Textl.Text=t

EndSub

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

A)旅游景點：長城故宮B)旅游景點：長城頤和園

C)旅游景點：頤和園D)旅游景點：故宮

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

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

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

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

(29)在窗體上畫個名稱為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

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

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

程序運行后，單擊窗體，輸出結果為

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

(31)在窗體上畫一個名稱為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

程序運行后，如果單擊命令按鈕，則在窗體上輸出的內容談

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

(32)設有如下程序

PrivateSubCommandl_Click()

DimcAsIntegendAsInteger

c=4

d=InpulBox(“請輸入一個整數”)

DoWhiled>0

Ifd>cThen

c=c+l

EndIf

d=InputBox(“請輸入一個整數”)

loop

Printc+d

EndSub

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

則輸出結果是

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

(33)在窗體上畫一個名稱為Command1的命令按鈕和一個名稱為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

程序運行后，單擊命令按鈕，文件。utf.txt中的內容是

A)MVBPB)mvbpC)MD)m

Vv

Bb

PP

(34)在窗體上畫一個名稱為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

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

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

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

PrivateSubFun(a()AsInteger.xAsInteger)

Fori=lTo5

x=x+a(i)

Next

EndSub

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

PrivateSubCommand1_Click()

DimaiT(5)AsIntegennAsInteger

Fori=lTo5

arr(i)=i+i

Next

Funarr.n

Text1.Text=Str(n)

EndSub

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

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

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

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

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

(2)在面向對象方法中，類的實例稱為[2]。

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

(4)在關系數據庫中，把數據表示成二維表，每一個二維表稱為[4]o

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

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

PrintInt(12345.6789*100+0.5)/l00

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

PrivateSubForm_Ciick()

Textl.Text="VB程序設計”

EndSub

PrivateSubTextl_Change()

PictureI.Print"VBProgramming"

EndSub

程序運行后，單擊窗體，則在文本框中顯示的內容是【7]，而在圖片框中顯示的內容是[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

程序運行后，單擊窗體，輸出結果為[9]o

(9)設有如下程序：

PrivateSubForm_Click()

DimaAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

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

(10)設有如果程序：

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函數建立一個含有8個元素的數組，然后查找并輸出該數組值各元素的最小值。請?zhí)羁铡?/p>

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

MultiLine屬性設置為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的內容讀到內存并在文本框中顯示出來，然后把該文本框中的內容存入磁盤文件

smiex12.【xi.請?zhí)羁铡?/p>

2005年9月

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

下列各題A）、B）、C）、D）四個選項中，只有一個選項正確的，請將正確選項填涂在答題k相應位置上，答在試卷上不得分。

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

A）程序設計就是編制程序B）程序的測試必須由程序員自己去完成

C）程序經調試改錯后還應進行再測試D）程序經調試改錯后不必進行再測試

（2）下列數據結構中，能用二分法進行查找的是

A）順序存儲的有序線性表B）線性鏈表

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

（3）下列關于棧的描述正確的是

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

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

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

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

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

A）一個邏輯數據結構只能有一種存儲結構

B）數據的邏輯結構屬丁?線性結構，存儲結構屬了非線性結構

C）一個邏輯數據結構可以有多種存儲結構，且各種存儲結構不影響數據處理的效率

D）一個邏輯數據結構可以有多種存儲結構，且各種存儲結構影響數據處理的效率

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

A）軟件工程只是解決軟件項目的管理問題

B）軟件工程主要解決軟件產品的生產率問題

C）軟件工程的主要思想是強調在軟件開發(fā)過程中需要應用工程化原則

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

（6）在軟件設計中，不屬于過程設計工具的是

A）PDL（過程設計語言）B）PAD圖

C）N?S圖D）DFD圖

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

A）軟件交付使用后還需要進行維護

B）軟件一旦交付使用就不需要再進行維護

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

D）軟件維護是指修復程序中被破壞的指令

（8）數據庫設計的根本目標是要解決

A）數據共享問題B）數據安全問題

C）大量數據存儲問題D）簡化數據維護

（9）設有如下關系表

則下列操作中正確的是

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

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

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

C）數據庫D）數據庫管理員

（11）假定一個VisualBasic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正確的操作是

A）只保存窗體模塊文件

B）分別保存窗體模塊、標準模塊和工程文件

C）只保存窗體模塊和標潴模塊文件

D）只保存工程文件

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

A）按同車鍵

B）按Esc鍵

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

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

（13）以下敘述中錯誤的是

A）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗體、標準模塊等文件

B）當程序運行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick事件

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

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

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

Nota<=cOr4*c=bA2Andboa+c

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

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

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

后，c值的范圍為

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

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

PrivateSubCommand1_Click（）

aS="softwareandhardware"

bS=Right（a$,8）

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

MsgBoxa$,,b$,c$,1

EndSub

運行程序，單擊命令按鈕，則在彈出的信息框的標題欄中顯示的是

A）softwareandhardwareB）software

C）hardwareD）1

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

寫如下事件過程：

PrivateSubCommand1_Click（）

a=InpulBoxC'Enteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

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

A)108B)18C)810D)出錯

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

PrivateSubForm_Load()

Show

Text1.Text=,,H

Text2.Text=""

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

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

EndSub

程序運行用，如果在文本框蜃xil中輸入BeijingChina,則在文本框Texl2中顯示的內容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

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

PrivateSubForm_Load()

List1.Additem"Item1"

Listl.Addkem"Item2"

List1.Additem"Item3"

EndSub

PrivateSubCommand1_Click()

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

EndSub

程序運行后，單擊命令按鈕，其結果為

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

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

C)把列表框中原有的最后一?項改為“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

程序運行后，單擊窗體，輸出結果是

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

程序運行后，單擊窗體，輸出結果為

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

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=21b10

IfiMod2o0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序運行后，單擊窗體，輸出結果為

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

(23)在窗體上畫一個名稱為Textl的文本框和一個名稱為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

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

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

(24)在窗體上畫個命令按鈕，其名稱為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

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

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

程序運行后，單擊窗體，輸出結果為

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

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

PrivateSubCommandI_Click()

Dima(5)AsString

Fori=ITb5

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

Nexti

ForEachbIna

Printb;

Next

EndSub

程序運行后，單擊命令按鈕，輸出結果是

A)ABCDEB)12345C)abcdeD)出錯信息

(27)以下關于函數過程的敘述中，正確的是

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

B)函數過程的返回值可以有多個

C)當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以引用方式傳遞

D)函數過程形參的類型與函數返回值的類型沒有關系

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

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)以下關于KeyPress事件過程中參數KeyAscii的敘述中正確的是

A)KeyAscii參數是所按鍵的ASCII

B)KeyAscii參數的數據類型為字符串

C)KeyAscii參數可以省略

D)KeyAscii參數是所按鍵上標注的字符

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

PrivateSubForm_Load()

Show

Textl.lfext"

Text1.SetFocus

EndSub

PrivateSubForm_MouseUp(ButconAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Print"程序設計"

EndSub

PrivateSubText1_KeyDown(KeyCcxleAsInteger,ShiftAsInteger)

Print"VisualBasic"

EndSub

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

A)VisualBasicB)程序設計

C)VisualBasic程序設計D)a程序設計

(31)假定有下表所列的菜單結構：

標題名稱層次

顯示appear1(主菜單)

大圖標bigicon2(子菜單)

小圖標smallicon3(子菜單)

要求程序運行后，如果單擊菜單項“大圖標”，則在該菜單項前面添加一個“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)假定通用對話框的名稱為CommonDialogl,命令按鈕的名稱為Command】，則單擊命令按鈕后，能使打開的對話框的標

題為“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)如果?個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是

A)任何時刻最多只有一個窗體是活動窗體

B)不能把標準模塊設置為啟動模塊

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

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

(34)假定在工程文件中有一個標準模塊，其中定義了如下記錄類型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

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

A)PrivateSubCommandl_Click()

DimBAsBooks

OpenHc:\Pcrson.txt"ForOutputAs#1

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

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

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（"愉入電話號碼”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

C）PrivateSubCommand\_Click（）

DimBAsBooks

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

Name=InputBox（"輸入姓名"）

TelNum=InpuiBox（"輸入電話號碼"）

Write#I,B

Close#1

EndSub

D）PrivateSubCommandl_Click（）

DimBAsBooks

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

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

B.TelNum=InpuiBox1輸入電話號碼”）

Print#1.B.Name,B.TelNum

Close#1

EndSub

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

A）顯示當前驅動器或指定驅動器上某目錄下的文件名

B）顯示當前驅動器或指定驅動器上的目錄結構

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

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

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

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

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

（2）算法復雜度主要包括時間熨雜度和【2】復雜度。

（3）在進行模塊測試時，要為每個被測試的模塊另外設計兩類模塊：驅動模塊和承接模塊（樁模塊）。其中