一 、選擇題
    (1) 數(shù)據(jù)結(jié)構(gòu)作為計(jì)算機(jī)的一門(mén)學(xué)科，主要研究數(shù)據(jù)的邏輯結(jié)構(gòu)、對(duì)各種數(shù)據(jù)結(jié)構(gòu)進(jìn)行的運(yùn)算，以及
    A．?dāng)?shù)據(jù)的存儲(chǔ)結(jié)構(gòu)
    B．計(jì)算方法
    C．?dāng)?shù)據(jù)映象
    D．邏輯存儲(chǔ)
    正確答案: A
    (2) 串的長(zhǎng)度是
    A．串中不同字符的個(gè)數(shù)
    B．串中不同字母的個(gè)數(shù)
    C．串中所含字符的個(gè)數(shù)且字符個(gè)數(shù)大于零
    D．串中所含字符的個(gè)數(shù)
    正確答案: D
    (3) 在計(jì)算機(jī)中，算法是指
    A．加工方法
    B．解題方案的準(zhǔn)確而完整的描述
    C．排序方法
    D．查詢方法
    正確答案: B
    (4) 以下不屬于對(duì)象的基本特點(diǎn)的是
    A．分類性
    B．多態(tài)性
    C．繼承性
    D．封裝性
    正確答案: C
    (5) 開(kāi)發(fā)軟件所需高成本和產(chǎn)品的低質(zhì)量之間有著尖銳的矛盾，這種現(xiàn)象稱作
    A．軟件投機(jī)
    B．軟件危機(jī)
    C．軟件工程
    D．軟件產(chǎn)生
    正確答案: B
    (6) 下面不屬于軟件設(shè)計(jì)原則的是
    A．抽象
    B．模塊化
    C．自底向上
    D．信息隱蔽
    正確答案: C
    (7) 開(kāi)發(fā)大型軟件時(shí)，產(chǎn)生困難的根本原因是
    A．大系統(tǒng)的復(fù)雜性
    B．人員知識(shí)不足
    C．客觀世界千變?nèi)f化
    D．時(shí)間緊、任務(wù)重
    正確答案: A
    (8) 下列SQL語(yǔ)句中，用于修改表結(jié)構(gòu)的是
    A．ALTER
    B．CREATE
    C．UPDATE
    D．INSERT
    正確答案: A
    (9) 數(shù)據(jù)庫(kù)、數(shù)據(jù)庫(kù)系統(tǒng)和數(shù)據(jù)庫(kù)管理系統(tǒng)之間的關(guān)系是
    A．?dāng)?shù)據(jù)庫(kù)包括數(shù)據(jù)庫(kù)系統(tǒng)和數(shù)據(jù)庫(kù)管理系統(tǒng)
    B．?dāng)?shù)據(jù)庫(kù)系統(tǒng)包括數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)管理系統(tǒng)
    C．?dāng)?shù)據(jù)庫(kù)管理系統(tǒng)包括數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)系統(tǒng)
    D．3者沒(méi)有明顯的包含關(guān)系
    正確答案: B
    (10) 關(guān)系模型允許定義3類數(shù)據(jù)約束，下列不屬于數(shù)據(jù)約束的是
    A．實(shí)體完整性約束
    B．參照完整性約束
    C．域完整性約束
    D．用戶自定義的完整性約束
    正確答案: C
    (11) 下列說(shuō)法錯(cuò)誤的是
    A．標(biāo)準(zhǔn)模塊也稱程序模塊文件，擴(kuò)展名是.bas
    B．標(biāo)準(zhǔn)模塊由程序代碼組成
    C．標(biāo)準(zhǔn)模塊只用來(lái)定義一些通用的過(guò)程
    D．標(biāo)準(zhǔn)模塊不附屬于任何一個(gè)窗體
    正確答案: C
    (12) 在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，打開(kāi)的窗口是
    A．工程資源管理器窗口
    B．工具箱窗口
    C．代碼窗口
    D．布局窗口
    正確答案: C
    (13) 下列說(shuō)法錯(cuò)誤的是
    A．Caption為只讀屬性，運(yùn)行時(shí)對(duì)象的名稱不能改變
    B．設(shè)置Height或Width的數(shù)值單位為twip，是1點(diǎn)的1/20
    C．Icon屬性用來(lái)設(shè)置窗體最小化時(shí)的圖標(biāo)
    D．用來(lái)激活屬性窗口的快捷鍵是F4鍵
    正確答案: A
    (14) 下列說(shuō)法不正確的是
    A．對(duì)象的操作由對(duì)象的屬性、事件和方法來(lái)描述
    B．Visual Basic是面向?qū)ο蟮某绦蛟O(shè)計(jì)，Visual Basic中只有窗體和控件兩種對(duì)象
    C．屬性是對(duì)象的特征，不同的對(duì)象有不同的屬性
    D．對(duì)象事件在代碼窗口中體現(xiàn)過(guò)程
    正確答案: B
    (15) 要使文件列表框中的文件隨目錄列表框中所選擇的當(dāng)前目錄的不同而發(fā)生變化，應(yīng)該
    A．在File1中的Change事件中，輸入File1.Path＝Dir1.Path
    B．在Dir1中的Change事件中，輸入File1.Path＝Dir1.Path
    C．在File1中的Change事件中，輸入Dir1.Path＝File1.Path
    D．在Dir1中的Change事件中，輸入Dir1.Path＝File1.Path
    正確答案: B
    (16) 下列日期型數(shù)據(jù)正確的是
    A．@January 10,1979@
    B．#January 10,1997#
    C．"January 10,1997"
    D．&January 10,1997&
    正確答案: B
    (17) 下面說(shuō)法不正確的是
    A．變量名的長(zhǎng)度不能超過(guò)255個(gè)字符
    B．變量名可以包含小數(shù)點(diǎn)或者內(nèi)嵌的類型聲明字符
    C．變量名不能使用關(guān)鍵字
    D．變量名的第一個(gè)字符必須是字母
    正確答案: B
    (18) 變量L的值為－8，則－L^2的值為
    A．64
    B．－64
    C．16
    D．－16
    正確答案: B
    (19) 下列程序段的執(zhí)行結(jié)果為
    X=2
    Y=5
    If X * Y < 1 Then Y=Y - 1 Else Y=-1
    Print Y - X > 0
    A．True
    B．False
    C．-1
    D．1
    正確答案: B
    (20) 在計(jì)時(shí)器控件中，Interval屬性的作用是
    A．決定是否響應(yīng)用戶的操作
    B．設(shè)置計(jì)時(shí)器事件之間的間隔
    C．存儲(chǔ)程序所需要的附加數(shù)據(jù)
    D．設(shè)置計(jì)時(shí)器頂端和其容器之間的距離
    正確答案: B
    (21) 使用語(yǔ)句Dim A(2) As Integer 聲明數(shù)組A之后，以下說(shuō)法正確的是
    A．A數(shù)組中的所有元素都為0
    B．A數(shù)組中的所有元素值不確定
    C．A數(shù)組中所有元素值都為Empty
    D．執(zhí)行Erase A后，A數(shù)組中所有元素值都不為0
    正確答案: A
    (22) 有如下事件過(guò)程，當(dāng)同時(shí)按下轉(zhuǎn)換鍵Shift和功能鍵F5時(shí)其最后輸出的信息是
    Const ShiftKey=1
    Const CtrlKey=2
    Const Key_F5=&H74
    Const Key_F6=&H75
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode=Key_F5 And Shift=ShiftKey Then
    Print "Press Shift+F5"
    ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
    Print "Press Ctrl+F6"
    End If
    End Sub
    A．無(wú)任何信息
    B．Press Shift+F5
    C．Press Ctrl+F6
    D．程序出錯(cuò)
    正確答案: B
    (23) 執(zhí)行下列程序后，鼠標(biāo)單擊窗體，輸出結(jié)果為 。
    Private Sub Form_Click()
    Print "Click";
    End Sub
    Private Sub Form_MouseDown(Button As Integer, Shift _
    As Integer, X As Single, Y As Single)
    Print "Donw"
    End Sub
    Private Sub Form_MouseUp(Button As Integer, Shift _
    As Integer, X As Single, Y As Single)
    Print " Up"
    End Sub
    A．DownUpClick
    B．ClickDownUp
    C．DownClickUp
    D．UpDownClick
    正確答案: A
    (24) 以下事件過(guò)程可以將打開(kāi)的對(duì)話框的標(biāo)題改為"新時(shí)代"的是
    A．Private Sub Command2_Click()
    CommonDialog1.DialogTitle= "新時(shí)代"
    CommonDialog1.ShowOpen
    End Sub
    B．Private Sub Command2_Click()
    CommonDialog1.DialogTitle= "新時(shí)代"
    CommonDialog1.ShowFont
    End Sub
    C．Private Sub Command2_Click()
    CommonDialog1.DialogTitle= "新時(shí)代"
    CommonDialog1.Show
    End Sub
    D．Private Sub Command2_Click()
    CommonDialog1.DialogTitle= "新時(shí)代"
    CommonDialog1.ShowColor
    End Sub
    正確答案: A
    (25) 如果要設(shè)計(jì)一個(gè)多窗體程序時(shí)，要設(shè)計(jì)一個(gè)封面窗體(名稱(Name) 為FormCover，標(biāo)題(Caption 為"多媒體演示") ，其內(nèi)部的各控件及其屬性見(jiàn)下表。
    控件 名稱(Name) 標(biāo)題(Caption)
    圖片框 Pic1
    命令按鈕1 Command1 "演示"
    命令按鈕2 Command2 "結(jié)束"
    則設(shè)計(jì)出的窗體可能是
    A．B．
    C．D．
    正確答案: A
    (26) 下列語(yǔ)句中，不能實(shí)現(xiàn)循環(huán)100次的是
    A．N=0
    Do
    N=N+1
    Loop Until N >=100
    B．N=0
    Do
    N=N+1
    Loop While n <100
    C．N=0
    N=N+1
    Do
    Loop Until N <100
    D．N=0
    Do While n <100
    N=N+1
    Loop
    正確答案: C
    (27) 單擊一次命令按鈕后，下列程序的執(zhí)行結(jié)果為
    Private Sub Command1_Click()
    Dim m As Integer, I As Integer, x(10) As Integer
    For I=0 To 4: x(I) =I + 1: Next I
    For I=1 To 2: Call Prioc(x) : Next I
    For I=0 To 3: Print x(I) ;: Next I
    End Sub
    Private Sub Prioc(a() As Integer)
    Static I As Integer
    Do
    a(I) =a(I) + a(I + 1)
    I=I + 1
    Loop While I < 2
    End Sub
    A．3 4 7 5
    B．3 5 7 4
    C．1 2 3 4
    D．1 2 3 5
    正確答案: B
    (28) 下面程序段的運(yùn)行結(jié)果是
    a=1
    b=1
    Do
    a=a + 1
    b=b + 1
    Loop Until b > 5
    Print "k="; a; Spc(4) ; "b="; b + a
    A．k＝7 b＝14
    B．k＝6 b＝6
    C．k＝4 b＝8
    D．k＝6 b＝12
    正確答案: D
    (29) 以下能夠正確計(jì)算n!的程序是
    A．Private Sub Command1_Click()
    n=5: x=1
    Do
    x=x * I
    I=I + 1
    Loop While I < n
    Print x
    End Sub
    B．Private Sub Command1_Click()
    n=5: x=1: I=1
    Do
    x=x * I
    I=I + 1
    Loop While I < n
    Print x
    End Sub
    C．Private Sub Command1_Click()
    n=5: x=1: I=1
    Do
    x=x * I
    I=I + 1
    Loop While I <=n
    Print x
    End Sub
    D．Private Sub Command1_Click()
    n=5: x=1: I=1
    Do
    x=x * I
    I=I + 1
    Loop While I > n
    Print x
    End Sub
    正確答案: C
    (30) 下列程序段，在運(yùn)行時(shí)最后輸出的內(nèi)容是
    a=2
    c=1
    AAA:
    c=c + a
    If c < 10 Then
    Print c
    GoTo AAA
    Else
    Print "10以內(nèi)的奇數(shù)顯示完畢"
    End If
    A．3
    B．7
    C．9
    D．10以內(nèi)的奇數(shù)顯示完畢
    正確答案: D
    (31) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
    Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer
    a=2: b=3: c=4
    Print P2(c, b, A．
    End Sub
    Private Function P1(x As Integer, y As Integer, z As Integer)
    P1=2 * x + y + 3 * z
    End Function
    Private Function P2(x As Integer, y As Integer, z As Integer)
    P2=P1(z, x, y) + x
    End Function
    A．21
    B．19
    C．17
    D．34
    正確答案: A
    (32) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是
    Private Sub Book(x As Integer)
    x=x * 2 + 1
    If x < 6 Then
    Call Book(x)
    End If
    x=x * 2 + 1
    Print x;
    End Sub
    Private Sub Command2_Click()
    Book 2
    End Sub
    A．23 47
    B．10 36
    C．22 44
    D．24 50
    正確答案: A
    (33) 有如下程序：
    Private Sub Command1_Click()
    Dim k As Integer, m As Integer
    Dim p As Integer
    k=4: m=1
    p=PC(k, m) : Print p;
    p=PC(k, m) : Print p
    End Sub
    Private Function PC(a As Integer, b As Integer)
    Static m As Integer, i As Integer
    m=0: i=2
    i=i + m + 1
    m=i + a + b
    PC=m
    End Function
    程序運(yùn)行后，輸出的結(jié)果為
    A．4 6
    B．6 6
    C．8 8
    D．10 12
    正確答案: C
    (34) 有如下程序：
    Private Sub Command1_Click()
    Dim a As Single
    Dim b As Single
    a=5: b=4
    Call S(a, B．
    End Sub
    Sub S(x As Single, y As Single)
    t=x
    x=t ＼ y
    y=t Mod y
    End Sub
    在調(diào)用運(yùn)行上述程序后，a和b的值分別為
    A．0 0
    B．1 1
    C．2 2
    D．1 2
    正確答案: B
    (35) 在窗體上畫(huà)一個(gè)命令按鈕，然后編寫(xiě)下列程序：
    Private Sub Command12_Click()
    Tt 3
    End Sub
    Sub Tt(a As Integer)
    Static x As Integer
    x=x * a + 1
    Print x;
    End Sub
    連續(xù)三次單擊命令按鈕，輸出的結(jié)果是
    A．1 5 8
    B．1 4 13
    C．3 7 4
    D．2 4 8
    正確答案: B
    二 、填空題
    (1) 長(zhǎng)度為n的順序存儲(chǔ)線性表中，當(dāng)在任何位置上插入一個(gè)元素概率都相等時(shí)，插入一個(gè)元素所需移動(dòng)元素的平均個(gè)數(shù)為 【1】 。
    正確答案: 1.(n/2)
    (2) 用樹(shù)結(jié)構(gòu)表示實(shí)體類型及實(shí)體間聯(lián)系的數(shù)據(jù)模型稱為 【2】 。
    正確答案: 1.(層次模型)
    (3) 類是一個(gè)支持集成的抽象數(shù)據(jù)類型，而對(duì)象是類的 【3】 。
    正確答案: 1.(實(shí)例)
    (4) 數(shù)據(jù)流圖的類型有 【4】 和事務(wù)型。
    正確答案: 1.(變換型)
    (5) 當(dāng)數(shù)據(jù)的物理結(jié)構(gòu)(存儲(chǔ)結(jié)構(gòu)、存取方式等) 改變時(shí)，不影響數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，從而不致引起應(yīng)用程序的變化，這是指數(shù)據(jù)的 【5】 。
    正確答案: 1.(物理獨(dú)立性)
    (6) 在修改列表框內(nèi)容時(shí)，RemoveItem方法的作用是 【6】 。
    正確答案: 1.(用來(lái)刪除列表中指定的項(xiàng)目)
    (7) 請(qǐng)?zhí)顚?xiě)下列空白，以實(shí)現(xiàn)運(yùn)行后形成一個(gè)主對(duì)角線上元素值為1，其他元素為0的6×6階矩陣。
    Private Sub Command1_Click()
     Dim s(6, 6)
     For i=1 To 6
     For j=1 To 6
     If i=j Then
     【7】
     Else
     【8】
     End If
     Print 【9】
     Next j
     Print
     Next i
    End Sub
    正確答案: 1.(s(i, j) = 1) 2.(s(i, j) = 0) 3.(s(i, j))
    (8) 以下過(guò)程的作用是將26個(gè)小寫(xiě)字母逆序打印出來(lái)，請(qǐng)補(bǔ)充完整。
    Sub Inverse()
     For i=122 To 【10】
     Print 【11】 ;
     Next i
    End Sub
    正確答案: 1.(97 Step -1) 2.(Chr＄(i))
    (9) 在窗體上加上一個(gè)文本控件PCSTextBox，畫(huà)一個(gè)命令按鈕，當(dāng)單擊命令按鈕的時(shí)候?qū)@示"打開(kāi)文件"對(duì)話框，設(shè)置該對(duì)話框只用于打開(kāi)文本文件，然后在文本控件中顯示打開(kāi)的文件名。請(qǐng)?zhí)羁铡?BR>    Private Sub Command1_Click()
     CommonDialog1.Filter= 【12】
     CommonDialog1.ShowOpen
     PCSTextBox.Text= 【13】
    End Sub
    正確答案: 1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)
    (10) 隨機(jī)文件使用Put語(yǔ)句寫(xiě)數(shù)據(jù)，使用 【14】 語(yǔ)句讀數(shù)據(jù)。
    正確答案: 1.(Get)
    (11) 下列程序的功能是：將數(shù)據(jù)1，2，…，8寫(xiě)入順序文件Num.txt中，請(qǐng)補(bǔ)充完整。
    Private Sub Form_Click()
     Dim i As Integer
     Open "Num.txt"For Output As #1
     For i=1 To 8
     【15】
     Next i
     Close #1
    End Sub
    正確答案: 1.(Print #1, i)