2007年9月計算機(jī)二級VB模擬試題(9)及答案

字號:

一 、選擇題
    (1) 下列敘述中正確的是
    A.線性表是線性結(jié)構(gòu)
    B.棧與隊列是非線性結(jié)構(gòu)
    C.線性鏈表是非線性結(jié)構(gòu)
    D.二叉樹是線性結(jié)構(gòu)
    正確答案: A
    (2) 非空的循環(huán)單鏈表head的尾結(jié)點(由p所指向) ,滿足
    A.p->next==NULL
    B.p==NULL
    C.p->next=head
    D.p=head
    正確答案: C
    (3) 已知數(shù)據(jù)表A中每個元素距其最終位置不遠(yuǎn),為節(jié)省時間,應(yīng)采用的算法是
    A.堆排序
    B.直接插入排序
    C.快速排序
    D.直接選擇排序
    正確答案: B
    (4) 對建立良好的程序設(shè)計風(fēng)格,下面描述正確的是
    A.程序應(yīng)簡單、清晰、可讀性好
    B.符號名的命名只要符合語法
    C.充分考慮程序的執(zhí)行效率
    D.程序的注釋可有可無
    正確答案: A
    (5) 下列不屬于結(jié)構(gòu)化分析的常用工具的是
    A.?dāng)?shù)據(jù)流圖
    B.?dāng)?shù)據(jù)字典
    C.判定樹
    D.PAD圖
    正確答案: A
    (6) 在軟件生產(chǎn)過程中,需求信息的給出是
    A.程序員
    B.項目管理者
    C.軟件分析設(shè)計人員
    D.軟件用戶
    正確答案: D
    (7) 下列工具中為需求分析常用工具的是
    A.PAD
    B.PFD
    C.N-S
    D.DFD
    正確答案: D
    (8) NULL是指
    A.0
    B.空格
    C.未知的值或無任何值
    D.空字符串
    正確答案: C
    (9) 數(shù)據(jù)庫的故障恢復(fù)一般是由
    A.?dāng)?shù)據(jù)流圖完成的
    B.?dāng)?shù)據(jù)字典完成的
    C.DBA完成的
    D.PAD圖完成的
    正確答案: C
    (10) 下列說法中,不屬于數(shù)據(jù)模型所描述的內(nèi)容的是
    A.?dāng)?shù)據(jù)結(jié)構(gòu)
    B.?dāng)?shù)據(jù)操作
    C.?dāng)?shù)據(jù)查詢
    D.?dāng)?shù)據(jù)約束
    正確答案: C (11) Visual Basic程序設(shè)計采用的編程機(jī)制是
    A.可視化
    B.面向?qū)ο?BR>    C.事件驅(qū)動
    D.過程結(jié)構(gòu)化
    正確答案: C
    (12) Visual Basic 6.0分為3種版本,不屬于這3種版本的是
    A.學(xué)習(xí)版
    B.專業(yè)版
    C.企業(yè)版
    D.業(yè)余版
    正確答案: D
    (13) 確定窗體控件啟動位置的屬性是
    A.Width和Height
    B.Width或Height
    C.StartUpPositon
    D.Top和Left
    正確答案: C
    (14) 新建一個窗體,其BorderStyle屬性設(shè)置為Fixed Single,但運行時卻沒有化和最小化按鈕,可能的原因是
    A.BorderStyle的值設(shè)為Fixed.Single,此項設(shè)置值的作用即禁止化和最小化按鈕
    B.窗體的MaxButton和MinButton值設(shè)為False
    C.正常情況下新建的窗體都沒有化和最小化按鈕
    D.該窗體可用鼠標(biāo)拖動邊框的方法改變窗體的大小
    正確答案: B
    (15) 新建一個列表框,要實現(xiàn)對列表項可以復(fù)選,應(yīng)設(shè)置的屬性是
    A.ScrollBars
    B.MultiSelect
    C.DataField
    D.Stretch
    正確答案: B
    (16) 下列敘述中,正確的是
    A.控件數(shù)組的每一個成員的Caption屬性值都必須相同
    B.控件數(shù)組的每一個成員的Index屬性值都必須不相同
    C.控件數(shù)組的每一個成員都執(zhí)行不同的事件過程
    D.對已經(jīng)建立的多個類型相同的控件,這些控件不能組成控件數(shù)組
    正確答案: B
    (17) 可以在常量的后面加上類型說明符以顯示常量的類型,可以表示整型常量的是
    A.%
    B.#
    C.!
    D.$
    正確答案: A
    (18) 在Visual Basic中,下列兩個變量名相同的是
    A.Japan和Ja_pan
    B.English和ENGLish
    C.English和Engl
    D.China和Chin
    正確答案: B
    (19) 表達(dá)式(7 \ 2 + 1) * (8 \ 2 + 2) 的值為
    A.4.58
    B.5.69
    C.24
    D.22
    正確答案: C
    (20) 表達(dá)式x=Sqr(a^2-5) +sqr(b^2-5) 的類型是
    A.算術(shù)表達(dá)式
    B.邏輯表達(dá)式
    C.關(guān)系表達(dá)式
    D.字符表達(dá)式
    正確答案: C
    (21) 與List1.Text屬性值相同的是
    A.List1.ListCount
    B.List1.List(ListCount-1)
    C.List1.ListIndex
    D.List1.List(List.ListIndex)
    正確答案: D
    (22) 當(dāng)把框架的何屬性設(shè)置為False時,其標(biāo)題會變灰,框架中所有的對象均被屏蔽?
    A.Name
    B.Enabled
    C.Caption
    D.Visible
    正確答案: B
    (23) 設(shè)執(zhí)行以下程序段時依次輸入2,4,6,執(zhí)行結(jié)果為
    Dim a(4) As Integer
    Dim b(4) As Integer
    For k=0 To 2
    a(k + 1) =Val(InputBox( "Enter data:") )
    b(3 - k) =a(k + 1)
    Next k
    Print b(k)
    A.2
    B.4
    C.6
    D.0
    正確答案: A
    (24) 編寫如下事件過程:
    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
    If Shift=6 And Button=2 Then
    Print "PC"
    End If
    End Sub
    程序運行后,為了在窗體上輸出"PC",應(yīng)執(zhí)行的操作為
    A.同時按下Shift鍵和鼠標(biāo)左鍵
    B.同時按下Ctrl,Alt鍵和鼠標(biāo)右鍵
    C.同時按下Shift鍵和鼠標(biāo)右鍵
    D.同時按下Ctrl,Alt鍵和鼠標(biāo)左鍵
    正確答案: B
    (25) 如果在窗體上添加一個通用對話框控件DBT,那么語句"DBT.Action=4"的作用是
    A.顯示"打開文件" 對話框
    B.顯示"保存文件"對話框
    C.顯示"字體"對話框
    D.顯示"打印"對話框
    正確答案: C
    (26) 下列說明中,不屬于隨機(jī)文件特點的是
    A.可以隨意讀取隨機(jī)文件中任一記錄的數(shù)據(jù)
    B.隨機(jī)文件沒有只讀或只寫的操作方式,隨機(jī)文件只要一打開,就既可讀又可寫
    C.隨機(jī)文件的操作是以記錄為單位進(jìn)行的
    D.隨機(jī)文件的讀、寫操作語句與順序文件的讀寫操作語句一樣
    正確答案: D
    (27) 執(zhí)行下面的程序后,輸出的結(jié)果是
    x=1
    For j=1 To 4
    x=x - 1: y=0
    For k=1 To 4
    x=x + 1: y=y + 1
    Next k
    Next j
    Print x; y
    A.1 4
    B.13 4
    C.12 8
    D.20 6
    正確答案: B
    (28) 有如下程序段,該程序段執(zhí)行完后,執(zhí)行循環(huán)的次數(shù)是
    total=0
    Counter=1
    Do
    Print Counter
    total=total + Counter
    Print total
    Counter=Counter + 1
    If total > 10 Then
    Exit Do
    End If
    Loop While Counter <=10
    A.5
    B.10
    C.15
    D.20
    正確答案: A
    (29) 在窗體上畫一個命令按鈕,然后編寫如下事件過程:
    Private Sub Command _Click()
    s=0
    Do
    s=(s + 1)  (s + 2)
    Number=Number + 1
    Loop Until s >=30
    Print Number, s
    End Sub
    程序運行后,輸出的結(jié)果是
    A.2 3
    B.3 182
    C.5 12
    D.10 20
    正確答案: B
    (30) 有如下程序:
    Private Sub Command1_Click()
    a$= "A WORKER IS HERE"
    x=Len(a$)
    For i=1 To x - 1
    b$=Mid$(a$, i, 3)
    If b$= "WOR" Then S=S + 1
    Next
    Print S
    End Sub
    單擊命令按鈕,程序運行結(jié)果為
    A.1
    B.2
    C.3
    D.5
    正確答案: A
    (31) 單擊命令按鈕時,下列程序的執(zhí)行結(jié)果是
    Private Sub Command1_Click()
    BT 4
    End Sub
    Private Sub BT(x As Integer)
    x=x * 2 + 1
    If x < 6 Then
    Call BT(x)
    End If
    x=x * 2
    Print x;
    End Sub
    A.15
    B.16
    C.17
    D.18
    正確答案: D
    (32) 單擊窗體時,下列程序的執(zhí)行結(jié)果是
    Private Sub Invert(ByVal xstr As String, ystr As String)
    Dim tempstr As String
    Dim I As Integer
    I=Len(xstr)
    Do While I >=1
    tempstr=tempstr + Mid(xstr, I, 1)
    I=I - 1
    Loop
    ystr=tempstr
    End Sub
    Private Sub Form_Click()
    Dim s1 As String, s2 As String
    s1= "abcdef"
    Invert s1, s2
    Print s2
    End Sub
    A.a(chǎn)bcdef
    B.a(chǎn)fbecd
    C.fedcba
    D.defabc
    正確答案: C
    (33) 在窗體上畫一個命令按鈕,然后編寫下列程序:
    Private Sub Command1_Click()
    Dim a As Single, b As Single
    a=6: b=2
    RC a, b
    Print a, b
    End Sub
    Sub RC(x As Single, y As Single)
    i=x
    x=i / y
    y=i Mod y
    End Sub
    A.4 3
    B.1 1
    C.3 0
    D.2 6
    正確答案: C
    (34) 有如下事件過程:
    Private Sub Command1_Click()
    Dim m As Integer, n As Integer
    m=2: n=1
    Print "m="; m; "n="; n
    Call TOD(m, n)
    Print "m="; m; "n="; n
    End Sub
    Sub TOD(x, y)
    x=x ^ 2
    y=y ^ 3
    End Sub
    程序運行后,輸出的結(jié)果為
    A.m=2,n=1
    m=1,n=2
    B.m=2,n=1
    m=4,n=1
    C.m=1,n=2
    m=1,n=4
    D.m=1,n=2
    m=2,n=4
    考生答案: 正確答案: B
    (35) 有如下事件過程:
    Private Sub Command1_Click()
    Dim i As Integer
    For i=1 To 2
    DC
    Next i
    End Sub
    Sub DC()
    Dim x As Integer, m As String
    Static y, n
    x=x + 1
    y=y + 1
    m=m &"*": n=n & "#"
    Print x, y, m, n
    End Sub
    程序運行后,輸出的結(jié)果是
    A.1 1 * #
    1 1 * #
    B.1 1 * #
    1 2 * #
    C.1 1 * #
    1 1 * ##
    D.1 1 * #
    1 2 * ##
    正確答案: D
    二 、填空題
    (1) 冒泡排序算法在的情況下的元素交換次數(shù)為 【1】 。
    正確答案: 1.(0)
    (2) 在最壞情況下,堆排序需要比較的次數(shù)為 【2】 。
    正確答案: 1.(O(nlog2n))
    (3) 若串s="MathTypes",則其子串的數(shù)目是 【3】 。
    正確答案: 1.(46)
    (4) 軟件開發(fā)環(huán)境是全面支持軟件開發(fā)全過程的 【4】 集合。
    正確答案: 1.(軟件工具)
    (5) 關(guān)系數(shù)據(jù)庫的關(guān)系演算語言是以 【5】 為基礎(chǔ)的DML語言。
    正確答案: 1.(謂詞演算)
    (6) 下列語句的輸出結(jié)果是 【6】 。Print Format$(1258.6, "000,000.00")
    正確答案: 1.(001,258.60)
    (7) 關(guān)系式x≤-5或x≥5所對應(yīng)的布爾表達(dá)式是 【7】 。
    正確答案: 1.(x<=-5 Or x>=5)
    (8) 對隨機(jī)文件數(shù)據(jù)存取是以 【8】 為單位進(jìn)行操作的。
    正確答案: 1.(一個記錄)
    (9) 在窗體上有一個名稱為Label1的標(biāo)簽和一個名稱List1的列表框。程序運行后,在列表框中添加若干列表項。當(dāng)雙擊列表框中的某個項目時,在標(biāo)簽Labe1中顯示所選中的項目,如圖所示。請在空白處填入適當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。
    Private Sub Form_Load()
     List1.AddItem "北京"
     List1.AddItem "上海"
     List1.AddItem "河北"
    End Sub
    Private Sub List1 【9】 ()
     Labe1.Caption= 【10】
    End Sub
    正確答案: 1.(DblClick) 2.(List1.Text)
    (10) 執(zhí)行語句Open "TC.dat" For Random As #1 Len=50后,對文件TC.dat中的數(shù)據(jù)能執(zhí)行的操作是 【11】 。
    正確答案: 1.(既可以讀,也可以寫)
     (11) 下面程序的功能是統(tǒng)計字符串中"i"的個數(shù),請?zhí)羁铡?BR>    Sub COU()
     a$="Beijing University of Technology"
     Dim n As Integer
     n=Len(a$)
     For i=1 To n
     b$= 【12】
     If 【13】 Then x=x + 1
     Next i
     Print "x="; x
    End Sub
    正確答案: 1.(Mid$(a$, i, 1) ) 2.(b$ = "i")
    (12) 下列事件過程的功能是:建立一個名為Datal的隨機(jī)文件,存放角度值及這些角度的正弦函數(shù)值和余弦函數(shù)值,角度為1,2,3,…,90。請在空白處填入適當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。
    Private Type Ang
     K As Integer
     Sinx As Single
     Cosx As Single
    End Type
    Dim Ksc As Ang
    Private Sub Form_Click()
     Dim Y As Single
     Open 【14】
     Y=3.14159 / 180
     For I=1 To 90
     Ksc.K=I
     Ksc.Sinx=Sin(I * Y)
     Ksc.Cosx=Cos(I * Y)
     【15】
     Next I
     Close #2
    End Sub
    正確答案: 1.("c:\Data1.txt" For Random As #2 Len = 10) 2.(Put #2, I)