計(jì)算機(jī)二級(jí)VB筆試試題(含答案)

時(shí)間：2024-10-19 22:37:17 綜合指導(dǎo) 我要投稿

相關(guān)推薦

2010年9月計(jì)算機(jī)二級(jí)VB筆試試題

計(jì)算機(jī)二級(jí)VB筆試試題(含答案)

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

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

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

A）線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)與順序存儲(chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間是相同的

B）線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間一般要多于順序存儲(chǔ)結(jié)構(gòu)

C）線性表的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)所需要的存儲(chǔ)空間一般要少于順序存儲(chǔ)結(jié)構(gòu)

D）上述三種說(shuō)法都不對(duì)

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

A）在棧中，棧中元素隨棧底指針與棧頂指針的變化而動(dòng)態(tài)變化

B）在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動(dòng)態(tài)變化

C）在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動(dòng)態(tài)變化

D）上述三種說(shuō)法都不對(duì)

（3）軟件測(cè)試的目的是

A）評(píng)估軟件可靠性

B）發(fā)現(xiàn)并改正程序中的錯(cuò)誤

C）改正程序中的錯(cuò)誤

D）發(fā)現(xiàn)程序中的錯(cuò)誤

（4）下面描述中，不屬于軟件危機(jī)表現(xiàn)的是

A）軟件過(guò)程不規(guī)范

B）軟件開(kāi)發(fā)生產(chǎn)率低

C）軟件質(zhì)量難以控制

D）軟件成本不斷提高

（5）軟件生命周期是指

A）軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過(guò)程

B）軟件從需求分析、設(shè)計(jì)、實(shí)現(xiàn)到測(cè)試完成的過(guò)程

C）軟件的開(kāi)發(fā)過(guò)程

D）軟件的運(yùn)行維護(hù)過(guò)程

（6）面向?qū)ο蠓椒ㄖ校^承是指

A）一組對(duì)象所具有的相似性質(zhì)

B）一個(gè)對(duì)象具有另一個(gè)對(duì)象的性質(zhì)

C）各對(duì)象之間的共同性質(zhì)

D）類之間共享屬性和操作的機(jī)制

（7）層次型、網(wǎng)狀型和關(guān)系型數(shù)據(jù)庫(kù)劃分原則是

A）記錄長(zhǎng)度

B）文件的大小

C）聯(lián)系的復(fù)雜程度

D）數(shù)據(jù)之間的聯(lián)系方式

（8）一個(gè)工作人員可以使用多臺(tái)計(jì)算機(jī)，而一臺(tái)計(jì)算機(jī)可被多個(gè)人使用，則實(shí)體工作人員、與實(shí)體計(jì)算機(jī)之間的聯(lián)系是

A）一對(duì)一

B）一對(duì)多

C）多對(duì)多

D）多對(duì)一

（9）數(shù)據(jù)庫(kù)設(shè)計(jì)中反映用戶對(duì)數(shù)據(jù)要求的模式是

A）內(nèi)模式

B）概念模式

C）外模式

D）設(shè)計(jì)模式

（10）有三個(gè)關(guān)系R、S和T如下：

則由關(guān)系R和S得到關(guān)系T的操作是

A）自然連接

B）交

C）投影

D）并

（11）在Visual Basic集成環(huán)境中，要添加一個(gè)窗體，可以單擊工具欄上的一個(gè)按鈕，這個(gè)按鈕是

A） B）

C） D）

（12）在Visual Basic集成環(huán)境的設(shè)計(jì)模式下，用鼠標(biāo)雙擊窗體上的某個(gè)控件打開(kāi)的窗口是

A）工程資源管理器窗口

B）屬性窗口

C）工具箱窗口

D）代碼窗口

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

A）列表框與組合框都有List屬性

B）列表框有Selected屬性，而組合框沒(méi)有

C）列表框和組合框都有Style屬性

D）組合框有Text屬性、而列表框沒(méi)有

（14）設(shè)窗體上有一個(gè)命令按鈕數(shù)組，能夠區(qū)分?jǐn)?shù)組中各個(gè)按鈕的屬性是 A）Name B）Index C）Caption D）Left （15）滾動(dòng)條可以響應(yīng)的事件是 A）Load B）Scroll C）Click D）MouseDown （16）設(shè)a=5, b=6, c=7, d=8，執(zhí)行語(yǔ)句X=Ilf（（a＞b）And （c＞d）, 10, 20）后，x的值是 A）10 B）20 C）30 D）200 （17）語(yǔ)句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的輸出結(jié)果是 A）-36 B）1 C）-1 D）-72 （18）在窗體上畫一個(gè)圖片框，在圖片框中畫一個(gè)命令按鈕，位置如圖所示。

