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