2003年9月全國計算機等級考試二級VB語言筆試試卷(含答案)

一、選擇題((1)~(20)每小題2分，(21)~(30)每小題3分，共70分)

(1)以下敘述中錯誤的是

A)VisualBasic是事件驅動型可視化編程工具

B)VisualBasic應用程序不具有明顯的開始和結束語句

C)VisualBasic工具箱中的所有控件都具有寬度(Width)和高度(Height)屬性

D)VisualBasic中控件的某些屬性只能在運行時設置

(2)以下敘述中錯誤的是

A)在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件

B)以.BAS為擴展名的文件是標準模塊文件

C)窗體文件包含該窗體及其控件的屬性

D)一個工程中可以含有多個標準模塊文件

(3)以下敘述中錯誤的是

A)雙擊鼠標可以觸發(fā)DblClick事件

B)窗體或控件的事件的名稱可以由編程人員確定

C)移動鼠標時，會觸發(fā)MouseMove事件

D)控件的名稱可以由編程人員設定

(4)以下不屬于VisualBasic系統(tǒng)的文件類型是

A).frmB).batC).vbgD).vbp

(5)以下敘述中錯誤的是

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

B)保存VisualBasic程序時，應分別保存窗體文件及工程文件

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

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

(6)以下能正確定義數(shù)據(jù)類型TelBook的代碼是

(資料來源：東方教育網)

A)TypeTelBookB)TypeTelBook

NameAsString*10NameAsString*10

TelNumAsIntegerTelNumAsInteger

EndTypeEndTelBook

C)TypeTelBookD)TypeclefTelBook

NameString*10NameString*1()

TelNumIntegerTelNumInteger

EndTypeTelBookEndType

(7)以下聲明語句中錯誤的是

A)Constvarl=123B)Dimvar2='ABC'

C)Deflnta-zD)Staticvar3AsInteger

(8)設窗體上有一個列表框控件Lis選中的列表項內容的是tl,且其中含有若干列表項。則以下能表

示當前被

A)Listl.ListB)List1.ListindexC)List1.IndexD)Listl.Text

(9)程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是

A)MouseDownB)MouseUpC)LoadD)Click

(10)設a=10,b=5,c=1,執(zhí)行語句Printa>b>c后，窗體上顯示的是

A)TrueB)FalseC)1D)出錯信息

(11)如果要改變窗體的標題，則需要設置的屬性是

A)CaptionB)NameC)BackColorD)BorderStyle

(12)以下能判斷是否到達文件尾的函數(shù)是

A)BOFB)LOCOLOFD)EOF

(13)如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是

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

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

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

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

(14)窗體的MouseDown事件過程

Fonn_MouseDown(ButtSingle)

onAsInteger,ShiftAsInteger,XAsSingle,YAs

有4個參數(shù)，關于這些參數(shù)，正確的描述是

A)通過Button參數(shù)判定當前按下的是哪一個鼠標鍵

B)Shift參數(shù)只能用來確定是否按下Shift鍵

C)Shift參數(shù)只能用來確定是否按下Alt和Ctrl鍵

D)參數(shù)x,y用來設置鼠標當前位置的坐標

(15)設組合框Combol中有3個項目，則以下能刪除最后一項的語句是

A)Combo1.RemoveitemText

B)Combo1.Removeltem2

C)Combo1.Removeitem3

D)Combo1.RemoveltemCombo1.Listcount

(16)以下關于焦點的敘述中，錯誤的是

A)如果文本框的TabStop屬性為False,則不能接收從鍵盤上輸入的數(shù)據(jù)

B)當文本框失去焦點時，觸發(fā)LostFocus事件

C)當文本框的Enabled屬性為False時，其Tab順序不起作用

D)可以用Tabindex屬性改變Tab順序

(17)如果要在菜單中添加一個分隔線，則應將其Caption屬性設置為

A)=B)*C)&D)-

(18)執(zhí)行語句Open"數(shù)據(jù)能夠執(zhí)行的操作是Tel.dat"ForRandomAs#1Le

n=50后，對文件Tel.dat中的

A)只能寫，不能讀B)只能讀，不能寫

C)既可以讀，也可以寫D)不能讀，不能寫

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

