計算機二級VB筆試試題(含答案)

時間：2024-10-19 22:37:17 綜合指導我要投稿

相關(guān)推薦

計算機二級VB筆試試題(含答案)

2010年9月計算機二級VB筆試試題

計算機二級VB筆試試題(含答案)

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

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

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

A）線性表的鏈式存儲結(jié)構(gòu)與順序存儲結(jié)構(gòu)所需要的存儲空間是相同的

B）線性表的鏈式存儲結(jié)構(gòu)所需要的存儲空間一般要多于順序存儲結(jié)構(gòu)

C）線性表的鏈式存儲結(jié)構(gòu)所需要的存儲空間一般要少于順序存儲結(jié)構(gòu)

D）上述三種說法都不對

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

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

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

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

D）上述三種說法都不對

（3）軟件測試的目的是

A）評估軟件可靠性

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

C）改正程序中的錯誤

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

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

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

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

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

D）軟件成本不斷提高

（5）軟件生命周期是指

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

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

C）軟件的開發(fā)過程

D）軟件的運行維護過程

（6）面向?qū)ο蠓椒ㄖ�，繼承是指

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

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

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

D）類之間共享屬性和操作的機制

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

A）記錄長度

B）文件的大小

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

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

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

A）一對一

B）一對多

C）多對多

D）多對一

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

A）內(nèi)模式

B）概念模式

C）外模式

D）設(shè)計模式

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

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

A）自然連接

B）交

C）投影

D）并

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

A） B）

C） D）

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

A）工程資源管理器窗口

B）屬性窗口

C）工具箱窗口

D）代碼窗口

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

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

B）列表框有Selected屬性，而組合框沒有

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

D）組合框有Text屬性、而列表框沒有

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

則命令按鈕的Top屬性值是

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

（19）在窗體上畫一個名稱為Command l的命令按鈕。單擊命令按鈕時執(zhí)行如下事件過程： 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

則在彈出的信息框標題欄中顯示的標題是

A）software and hardware

B）hardware

C）software

D）1

（20）在窗體上畫一個文本框（名稱為Text 1）和一個標簽（名稱為Label 1），程序運行后，如果在文本框中輸入文本，則標簽中立即顯示相同的內(nèi)容。以下可以實現(xiàn)上述操作的事件過程是

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）以下說法中錯誤的是

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

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

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

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

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

A）在過程中用Dim語句或Static語句聲明的變量是局部變量

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

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

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

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

x=I

y=4

Do Until y＞4

x=x*y

Y=y＋I

Loop

Print x

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

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

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

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

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

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

（25）有如下事件過程：

Private Sub Form Click（）

Dim n A s Integer

x=0

n=InputBox（"請輸入一個整數(shù)”）

For i=1 Ton

For j=1 To i

x=x＋I

Next j

Next i

Print x

End Sub 程序運行后，單擊窗體，女口果在輸入對話框中輸入：，則在窗體上顯示的內(nèi)容是 A）13 B）14 C）15 D）16 （26）請閱讀程序： 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 運行上面的程序，單擊命令按鈕，則輸出結(jié)果是 A）2 B）5 C）10 D）出錯 4 6 12 6 7 14

8 8 16

（27）Fibonacci數(shù)列的規(guī)律是：前2個數(shù)為1，從第3個數(shù)開始，每個數(shù)是它前2個數(shù)之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,…。某人編寫了下面的函數(shù)，判斷大于1的整數(shù)x是否是Fibonacci數(shù)列中的某個數(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

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

A）把a= 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）在窗體上畫一個命令按鈕，其名稱為Commandl，然后編寫如下事件過程：

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

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

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

（29）請閱讀程序：

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

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

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

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

3** 2** ** ***

4* 1* * ****

（30）在窗體上畫一個命令按鈕（其名稱為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

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

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

（31）下列可以打開隨機文件的語句是

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)如下表，程序運行時，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實現(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）請閱讀程序： 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

程序運行后，單擊窗體，則輸出結(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ù)有錯誤，需要修改。下面的修改方案中正確的是

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

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

C）把delchar=ret改為delchar=temp

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

（35）在窗體上畫一個命令按鈕和兩個文本框，其名稱分別為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 程序運行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內(nèi)容分別A）abc和ABC B）空白 C）ABC和abc D）出錯

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

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

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

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

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

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

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

（6）窗體上有一個名稱為Combo1的組合框，其初始內(nèi)容為空，有一個名稱為Command1、標題為“添加項目”的命令按鈕。程序運行后，如果單擊命令按鈕，會將給定數(shù)組中的項目添加到組合框中，如圖所示。請?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）窗體上有一個名稱為Text 1的文本框和一個名稱為Command l、標題為“計算”的命令按鈕，如圖所示。函數(shù)fun及命令按鈕的單擊事件過程如下，請?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

當單擊命令按鈕，在輸入對話框中輸入2時，文本框中顯示的是_【10】_

（8）窗體上有一個名稱為List1的列表框，一個名稱為Picture 1的圖片框。Form_ Load事件過程的作用是，把Datal.txt文件中的物品名稱添加到列表框中。運行程序，當雙擊列表框中的物品名稱時，可以把該物品對應(yī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）窗體上有一個名稱為CD1的通用對話框。通過菜單編輯器建立如圖1所示的菜單。程序運行時，如果單擊“打開”菜單項，則執(zhí)行打開文件的操作，當選定了文件（例如： G:\VB\2010-9\in.txt）并打開后，該文件的文件名會被添加到菜單中，如圖2所示。各菜單項的名稱和標題等定義如下表。

以一下是單擊“打開”菜單項的事件過程，請?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