則命令按鈕的Top屬性值是

A）200 B）300 C）500 D）700

（19）在窗體上畫一個(gè)名稱為Command l的命令按鈕。單擊命令按鈕時(shí)執(zhí)行如下事件過(guò)程： Private Sub Command 1_Click（）

a$=”software and hardware"

b$=Right（a$，8）

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

MsgBox a$,，b$，c$, 1

End Sub

則在彈出的信息框標(biāo)題欄中顯示的標(biāo)題是

A）software and hardware

B）hardware

C）software

D）1

（20）在窗體上畫一個(gè)文本框（名稱為Text 1）和一個(gè)標(biāo)簽（名稱為L(zhǎng)abel 1），程序運(yùn)行后，如果在文本框中輸入文本，則標(biāo)簽中立即顯示相同的內(nèi)容。以下可以實(shí)現(xiàn)上述操作的事件過(guò)程是

A）Private Sub Text1_Change（）

Label1.Caption=Text1.Text

End Sub

B）Private Sub Label1_Change（）

Label1.Caption=Text1.Text

End Sub

C）Private Sub Text1_Click（）

Label1.Caption=Text1.Text

End Sub

D）Private Sub Label1_Click（）

Label1.Caption=Text1.Text

End Sub

（21）以下說(shuō)法中錯(cuò)誤的是

A）如果把一個(gè)命令按鈕的Default屬性設(shè)置為True，則按回車鍵與單擊該命令按鈕的作用相同

B）可以用多個(gè)命令按鈕組成命令按鈕數(shù)組

C）命令按鈕只能識(shí)別單擊（Click）事件

D）通過(guò)設(shè)置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用

（22）以下關(guān)于局部變量的敘述中錯(cuò)誤的是

A）在過(guò)程中用Dim語(yǔ)句或Static語(yǔ)句聲明的變量是局部變量

B）局部變量的作用域是它所在的過(guò)程

C）在過(guò)程中用Static語(yǔ)句聲明的變量是靜態(tài)局部變量

D）過(guò)程執(zhí)行完畢，該過(guò)程中用Dim或Static語(yǔ)句聲明的變量即被釋放

（23）以下程序段的輸出結(jié)果是

x=I

y=4

Do Until y＞4

x=x*y

Y=y＋I(xiàn)

Loop

Print x

A）1 B）4 C）8 D）20

（24）如果執(zhí)行一個(gè)語(yǔ)句后彈出如圖所示的窗口，則這個(gè)語(yǔ)句是

A）InputBox（"輸入框”，”請(qǐng)輸入VB數(shù)據(jù)”）

B）x=InputBox（"輸入框”，”請(qǐng)輸入VB數(shù)據(jù)”）

C）InputB ox（"請(qǐng)輸入VB數(shù)據(jù)”，”輸入框”）

D）x=InputBox（"請(qǐng)輸入VB數(shù)據(jù)”，”輸入框”）

（25）有如下事件過(guò)程：

Private Sub Form Click（）

Dim n A s Integer

x=0

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

For i=1 Ton

For j=1 To i

x=x＋I(xiàn)

Next j

Next i

Print x

End Sub 程序運(yùn)行后，單擊窗體，女口果在輸入對(duì)話框中輸入：，則在窗體上顯示的內(nèi)容是 A）13 B）14 C）15 D）16 （26）請(qǐng)閱讀程序： Sub subP（b（）As Integer） For i=1 To 4 b（i）=2＊i Next i End Sub Private Sub Command 1_Click（） Dim a（l To 4）As Integer A（l）=5：a（2）=6：a（3）=7：a（4）=8 subP a（） For i=1 To 4 Print a（i） Next i End Sub 運(yùn)行上面的程序，單擊命令按鈕，則輸出結(jié)果是 A）2 B）5 C）10 D）出錯(cuò) 4 6 12 6 7 14

8 8 16

（27）Fibonacci數(shù)列的規(guī)律是：前2個(gè)數(shù)為1，從第3個(gè)數(shù)開(kāi)始，每個(gè)數(shù)是它前2個(gè)數(shù)之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,…。某人編寫了下面的函數(shù)，判斷大于1的整數(shù)x是否是Fibonacci數(shù)列中的某個(gè)數(shù)，若是，則返回True,否則返回False。

Function Isfab（x As Integer）As Boolean

Dim a As Integer, b As Integer, c As Integer, flag As Boolean

flag=False

a=1：b=I

Do While x＜b

c=a＋b

a=b

b=c

If x=b Then flag=True

Loop