名稱為Commandl的命令按鈕和兩程：個名稱分別為Textl、Text2的文

PrivateSubCommandl_Click()

n=Textl.Text

SelectCasen

Case1To20

x=10

Case2,4,6

x=20

CaseIs<10

x=30

Case10

x=40

EndSelect

Text2.Text=x

EndSub

程序運行后，如果在文內容是本框Textl中輸入10,然后單擊命令按鈕，則在Text2中顯示的

A）10B）20030D）40

（20）設有以下循環(huán)結構

Do

循環(huán)體

LoopWhilev條件〉

則以下敘述中錯誤的是

A）若“條件”是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體

B）”條件”可以是關系表達式、邏輯表達式或常數(shù)

C）循環(huán)體中可以使用ExitDo語句

D）如果“條件"總是為True,則不停地執(zhí)行循環(huán)體

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

PrivateSubCommandl_Click（）

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

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

A)13.45.8B)135

C)147D)無數(shù)據(jù)輸出

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

PrivateSubCommandl_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a—1

LoopWhilea<=0

Prints;a

EndSub

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

A)79B)340

C)97D)死循環(huán)

(23)設有如下通用過程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

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

PrivateSubCommandl_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

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

A)105B)205

C)2040D)1040

(24)設有如下通用過程：

PublicSubFun(a(),ByVaixAsInteger)

Fori=1To5

x=xa(i)

Next

EndSub

在窗體上畫一個名稱為Textl的文本下的事件過程：框和一個名稱為Command1的命令按鈕，然后編

寫如

PrivateSubCommandl_Click()

Dimarr(5)AsVariant

Fori=1To5

arr(i)=i

Next

n=10

CallFun(air(),n)

Text1.Text=n

EndSub

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

A)1()B)15025D)24

(25)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下代碼:

OptionBase1

PrivateSubCommand1_Click()

d=0

c=10

x=Array(10,12,21,32,24)

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

A)89B)99023D)77

(26)在窗體上畫兩個別為Label1、Label2、Labe顯示"A"、"B"、"A*B"等文LabeI3

顯示A*B的計算結果。當單擊命令按鈕"計算”時Label3中。以下不能實現(xiàn)上滾動條，名稱分別為

HscroI1113.Label4、Label5、Label6,字信息，標簽Labell、Label2分。如圖所示。當移動滾動框時，，對

標簽Labell、Label2中顯示述功能的事件過程是、Hscroll2;六個標簽，名稱分其中標簽Label

4~Label6分別別顯示其右側的滾動條的數(shù)值，在相應的標簽中顯示滾動條的值的兩個值求積，并將結

果顯示在

A)PrivateSubCommandl_Click()

Label3.Caption=Str(Val(Labcl1.Caption)*Val(Labe!2.Caption))

EndSub

B)PrivateSubCommandl_Click()

Labcl3.Caption=HScroll1.Value*HScroll2.Valuc

EndSub

C)PrivateSubCommand1_Click()

Label3.Caption=HScroll1*HScroll2

EndSub

D)PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Text*HScroll2.Text

EndSub

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

PrivateSubCommandl_Click()

Forn=1To20

IfnMod3<>0Thenm=m+n\3

Nextn

Printn

EndSub

程序運行后，如果單擊命令按鈕，則窗體上顯示的內容是

A)15B)18021D)24

(28)在窗體上畫一個名稱為Textl的文本框，并編寫如下程序：

PrivateSubForm_Load()

Show

Textl.Text”

Text1.SetFocus

EndSub

PrivateSubForm_MouYAsSingle)seUp(ButtonAsInteger,ShiftAs

Integer,XAsSingle,

(資料來源：東方教育網)

Prim”程序設計”

EndSub

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Print"VisualBasic*';

EndSub

程序運行后，如果按“A”鍵，然后單擊窗體，則在窗體上顯示的內容是

A)VisualBasicB)程序設計

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

(29)設有如下程序：

PrivateSubCommandl_Click()

DimsumAsDouble,xAsDouble

sum=0

n=0

Fori=1To5

x=n/i

n=n+1

sum=sum+x

Next

EndSub

該程序通過For循環(huán)計算一個表達式的值，這個表達式是

