壹、選擇題（每小題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）冒泡排序在最壞情況下的比較次數是
A）n(n＋1)/2 B）nlog2 n C）n(n－1)/2 D）n/2
（8）壹棵二叉樹中***有70個葉子結點與80個度為1的結點，則該二叉樹中的總結點數為
A）219 B）221 C）229 D）231
（9）下列敘述中正確的是
A）數據庫系統是壹個獨立的系統，不需要操作系統的支持
B）數據庫技術的根本目標是要解決數據的***享問題
C）數據庫管理系統就是數據庫系統
D）以上三種說法都不對
（10）下列敘述中正確的是
A）為了建立壹個關系，首先要構造數據的邏輯關系
B）表示關系的二維表中各元組的每壹個分量還可以分成若幹數據項
C）壹個關系的屬性名表稱為關系模式
D）壹個關系可以包括多個二維表
（11）要使壹個文本框可以顯示多行文本，應設置為True的屬性是
A）Enabled B）MultiLine C）MasLenfth D）Width
（12）在窗體上有壹個名為Text1的文本框。當光標在文本框中時，如果按下字母鍵“A”，則被調用的事件過程是
A）Form_KeyPress() B）Text1_LostFocus()
C）Text1_Click() D）Test1_Change()
（13）設在窗體上有壹個名稱為Command1的命令按鈕和壹個名稱為Text1的文本框。要求單擊Command1按鈕時可把光標移到文本框中。下面正確的事件過程是
A）Private Sub Command1_Click() B）Private Sub
Text1.GotFocus Command1.GotFocus
End Sub EndSub
C）Private Sub Command1_Click() D）Private Sub
Text1.SetFocus Command1.SetFocus
End Sub End Sub
（14）執行以下程序後輸出的是
Private Sub Command1_Click()
Ch$=”AABCDEFGH”
Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)
End Sub
A)CDEFGH B)ABCD C)FG D)AB
（15）設在窗體Form1上有壹個列表框List1，其中有若幹個項目。要求單擊列表框中某壹項時，把該項顯示在窗體上，正確的事件過程是
A)Prvate Sub List1_Click() B)Private Sub Form1_Click()
Print List1.Text Print List1.Text
End Sub End Sub
C)Private Sub List1_Click() D)Private Sub Form1_Click()
Print Form1.Text List1.Print List1.Text
End Sub End Sub
（16）若窗體上的圖片框中有壹個命令按鈕，則此按鈕的Left屬性是指
A)按鈕左端到窗體左端的距離 B)按鈕左端到圖片框左端的距離
C)按鈕中心點到窗體左端的距離 D)按鈕中心點到圖片框左端的距離
（17）為使程序運行時通用對話框CD1上顯示的標題為“對話框窗口”，若通過程序設置該標題，則應使用的語句是
A)CD1.DialogTitle=“對話框窗口” B)CD1.Action=“對話框窗口”
C)CD1.FileName=“對話框窗口” D)CD1.Filter=“對話框窗口”
（18）在窗體上有如右圖所示的控件，各控件的名稱
與其標題相同，並有如下程序：
Private Sub Form_Load()
Command2.Enabled=False
Check1.Value=1
End Sub
剛運行程序時，看到的窗體外觀是：
（19）設在窗體中有壹個名稱為List1的列表框，其中有若幹個項目（如圖）。要求選中某壹項後單擊Command1按鈕，就刪除選中的項，則正確的事件過程是
A)Private Sub Command1_Click()
List1.Clear
End Sub
B) Private Sub Command1_Click()
List1.Clear List1.ListIndex
End Sub
C) Private Sub Command1_Click()
List1.Removeltem List1.ListIndex
End Sub
D) Private Sub Command1_Click()
List1.Removeltem
End Sub
（20）某人設計了如下程序用來計算並輸出7!（7的階乘）
Private Sub Command1_Click()
t=0
For k=7 To 2 Step -1
t=t*k
Next
Print t
End Sub
執行程序時，發現結果是錯誤的，下面的修改方案中能夠得到正確結構的是
A）把t=0改為t=1
B）把For k = 7 To 2 Step -1改為For k =7 To 1 Step -1
C）把For k = 7 To 2 Stip-1改為Fork=1 To 7
D）把Next改為Nexi k
（21）若窗體中已經有若幹個不同的單選按鈕，要把它們改為壹個單選按鈕數組，在屬性窗口中需要且只需要進行的操作是
A）把所有單選按鈕的Index屬性改為相同值
B）把所有單選按鈕的Index 屬性改為連續的不同值
C）把所有單選按鈕的Caption屬性值改為相同
D）把所有單選按鈕的名稱改為相同，且把它們的Index屬性改為連續的不同值。
（22）窗體上有文本框Text1和壹個菜單，菜單標題、名稱如表，結構見圖。要求程序執行時單擊“保存”菜單項，則把其標題顯示在Text1文本框中。下面可實現此功能的事件過程是：
標題 名稱
文件 file
新建 new
保存 save
A）Private Sub save_Click() B）Private Sub save_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption
End Sub End Sub
C）Private Sub file_Click() D）Private Sub file_Click()
Text1.Text=file.save.Caption Text1.Text=save.Caption
End Sub End Sub
（23）某人在窗體上畫了壹個名稱為Timer1的計時器和壹個名稱為Lab
的屬性設置為Enabled=True, Interval=0,並編程如下。希望在每2秒在標簽上顯示壹次系統當前時間。
Private Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
在程序執行時發現未能實現上述目的，那麽，他應做的修改是
A）通過屬性窗口把計時器的Interval屬性設置為2000
B）通過屬性窗口把計時器的Enabled屬生設置為False
C)把事件過程中的Label1.Caption=Time$語句改為Timer1.Interval=Tims$
D)把事件過程中的Label1.Caption=Time$語句改為Label1.Caption=Timer1.Time
（24）形狀控件的Shape屬性有6種取值，分別代表6種幾何圖形。下列不屬於這6種幾何圖形的是
（25）下面關於文件的敘述中錯誤的是
A）隨機文件中各條記錄的長度是相同的]
B）打開隨機文件時采用的文件存取方式應該是Random
C）向隨機文件中寫數據應使用語句Print#文件號
D）打開隨機文件與打開順序文件壹樣，都使用Open語句
（26）設窗體上有壹個圖片框Picture1，要在程序運行期間裝入當前文件夾下的圖形文件File1.jpg，能實現此功能的語句是
A）Picture1.Picture=”Flie1.jpg
B）Picture1.Picture=LoadPicture(“File1.jpg”)
C) LoadPicture(“File1.jpg”)
D）Call LoadPicture(“File1.jpg”)
（27）下面程序執行時，在窗體上顯示的是
Private Sub Command1_Click()
Dim a(10)
For k = 1 To 10
a(k) = 11 – k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub
A）3 B）5 C）7
（28）為達到把a、b中的值交換後輸出的目的，某人編程如下：
Private Sub Command1_Click()
a% = 10:b% = 20
Call swap(a,b)
Print a,b
End Sub
Private Sub swap(ByVal a As Integer,ByVal b As Integer)
c= a:a=b:b=c
End Sub
在運行時發現輸出結果錯了，需要修改。下面列出的錯誤原因和修改方案中正確的是
A）調用swap過程的語句錯誤，應改為Call swap a,b
B）輸出語句錯誤，應改為：Print ”a”,”b”
C）過程的形式參數有錯，應改為：swap(ByRef a As Integer,ByRef b As Integer)
D）swap中3條賦值語句的順序是錯誤的，應改為a=b:b=c:c=a
（29）有如下函數：
Function fun(a As Integer,n As Integer) As Integer
Dim m As Integer
While a >=n
a=a-n
m= m+1
Wend
fun=m
End Function
該函數的返回值是
A）a乘以n的乘積 B）a加n的和
C）a減n的差 D）a除以n的商（不含小數部分）
（30）下面程序的輸出結果是
Private Sub Command1_Click()
ch$=”ABCDEF”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S=””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A）ABCDEF B）FEDCBA C）A D）F
（31）某人編寫了壹個能夠返回數組a中10個數中最大數的函數過程，代碼如下：
Function MaxValue(a() As Integer) As Integer
Dim max%
max=1
For k = 2 To 10
If a(k)>a(max) Then
max = k
End If
Next k
MaxValue = max
End Function
程序運行時，發現函數過程的返回值是錯的，需要修改，下面的修改方案中正確的是
A）語句max = 1應改為max = a(1)
B）語句For k = 2 To 10應改為For k = 1 To 10
C）If語句中的條件a(k)>a(max)應改為a(k)>max
D）語句MaxValue = max 應改為MaxValue = a(max)
（32）在窗體上畫壹個名稱為Command1的命令按鈕，並編寫以下程序：
Private Sub Command1_Click()
Dim n%,b,t
t = 1:b = 1:n = 2
Do
b = b*n
t = t + b
n = n +1
Loop Until n>9
Print t
End Sub
此程序計算並輸出壹個表達式的值，該表達式是
A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！
（33）有壹個名稱為Form1的窗體，上面沒有控件，設有以下程序（其中方法Pset(X,Y)的功能是在坐標X，Y處畫壹個點）：
Dim cmdmave As Boolean
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)
cmdmave = True
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)
If cmdmave Then
Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)
cmdmave = False
End Sub
此程序的功能是
A）每按下鼠標鍵壹次，在鼠標所指位置畫壹個點
B）按下鼠標鍵，則在鼠標所指位置畫壹個點；放開鼠標鍵，則此點消失
C）不按鼠標鍵而拖動鼠標，則沿鼠標拖動的軌跡畫壹條線
D）按下鼠標鍵並拖動鼠標，則沿鼠標拖動的軌跡畫壹條線，放開鼠標鍵則結束畫線
（34）某人設計了下面的函數fun，功能是返回參數a中數值的位數
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 >= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在調用該函數時發現返回的結果不正確，函數需要修改，下面的修改方案中正確的是
A）把語句n = 1改為n = 0
B）把循環條件a \ 10 >= 0改為a \ 10 > 0
C）把語句 a = a \ 10改為a = a Mod 10
D）把語句fun = n改為 fun = a
（35）在窗體上有壹個名稱為Check1的復選框數組（含4個復選框），還有壹個名稱為Text1的文本框，初始內容為空。程序運行時，單擊任何復選
框，則把所有選中的復選框後面的方字羅列在文本框中（見圖）。下面能實現此功能的事件過程是
A）Private Sub Check1_Click(Indes As Integer)
Text1.Text =""
For k = 0 To 3
If Check1(k).value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格
End If
Next k
End Sub
B）Private Sub Check1_Click(Index As Integer)
For k = 0 To 3
If Check1(k).Value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格
End If
Next k
End Sub
C）Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).Value = 1 Then
Text1.Text = Text1.Text & Check1(Index).Caption & " " '雙引號中是空格
End If
Next k
End Sub
D）Private Sub Check1_Click(Index As Integer)
Text1.Text = ""
For k = 0 To 3
If Check1(k).Value = 1 Then
Text1.Text = Text1.Text & Check1(k).Caption & " " '雙引號中是空格
Exit For
End If
Next k
End Sub
二、填空題（每空2分，***30分）
請將每空的正確答案寫在答題卡[1]~[15]序號的橫線上，答在試卷上不得分。
(1)軟件需求規格說明書應具有完整性，無岐義性、正確性、可驗證性、可修改性等特征，其中最重要的是1 。
(2)在兩種基本測試方法中，2 測試的原則之壹是保證所測模塊中每壹個獨立路徑至少執行壹次。
(3)線性表的存儲結構主要分為順序存儲結構和鏈式存儲結構。隊列是壹種特殊的線性表，循環隊列是隊列的3 存儲結構。
(4)對下列二叉樹進行中序遍歷的結果為4 。
（5）在E-R圖中，矩形表示5 。
（6）窗體上有壹個組合框，其中已輸入了
若幹個項目。程序運行時，單擊其中壹
項，即可把該項與最上面的壹項交換。
例如：單擊圖1中的“重慶”，則與“北
京”交換，得到圖2的結果。下面是可
實現此功能的程序，請填空。
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
（7）設窗體上有壹個名稱為HScroIII的水平滾動條，要求當滾動塊移動位置後，能夠在窗體上輸出移動的距離（即新位置與原位置的刻度值之差，向右移動為正數，向左移動為負數）。下面是可實現此功能的程序，請填寫。
Dim [7] As Integer
Private Sub Form_Load()
pos=HScroIII.Value
End Sub
Private Sub HScroIII_Change()
Print [8] -pos
pos=HScroIII.Value
End Sub
（8）設窗體上有壹個名稱為CD1的通用對話框，壹個名稱為Text1的文本框和壹個名稱為Command1的命令按鈕。程序執行時，單擊Command1按鈕，則顯示打開文件對話框，操作者從中選擇壹個文本文件，並單擊對話框上的“打開”按鈕後，則可打開該文本文件，並讀入壹行文本，顯示在Text1中。下面是實現此功能的事件過程，請填空。
Private Sub Command1_Click()
CD1.Filter ="文本文件1*.txt(Word 文檔)*.doc"
CD1.Filterinder = 1
CD1.ShowOpen
If CD1.FileName<>""Then
Open [9] For Input As #1
Line Input #1,ch$
Close #1
Text1.Text = [10]
End If
End Sub
（9）下面的程序執行時，可以從鍵盤輸入壹個正整數，然後把該數的每位數字按逆序輸出。例如：輸入7685，則輸出5867，輸入1000，則輸出0001。請填空。
Private Sub Command1_Click()
Dim x As Integer
x=InputBox(“請輸入壹個正整數”)
While x>__[11]___
Print x Mod 10;
x=x\10
Wend
Print__[12]__
End Sub
（10）有如圖所示的窗體。程序執行時先在Text1文本框中輸入編號，當焦點試圖離開Text1時，程序檢查編號的合法性，若編號合法，則焦點可以離開Text1文本框；否則，顯示相應錯誤信息，並自動選中錯誤的字符，且
焦點不能離開Text1文本框（見圖）。
合法編號的組成是：前2個字符是大寫英文
字母，第3個字符是“-”，後面是數字字符
（至少1個）。下面程序可實現此功能，請
填空。
Private Sub Text1_Lostfocus()
Dim k%,n%
n=Len( [13] )
For k=1 to if (n>3,n,4)
c=Mid(Text1. Text,k,1)
Select Case k
Case 1,2
If c<"A" Or c>"Z" Then
MsgBox("第"&k&"個字符必須是大寫字母！")
SetPosition k
Exit For
End If
Case 3
If c<>"-" Then
MsgBox("第"&k&"個字符必須是字符"'"-"'")
SetPosition k
Exit For
End If
Case Else
If c<"0" Or c>"9" Then
MsgBox("第"&k&"個字符必須是數字！")
SetPosition k
Exit For
End If
End Select
Next k
End Sub
Private Sub SetPosition(pos As Integer)
Text1.SelStart=pos-1
Text.SelLength= [14]
Text1. [15]
End Sub
2007年9月全國計算機等級考試二級VB參考答案
壹、選擇題
1-5 DBCAA
6-10 CCABA
11-15 BDCCA
16-20 BAACA
21-25 DBABC
26-30 BDCDB
31-35 DCDBA
二、填空題
1、無歧義性
2、白盒測試
3、順序
4、ACBDFEHGP
5、實體集
6、Combol1.List(Combol1.ListIndex)
7、pos
8、HScroll1.value
9、CD1.FileName
10、ch
11、10
12、x
13、Text1.Text
14、1
15、SetFocus
這個應該不錯，妳可以下載看看，不過要先註冊壹下，呵呵/source/887970