一 、選擇題
(1) 棧和隊列的共同特點是
A．都是先進先出
B．都是先進后出
C．只允許在端點處插入和刪除元素
D．沒有共同點
正確答案: C
(2) 已知二叉樹后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是
A．a(chǎn)cbed
B．decab
C．deabc
D．cedba
正確答案: D
(3) 鏈表不具有的特點是
A．不必事先估計存儲空間
B．可隨機訪問任一元素
C．插入刪除不需要移動元素
D．所需空間與線性表長度成正比
正確答案: B
(4) 結構化程序設計的3種結構是
A．順序結構、選擇結構、轉移結構
B．分支結構、等價結構、循環(huán)結構
C．多分支結構、賦值結構、等價結構
D．順序結構、選擇結構、循環(huán)結構
正確答案: D
(5) 為了提高測試的效率，應該
A．隨機選取測試數(shù)據(jù)
B．取一切可能的輸入數(shù)據(jù)作為測試數(shù)據(jù)
C．在完成編碼以后制定軟件的測試計劃
D．集中對付那些錯誤群集的程序
正確答案: D
(6) 算法的時間復雜度是指
A．執(zhí)行算法程序所需要的時間
B．算法程序的長度
C．算法執(zhí)行過程中所需要的基本運算次數(shù)
D．算法程序中的指令條數(shù)
正確答案: C
(7) 軟件生命周期中所花費用最多的階段是
A．詳細設計
B．軟件編碼
C．軟件測試
D．軟件維護
正確答案: D
(8) 數(shù)據(jù)庫管理系統(tǒng)DBMS中用來定義模式、內(nèi)模式和外模式的語言為
A．C
B．Basic
C．DDL
D．DML
正確答案: C
(9) 下列有關數(shù)據(jù)庫的描述，正確的是
A．數(shù)據(jù)庫是一個DBF文件
B．數(shù)據(jù)庫是一個關系
C．數(shù)據(jù)庫是一個結構化的數(shù)據(jù)集合
D．數(shù)據(jù)庫是一組文件
正確答案: C
(10) 下列有關數(shù)據(jù)庫的描述，正確的是
A．數(shù)據(jù)處理是將信息轉化為數(shù)據(jù)的過程
B．數(shù)據(jù)的物理獨立性是指當數(shù)據(jù)的邏輯結構改變時，數(shù)據(jù)的存儲結構不變
C．關系中的每一列稱為元組，一個元組就是一個字段
D．如果一個關系中的屬性或屬性組并非該關系的關鍵字，但它是另一個關系的關鍵字，則稱其為本關系的外關鍵字
正確答案: D
(11) 關于Visual Basic"方法"的概念錯誤的是
A．方法是對象的一部分
B．方法是預先定義好的操作
C．方法是對事件的響應
D．方法用于完成某些特定的功能
正確答案: C
(12) 下列說法有錯誤的是
A．默認情況下，屬性Visible的值為False
B．如果設置控件的Visible屬性為False，則運行時控件會隱藏
C．Visible的值可設為True或者False
D．設置Visible屬性同設置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)
正確答案: D
(13) 下列各控件不包含滾動條的控件是
A．ListBox
B．ComboBox
C．TextBox
D．LabelBox
正確答案: D
(14) 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則應使用的語句是
A．Redim a As Integer
B．Static a As Integer
C．Public a As Integer
D．Dim a As Integer
正確答案: B
(15) 聲明一個變量為局部變量應該用
A．Global
B．Private
C．Static
D．Public
正確答案: C
(16) 執(zhí)行x$=InputBox("請輸入x的值") 時，在彈出的對話框中輸入123，在列表框List1選中1個列表項(數(shù)據(jù)為456) ，使有的值使123456的語句是
A．y=x$+List1.List(0)
B．y=x$+List1.List(1)
C．y=Val(x$) +Val(List1.List(0) )
D．y=Val(x$) & Val(List1.List(1) )
正確答案: A
(17) 以下各項中，Visual Basic不能接收的圖形文件是
A．ico文件
B．jpg文件
C．psd文件
D．bmp文件
正確答案: C
(18) 下面的屬性中，用于自動調(diào)整圖像框中圖形內(nèi)容的大小的是
A．Picture
B．CurentY
C．CurrentX
D．Stretch
正確答案: D
(19) 下面有關注釋語句的格式，錯誤的是
A．Rem注釋內(nèi)容
B．注釋內(nèi)容
C．a(chǎn)=3:b=2 ′對a、b賦值
D．Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠標按下事件的命令調(diào)用過程 X As Single ,Y As Single)
正確答案: D
(20) 只有將組合框的Style屬性設置為何值時，才能觸發(fā)DblClick事件？
A．0
B．1
C．2
D．3
正確答案: B
(21) 以下屬于Visual Basic合法的數(shù)組元素是
A．x8
B．x［8］
C．s(0)
D．v［8］
正確答案: C
(22) 編寫如下兩個事件過程：
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情況下(即不按住Shift鍵和鎖定大寫鍵時) 運行程序，如果按"A"鍵，則程序輸出的結果是
A．A
a
B．a(chǎn)
A
C．A
A
D．a(chǎn)
a
正確答案: C
(23) 要使菜單項MenuOne在程序運行時失效，使用的語句是
A．MenuOne.Visible=True
B．MenuOne.Visible=False
C．MenuOne.Enabled=True
D．MenuOne.Enabled=False
正確答案: D
(24) 在窗體上建立通用對話框需要添加的控件是
A．Data控件
B．From控件
C．CommonDialog控件
D．VBComboBox控件
正確答案: C
(25) 在Visual Basic中，要將一個窗體加載到內(nèi)存進行預處理但不顯示，應使用的語句是
A．Load
B．Show
C．Hide
D．Unload
正確答案: A
(26) 運行下列程序段后，顯示的結果為
J1=23
J2=32
If J1
A．23
B．32
C．55
D．2332
正確答案: B
(27) 下列語句正確的是
A．If A≠B Then Print "A不等于B"
B．If A<>B Then Printf "A不等于B"
C．If A<>B Then Print "A不等于B"
D．If A≠B Print "A不等于B"
正確答案: C
(28) 下面語句正確的是
A．If x<3y And x>y Then y=x^3
B．If x<3y And x>y Then y=3x
C．If x<3y:x>y Then y=x^3
D．If x<3y And x>y Then y=x* *3
正確答案: A
(29) 計算z的值，當x大于y時，z=x；否則z=y。下列語句錯誤的是
A．If x>=y Then z=x : z=y
B．If x>=y Then z=x Else z=y
C．z=y : If x>=y Then z=x
D．If x<=y Then z=y Else z=x
正確答案: A
(30) 下列程序段執(zhí)行結果為
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A．-3 3
B．5 -9
C．3 -3
D．-6 5
正確答案: A
(31) 不能脫離控件(包括客體) 而獨立存在的過程是
A．事件過程
B．通用過程
C．Sub過程
D．函數(shù)過程
正確答案: A
(32) Sub過程與Function過程最根本的區(qū)別是
A．Sub過程可以用Call語句直接使用過程名調(diào)用，而Function過程不可以
B．Function過程可以有形參，Sub過程不可以
C．Sub過程不能返回值，而Function過程能返回值
D．兩種過程參數(shù)的傳遞方式不同
正確答案: C
(33) 單擊命令按鈕時，下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12:y=32
Call Proc(x,y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A．1232
B．232
C．23
D．123
正確答案: B
(34) 單擊命令按鈕時，下列程序的執(zhí)行結果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3
b=4
c=5
Print SecProc(c, b, A．
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
End Function
A．20
B．22
C．28
D．30
正確答案: C
(35) 下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim FirStr As String
FirSt= "abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr= ""
strLen=Len(xStr)
i=1
Do While i <=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A．a(chǎn)bcdef
B．a(chǎn)fbecd
C．fedcba
D．defabc
正確答案: B
二 、填空題
(1) 算法的基本特征是可行性、確定性、 【1】 和擁有足夠的情報。
正確答案: 1.(有窮性)
(2) 在長度為n的有序線性表中進行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。
正確答案: 1.(log2n)
(3) 在面向對象的程序設計中，類描述的是具有相似性質的一組 【3】 。
正確答案: 1.(對象)
(4) 通常，將軟件產(chǎn)品從提出、實現(xiàn)、使用維護到停止使用退役的過程稱為 【4】 。
正確答案: 1.(軟件生命周期)
(5) 數(shù)據(jù)庫管理系統(tǒng)常見的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。
正確答案: 1.(關系模型)
(6) Visual Basic對象可以分為兩類，分別為 【6】 和 【7】 。
正確答案: 1.(預定義對象) 2.(用戶定義對象)
(7) 完成下面的程序，使顯示結果如下圖所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【8】 "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
正確答案: 1.(Welcome to Beijing !) 2.(Print)
(8) 下列程序的功能是：當x<50時，y=0.8×x；當50≤x≤100時，y=0.7×x；當x>100時，沒有意義。請?zhí)羁铡?BR> Private Sub Command1_Click()
Dim x As Single
x=InputBox("請輸入x的值！")
【10】
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【11】
Print "輸入的數(shù)據(jù)出界！"
End Select
Print x, y
End Sub
正確答案: 1.(Select Case x) 2.(Case Else)
(9) 改變驅動器列表框的Drive屬性值將引發(fā) 【12】 事件。
正確答案: 1.(Change)
(10) 下面程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。
首先在窗體層定義如下變量：
Dim PaintStart As Boolean
編寫如下事件過程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【13】
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】
End Sub
Private Sub Form_DblClick()
【15】
End Sub
正確答案: 1.(PaintStart = True) 2.(PaintStart = False) 3.(Cls)
(1) 棧和隊列的共同特點是
A．都是先進先出
B．都是先進后出
C．只允許在端點處插入和刪除元素
D．沒有共同點
正確答案: C
(2) 已知二叉樹后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是
A．a(chǎn)cbed
B．decab
C．deabc
D．cedba
正確答案: D
(3) 鏈表不具有的特點是
A．不必事先估計存儲空間
B．可隨機訪問任一元素
C．插入刪除不需要移動元素
D．所需空間與線性表長度成正比
正確答案: B
(4) 結構化程序設計的3種結構是
A．順序結構、選擇結構、轉移結構
B．分支結構、等價結構、循環(huán)結構
C．多分支結構、賦值結構、等價結構
D．順序結構、選擇結構、循環(huán)結構
正確答案: D
(5) 為了提高測試的效率，應該
A．隨機選取測試數(shù)據(jù)
B．取一切可能的輸入數(shù)據(jù)作為測試數(shù)據(jù)
C．在完成編碼以后制定軟件的測試計劃
D．集中對付那些錯誤群集的程序
正確答案: D
(6) 算法的時間復雜度是指
A．執(zhí)行算法程序所需要的時間
B．算法程序的長度
C．算法執(zhí)行過程中所需要的基本運算次數(shù)
D．算法程序中的指令條數(shù)
正確答案: C
(7) 軟件生命周期中所花費用最多的階段是
A．詳細設計
B．軟件編碼
C．軟件測試
D．軟件維護
正確答案: D
(8) 數(shù)據(jù)庫管理系統(tǒng)DBMS中用來定義模式、內(nèi)模式和外模式的語言為
A．C
B．Basic
C．DDL
D．DML
正確答案: C
(9) 下列有關數(shù)據(jù)庫的描述，正確的是
A．數(shù)據(jù)庫是一個DBF文件
B．數(shù)據(jù)庫是一個關系
C．數(shù)據(jù)庫是一個結構化的數(shù)據(jù)集合
D．數(shù)據(jù)庫是一組文件
正確答案: C
(10) 下列有關數(shù)據(jù)庫的描述，正確的是
A．數(shù)據(jù)處理是將信息轉化為數(shù)據(jù)的過程
B．數(shù)據(jù)的物理獨立性是指當數(shù)據(jù)的邏輯結構改變時，數(shù)據(jù)的存儲結構不變
C．關系中的每一列稱為元組，一個元組就是一個字段
D．如果一個關系中的屬性或屬性組并非該關系的關鍵字，但它是另一個關系的關鍵字，則稱其為本關系的外關鍵字
正確答案: D
(11) 關于Visual Basic"方法"的概念錯誤的是
A．方法是對象的一部分
B．方法是預先定義好的操作
C．方法是對事件的響應
D．方法用于完成某些特定的功能
正確答案: C
(12) 下列說法有錯誤的是
A．默認情況下，屬性Visible的值為False
B．如果設置控件的Visible屬性為False，則運行時控件會隱藏
C．Visible的值可設為True或者False
D．設置Visible屬性同設置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)
正確答案: D
(13) 下列各控件不包含滾動條的控件是
A．ListBox
B．ComboBox
C．TextBox
D．LabelBox
正確答案: D
(14) 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則應使用的語句是
A．Redim a As Integer
B．Static a As Integer
C．Public a As Integer
D．Dim a As Integer
正確答案: B
(15) 聲明一個變量為局部變量應該用
A．Global
B．Private
C．Static
D．Public
正確答案: C
(16) 執(zhí)行x$=InputBox("請輸入x的值") 時，在彈出的對話框中輸入123，在列表框List1選中1個列表項(數(shù)據(jù)為456) ，使有的值使123456的語句是
A．y=x$+List1.List(0)
B．y=x$+List1.List(1)
C．y=Val(x$) +Val(List1.List(0) )
D．y=Val(x$) & Val(List1.List(1) )
正確答案: A
(17) 以下各項中，Visual Basic不能接收的圖形文件是
A．ico文件
B．jpg文件
C．psd文件
D．bmp文件
正確答案: C
(18) 下面的屬性中，用于自動調(diào)整圖像框中圖形內(nèi)容的大小的是
A．Picture
B．CurentY
C．CurrentX
D．Stretch
正確答案: D
(19) 下面有關注釋語句的格式，錯誤的是
A．Rem注釋內(nèi)容
B．注釋內(nèi)容
C．a(chǎn)=3:b=2 ′對a、b賦值
D．Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠標按下事件的命令調(diào)用過程 X As Single ,Y As Single)
正確答案: D
(20) 只有將組合框的Style屬性設置為何值時，才能觸發(fā)DblClick事件？
A．0
B．1
C．2
D．3
正確答案: B
(21) 以下屬于Visual Basic合法的數(shù)組元素是
A．x8
B．x［8］
C．s(0)
D．v［8］
正確答案: C
(22) 編寫如下兩個事件過程：
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情況下(即不按住Shift鍵和鎖定大寫鍵時) 運行程序，如果按"A"鍵，則程序輸出的結果是
A．A
a
B．a(chǎn)
A
C．A
A
D．a(chǎn)
a
正確答案: C
(23) 要使菜單項MenuOne在程序運行時失效，使用的語句是
A．MenuOne.Visible=True
B．MenuOne.Visible=False
C．MenuOne.Enabled=True
D．MenuOne.Enabled=False
正確答案: D
(24) 在窗體上建立通用對話框需要添加的控件是
A．Data控件
B．From控件
C．CommonDialog控件
D．VBComboBox控件
正確答案: C
(25) 在Visual Basic中，要將一個窗體加載到內(nèi)存進行預處理但不顯示，應使用的語句是
A．Load
B．Show
C．Hide
D．Unload
正確答案: A
(26) 運行下列程序段后，顯示的結果為
J1=23
J2=32
If J1
A．23
B．32
C．55
D．2332
正確答案: B
(27) 下列語句正確的是
A．If A≠B Then Print "A不等于B"
B．If A<>B Then Printf "A不等于B"
C．If A<>B Then Print "A不等于B"
D．If A≠B Print "A不等于B"
正確答案: C
(28) 下面語句正確的是
A．If x<3y And x>y Then y=x^3
B．If x<3y And x>y Then y=3x
C．If x<3y:x>y Then y=x^3
D．If x<3y And x>y Then y=x* *3
正確答案: A
(29) 計算z的值，當x大于y時，z=x；否則z=y。下列語句錯誤的是
A．If x>=y Then z=x : z=y
B．If x>=y Then z=x Else z=y
C．z=y : If x>=y Then z=x
D．If x<=y Then z=y Else z=x
正確答案: A
(30) 下列程序段執(zhí)行結果為
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y; y-x
A．-3 3
B．5 -9
C．3 -3
D．-6 5
正確答案: A
(31) 不能脫離控件(包括客體) 而獨立存在的過程是
A．事件過程
B．通用過程
C．Sub過程
D．函數(shù)過程
正確答案: A
(32) Sub過程與Function過程最根本的區(qū)別是
A．Sub過程可以用Call語句直接使用過程名調(diào)用，而Function過程不可以
B．Function過程可以有形參，Sub過程不可以
C．Sub過程不能返回值，而Function過程能返回值
D．兩種過程參數(shù)的傳遞方式不同
正確答案: C
(33) 單擊命令按鈕時，下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12:y=32
Call Proc(x,y)
Print x; y
End Sub
Public Sub Proc(n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A．1232
B．232
C．23
D．123
正確答案: B
(34) 單擊命令按鈕時，下列程序的執(zhí)行結果是
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=3
b=4
c=5
Print SecProc(c, b, A．
End Sub
Function FirProc(x As Integer, y As Integer, z As Integer)
FirProc=2x+y+3z
End Function
Function SecProc(x As Integer, y As Integer, z As Integer)
SecProc=FirProc(z, x, y) +x
End Function
A．20
B．22
C．28
D．30
正確答案: C
(35) 下列程序的執(zhí)行結果為
Private Sub Command1_Click()
Dim FirStr As String
FirSt= "abcdef"
Print Pat(FirStr)
End Sub
Private Function Pat(xStr As String) As String
Dim tempStr As String, strLen As Integer
tempStr= ""
strLen=Len(xStr)
i=1
Do While i <=Len(xStr) -3
tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1)
i=i+1
Loop
Pat=tempStr
End Function
A．a(chǎn)bcdef
B．a(chǎn)fbecd
C．fedcba
D．defabc
正確答案: B
二 、填空題
(1) 算法的基本特征是可行性、確定性、 【1】 和擁有足夠的情報。
正確答案: 1.(有窮性)
(2) 在長度為n的有序線性表中進行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。
正確答案: 1.(log2n)
(3) 在面向對象的程序設計中，類描述的是具有相似性質的一組 【3】 。
正確答案: 1.(對象)
(4) 通常，將軟件產(chǎn)品從提出、實現(xiàn)、使用維護到停止使用退役的過程稱為 【4】 。
正確答案: 1.(軟件生命周期)
(5) 數(shù)據(jù)庫管理系統(tǒng)常見的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。
正確答案: 1.(關系模型)
(6) Visual Basic對象可以分為兩類，分別為 【6】 和 【7】 。
正確答案: 1.(預定義對象) 2.(用戶定義對象)
(7) 完成下面的程序，使顯示結果如下圖所示。
Private Sub Form_Click()
FontSize=18
Sample＄=" 【8】 "
x=(ScaleWidth-TextWidth(Sample＄) ) /2
y=(ScaleHeight-TextHeight(Sample＄) ) /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
正確答案: 1.(Welcome to Beijing !) 2.(Print)
(8) 下列程序的功能是：當x<50時，y=0.8×x；當50≤x≤100時，y=0.7×x；當x>100時，沒有意義。請?zhí)羁铡?BR> Private Sub Command1_Click()
Dim x As Single
x=InputBox("請輸入x的值！")
【10】
Case Is < 50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【11】
Print "輸入的數(shù)據(jù)出界！"
End Select
Print x, y
End Sub
正確答案: 1.(Select Case x) 2.(Case Else)
(9) 改變驅動器列表框的Drive屬性值將引發(fā) 【12】 事件。
正確答案: 1.(Change)
(10) 下面程序是由鼠標事件在窗體上畫圖，如果按下鼠標將可以畫圖，雙擊窗體可以清除所畫圖形。補充完整下面的程序。
首先在窗體層定義如下變量：
Dim PaintStart As Boolean
編寫如下事件過程：
Private Sub Form_Load()
DrawWidth=2
ForeColor=vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【13】
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
【14】
End Sub
Private Sub Form_DblClick()
【15】
End Sub
正確答案: 1.(PaintStart = True) 2.(PaintStart = False) 3.(Cls)