A)1+1/2+2/3+3/4+4Z5B)1+1/2+2/3+3/4

C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/5

（30）以下有關數(shù)組定義的語句序列中，錯誤的是

A)Staticarrl(3)

arrl(l)=100

arrl(2)='?Hello"

arrl(3)=123.45

B)Dimarr2()AsInteger

DimsizeAsInteger

PrivateSubCommand2_Click()

size=InputBox("輸入：")

ReDimarr2(size)

EndSub

C)OptionBase1

PrivateSubCommand3_Click()

Dimarr3(3)AsInteger

EndSub

D)DimnAsInteger

PrivateSubCommand4_Click()

Dimarr4(n)AsInteger

EndSub

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

（1）執(zhí)行下面的程序段后，i的值為KU，S的值為K23o

s=2

Fori=3.2To4.9Step0.8

s=s+1

Nexti

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

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCode)

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

PrintChr(KeyAscii)

EndSub

程序運行后，如果直接分別是m和K43。按鍵盤上的“A”鍵(即不按住Shift鍵)，則在窗體上

輸出的字符

(3)在窗體上畫一個標簽(名稱為L寫如下幾個事件過程：abell)和一個計時器(名稱為Timerl),

然后編

PrivateSubForm_Load()

Timer1.Enabled=False

Timer1.Interval=K53

EndSub

PrivateSubForm_CIick()

Timer1.Enabled=K61

EndSub

PrivateSubTimerl_Timer()

Label1.Caption=K7U

EndSub

程序運行后，單擊窗體，將在標簽中

填空。顯示當前時間，每隔1秒鐘變換一次(見圖)。請

14：54：41

(4)在窗體上畫一個Labell和Command1,然后編文本框、一個標簽和一個命令按寫如下兩個事件

過程：鈕，其名稱分別為Textl、

PrivateSubCommandl_Click()

S$=InputBox("請輸入一個字符串”)

Text1.Text=S$

EndSub

PrivateSubTextl_Change()

Labell.Caption=UCase(Mid(Text1.Text,7))

EndSub

程序運行后，單擊命令"VisualBasic”，則在標簽按鈕，將顯示一個輸入對話框，中顯示的內容是K8

2

o如果在該對話框中輸入字符串

(5)在窗體上畫一個列表框、一個Command1和Labell,通過屬性窗口把列表、”第三個項中、”第

四個項目”。程序運鈕，即可將所選擇的項目刪除，并在標簽選擇”第三個項目”的情況)。下面是實現(xiàn)命令按

鈕和一個標簽，其名稱分別為Listl.框中的項目設置為：”第一個項目“、”第二個項目”行后，在列表框中

選擇一個項目，然后單擊命令按中顯示列表框當前的項目數(shù)，運行情況如圖所示(上述功能的程序，請?zhí)羁铡?/p>

PrivateSubCommand1_Click()

IfList1.Listindex>=(9》Then

List1.Removeltcm￡103

Label1.Caption=K112

Else

MsgBox”請選擇要刪除的項口”

EndIf

EndSub

第一個項目

第二個項口COMMAND1

第三個項目

3

(6)設有程序：

OptionBase1

PrivateSubCommand1_Click()

Dimarrl,MaxasInteger

arrl=Array。2,435,76,24,78,54,866,43)

(資料來源：東方教育網)

K122=arrl(l)

Fori=1To8

Ifarrl(i)>MaxThenK133

Nexti

Print”最大值是：Max

EndSub

以上程序的功能是：用Array函數(shù)建組中元素的最大值。請?zhí)羁?。立一個含有8個元素的數(shù)組，然后

查找并輸出該數(shù)

(7)以下程序的功能在文本框Textl中顯示出來是：把當前目錄下的順序文件sm。請?zhí)羁?。textl.txt

的內容讀入內存，并

PrivateSubCommandl_Click()

DiminDataAsString

Textl.Text=,H,

Open"Asmtextl.txt"K143As#1

DoWhile￡153

Input#1,inDala

Text1.Text=Textl.Text&inData

Loop

Close#1

EndSub

2(X)3年9月全國計算機等級考試二級VB語言筆試試卷參考答案