Isfab=flag

End Function

測(cè)試時(shí)發(fā)現(xiàn)對(duì)于所有正整數(shù)x,函數(shù)都返回False,程序需要修改。下面的修改方案中正確的是

A）把a(bǔ)= b與b=c的位置互換

B）把c=a+b移到b=c之后

C）把Do While x＜b改為Do While x＞b

D）把if x=b Then flag=True改為If x=a Then flag=True

（28）在窗體上畫一個(gè)命令按鈕，其名稱為Commandl，然后編寫如下事件過(guò)程：

Private Sub Command1_Click（）

Dim a$, b$，c$, k%

a="ABCD”

b=”123456”

c=""

k=1

Do While k＜= Len（a）Or k＜=Len（b）

If k＜=Len（a）Then

c=c＆Mid（a, k, 1）

End If

If k＜=Len（b）Then

c=c＆Mid（b, k, 1）

End If

k=k＋1

Loop

Print c

End Sub

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

A）123456ABCD B）ABCD123456 C）D6C5B4A321 D）AlB2C3D456

（29）請(qǐng)閱讀程序：

Private Sub Form_ Click（）

m=1

For i=4 To 1 Step-1

Print Str（m）；

m=m＋1

For j=1 To i

Print”＊”；

Next j

Next i

End Sub

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

A）1**** B）4**** C）**** D）*

2*** 3*** *** **

3** 2** ** ***

4* 1* * ****

（30）在窗體上畫一個(gè)命令按鈕（其名稱為Commandl），然后編寫如下代碼： Private Sub Command l_Click（）

Dim a

a=Array（1,2,3,4）

I=3：j=1

Do While i＞=0

s=s＋a（i）*j

i=i-1

j=j*10。

Loop

Print s

End Sub

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

A）4321 B）123 C）234 D）1234

（31）下列可以打開(kāi)隨機(jī)文件的語(yǔ)句是

A）Open "file l .dat" For lnput As＃1

B）Open”file l .dat" For Append As＃1

C）Open”file1.dat" For Output As＃1

D）Open”file1.dat" For Random As＃1 Len=20

（32）有彈出式菜單的結(jié)構(gòu)如下表，程序運(yùn)行時(shí)，單擊窗體則彈出如下圖所示的菜單。下面的事件過(guò)程中能正確實(shí)現(xiàn)這一功能的是

A）Private Sub Form _Click（） PopupMenu cut End Sub B）Private Sub Command l Click（） PopupMenu edit End Sub C）Private Sub Form_ Click（） PopupMenu edit End Sub End Sub D）Private Sub Form_lick（） PopupMenu cut PopupMenu paste （33）請(qǐng)閱讀程序： Option Base I Private Sub Form_ Click（） Dim Arr（4, 4）As Integer For i=1 To 4 For j=I To 4 Arr（i, j）=（i - 1）*2＋j Next j Next i For i=3To4 For j=3 To 4 Print Arr（j, i）; Next j 7

Next i

End Sub

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

A）5 7 B）6 8 C）7 9 D）8 10

6 8 7 9 8 10 8 11

（34）一下面函數(shù)的功能應(yīng)該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結(jié)果。例如：若str= "ABCDABCD", ch= "B",則函數(shù)的返回值為："ACDACD"

Function delchar（str As String, ch As String）As String

Dim k As Integer, temp As String, ret As String

ret=""

For k=1 To Len（str）

temp=Mid（str, k, 1）

If temp= ch Then

ret=ret＆temp

End If

Next k

delchar=ret

End Function

但實(shí)際上函數(shù)有錯(cuò)誤，需要修改。下面的修改方案中正確的是

A）把ret=ret＆temp改為ret=temp

B）把If temp=ch Then改為If temp＜＞ ch Then

C）把delchar=ret改為delchar=temp

D）把ret =""改為temp=""

（35）在窗體上畫一個(gè)命令按鈕和兩個(gè)文本框，其名稱分別為Command1、Text I和Text2,在屬性窗口中把窗體的KeyPreview屬性設(shè)置為True，然后編寫如下程序：

Dim S I As String, S2 As String

Private Sub Form Load（）

Text 1 .Text=""

Text2.Text=""

Text 1．Enabled=False

Text2．Enabled=False

End Sub

Private Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）

S2=S2＆Chr（KeyCode）

End Sub

Private Sub Forin_ KeyPress（KeyAscii As Integer）

S1=S1＆Chr（KeyAscii）

End Sub

Private Sub Command l Click

Text l .Text=Sl

Text2.Text=S2

S1=""

S2=""

為

