- 相關(guān)推薦
計算機二級VB筆試試題(含答案)
2010年9月計算機二級VB筆試試題
一、選擇題（每小題2分，共70分）
下列各題A）、B）、C）、D）四個(gè)選項中，只有一個(gè)選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。
（1）下列敘述中正確的是
A）線(xiàn)性表的鏈式存儲結構與順序存儲結構所需要的存儲空間是相同的
B）線(xiàn)性表的鏈式存儲結構所需要的存儲空間一般要多于順序存儲結構
C）線(xiàn)性表的鏈式存儲結構所需要的存儲空間一般要少于順序存儲結構
D）上述三種說(shuō)法都不對
（2）下列敘述中正確的是
A）在棧中，棧中元素隨棧底指針與棧頂指針的變化而動(dòng)態(tài)變化
B）在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動(dòng)態(tài)變化
C）在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動(dòng)態(tài)變化
D）上述三種說(shuō)法都不對
（3）軟件測試的目的是
A）評估軟件可靠性
B）發(fā)現并改正程序中的錯誤
C）改正程序中的錯誤
D）發(fā)現程序中的錯誤
（4）下面描述中，不屬于軟件危機表現的是
A）軟件過(guò)程不規范
B）軟件開(kāi)發(fā)生產(chǎn)率低
C）軟件質(zhì)量難以控制
D）軟件成本不斷提高
（5）軟件生命周期是指
A）軟件產(chǎn)品從提出、實(shí)現、使用維護到停止使用退役的過(guò)程
B）軟件從需求分析、設計、實(shí)現到測試完成的過(guò)程
C）軟件的開(kāi)發(fā)過(guò)程
D）軟件的運行維護過(guò)程
（6）面向對象方法中，繼承是指
A）一組對象所具有的相似性質(zhì)
B）一個(gè)對象具有另一個(gè)對象的性質(zhì)
C）各對象之間的共同性質(zhì)
D）類(lèi)之間共享屬性和操作的機制
（7）層次型、網(wǎng)狀型和關(guān)系型數據庫劃分原則是
1
A）記錄長(cháng)度
B）文件的大小
C）聯(lián)系的復雜程度
D）數據之間的聯(lián)系方式
（8）一個(gè)工作人員可以使用多臺計算機，而一臺計算機可被多個(gè)人使用，則實(shí)體工作人員、與實(shí)體計算機之間的聯(lián)系是
A）一對一
B）一對多
C）多對多
D）多對一
（9）數據庫設計中反映用戶(hù)對數據要求的模式是
A）內模式
B）概念模式
C）外模式
D）設計模式
（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)境的設計模式下，用鼠標雙擊窗體上的某個(gè)控件打開(kāi)的窗口是
A）工程資源管理器窗口
B）屬性窗口
C）工具箱窗口
D）代碼窗口
（13）下列敘述中錯誤的是
A）列表框與組合框都有List屬性
B）列表框有Selected屬性，而組合框沒(méi)有
C）列表框和組合框都有Style屬性
D）組合框有Text屬性、而列表框沒(méi)有
2
（14）設窗體上有一個(gè)命令按鈕數組，能夠區分數組中各個(gè)按鈕的屬性是 A）Name B）Index C）Caption D）Left （15）滾動(dòng)條可以響應的事件是 A）Load B）Scroll C）Click D）MouseDown （16）設a=5, b=6, c=7, d=8，執行語(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）的輸出結果是 A）-36 B）1 C）-1 D）-72 （18）在窗體上畫(huà)一個(gè)圖片框，在圖片框中畫(huà)一個(gè)命令按鈕，位置如圖所示。
則命令按鈕的Top屬性值是
A）200 B）300 C）500 D）700
（19）在窗體上畫(huà)一個(gè)名稱(chēng)為Command l的命令按鈕。單擊命令按鈕時(shí)執行如下事件過(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
則在彈出的信息框標題欄中顯示的標題是
A）software and hardware
B）hardware
C）software
D）1
（20）在窗體上畫(huà)一個(gè)文本框（名稱(chēng)為T(mén)ext 1）和一個(gè)標簽（名稱(chēng)為L(cháng)abel 1），程序運行后，如果在文本框中輸入文本，則標簽中立即顯示相同的內容。以下可以實(shí)現上述操作的事件過(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
3
D）Private Sub Label1_Click（）
Label1.Caption=Text1.Text
End Sub
（21）以下說(shuō)法中錯誤的是
A）如果把一個(gè)命令按鈕的Default屬性設置為T(mén)rue，則按回車(chē)鍵與單擊該命令按鈕的作用相同
B）可以用多個(gè)命令按鈕組成命令按鈕數組
C）命令按鈕只能識別單擊（Click）事件
D）通過(guò)設置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用
（22）以下關(guān)于局部變量的敘述中錯誤的是
A）在過(guò)程中用Dim語(yǔ)句或Static語(yǔ)句聲明的變量是局部變量
B）局部變量的作用域是它所在的過(guò)程
C）在過(guò)程中用Static語(yǔ)句聲明的變量是靜態(tài)局部變量
D）過(guò)程執行完畢，該過(guò)程中用Dim或Static語(yǔ)句聲明的變量即被釋放
（23）以下程序段的輸出結果是
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）如果執行一個(gè)語(yǔ)句后彈出如圖所示的窗口，則這個(gè)語(yǔ)句是
A）InputBox（"輸入框”，”請輸入VB數據”）
B）x=InputBox（"輸入框”，”請輸入VB數據”）
C）InputB ox（"請輸入VB數據”，”輸入框”）
D）x=InputBox（"請輸入VB數據”，”輸入框”）
（25）有如下事件過(guò)程：
Private Sub Form Click（）
Dim n A s Integer
x=0
n=InputBox（"請輸入一個(gè)整數”）
For i=1 Ton
For j=1 To i
x=x＋I
Next j
Next i
Print x
4
End Sub 程序運行后，單擊窗體，女口果在輸入對話(huà)框中輸入：，則在窗體上顯示的內容是 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 運行上面的程序，單擊命令按鈕，則輸出結果是 A）2 B）5 C）10 D）出錯 4 6 12 6 7 14
8 8 16
（27）Fibonacci數列的規律是：前2個(gè)數為1，從第3個(gè)數開(kāi)始，每個(gè)數是它前2個(gè)數之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,…。某人編寫(xiě)了下面的函數，判斷大于1的整數x是否是Fibonacci數列中的某個(gè)數，若是，則返回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
測試時(shí)發(fā)現對于所有正整數x,函數都返回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）在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Commandl，然后編寫(xiě)如下事件過(guò)程：
5
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
運行程序，單擊命令按鈕，輸出結果是
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
程序運行后，單擊窗體，則輸出結果是
A）1**** B）4**** C）**** D）*
2*** 3*** *** **
3** 2** ** ***
4* 1* * ****
（30）在窗體上畫(huà)一個(gè)命令按鈕（其名稱(chēng)為Commandl），然后編寫(xiě)如下代碼： 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。
6
Loop
Print s
End Sub
運行上面的程序，單擊命令按鈕，則輸出結果是
A）4321 B）123 C）234 D）1234
（31）下列可以打開(kāi)隨機文件的語(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）有彈出式菜單的結構如下表，程序運行時(shí)，單擊窗體則彈出如下圖所示的菜單。下面的事件過(guò)程中能正確實(shí)現這一功能的是
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
程序運行后，單擊窗體，則輸出結果是
A）5 7 B）6 8 C）7 9 D）8 10
6 8 7 9 8 10 8 11
（34）一下面函數的功能應該是：刪除字符串str中所有與變量ch相同的字符，并返回刪除后的結果。例如：若str= "ABCDABCD", ch= "B",則函數的返回值為："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）在窗體上畫(huà)一個(gè)命令按鈕和兩個(gè)文本框，其名稱(chēng)分別為Command1、Text I和Text2,在屬性窗口中把窗體的KeyPreview屬性設置為T(mén)rue，然后編寫(xiě)如下程序：
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=""
8
為
End Sub 程序運行后，先后按“a”、“b”、“c”鍵，然后單擊命令按鈕，在文本框Textl和Text2中顯示的內容分別A）abc和ABC B）空白 C）ABC和abc D）出錯
二、填空題（每空2分，共30分）
請將每空的正確答案寫(xiě)在答題卡【1】至【15】序號的橫線(xiàn)上，答在試卷上不得分。
（1）一個(gè)棧的初始狀態(tài)為空。首先將元素5，4，3，2，1 依次入棧，然后退棧一次，再將元素A,B,C,D依次入棧，之后將所有元素全部退棧，則所有元素退棧（包括中間退棧的元素）的順序為_(kāi)_【1】__。
（2）在長(cháng)度為n的線(xiàn)性表中，尋找最大項至少需要比較___【2】___次。
（3）一棵二叉樹(shù)有10個(gè)度為1的結點(diǎn)，7個(gè)度為2的結點(diǎn)，則該二叉樹(shù)共有__【3】___個(gè)結點(diǎn)。
（4）僅由順序、選擇（分支）和重復（循環(huán)）結構構成的程序是_【4】__程序。
（5）數據庫設計的四個(gè)階段是：需求分析，概念設計，邏輯設計和_【5】_。
（6）窗體上有一個(gè)名稱(chēng)為Combo1的組合框， 其初始內容為空，有一個(gè)名稱(chēng)為Command1、標題為“添加項目”的命令按鈕。程序運行后，如果單擊命令按鈕，會(huì )將給定數組中的項目添加到組合框中，如圖所示。請填空。
Option Base 1
Private Sub Command 1_ Click（
Dim city As Variant
city=_【6】_（"北京"，"天津"，"上海"，"武漢"，"重慶"，"西寧"）
For i=_【7】_To UBound（citv）
Combo 1.Addltem_【8】_
Next
End Sub
（7）窗體上有一個(gè)名稱(chēng)為T(mén)ext 1的文本框和一個(gè)名稱(chēng)為Command l、標題為“計算”的命令按鈕，如圖所示。函數fun及命令按鈕的單擊事件過(guò)程如下，請填空。
9
Private Sub Command 1 _Click（）
Dim x As Integer
x=Val（InputBOX（"輸入數據"））
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
當單擊命令按鈕，在輸入對話(huà)框中輸入2時(shí)，文本框中顯示的是_【10】_
（8）窗體上有一個(gè)名稱(chēng)為L(cháng)ist1的列表框，一個(gè)名稱(chēng)為Picture 1的圖片框。Form_ Load事件過(guò)程的作用是，把Datal.txt文件中的物品名稱(chēng)添加到列表框中。運行程序，當雙擊列表框中的物品名稱(chēng)時(shí)，可以把該物品對應的圖片顯示在圖片框中如圖所示。以下是類(lèi)型定義及程序，請填空。
Private Type Pic gName As String*10 ?物品名稱(chēng) 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
Next
End Sub
（9）窗體上有一個(gè)名稱(chēng)為CD1的通用對話(huà)框。通過(guò)菜單編輯器建立如圖1所示的菜單。程序運行時(shí)，如果單擊“打開(kāi)”菜單項，則執行打開(kāi)文件的操作，當選定了文件（例如： G:\VB\2010-9\in.txt）并打開(kāi)后，該文件的文件名會(huì )被添加到菜單中，如圖2所示。各菜單項的名稱(chēng)和標題等定義如下表。
以一下是單擊“打開(kāi)”菜單項的事件過(guò)程，請填空。
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
End Sub
11
參考答案
12
【計算機二級VB筆試試題(含答案)】相關(guān)文章：
分享VB 筆試題目11-21
ITT HR的筆試題目，筆試試題02-24
sony筆試題02-18
華碩筆試題02-18
神龍筆試題02-18
外企筆試題精選11-21
畢馬威筆試題02-16
寶潔筆試題02-18
朗訊筆試題02-18