一、選擇題

(1)C(2)A(3)B(4)B(5)C

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

(11)A(12)D(13)A(14)A(15)B

(16)A(17)D(18)C(19)A(20)A

(21)B(22)C(23)C(24)A(25)C

(26)D(27)C(28)D(29)C(30)D

二、填空題

(1)K135.6K235

(2)K33AMa

(3)E531000U63TrueK73Time

(4)R8HBASIC

(5)K930K102List1.ListindexK113List).ListCount

(6)K122Max￡133Max=arrl(i)

(7)K143ForInputK153NotEOF(l))

2005年4月全國計算機等級考試二級VB筆試試卷及答案

-、選擇題((1)?(35)每小題2分，共70分)

下列各題A)、B)、C)、D)四個選項中，只有?個選項是正確的，請將正確選項涂寫在答題卡相應位

置上，答在試卷上不得分。

(1)數(shù)據(jù)的存儲結構是指

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

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

(2)下列關于棧的描述中錯誤的是

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

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

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

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

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

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

A）log2nB）n/2C）nD）n1

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

A）程序就是軟件

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

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

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

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

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

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

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

D)以上三種說法都不對

(10)用樹形結構表示實體之間聯(lián)系的模型是

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

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

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

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

A)PrivateSubText1_Change()

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

EndSub

B)PrivateSubCommand1_Click()

Caption+'計算機等級考試”

EndSub

C)PrivateSubForm1_Click()

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

EndSub

D)PrivateSubCommandl_Click()

Textl.Text±'計算機等級考試”

EndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FalseD)2

(13)設a="Microso代Visua舊asic”則以下使變量b的值為"Visua舊asic”的語句是

A)b=Left(a10)

B)b=Mid(a10)

C)b=Right(a10)

D)b=Mid(a1110)

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

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$5)

c=Mid(a$19)

MsgBoxa$34b$c$5

EndSub

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

A)MicrosoftVisual

B)Microsoft

C)Basic

D)5

(15)設2=宣七=州七=七3=%”執(zhí)行語句x=lif((ad)“A““B")后，x的值為：

A)“a"

B)"b"

C)“B"

D)“A"

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

A)Command1.Move-200

B)Commandl.Move200

C)Commandl.Left=Commandl.Le代200

D)Commandl.1_6代=Commandl.Left-200

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

PrivateSubForm_Click()

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

PrintxTextl.Text

EndSub

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

在窗體上顯示的內容是：

A)123

B)456

C)579

D)123456

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

器的Interval屬性設置為1000,Enabled屬性設置為False程序運行后，如果單擊命令按鈕，則每隔一

秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序：

PrivateSubCommandl_Click()

Timeri.

EndSub

PrivateSubTimer1_Timer()

Textl.Text=Time

EndSub

在處應填入的內容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

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

方法是：

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

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

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

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

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

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

A)PrivateSubList1_Click()

Labell.Caption=Listl.Listindex

EndSub

B)PrivateSubList1_Click()

Labell.Name=Listl.Listindex

EndSub

C)PrivateSubList1_Click()

LabeH.Name=Listl.Text

EndSub

D)PrivateSubList1_Click()

LabeH.Caption=Listl.Text

EndSub

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

PrivateSubCommand1_Click()

DimiAsIntegerxAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x1

Else

x=x2

EndIf

Nexti

Printx

EndSub

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

A)9

B)6

C)12

D)15

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

PrivateSubCommand1_Click()

c="ABCD”

Forn=1To4

Print_________

Next

EndSub

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

D

CD

BCD

ABCD

則在處應填入的內容為

A)Left(cn)

B)Right(cn)

C)Mid(cn1)

D)Mid(cnn)

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

DimxAsIntegeriAsInteger

x=0

Fori=20To1Step-2

x=xi\5

NextI

后，x的值為

A)16

B)17

C)18

D)19

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

A)任何窗體或標準模塊

B)任何窗體或過程

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

D)SubMain過程或任何窗體

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

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

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

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

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

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii2)

EndSub

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

A)A

B)B

C)C

D)D

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

PrivateSubCommand1_Click()

a=lnputBox(“請輸入日期(1~31)”)