End Sub 程序運(yùn)行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內(nèi)容分別A）abc和ABC B）空白 C）ABC和abc D）出錯(cuò)

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

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

（1）一個(gè)棧的初始狀態(tài)為空。首先將元素5，4，3，2，1 依次入棧，然后退棧一次，再將元素A,B,C,D依次入棧，之后將所有元素全部退棧，則所有元素退棧（包括中間退棧的元素）的順序?yàn)開(kāi)_【1】__。

（2）在長(zhǎng)度為n的線性表中，尋找最大項(xiàng)至少需要比較___【2】___次。

（3）一棵二叉樹(shù)有10個(gè)度為1的結(jié)點(diǎn)，7個(gè)度為2的結(jié)點(diǎn)，則該二叉樹(shù)共有__【3】___個(gè)結(jié)點(diǎn)。

（4）僅由順序、選擇（分支）和重復(fù)（循環(huán)）結(jié)構(gòu)構(gòu)成的程序是_【4】__程序。

（5）數(shù)據(jù)庫(kù)設(shè)計(jì)的四個(gè)階段是：需求分析，概念設(shè)計(jì)，邏輯設(shè)計(jì)和_【5】_。

（6）窗體上有一個(gè)名稱為Combo1的組合框，其初始內(nèi)容為空，有一個(gè)名稱為Command1、標(biāo)題為“添加項(xiàng)目”的命令按鈕。程序運(yùn)行后，如果單擊命令按鈕，會(huì)將給定數(shù)組中的項(xiàng)目添加到組合框中，如圖所示。請(qǐng)?zhí)羁铡?/p>

Option Base 1

Private Sub Command 1_ Click（

Dim city As Variant

city=_【6】_（"北京"，"天津"，"上海"，"武漢"，"重慶"，"西寧"）

For i=_【7】_To UBound（citv）

Combo 1.Addltem_【8】_

End Sub

（7）窗體上有一個(gè)名稱為Text 1的文本框和一個(gè)名稱為Command l、標(biāo)題為“計(jì)算”的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過(guò)程如下，請(qǐng)?zhí)羁铡?/p>

Private Sub Command 1 _Click（）

Dim x As Integer

x=Val（InputBOX（"輸入數(shù)據(jù)"））

Text 1=Str（fun（x）+fun（x）+fun（x））

End Sub

Private Function fun（ByRef n As Integer）

If n Mod 3=0 Then

n=n+n

Else

n=n*n

End If

_【9】_=n

End Function

當(dāng)單擊命令按鈕，在輸入對(duì)話框中輸入2時(shí)，文本框中顯示的是_【10】_

（8）窗體上有一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為Picture 1的圖片框。Form_ Load事件過(guò)程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運(yùn)行程序，當(dāng)雙擊列表框中的物品名稱時(shí)，可以把該物品對(duì)應(yīng)的圖片顯示在圖片框中如圖所示。以下是類型定義及程序，請(qǐng)?zhí)羁铡?/p>

Private Type Pic gName As String*10 ?物品名稱 picFile As String*20 ?物品圖片的圖片文件名 End Type Dim p（4）As Pic，pRec As Pic Private Sub Form Load（） Open”Datal.txt" For Random As＃1 _【11】_=Len（pRec） For i=0 To 4 Get＃1，i+l，P（i） LIStI.AddItem p（i）.gNaine Next i Close＃1 End Sub Private Sub List I-DbICIickO For i=OTo4 If RTrim（List一List（i））=RTrim（_【12】_）Then 10

Picture l.，Picture=LoadPicture（p（i）．_【13】_）

Exit For

End If

End Sub

（9）窗體上有一個(gè)名稱為CD1的通用對(duì)話框。通過(guò)菜單編輯器建立如圖1所示的菜單。程序運(yùn)行時(shí)，如果單擊“打開(kāi)”菜單項(xiàng)，則執(zhí)行打開(kāi)文件的操作，當(dāng)選定了文件（例如： G:\VB\2010-9\in.txt）并打開(kāi)后，該文件的文件名會(huì)被添加到菜單中，如圖2所示。各菜單項(xiàng)的名稱和標(biāo)題等定義如下表。

以一下是單擊“打開(kāi)”菜單項(xiàng)的事件過(guò)程，請(qǐng)?zhí)羁铡?/p>

Dim mnuCounter As Integer

Private Sub tnnuOpen_ Click（）

CDI．Show0pen

If CD I ．FileName＜＞""Then

Open_【14】_For Input As＃1

mnuCounter=mnuCounter+1

Load FName（mnuCounter）

FName（mnuCounter）.Caption=CD I.FileName

FName（mnuCounter）._【15】_=True

Close＃1

End If