一 、選擇題
(1) 棧和隊(duì)列的共同特點(diǎn)是
A．都是先進(jìn)先出
B．都是先進(jìn)后出
C．只允許在端點(diǎn)處插入和刪除元素
D．沒有共同點(diǎn)
正確答案: C
(2) 已知二叉樹后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是
A．a(chǎn)cbed
B．decab
C．deabc
D．cedba
正確答案: D
(3) 鏈表不具有的特點(diǎn)是
A．不必事先估計(jì)存儲(chǔ)空間
B．可隨機(jī)訪問任一元素
C．插入刪除不需要移動(dòng)元素
D．所需空間與線性表長(zhǎng)度成正比
正確答案: B
(4) 結(jié)構(gòu)化程序設(shè)計(jì)的3種結(jié)構(gòu)是
A．順序結(jié)構(gòu)、選擇結(jié)構(gòu)、轉(zhuǎn)移結(jié)構(gòu)
B．分支結(jié)構(gòu)、等價(jià)結(jié)構(gòu)、循環(huán)結(jié)構(gòu)
C．多分支結(jié)構(gòu)、賦值結(jié)構(gòu)、等價(jià)結(jié)構(gòu)
D．順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)
正確答案: D
(5) 為了提高測(cè)試的效率，應(yīng)該
A．隨機(jī)選取測(cè)試數(shù)據(jù)
B．取一切可能的輸入數(shù)據(jù)作為測(cè)試數(shù)據(jù)
C．在完成編碼以后制定軟件的測(cè)試計(jì)劃
D．集中對(duì)付那些錯(cuò)誤群集的程序
正確答案: D
(6) 算法的時(shí)間復(fù)雜度是指
A．執(zhí)行算法程序所需要的時(shí)間
B．算法程序的長(zhǎng)度
C．算法執(zhí)行過程中所需要的基本運(yùn)算次數(shù)
D．算法程序中的指令條數(shù)
正確答案: C
(7) 軟件生命周期中所花費(fèi)用最多的階段是
A．詳細(xì)設(shè)計(jì)
B．軟件編碼
C．軟件測(cè)試
D．軟件維護(hù)
正確答案: D
(8) 數(shù)據(jù)庫管理系統(tǒng)DBMS中用來定義模式、內(nèi)模式和外模式的語言為
A．C
B．Basic
C．DDL
D．DML
正確答案: C
(9) 下列有關(guān)數(shù)據(jù)庫的描述，正確的是
A．?dāng)?shù)據(jù)庫是一個(gè)DBF文件
B．?dāng)?shù)據(jù)庫是一個(gè)關(guān)系
C．?dāng)?shù)據(jù)庫是一個(gè)結(jié)構(gòu)化的數(shù)據(jù)集合
D．?dāng)?shù)據(jù)庫是一組文件
正確答案: C
(10) 下列有關(guān)數(shù)據(jù)庫的描述，正確的是
A．?dāng)?shù)據(jù)處理是將信息轉(zhuǎn)化為數(shù)據(jù)的過程
B．?dāng)?shù)據(jù)的物理獨(dú)立性是指當(dāng)數(shù)據(jù)的邏輯結(jié)構(gòu)改變時(shí)，數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)不變
C．關(guān)系中的每一列稱為元組，一個(gè)元組就是一個(gè)字段
D．如果一個(gè)關(guān)系中的屬性或?qū)傩越M并非該關(guān)系的關(guān)鍵字，但它是另一個(gè)關(guān)系的關(guān)鍵字，則稱其為本關(guān)系的外關(guān)鍵字
正確答案: D
(11) 關(guān)于Visual Basic"方法"的概念錯(cuò)誤的是
A．方法是對(duì)象的一部分
B．方法是預(yù)先定義好的操作
C．方法是對(duì)事件的響應(yīng)
D．方法用于完成某些特定的功能
正確答案: C
(12) 下列說法有錯(cuò)誤的是
A．默認(rèn)情況下，屬性Visible的值為False
B．如果設(shè)置控件的Visible屬性為False，則運(yùn)行時(shí)控件會(huì)隱藏
C．Visible的值可設(shè)為True或者False
D．設(shè)置Visible屬性同設(shè)置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)
正確答案: D
(13) 下列各控件不包含滾動(dòng)條的控件是
A．ListBox
B．ComboBox
C．TextBox
D．LabelBox
正確答案: D
(14) 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語句是
A．Redim a As Integer
B．Static a As Integer
C．Public a As Integer
D．Dim a As Integer
正確答案: B
(15) 聲明一個(gè)變量為局部變量應(yīng)該用
A．Global
B．Private
C．Static
D．Public
正確答案: C
(16) 執(zhí)行x$=InputBox("請(qǐng)輸入x的值") 時(shí)，在彈出的對(duì)話框中輸入123，在列表框List1選中1個(gè)列表項(xiàng)(數(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) 以下各項(xiàng)中，Visual Basic不能接收的圖形文件是
A．ico文件
B．jpg文件
C．psd文件
D．bmp文件
正確答案: C
(18) 下面的屬性中，用于自動(dòng)調(diào)整圖像框中圖形內(nèi)容的大小的是
A．Picture
B．CurentY
C．CurrentX
D．Stretch
正確答案: D
(19) 下面有關(guān)注釋語句的格式，錯(cuò)誤的是
A．Rem注釋內(nèi)容
B．注釋內(nèi)容
C．a(chǎn)=3:b=2 ′對(duì)a、b賦值
D．Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠標(biāo)按下事件的命令調(diào)用過程 X As Single ,Y As Single)
正確答案: D
(20) 只有將組合框的Style屬性設(shè)置為何值時(shí)，才能觸發(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) 編寫如下兩個(gè)事件過程：
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鍵和鎖定大寫鍵時(shí)) 運(yùn)行程序，如果按"A"鍵，則程序輸出的結(jié)果是
A．A
a
B．a(chǎn)
A
C．A
A
D．a(chǎn)
a
正確答案: C
(23) 要使菜單項(xiàng)MenuOne在程序運(yùn)行時(shí)失效，使用的語句是
A．MenuOne.Visible=True
B．MenuOne.Visible=False
C．MenuOne.Enabled=True
D．MenuOne.Enabled=False
正確答案: D
(24) 在窗體上建立通用對(duì)話框需要添加的控件是
A．Data控件
B．From控件
C．CommonDialog控件
D．VBComboBox控件
正確答案: C
(25) 在Visual Basic中，要將一個(gè)窗體加載到內(nèi)存進(jìn)行預(yù)處理但不顯示，應(yīng)使用的語句是
A．Load
B．Show
C．Hide
D．Unload
正確答案: A
(26) 運(yùn)行下列程序段后，顯示的結(jié)果為
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) 計(jì)算z的值，當(dāng)x大于y時(shí)，z=x；否則z=y。下列語句錯(cuò)誤的是
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í)行結(jié)果為
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) 不能脫離控件(包括客體) 而獨(dú)立存在的過程是
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是
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í)行結(jié)果為
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】 和擁有足夠的情報(bào)。
正確答案: 1.(有窮性)
(2) 在長(zhǎng)度為n的有序線性表中進(jìn)行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。
正確答案: 1.(log2n)
(3) 在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，類描述的是具有相似性質(zhì)的一組 【3】 。
正確答案: 1.(對(duì)象)
(4) 通常，將軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過程稱為 【4】 。
正確答案: 1.(軟件生命周期)
(5) 數(shù)據(jù)庫管理系統(tǒng)常見的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。
正確答案: 1.(關(guān)系模型)
(6) Visual Basic對(duì)象可以分為兩類，分別為 【6】 和 【7】 。
正確答案: 1.(預(yù)定義對(duì)象) 2.(用戶定義對(duì)象)
(7) 完成下面的程序，使顯示結(jié)果如下圖所示。
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) 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒有意義。請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Dim x As Single
x=InputBox("請(qǐng)輸入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) 改變驅(qū)動(dòng)器列表框的Drive屬性值將引發(fā) 【12】 事件。
正確答案: 1.(Change)
(10) 下面程序是由鼠標(biāo)事件在窗體上畫圖，如果按下鼠標(biāo)將可以畫圖，雙擊窗體可以清除所畫圖形。補(bǔ)充完整下面的程序。
首先在窗體層定義如下變量：
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) 棧和隊(duì)列的共同特點(diǎn)是
A．都是先進(jìn)先出
B．都是先進(jìn)后出
C．只允許在端點(diǎn)處插入和刪除元素
D．沒有共同點(diǎn)
正確答案: C
(2) 已知二叉樹后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是
A．a(chǎn)cbed
B．decab
C．deabc
D．cedba
正確答案: D
(3) 鏈表不具有的特點(diǎn)是
A．不必事先估計(jì)存儲(chǔ)空間
B．可隨機(jī)訪問任一元素
C．插入刪除不需要移動(dòng)元素
D．所需空間與線性表長(zhǎng)度成正比
正確答案: B
(4) 結(jié)構(gòu)化程序設(shè)計(jì)的3種結(jié)構(gòu)是
A．順序結(jié)構(gòu)、選擇結(jié)構(gòu)、轉(zhuǎn)移結(jié)構(gòu)
B．分支結(jié)構(gòu)、等價(jià)結(jié)構(gòu)、循環(huán)結(jié)構(gòu)
C．多分支結(jié)構(gòu)、賦值結(jié)構(gòu)、等價(jià)結(jié)構(gòu)
D．順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)
正確答案: D
(5) 為了提高測(cè)試的效率，應(yīng)該
A．隨機(jī)選取測(cè)試數(shù)據(jù)
B．取一切可能的輸入數(shù)據(jù)作為測(cè)試數(shù)據(jù)
C．在完成編碼以后制定軟件的測(cè)試計(jì)劃
D．集中對(duì)付那些錯(cuò)誤群集的程序
正確答案: D
(6) 算法的時(shí)間復(fù)雜度是指
A．執(zhí)行算法程序所需要的時(shí)間
B．算法程序的長(zhǎng)度
C．算法執(zhí)行過程中所需要的基本運(yùn)算次數(shù)
D．算法程序中的指令條數(shù)
正確答案: C
(7) 軟件生命周期中所花費(fèi)用最多的階段是
A．詳細(xì)設(shè)計(jì)
B．軟件編碼
C．軟件測(cè)試
D．軟件維護(hù)
正確答案: D
(8) 數(shù)據(jù)庫管理系統(tǒng)DBMS中用來定義模式、內(nèi)模式和外模式的語言為
A．C
B．Basic
C．DDL
D．DML
正確答案: C
(9) 下列有關(guān)數(shù)據(jù)庫的描述，正確的是
A．?dāng)?shù)據(jù)庫是一個(gè)DBF文件
B．?dāng)?shù)據(jù)庫是一個(gè)關(guān)系
C．?dāng)?shù)據(jù)庫是一個(gè)結(jié)構(gòu)化的數(shù)據(jù)集合
D．?dāng)?shù)據(jù)庫是一組文件
正確答案: C
(10) 下列有關(guān)數(shù)據(jù)庫的描述，正確的是
A．?dāng)?shù)據(jù)處理是將信息轉(zhuǎn)化為數(shù)據(jù)的過程
B．?dāng)?shù)據(jù)的物理獨(dú)立性是指當(dāng)數(shù)據(jù)的邏輯結(jié)構(gòu)改變時(shí)，數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)不變
C．關(guān)系中的每一列稱為元組，一個(gè)元組就是一個(gè)字段
D．如果一個(gè)關(guān)系中的屬性或?qū)傩越M并非該關(guān)系的關(guān)鍵字，但它是另一個(gè)關(guān)系的關(guān)鍵字，則稱其為本關(guān)系的外關(guān)鍵字
正確答案: D
(11) 關(guān)于Visual Basic"方法"的概念錯(cuò)誤的是
A．方法是對(duì)象的一部分
B．方法是預(yù)先定義好的操作
C．方法是對(duì)事件的響應(yīng)
D．方法用于完成某些特定的功能
正確答案: C
(12) 下列說法有錯(cuò)誤的是
A．默認(rèn)情況下，屬性Visible的值為False
B．如果設(shè)置控件的Visible屬性為False，則運(yùn)行時(shí)控件會(huì)隱藏
C．Visible的值可設(shè)為True或者False
D．設(shè)置Visible屬性同設(shè)置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)
正確答案: D
(13) 下列各控件不包含滾動(dòng)條的控件是
A．ListBox
B．ComboBox
C．TextBox
D．LabelBox
正確答案: D
(14) 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則應(yīng)使用的語句是
A．Redim a As Integer
B．Static a As Integer
C．Public a As Integer
D．Dim a As Integer
正確答案: B
(15) 聲明一個(gè)變量為局部變量應(yīng)該用
A．Global
B．Private
C．Static
D．Public
正確答案: C
(16) 執(zhí)行x$=InputBox("請(qǐng)輸入x的值") 時(shí)，在彈出的對(duì)話框中輸入123，在列表框List1選中1個(gè)列表項(xiàng)(數(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) 以下各項(xiàng)中，Visual Basic不能接收的圖形文件是
A．ico文件
B．jpg文件
C．psd文件
D．bmp文件
正確答案: C
(18) 下面的屬性中，用于自動(dòng)調(diào)整圖像框中圖形內(nèi)容的大小的是
A．Picture
B．CurentY
C．CurrentX
D．Stretch
正確答案: D
(19) 下面有關(guān)注釋語句的格式，錯(cuò)誤的是
A．Rem注釋內(nèi)容
B．注釋內(nèi)容
C．a(chǎn)=3:b=2 ′對(duì)a、b賦值
D．Private Sub Command1_MouseDown(button As Integer , shift As Integer , _
Rem 鼠標(biāo)按下事件的命令調(diào)用過程 X As Single ,Y As Single)
正確答案: D
(20) 只有將組合框的Style屬性設(shè)置為何值時(shí)，才能觸發(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) 編寫如下兩個(gè)事件過程：
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鍵和鎖定大寫鍵時(shí)) 運(yùn)行程序，如果按"A"鍵，則程序輸出的結(jié)果是
A．A
a
B．a(chǎn)
A
C．A
A
D．a(chǎn)
a
正確答案: C
(23) 要使菜單項(xiàng)MenuOne在程序運(yùn)行時(shí)失效，使用的語句是
A．MenuOne.Visible=True
B．MenuOne.Visible=False
C．MenuOne.Enabled=True
D．MenuOne.Enabled=False
正確答案: D
(24) 在窗體上建立通用對(duì)話框需要添加的控件是
A．Data控件
B．From控件
C．CommonDialog控件
D．VBComboBox控件
正確答案: C
(25) 在Visual Basic中，要將一個(gè)窗體加載到內(nèi)存進(jìn)行預(yù)處理但不顯示，應(yīng)使用的語句是
A．Load
B．Show
C．Hide
D．Unload
正確答案: A
(26) 運(yùn)行下列程序段后，顯示的結(jié)果為
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) 計(jì)算z的值，當(dāng)x大于y時(shí)，z=x；否則z=y。下列語句錯(cuò)誤的是
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í)行結(jié)果為
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) 不能脫離控件(包括客體) 而獨(dú)立存在的過程是
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
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) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是
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í)行結(jié)果為
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】 和擁有足夠的情報(bào)。
正確答案: 1.(有窮性)
(2) 在長(zhǎng)度為n的有序線性表中進(jìn)行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。
正確答案: 1.(log2n)
(3) 在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，類描述的是具有相似性質(zhì)的一組 【3】 。
正確答案: 1.(對(duì)象)
(4) 通常，將軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過程稱為 【4】 。
正確答案: 1.(軟件生命周期)
(5) 數(shù)據(jù)庫管理系統(tǒng)常見的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。
正確答案: 1.(關(guān)系模型)
(6) Visual Basic對(duì)象可以分為兩類，分別為 【6】 和 【7】 。
正確答案: 1.(預(yù)定義對(duì)象) 2.(用戶定義對(duì)象)
(7) 完成下面的程序，使顯示結(jié)果如下圖所示。
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) 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50≤x≤100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒有意義。請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Dim x As Single
x=InputBox("請(qǐng)輸入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) 改變驅(qū)動(dòng)器列表框的Drive屬性值將引發(fā) 【12】 事件。
正確答案: 1.(Change)
(10) 下面程序是由鼠標(biāo)事件在窗體上畫圖，如果按下鼠標(biāo)將可以畫圖，雙擊窗體可以清除所畫圖形。補(bǔ)充完整下面的程序。
首先在窗體層定義如下變量：
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)