2010年9月計算機二級VB筆試試題
一、選擇題（每小題2分，共70分）
下列各題A）、B）、C）、D）四個選項中，只有一個選項是正確的。請將正確選項填塗在答題卡相應位置上，答在試卷上不得分。
（1）下列敘述中正確的是
A）線性表的鏈式存儲結構與順序存儲結構所需要的存儲空間是相同的
B）線性表的鏈式存儲結構所需要的存儲空間一般要多於順序存儲結構
C）線性表的鏈式存儲結構所需要的存儲空間一般要少於順序存儲結構
D）上述三種說法都不對
（2）下列敘述中正確的是
A）在棧中，棧中元素隨棧底指針與棧頂指針的變化而動態變化
B）在棧中，棧頂指針不變，棧中元素隨棧底指針的變化而動態變化
C）在棧中，棧底指針不變，棧中元素隨棧頂指針的變化而動態變化
D）上述三種說法都不對
（3）軟件測試的目的是
A）評估軟件可靠性
B）發現並改正程序中的錯誤
C）改正程序中的錯誤
D）發現程序中的錯誤
（4）下面描述中，不屬於軟件危機表現的是
A）軟件過程不規範
B）軟件開發生產率低
C）軟件質量難以控制
D）軟件成本不斷提高
（5）軟件生命週期是指
A）軟件產品從提出、實現、使用維護到停止使用退役的過程
B）軟件從需求分析、設計、實現到測試完成的過程
C）軟件的開發過程
D）軟件的運行維護過程
（6）面向對象方法中，繼承是指
A）一組對象所具有的相似性質
B）一個對象具有另一個對象的性質
C）各對象之間的共同性質
D）類之間共享屬性和操作的機制
（7）層次型、網狀型和關係型數據庫劃分原則是
1
A）記錄長度
B）文件的大小
C）聯繫的複雜程度
D）數據之間的聯繫方式
（8）一個工作人員可以使用多臺計算機，而一臺計算機可被多個人使用，則實體工作人員、與實體計算機之間的聯繫是
A）一對一
B）一對多
C）多對多
D）多對一
（9）數據庫設計中反映用戶對數據要求的模式是
A）內模式
B）概念模式
C）外模式
D）設計模式
（10）有三個關係R、S和T如下：
則由關係R和S得到關係T的操作是
A）自然連接
B）交
C）投影
D）並
（11）在Visual Basic集成環境中，要添加一個窗體，可以單擊工具欄上的一個按鈕，這個按鈕是
A） B）
C） D）
（12）在Visual Basic集成環境的設計模式下，用鼠標雙擊窗體上的某個控件打開的窗口是
A）工程資源管理器窗口
B）屬性窗口
C）工具箱窗口
D）代碼窗口
（13）下列敘述中錯誤的是
A）列表框與組合框都有List屬性
B）列表框有Selected屬性，而組合框沒有
C）列表框和組合框都有Style屬性
D）組合框有Text屬性、而列表框沒有
2
（14）設窗體上有一個命令按鈕數組，能夠區分數組中各個按鈕的屬性是 A）Name B）Index C）Caption D）Left （15）滾動條可以響應的事件是 A）Load B）Scroll C）Click D）MouseDown （16）設a=5, b=6, c=7, d=8，執行語句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）的輸出結果是 A）-36 B）1 C）-1 D）-72 （18）在窗體上畫一個圖片框，在圖片框中畫一個命令按鈕，位置如圖所示。
則命令按鈕的Top屬性值是
A）200 B）300 C）500 D）700
（19）在窗體上畫一個名稱爲Command l的命令按鈕。單擊命令按鈕時執行如下事件過程： 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），程序運行後，如果在文本框中輸入文本，則標籤中立即顯示相同的內容。以下可以實現上述操作的事件過程是
A）Private Sub Text1_Change（）
ion=
End Sub
B）Private Sub Label1_Change（）
ion=
End Sub
C）Private Sub Text1_Click（）
ion=
End Sub
3
D）Private Sub Label1_Click（）
ion=
End Sub
（21）以下說法中錯誤的是
A）如果把一個命令按鈕的Default屬性設置爲True，則按回車鍵與單擊該命令按鈕的作用相同
B）可以用多個命令按鈕組成命令按鈕數組
C）命令按鈕只能識別單擊（Click）事件
D）通過設置命令按鈕的Enabled屬性，可以使該命令按鈕有效或禁用
（22）以下關於局部變量的敘述中錯誤的是
A）在過程中用Dim語句或Static語句聲明的.變量是局部變量
B）局部變量的作用域是它所在的過程
C）在過程中用Static語句聲明的變量是靜態局部變量
D）過程執行完畢，該過程中用Dim或Static語句聲明的變量即被釋放
（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）如果執行一個語句後彈出如圖所示的窗口，則這個語句是
A）InputBox（"輸入框”，”請輸入VB數據”）
B）x=InputBox（"輸入框”，”請輸入VB數據”）
C）InputB ox（"請輸入VB數據”，”輸入框”）
D）x=InputBox（"請輸入VB數據”，”輸入框”）
（25）有如下事件過程：
Private Sub Form Click（）
Dim n A s Integer
x=0
n=InputBox（"請輸入一個整數”）
For i=1 Ton
For j=1 To i
x=x＋I
Next j
Next i
Print x
4
End Sub 程序運行後，單擊窗體，女口果在輸入對話框中輸入：，則在窗體上顯示的內容是 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個數爲1，從第3個數開始，每個數是它前2個數之和，即：1，1，2, 3, 5, 8,13, 21，34, 55, 89,…。某人編寫了下面的函數，判斷大於1的整數x是否是Fibonacci數列中的某個數，若是，則返回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
測試時發現對於所有正整數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）在窗體上畫一個命令按鈕，其名稱爲Commandl，然後編寫如下事件過程：
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）在窗體上畫一個命令按鈕（其名稱爲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。
6
Loop
Print s
End Sub
運行上面的程序，單擊命令按鈕，則輸出結果是
A）4321 B）123 C）234 D）1234
（31）下列可以打開隨機文件的語句是
A）Open "file l " For lnput As＃1
B）Open”file l " For Append As＃1
C）Open”" For Output As＃1
D）Open”" For Random As＃1 Len=20
（32）有彈出式菜單的結構如下表，程序運行時，單擊窗體則彈出如下圖所示的菜單。下面的事件過程中能正確實現這一功能的是
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
但實際上函數有錯誤，需要修改。下面的修改方案中正確的是
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屬性設置爲True，然後編寫如下程序：
Dim S I As String, S2 As String
Private Sub Form Load（）
Text 1 =""
=""
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 =Sl
=S2
S1=""
S2=""
8
爲
End Sub 程序運行後，先後按“a”、“b”、“c”鍵，然後單擊命令按鈕，在文本框Textl和Text2中顯示的內容分別A）abc和ABC B）空白 C）ABC和abc D）出錯
二、填空題（每空2分，共30分）
請將每空的正確答案寫在答題卡【1】至【15】序號的橫線上，答在試卷上不得分。
（1）一個棧的初始狀態爲空。首先將元素5，4，3，2，1 依次入棧，然後退棧一次，再將元素A,B,C,D依次入棧，之後將所有元素全部退棧，則所有元素退棧（包括中間退棧的元素）的順序爲__【1】__。
（2）在長度爲n的線性表中，尋找最大項至少需要比較___【2】___次。
（3）一棵二叉樹有10個度爲1的結點，7個度爲2的結點，則該二叉樹共有__【3】___個結點。
（4）僅由順序、選擇（分支）和重複（循環）結構構成的程序是_【4】__程序。
（5）數據庫設計的四個階段是：需求分析，概念設計，邏輯設計和_【5】_。
（6）窗體上有一個名稱爲Combo1的組合框， 其初始內容爲空，有一個名稱爲Command1、標題爲“添加項目”的命令按鈕。程序運行後，如果單擊命令按鈕，會將給定數組中的項目添加到組合框中，如圖所示。請填空。
Option Base 1
Private Sub Command 1_ Click（
Dim city As Variant
city=_【6】_（"北京"，"天津"，"上海"，"武漢"，"重慶"，"西寧"）
For i=_【7】_To UBound（citv）
Combo tem_【8】_
Next
End Sub
（7）窗體上有一個名稱爲Text 1的文本框和一個名稱爲Command l、標題爲“計算”的命令按鈕，如圖所示。函數fun及命令按鈕的單擊事件過程如下，請填空。
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
當單擊命令按鈕，在輸入對話框中輸入2時，文本框中顯示的是_【10】_
（8）窗體上有一個名稱爲List1的列表框，一個名稱爲Picture 1的圖片框。Form_ Load事件過程的作用是，把文件中的物品名稱添加到列表框中。運行程序，當雙擊列表框中的物品名稱時，可以把該物品對應的圖片顯示在圖片框中如圖所示。以下是類型定義及程序，請填空。
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”" For Random As＃1 _【11】_=Len（pRec） For i=0 To 4 Get＃1，i+l，P（i） tem p（i）ne 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）窗體上有一個名稱爲CD1的通用對話框。通過菜單編輯器建立如圖1所示的菜單。程序運行時，如果單擊“打開”菜單項，則執行打開文件的操作，當選定了文件（例如： G:VB2010-9）並打開後，該文件的文件名會被添加到菜單中，如圖2所示。各菜單項的名稱和標題等定義如下表。
以一下是單擊“打開”菜單項的事件過程，請填空。
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）ion=CD Name
FName（mnuCounter）._【15】_=True
Close＃1
End If
End Sub
11
參考答案
12