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