t=”旅游景點:“一

&IIf(a>0Anda<=10“長城"_

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

&llf(a>20Anda<=30“頤和園")

Textl.Text=t

EndSub

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

A)旅游景點：長城故宮

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

C)旅游景點：頤和園

D)旅游景點：故宮

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

PrivateSubForm_Click()

Dimarr(1010)AsInteger

DimiAsIntegerjAsInteger

Fori=2To4

Forj=2To4

arr(ij)=i*j

Nextj

Nexti

Label1.Caption=Str(arr(22)arr(33))

EndSub

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

A)12

B)13

C)14

D)15

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

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsIntegersAsInteger

s=0

Fori=1To5

s=sfun(i)

Next

Prints

EndSub

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

A)6

B)7

C)8

D)9

(30)閱讀程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsIntegerjAsInteger

ReDimarr(32)

Fori=1To3

Forj=1To2

arr(ij)=i*2j

Nextj

Nexti

ReDimPreservearr(34)

Forj=3To4

arr(3j)=j9

Nextj

Printarr(32)arr(34)

EndSub

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

A)21

B)13

C)8

D)25

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

OptionBase1

PrivateSubCommand1_Click()

DimcAsIntegerdAsInteger

d=0

c=6

x=Array(24681012)

Fori=1To6

Ifx(i)>cThen

d=dx(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

A)10

B)16

0)12

D)20

(32)設有如下程序：

PrivateSubCommand1_Click()

DimcAsIntegerdAsInteger

c=4

d=lnputBox("請輸入一個整數(shù)”)

DoWhiled>0

Ifd>cThen

c=c1

EndIf

d=lnputBox("請輸入一個整數(shù)”)

Loop

Printcd

EndSub

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

果是二

A)12

B)11

C)10

D)9

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

以下字符串：

MicrosoftVisualBasicProgramming

然后編寫如下事件過程：

PrivateSubCommand1_Click()

Open"d:\temp\outf.txt**ForOutputAs#1

Fori=1ToLen(Text1.Text)

c=Mid(Text1.Texti1)

Ifc>="A"Andc<="Z"Then

Print#1LCase(c)

EndIf

Nexti

Close

EndSub

程序運行后單擊命令按和文件outf.txt中的內容是：

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=20X

EndIf

func=Y

EndFunction

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=lnputBox("M)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)

SW=True

EndSub

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

A)輸出0

B)輸出25

C)輸出45

D)無任何輸出

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

PublicSubfun(a()AsIntegerxAsInteger)

Fori=1To5

x=xa(i)

Next

EndSub

在窗體上畫一個名稱為Textl的文本框和一個名稱為Commandl的命令按鈕然后編寫如下事件過程:

PrivateSubCommand1_Click()

Dimarr(5)AsIntegernAsInteger

Fori=1To5

arr(i)=ii

Next

funarrn

Textl.Text=Str(n)

EndSub

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

A)30

B)25

C)20

D)15

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

請將每一個空的正確答案寫在答題卡［11?［15］序號的橫線上，答在試卷上不得分。注意：以命

令關鍵字填空的必須拼寫完整。

(1)某二*樹中度為2的結點有18個，則該二★樹中有［1］個葉子結點。

(2)在面向對象方法中，類的實例稱為【2】o

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

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

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

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

Printlnt(12345.6789*1000.5)/100

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

PrivateSubForm_Click()

Textl.Text=nVB程序設計”

EndSub

PrivateSubText1_Change()

Picturel.Print"VBProgramming"

EndSub

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

(8)閱讀下面的程序

PrivateSubForm_Click()

DimCheckAsBooleanCounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序運行后單擊窗體輸出結果是［9】

(9)設有如下程序

PrivateSubForm_Click()

DimaAsIntegersAsInteger

n=8

s=0

Do

s=sn

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是(101程序運行后單擊窗體輸出結果為【11】

(10)設有如下程序：

OptionBase1

PrivateSubCommand1_Click()

Dimarr1

DimMinAsIntegeriAsInteger

arr1=Array(1243576-24785486643)

Min=[12]

Fori=2To8

Ifarr1(i)<MinThen[13]

Nexti

Print”最小值是:“Min

EndSub

以上程序的功能是用Array函數(shù)建立一個含有8個元素的數(shù)組然后查找并輸出該數(shù)組中的最小值請?zhí)?/p>

