>>2013年3月全國計算機二級考試試題
>>2013年3月全國計算機二級考試答案
一、單選題。
(1)下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是
(2)在下列鏈表中，能夠從任意一個結(jié)點出發(fā)直接訪問到所有結(jié)點的是
(3)下列與棧結(jié)構(gòu)有關(guān)聯(lián)的是
(4)下面對軟件特點描述不正確的是
(5)下面屬于黑盒測試方法的是
(6)下面不屬于軟件設計階段任務的是
(7)數(shù)據(jù)庫管理系統(tǒng)是
(8)在E-R圖中，表示實體的圖元是
(9)有兩個關(guān)系R和T 如下
R T
A B C A C
a 1 2 a 2
b 4 4 b 4
c 2 3 c 3
d 3 2 d 2
則由關(guān)系R得到關(guān)系T的操作是
(10)對圖書進行編目時，圖書有如下屬性：ISBN書號，書名，作者，出版社，出版日期。能作為關(guān)鍵字的是
(11)下列關(guān)于Visual Basic標準模塊的描述中，錯誤的是
(12)下列變量名中合法的是
(13)表達式 66 \ 8 mod 5 & "avg" 的值是
(14)下列能正確計算s=1+2+…… +100的程序段是
(15)設有如下程序：
Private Sub Form_Click()
a = 10: b = 20
x = a = b
Print x
End Sub
程序運行后，單擊窗體，輸出結(jié)果為
(16)在面向?qū)ο蟮某绦蛟O計中，對象可以執(zhí)行的操作和可被對象識別的動作分別被稱為
(17)下列說法中，錯誤的是
(18)設有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 10
i = i + j
j = j + 1
Next i
End Sub
程序運行后，單擊命令按鈕Command1，循環(huán)執(zhí)行的次數(shù)為
(19)設有如下程序：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = 1
For n = 1 To 5
m = m * n
If m > 15 Then
Exit For
Else
n = n + 1
End If
Next n
Print m; n
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(20)設有如下程序：
Private Sub Form_Click()
Dim a, k As Integer
Dim n As Integer, s As Integer
a = Array(1, 1, 1, 2, 2, 2)
For k = LBound(a) To UBound(a)
n = n + k
s = s + a(k)
Next
Print n; s
End Sub
程序運行后，如果單擊窗體，則在窗體上輸出的內(nèi)容為：
(21)窗體上有一個文本框，用于接收正整數(shù)。為保證輸入數(shù)據(jù)的合法性 (即正整數(shù))，可以在該數(shù)據(jù)輸入結(jié)束后準備繼續(xù)其他操作時進行數(shù)據(jù)的合法性檢查。為實現(xiàn)上述目的，應選用的事件是
(22)設有如下程序：
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer, n As Integer
n = 6
For i = 1 To n
a(i) = i * i
Next i
For i = 1 To n / 2
temp = a(i)
a(i) = a(n - i)
a(n - i) = temp
Next i
For i = 1 To n
Print a(i);
Next
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(23)工程中包含F(xiàn)orm1、Form2兩個窗體，F(xiàn)orm1是啟動窗體，兩個窗體上都有名稱為 Label1的標簽和名稱為Command1的命令按鈕，窗體外觀分別如圖1、圖2所示：
Form1的事件過程如下：
Private Sub Command1_Click()
Form2.Show
End Sub
Form2中的事件過程如下：
Private Sub Command1_Click()
Label1.Caption = Form1.Label1.Caption
End Sub
關(guān)于以下程序，下面敘述中錯誤的是
(24)窗體上有一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框。當改變目錄列表框的內(nèi)容時，文件列表框的內(nèi)容應該與之同步改變。為實現(xiàn)兩控件同步操作，應該使用的事件過程是
(25)列表框List1中沒有數(shù)據(jù)項，現(xiàn)編制如下程序：
Private Sub Command1_Click()
For i = 1 To 6
List1.AddItem i
Next i
For i = 5 To 3 Step -1
List1.RemoveItem i
Next i
End Sub
程序運行后，單擊命令按鈕Command1，則列表框List1中的數(shù)據(jù)項為
(26)一個工程文件中含有窗體Form1、Form2和標準模塊Model1。如果Form1的聲明部分有語句Private x As Integer，且Model1中有語句Public y As Integer，則下列說法中，正確的是
(27)下列關(guān)于文件及其操作的描述中，正確的是
(28)下列操作說明中，錯誤的是
(29)在窗體上畫一個名稱為CD1的通用對話框，并編寫如下程序：
Private Sub Command1_Click()
CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文檔(*.doc)|*.doc"
CD1.FilterIndex = 2
CD1.Action = 2
End Sub
運行程序，并單擊命令按鈕Command1，下面描述中正確的是
(30)下列關(guān)于Visual Basic菜單的敘述中，錯誤的是
(31)下列關(guān)于Sub Main過程的描述中，錯誤的是
(32)設有如下程序：
Private Sub Command1_Click()
Dim i As Integer
str1 = InputBox("輸入一個字符串")
str2 = ""
i = 0
Do While i < Len(str1) / 2
str2 = str2 + Mid(str1, i + 1, 1)
str2 = str2 + Mid(str1, Len(str1) - i, 1)
i = i + 1
Loop
Print str2
End Sub
程序運行后，單擊命令按鈕Command1，在彈出的輸入對話框中輸入“abcdef”，則輸出結(jié)果為
(33)命令按鈕Command1的單擊事件過程如下：
Private Sub Command1_Click()
Dim x As String
Dim y As String
x = InputBox("輸入字母", "輸入")
y = IIf((ucase9x) <> "A", "表達式1", "表達式2")
Print y
End Sub
運行程序，單擊命令按鈕，在彈出的輸入對話框中輸入“ a”，則以下描述中正確的是
(34)設有如下程序：
Sub proc(x() As Integer)
Static i As Integer
Do
x(i) = x(i) + x(i + 1)
i = i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer
For i = 0 To 4
a(i) = i + 1
Next i
Call proc(a)
Call proc(a)
For i = 0 To 4
Print a(i);
Next i
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(35)以下程序?qū)㈦S機產(chǎn)生n個兩位整數(shù)，并使用冒泡法將它們按遞增順序排序后輸出。
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
Randomize
n = InputBox("輸入數(shù)據(jù)個數(shù)")
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Next i
For i = 1 To n - 1
For j = 1 To n - i
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
End If
Next j
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
運行以上程序，發(fā)現(xiàn)有錯誤，需要對j循環(huán)的開始語句進行修改。以下正確的修改是
二、填空題。
(1)某二叉樹有5個度為2的結(jié)點，則該二叉樹中的葉子結(jié)點數(shù)為 。
(2)設一個隊列的初始狀態(tài)為空?，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，則元素退隊的順序為 。
(3)對模塊獨立性度量的兩個定性標準是耦合性與內(nèi)聚性。描述模塊間互相連接的緊密程度的是 。
(4)“軟件系統(tǒng)”的系統(tǒng)結(jié)構(gòu)圖如下圖所示：該系統(tǒng)的扇出數(shù)是 。
(5)數(shù)據(jù)庫設計包括概念設計、 和物理設計。
(6)設有如下程序：
Option Base 0
Private Sub Command1_Click()
Dim 或【arr】
Dim i As Integer
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 3
Print arr
Next
End Sub
當運行程序，并單擊命令按鈕后，窗體上顯示5 4 3 2。請?zhí)羁?，使程序能夠完成此項功能?BR> (7)在窗體上建立一個有4個元素、名稱為Label1的標簽數(shù)組，下標從0開始，各元素的Caption屬性值依次為“等”、“級”、“考”、“試”;再畫一個名稱為Timer1的計時器控件，其 Interval屬性設為1000.窗體如圖所示。
程序運行時，從左到右反復顯示這4個字，但每次只顯示1個。請?zhí)羁?，使程序?qū)崿F(xiàn)上述功能。
Dim i As Integer
Private Sub Form_Load()
For i = 0 To 3
Label1(i).Visible = False
Next
End Sub
Private Sub Timer1_Timer()
If i 3 Then
Label1(i).Visible = True
If i = 0 Then
Label1(3).Visible =
Else
Label1 .Visible = False
End If
i = i + 1
Else
i = 0
End If
End Sub
(8)窗體上有一個名稱為Combo1的組合框，其中已經(jīng)添加了若干項目。程序運行時，單擊Command1命令按鈕，會把選中的項目從組合框中刪除。請?zhí)羁铡?BR> Private Sub Command1_Click()
Dim str As String
Dim i As Integer
str = RTrim( .Text)
If str > "" Then
For i = 0 To
If Combo1.List(i) = str Then Combo1.RemoveItem
Next i
End If
End Sub
(9)設命令按鈕的單擊事件過程如下：
Private Sub Command1_Click()
Open "e:\file1.txt" For As #1
Print #1, "Testing"
Close #1
Open "e:\file1.txt" For Append As #1
#1, "ABCDEF"
Close #1
End Sub
程序的功能是：建立一個名稱為file1.txt的文件，寫入字符串“Testing”，關(guān)閉文件后再次打開，再寫入字符串“ABCDEF”。請?zhí)羁帐钩绦蛲暾?BR>
>>2013年3月全國計算機二級考試答案
一、單選題。
(1)下列數(shù)據(jù)結(jié)構(gòu)中，屬于非線性結(jié)構(gòu)的是
(2)在下列鏈表中，能夠從任意一個結(jié)點出發(fā)直接訪問到所有結(jié)點的是
(3)下列與棧結(jié)構(gòu)有關(guān)聯(lián)的是
(4)下面對軟件特點描述不正確的是
(5)下面屬于黑盒測試方法的是
(6)下面不屬于軟件設計階段任務的是
(7)數(shù)據(jù)庫管理系統(tǒng)是
(8)在E-R圖中，表示實體的圖元是
(9)有兩個關(guān)系R和T 如下
R T
A B C A C
a 1 2 a 2
b 4 4 b 4
c 2 3 c 3
d 3 2 d 2
則由關(guān)系R得到關(guān)系T的操作是
(10)對圖書進行編目時，圖書有如下屬性：ISBN書號，書名，作者，出版社，出版日期。能作為關(guān)鍵字的是
(11)下列關(guān)于Visual Basic標準模塊的描述中，錯誤的是
(12)下列變量名中合法的是
(13)表達式 66 \ 8 mod 5 & "avg" 的值是
(14)下列能正確計算s=1+2+…… +100的程序段是
(15)設有如下程序：
Private Sub Form_Click()
a = 10: b = 20
x = a = b
Print x
End Sub
程序運行后，單擊窗體，輸出結(jié)果為
(16)在面向?qū)ο蟮某绦蛟O計中，對象可以執(zhí)行的操作和可被對象識別的動作分別被稱為
(17)下列說法中，錯誤的是
(18)設有如下程序：
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 10
i = i + j
j = j + 1
Next i
End Sub
程序運行后，單擊命令按鈕Command1，循環(huán)執(zhí)行的次數(shù)為
(19)設有如下程序：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = 1
For n = 1 To 5
m = m * n
If m > 15 Then
Exit For
Else
n = n + 1
End If
Next n
Print m; n
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(20)設有如下程序：
Private Sub Form_Click()
Dim a, k As Integer
Dim n As Integer, s As Integer
a = Array(1, 1, 1, 2, 2, 2)
For k = LBound(a) To UBound(a)
n = n + k
s = s + a(k)
Next
Print n; s
End Sub
程序運行后，如果單擊窗體，則在窗體上輸出的內(nèi)容為：
(21)窗體上有一個文本框，用于接收正整數(shù)。為保證輸入數(shù)據(jù)的合法性 (即正整數(shù))，可以在該數(shù)據(jù)輸入結(jié)束后準備繼續(xù)其他操作時進行數(shù)據(jù)的合法性檢查。為實現(xiàn)上述目的，應選用的事件是
(22)設有如下程序：
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer, n As Integer
n = 6
For i = 1 To n
a(i) = i * i
Next i
For i = 1 To n / 2
temp = a(i)
a(i) = a(n - i)
a(n - i) = temp
Next i
For i = 1 To n
Print a(i);
Next
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(23)工程中包含F(xiàn)orm1、Form2兩個窗體，F(xiàn)orm1是啟動窗體，兩個窗體上都有名稱為 Label1的標簽和名稱為Command1的命令按鈕，窗體外觀分別如圖1、圖2所示：
Form1的事件過程如下：
Private Sub Command1_Click()
Form2.Show
End Sub
Form2中的事件過程如下：
Private Sub Command1_Click()
Label1.Caption = Form1.Label1.Caption
End Sub
關(guān)于以下程序，下面敘述中錯誤的是
(24)窗體上有一個名稱為Dir1的目錄列表框，一個名稱為File1的文件列表框。當改變目錄列表框的內(nèi)容時，文件列表框的內(nèi)容應該與之同步改變。為實現(xiàn)兩控件同步操作，應該使用的事件過程是
(25)列表框List1中沒有數(shù)據(jù)項，現(xiàn)編制如下程序：
Private Sub Command1_Click()
For i = 1 To 6
List1.AddItem i
Next i
For i = 5 To 3 Step -1
List1.RemoveItem i
Next i
End Sub
程序運行后，單擊命令按鈕Command1，則列表框List1中的數(shù)據(jù)項為
(26)一個工程文件中含有窗體Form1、Form2和標準模塊Model1。如果Form1的聲明部分有語句Private x As Integer，且Model1中有語句Public y As Integer，則下列說法中，正確的是
(27)下列關(guān)于文件及其操作的描述中，正確的是
(28)下列操作說明中，錯誤的是
(29)在窗體上畫一個名稱為CD1的通用對話框，并編寫如下程序：
Private Sub Command1_Click()
CD1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt|Word文檔(*.doc)|*.doc"
CD1.FilterIndex = 2
CD1.Action = 2
End Sub
運行程序，并單擊命令按鈕Command1，下面描述中正確的是
(30)下列關(guān)于Visual Basic菜單的敘述中，錯誤的是
(31)下列關(guān)于Sub Main過程的描述中，錯誤的是
(32)設有如下程序：
Private Sub Command1_Click()
Dim i As Integer
str1 = InputBox("輸入一個字符串")
str2 = ""
i = 0
Do While i < Len(str1) / 2
str2 = str2 + Mid(str1, i + 1, 1)
str2 = str2 + Mid(str1, Len(str1) - i, 1)
i = i + 1
Loop
Print str2
End Sub
程序運行后，單擊命令按鈕Command1，在彈出的輸入對話框中輸入“abcdef”，則輸出結(jié)果為
(33)命令按鈕Command1的單擊事件過程如下：
Private Sub Command1_Click()
Dim x As String
Dim y As String
x = InputBox("輸入字母", "輸入")
y = IIf((ucase9x) <> "A", "表達式1", "表達式2")
Print y
End Sub
運行程序，單擊命令按鈕，在彈出的輸入對話框中輸入“ a”，則以下描述中正確的是
(34)設有如下程序：
Sub proc(x() As Integer)
Static i As Integer
Do
x(i) = x(i) + x(i + 1)
i = i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click()
Dim a(5) As Integer, i As Integer
For i = 0 To 4
a(i) = i + 1
Next i
Call proc(a)
Call proc(a)
For i = 0 To 4
Print a(i);
Next i
End Sub
程序運行后，單擊命令按鈕Command1，輸出結(jié)果為
(35)以下程序?qū)㈦S機產(chǎn)生n個兩位整數(shù)，并使用冒泡法將它們按遞增順序排序后輸出。
Option Base 1
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer, j As Integer
Randomize
n = InputBox("輸入數(shù)據(jù)個數(shù)")
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd * 90) + 10
Next i
For i = 1 To n - 1
For j = 1 To n - i
If a(j) < a(j - 1) Then
temp = a(j): a(j) = a(j - 1): a(j - 1) = temp
End If
Next j
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
運行以上程序，發(fā)現(xiàn)有錯誤，需要對j循環(huán)的開始語句進行修改。以下正確的修改是
二、填空題。
(1)某二叉樹有5個度為2的結(jié)點，則該二叉樹中的葉子結(jié)點數(shù)為 。
(2)設一個隊列的初始狀態(tài)為空?，F(xiàn)將元素A,B,C,D,E,F,5,4,3,2,1依次入隊，然后再依次退隊，則元素退隊的順序為 。
(3)對模塊獨立性度量的兩個定性標準是耦合性與內(nèi)聚性。描述模塊間互相連接的緊密程度的是 。
(4)“軟件系統(tǒng)”的系統(tǒng)結(jié)構(gòu)圖如下圖所示：該系統(tǒng)的扇出數(shù)是 。
(5)數(shù)據(jù)庫設計包括概念設計、 和物理設計。
(6)設有如下程序：
Option Base 0
Private Sub Command1_Click()
Dim 或【arr】
Dim i As Integer
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 0 To 3
Print arr
Next
End Sub
當運行程序，并單擊命令按鈕后，窗體上顯示5 4 3 2。請?zhí)羁?，使程序能夠完成此項功能?BR> (7)在窗體上建立一個有4個元素、名稱為Label1的標簽數(shù)組，下標從0開始，各元素的Caption屬性值依次為“等”、“級”、“考”、“試”;再畫一個名稱為Timer1的計時器控件，其 Interval屬性設為1000.窗體如圖所示。
程序運行時，從左到右反復顯示這4個字，但每次只顯示1個。請?zhí)羁?，使程序?qū)崿F(xiàn)上述功能。
Dim i As Integer
Private Sub Form_Load()
For i = 0 To 3
Label1(i).Visible = False
Next
End Sub
Private Sub Timer1_Timer()
If i 3 Then
Label1(i).Visible = True
If i = 0 Then
Label1(3).Visible =
Else
Label1 .Visible = False
End If
i = i + 1
Else
i = 0
End If
End Sub
(8)窗體上有一個名稱為Combo1的組合框，其中已經(jīng)添加了若干項目。程序運行時，單擊Command1命令按鈕，會把選中的項目從組合框中刪除。請?zhí)羁铡?BR> Private Sub Command1_Click()
Dim str As String
Dim i As Integer
str = RTrim( .Text)
If str > "" Then
For i = 0 To
If Combo1.List(i) = str Then Combo1.RemoveItem
Next i
End If
End Sub
(9)設命令按鈕的單擊事件過程如下：
Private Sub Command1_Click()
Open "e:\file1.txt" For As #1
Print #1, "Testing"
Close #1
Open "e:\file1.txt" For Append As #1
#1, "ABCDEF"
Close #1
End Sub
程序的功能是：建立一個名稱為file1.txt的文件，寫入字符串“Testing”，關(guān)閉文件后再次打開，再寫入字符串“ABCDEF”。請?zhí)羁帐钩绦蛲暾?BR>