空

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

置為True然后編寫如下事件過程：

PrivateSubForm_Click()

OpenHd:\test\smtext1.txtHForInputAs#1

DoWhileNot[14]

LineInput#1aspect$

whole$=whole$aspect$Chr(13)Chr(1O)

Loop

Textl.Text=whole$

Close#1

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

Print#1[15]

Close#1

EndSub

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

中的內容存入磁盤文件smtext2.txt.請?zhí)羁?/p>

以下答案僅供參考

選擇題：

1-5DBDCA

6-10CBDDC

1115ABBCD

1620CDABD

2125ABCDB

2630CDBBA

3135CDDDA

填空題：

[1]19

[2]對象

[3]程序調試

[4]關系

[5]算法

[6]12345.68

[7]VB程序設計

[8]VBProgramming

[9]10

[10]求1-8的和

[11]36

[12]arr1（1）

[13]min=arr1（i）

[14]EOF⑴

[15]textl.text（或whole$）

2005年9月全國計算機等級考試二級VB筆試試卷（含參考答案）

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

下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應

位置上，答在試卷上不得分。

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

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

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

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

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

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

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

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

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

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

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

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

A）一個邏輯數(shù)據(jù)結構只能有一種存儲結構

B）數(shù)據(jù)的邏輯結構屬于線性結構，存儲結構屬于非線性結構

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

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

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

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

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

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

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

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

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

C）N-S圖D）DFD圖

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

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

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

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

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

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

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

C）大量數(shù)據(jù)存儲問題D）簡化數(shù)據(jù)維護

（9）設有如下關系表：

RST

ABCABCABC

112313112

223223

313

則下列操作中正確的是

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）假定一個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=b"2Andb<>a+c

A)-1B)1C)TrueD)False

(15)設a=5,b=10,則執(zhí)行

c=Int((b-a)*Rnd+a)+1

后，c值的范圍為

A)5?10B)6?9C)6?10D)5?9

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

PrivateSubCommand1Click()

a$=z，softwareandhardware”

b$=Right(a$,8)

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

MsgBoxa$,,b$,c$,1

EndSub

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

A)softwareandhardwareB)softwareC)hardwareD)1

(17)在窗體上畫一個命令按鈕和一個文本框，其名稱分別為Commandl和Textl,把文本框的Text

屬性設置為空白，然后編寫如下事件過程：

PrivateSubCommand1Click()

a二InputBox(^Enteraninteger")

b=InputBox(^Enteraninteger")

Textl.Text=b+a

EndSub

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

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

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

PrivateSubForm_Load()

Show

Textl.Text=〃”

Text2.Text=

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

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

EndSub

程序運行后，如果在文本框Textl中輸入BeijingChina,則在文本框Text2中顯示的內容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

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

過程：

PrivateSubFormLoad0

Listl.Additem”Item1〃

Listl.Addltem"Item2〃

Listl.Addltem"Item3”

EndSub

PrivateSubCommand1_C1ick()

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

EndSub

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

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

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

C)把列表框中原有的最后一項改為“AAAA”

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

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

PrivateSubForm_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

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

A)814B)563

C)281D)2435

(21)有如下程序:

PrivateSubFormClick()

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-1

C)10TrueD)10False

(22)有如下程序：

PrivateSubFormClick()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

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

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

過程：

PrivateSubCommandl_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrayl(i,j)=i+j

Nextj

Nexti

Textl.Text二array1(2,3)+array1(3,4)

EndSub

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

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

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

PrivateSubCommandl_Click()

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

Fori=1To4

Forj=1To4

al(i,j)=i+j

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

Nextj

Nexti

Printal(3,3);a2(3,3)

EndSub

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

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

(25)有如下程序:

OptionBase1

PrivateSubFormClick()

Dimarr,Sum

Sum二0

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

Fori=1To10

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

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

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

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

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

PrivateSubCommandl_Click()

Dima(5)AsString

Fori=1To5

a(i)=Chr(Asc(〃A")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

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

A)ABCDEB)