一 、選擇題
(1) 假設(shè)線性表的長(zhǎng)度為n，則在最壞情況下，冒泡排序需要的比較次數(shù)為
A．log2n
B．n2
C．O(n1..5)
D．n(n-1)/2
正確答案: D
(2) 算法分析的目的是
A．找出數(shù)據(jù)結(jié)構(gòu)的合理性
B．找出算法中輸入和輸出之間的關(guān)系
C．分析算法的易懂性和可靠性
D．分析算法的效率以求改進(jìn)
正確答案: D
(3) 線性表L=(a1,a2,a3,…ai，…an)，下列說(shuō)法正確的是
A．每個(gè)元素都有一個(gè)直接前件和直接后件
B．線性表中至少要有一個(gè)元素
C．表中諸元素的排列順序必須是由小到大或由大到小
D．除第一個(gè)元素和最后一個(gè)元素外，其余每個(gè)元素都有一個(gè)且只有一個(gè)直接前件和直接后件
正確答案: D
(4) 在單鏈表中，增加頭結(jié)點(diǎn)的目的是
A．方便運(yùn)算的實(shí)現(xiàn)
B．使單鏈表至少有一個(gè)結(jié)點(diǎn)
C．標(biāo)識(shí)表結(jié)點(diǎn)中首結(jié)點(diǎn)的位置
D．說(shuō)明單鏈表是線性表的鏈?zhǔn)酱鎯?chǔ)實(shí)現(xiàn)
正確答案: A
(5) 軟件工程的出現(xiàn)是由于
A．程序設(shè)計(jì)方法學(xué)的影響
B．軟件產(chǎn)業(yè)化的需要
C．軟件危機(jī)的出現(xiàn)
D．計(jì)算機(jī)的發(fā)展
正確答案: C
(6) 軟件開發(fā)離不開系統(tǒng)環(huán)境資源的支持，其中必要的測(cè)試數(shù)據(jù)屬于
A．硬件資源
B．通信資源
C．支持軟件
D．輔助資源
正確答案: D
(7) 在數(shù)據(jù)流圖(DFD．中，帶有名字的箭頭表示
A．模塊之間的調(diào)用關(guān)系
B．程序的組成成分
C．控制程序的執(zhí)行順序
D．?dāng)?shù)據(jù)的流向
正確答案: D
(8) 分布式數(shù)據(jù)庫(kù)系統(tǒng)不具有的特點(diǎn)是
A．?dāng)?shù)據(jù)分布性和邏輯整體性
B．位置透明性和復(fù)制透明性
C．分布性
D．?dāng)?shù)據(jù)冗余
正確答案: D
(9) 關(guān)系表中的每一橫行稱為一個(gè)
A．元組
B．字段
C．屬性
D．碼
正確答案: A
(10) 下列數(shù)據(jù)模型中，具有堅(jiān)實(shí)理論基礎(chǔ)的是
A．層次模型
B．網(wǎng)狀模型
C．關(guān)系模型
D．以上3個(gè)都是
正確答案: C
11) 下列說(shuō)法正確的是
A．對(duì)象的可見性可設(shè)為True或False
B．標(biāo)題的屬性值不可設(shè)為任何文本
C．屬性窗口中屬性只能按字母順序排列
D．某些屬性的值可以跳過(guò)不設(shè)置，自動(dòng)設(shè)為空值
正確答案: A
(12) 下列關(guān)于退出Visual Basic系統(tǒng)的方法的描述錯(cuò)誤的是
A．打開Visual Basic主窗體的"文件"菜單，執(zhí)行其中的"退出"命令
B．按快捷鍵Alt+Q退出
C．單擊Visual Basic主窗體右上角的"關(guān)閉"按鈕
D．按快捷鍵Alt+E退出
正確答案: D
(13) 單擊窗體上的關(guān)閉按鈕時(shí)，觸發(fā)的事件是
A．Form_Initialize( )
B．Form_Load( )
C．Form_Unload( )
D．Form_Click( )
正確答案: C
(14) 在代碼編輯器中，續(xù)行符是用來(lái)?yè)Q行書寫同一個(gè)語(yǔ)句的符號(hào)，用以表示續(xù)行符的是
A．一個(gè)空格加一個(gè)下劃線"_"
B．一個(gè)下劃線"_"
C．一個(gè)造字符"-"
D．一個(gè)空格加一個(gè)連字符"－"
正確答案: A
(15) 為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器控件的哪個(gè)屬性設(shè)置為False？
A．Visible
B．Timer
C．Enabled
D．Interval
正確答案: C
(16) 以下關(guān)于Visual Basic數(shù)據(jù)類型的說(shuō)法，不恰當(dāng)?shù)氖?BR> A．Visual Basic 6.0提供的數(shù)據(jù)類型主要有字符串型和數(shù)值型，此外還有字節(jié)、貨幣、對(duì)象、日期、布爾和變體數(shù)據(jù)類型等
B．目前Decimal數(shù)據(jù)類型只能在變體類型中使用
C．用戶不能定義自己的數(shù)據(jù)類型
D．布爾型數(shù)據(jù)只能取兩種值，用兩個(gè)字節(jié)存儲(chǔ)
正確答案: C
(17) 以下各項(xiàng)，可以作為Visual Basic變量名的是
A．Book
B．2_Seek
C．123.58
D．Book－1
正確答案: A
(18) 表達(dá)式(3 / 2 + 1) * (5 / 2 + 2) 的值是
A．11.25
B．3
C．6.125
D．4
正確答案: A
(19) 關(guān)于自定義對(duì)話框概念的說(shuō)明，錯(cuò)誤的是
A．建立自定義對(duì)話框時(shí)必須執(zhí)行添加窗體的操作
B．自定義對(duì)話框?qū)嶋H上是VB的窗體
C．在窗體上還要使用其他控件才能組成自定義對(duì)話框
D．自定義對(duì)話框不一定要有與之對(duì)應(yīng)的事件過(guò)程
正確答案: D
(20) 下面Change事件過(guò)程中，文本框控件Text1用來(lái)接收數(shù)字字符的輸入，該事件過(guò)程的作用是
Private Sub Text1_Change()
Text2.Text=Str(6.28 * Val(Text1.Text) )
End Sub
A．將在文本框Text1輸入的數(shù)字變?yōu)閿?shù)值
B．將在文本框Text1輸入的數(shù)字作為半徑，求圓的周長(zhǎng)并轉(zhuǎn)換為字符串
C．只要Text1中的內(nèi)容一改變，Text2中顯示的圓周長(zhǎng)也隨之改變
D．事件過(guò)程中的Val函數(shù)和Str函數(shù)使用錯(cuò)誤，事件過(guò)程不能執(zhí)行
正確答案: C
(21) 用什么語(yǔ)句可以選擇指定的表項(xiàng)或取消已選擇的表項(xiàng)？
A．列表框.Selected(索引值)
B．列表框名.Selected(索引值) =True|False
C．列表框.Selected
D．列表框名.Selected＝True|False
正確答案: B (22) 用于將屏幕上的對(duì)象分組的控件是
A．列表框
B．組合框
C．標(biāo)簽
D．框架
正確答案: D
(23) 以下說(shuō)法不正確的是
A．使用ReDim語(yǔ)句可以改變數(shù)組的維數(shù)
B．使用ReDim語(yǔ)句可以改變數(shù)組的類型
C．使用ReDim語(yǔ)句可以改變數(shù)組的每一維的大小
D．使用ReDim語(yǔ)句可以改變對(duì)數(shù)組中的所有元素進(jìn)行初始化
正確答案: B
(24) 有如下事件過(guò)程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序運(yùn)行后，為了在窗體上輸出"OK"，應(yīng)當(dāng)按下的鼠標(biāo)鍵是
A．左鍵
B．右鍵
C．同時(shí)按下左鍵和右鍵
D．按什么都不顯示
正確答案: D
(25) 在窗體上畫一個(gè)名稱為CommonDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕，要求單擊命令按鈕時(shí)，打開一個(gè)保存文件的對(duì)話框，該窗口的標(biāo)題為"Save"，缺省文件名稱為"SaveFile"，在"文件類型"欄中顯示*txt，則能夠滿足上述要求的程序是
A．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
B．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
C．Private Sub Command1_Click()
CommonDialog1.FileName= "Save"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "SaveFile"
CommonDialog1.Action=2
End Sub
D．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=1
End Sub
正確答案: A
(26) 閱讀下面的程序段：
For a=1 To 2
For b=1 To a
For c=b To 2
I=I + 1
Next
Next
Next
Print I
執(zhí)行上面的三重循環(huán)后，I的值為
A．4
B．5
C．6
D．9
正確答案: B
(27) 設(shè)有下面的循環(huán)：
i=0
While i <=1
i=i + 3
Print i
Wend
則運(yùn)行后的輸出結(jié)果是
A．1
B．2
C．3
D．4
正確答案: C
(28) 設(shè)有下面的循環(huán)：
i=1
Do
i=i + 3
Print i
Loop Until I>
程序運(yùn)行后要執(zhí)行3次循環(huán)體，則條件中I的最小值為
A．6
B．7
C．8
D．9
正確答案: B
(29) 執(zhí)行以下語(yǔ)句過(guò)程，在窗體上顯示的內(nèi)容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A．a(chǎn)b
B．bd
C．a(chǎn)c
D．出錯(cuò)
正確答案: B
(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．6
正確答案: A
(31) 有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A．
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
運(yùn)行上面的程序后，單擊命令按鈕，輸出結(jié)果為
A．1 2 3
B．2 3 4
C．4 5 6
D．1 4 6
正確答案: C (32) 單擊命令按鈕時(shí)，下列程序的運(yùn)行結(jié)果為
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A．0
B．1
C．3
D．5
正確答案: B
(33) 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m) : Print P;
P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
單擊命令按鈕后，輸出結(jié)果為
A．2 2
B．4 4
C．55
D．6 6
正確答案: D
(34) 下面4個(gè)CT函數(shù)中是用來(lái)判斷用戶輸入的數(shù)是否為奇數(shù)的，是奇數(shù)的返回1，否則返回0，其中正確的是
A．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 0
Else
Return 1
End if
End Function
B．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if
End Function
C．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=1
Else
CT=0
End if
End Function
D．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正確答案: B
(35) 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A．4
B．6
C．8
D．10
正確答案: C
二 、填空題
(1) 在算法正確的前提下，評(píng)價(jià)一個(gè)算法的兩個(gè)標(biāo)準(zhǔn)是 【1】 。
正確答案: 1.(時(shí)間復(fù)雜度和空間復(fù)雜度)
(2) 將代數(shù)式 轉(zhuǎn)換成程序設(shè)計(jì)中的表達(dá)式為 【2】 。
正確答案: 1.(SQR(x^2+y^2) /(a+b))
(3) 軟件危機(jī)出現(xiàn)于60年代末，為了解決軟件危機(jī)，人們提出了 【3】 的原理來(lái)設(shè)計(jì)軟件，這就是軟件工程誕生的基礎(chǔ)。
正確答案: 1.(軟件工程學(xué))
(4) 【4】 是數(shù)據(jù)庫(kù)設(shè)計(jì)的核心。
正確答案: 1.(數(shù)據(jù)模型)
(5) 在關(guān)系模型中，把數(shù)據(jù)看成一個(gè)二維表，每一個(gè)二維表稱為一個(gè) 【5】 。
正確答案: 1.(關(guān)系)
(6) 有下面一個(gè)程序段，從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿足條件，除以4余1，除以5余2，則輸出，否則，將焦點(diǎn)定位在文本框中，并清除文本框的內(nèi)容。
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
正確答案: 1.(x Mod 4 = 1 And x Mod 5 = 2) 2.(Text1.SetFocus)
(7) 已知B的ASCII碼為66，以下程序統(tǒng)計(jì)由鍵盤輸入的字符串中各英文字母的使用次數(shù)
Dim 【8】
For i=65 To 90
pp(i) =0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
n=Asc(Mid$(x$, i, 1) )
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp(i) > 0 Then
Print Chr$(i) ; pp(i)
End If
Next
正確答案: 1.(pp(65 To 90)) 2.(Len(x＄)) 3.(pp(n) = pp(n）+ 1)
(8) 下面運(yùn)行程序后，單擊命令按鈕，輸出的結(jié)果是 【11】 。
Private Sub Command1_Click()
Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(b)
Print "s1="; s1; "s2="; s2
End Sub
Function YAS(a() As Integer)
Dim t#, i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
正確答案: 1.(s1=24 s2=360)
(9) 如果存在如下過(guò)程：
Private Function FMax(a() As Integer)
Dim First As Integer, Last As Integer, i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c=FMax(m)
Print c
End Sub
單擊命令按鈕，其輸出結(jié)果為 【12】 。
正確答案: 1.(100)
(10) 在窗體上加上一個(gè)文本框控件TextBox，畫一個(gè)命令按鈕，當(dāng)單擊命令按鈕的時(shí)候?qū)@示"保存文件"對(duì)話框，設(shè)置該對(duì)話框可用于保存文本文件(默認(rèn)) 和Word文檔，然后在文本框控件中顯示保存的文件名，請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
CommonDialog1.Filter= 【13】
CommonDialog1.Filter= 【14】
CommonDialog1.ShowSave
TextBox.Text= 【15】
End Sub
正確答案: 1.("文本文件(*.txt) |*.txt|Word文檔|*.doc") 2.(1) 3.(CommonDialog1.)
(1) 假設(shè)線性表的長(zhǎng)度為n，則在最壞情況下，冒泡排序需要的比較次數(shù)為
A．log2n
B．n2
C．O(n1..5)
D．n(n-1)/2
正確答案: D
(2) 算法分析的目的是
A．找出數(shù)據(jù)結(jié)構(gòu)的合理性
B．找出算法中輸入和輸出之間的關(guān)系
C．分析算法的易懂性和可靠性
D．分析算法的效率以求改進(jìn)
正確答案: D
(3) 線性表L=(a1,a2,a3,…ai，…an)，下列說(shuō)法正確的是
A．每個(gè)元素都有一個(gè)直接前件和直接后件
B．線性表中至少要有一個(gè)元素
C．表中諸元素的排列順序必須是由小到大或由大到小
D．除第一個(gè)元素和最后一個(gè)元素外，其余每個(gè)元素都有一個(gè)且只有一個(gè)直接前件和直接后件
正確答案: D
(4) 在單鏈表中，增加頭結(jié)點(diǎn)的目的是
A．方便運(yùn)算的實(shí)現(xiàn)
B．使單鏈表至少有一個(gè)結(jié)點(diǎn)
C．標(biāo)識(shí)表結(jié)點(diǎn)中首結(jié)點(diǎn)的位置
D．說(shuō)明單鏈表是線性表的鏈?zhǔn)酱鎯?chǔ)實(shí)現(xiàn)
正確答案: A
(5) 軟件工程的出現(xiàn)是由于
A．程序設(shè)計(jì)方法學(xué)的影響
B．軟件產(chǎn)業(yè)化的需要
C．軟件危機(jī)的出現(xiàn)
D．計(jì)算機(jī)的發(fā)展
正確答案: C
(6) 軟件開發(fā)離不開系統(tǒng)環(huán)境資源的支持，其中必要的測(cè)試數(shù)據(jù)屬于
A．硬件資源
B．通信資源
C．支持軟件
D．輔助資源
正確答案: D
(7) 在數(shù)據(jù)流圖(DFD．中，帶有名字的箭頭表示
A．模塊之間的調(diào)用關(guān)系
B．程序的組成成分
C．控制程序的執(zhí)行順序
D．?dāng)?shù)據(jù)的流向
正確答案: D
(8) 分布式數(shù)據(jù)庫(kù)系統(tǒng)不具有的特點(diǎn)是
A．?dāng)?shù)據(jù)分布性和邏輯整體性
B．位置透明性和復(fù)制透明性
C．分布性
D．?dāng)?shù)據(jù)冗余
正確答案: D
(9) 關(guān)系表中的每一橫行稱為一個(gè)
A．元組
B．字段
C．屬性
D．碼
正確答案: A
(10) 下列數(shù)據(jù)模型中，具有堅(jiān)實(shí)理論基礎(chǔ)的是
A．層次模型
B．網(wǎng)狀模型
C．關(guān)系模型
D．以上3個(gè)都是
正確答案: C
11) 下列說(shuō)法正確的是
A．對(duì)象的可見性可設(shè)為True或False
B．標(biāo)題的屬性值不可設(shè)為任何文本
C．屬性窗口中屬性只能按字母順序排列
D．某些屬性的值可以跳過(guò)不設(shè)置，自動(dòng)設(shè)為空值
正確答案: A
(12) 下列關(guān)于退出Visual Basic系統(tǒng)的方法的描述錯(cuò)誤的是
A．打開Visual Basic主窗體的"文件"菜單，執(zhí)行其中的"退出"命令
B．按快捷鍵Alt+Q退出
C．單擊Visual Basic主窗體右上角的"關(guān)閉"按鈕
D．按快捷鍵Alt+E退出
正確答案: D
(13) 單擊窗體上的關(guān)閉按鈕時(shí)，觸發(fā)的事件是
A．Form_Initialize( )
B．Form_Load( )
C．Form_Unload( )
D．Form_Click( )
正確答案: C
(14) 在代碼編輯器中，續(xù)行符是用來(lái)?yè)Q行書寫同一個(gè)語(yǔ)句的符號(hào)，用以表示續(xù)行符的是
A．一個(gè)空格加一個(gè)下劃線"_"
B．一個(gè)下劃線"_"
C．一個(gè)造字符"-"
D．一個(gè)空格加一個(gè)連字符"－"
正確答案: A
(15) 為了暫時(shí)關(guān)閉計(jì)時(shí)器，應(yīng)把該計(jì)時(shí)器控件的哪個(gè)屬性設(shè)置為False？
A．Visible
B．Timer
C．Enabled
D．Interval
正確答案: C
(16) 以下關(guān)于Visual Basic數(shù)據(jù)類型的說(shuō)法，不恰當(dāng)?shù)氖?BR> A．Visual Basic 6.0提供的數(shù)據(jù)類型主要有字符串型和數(shù)值型，此外還有字節(jié)、貨幣、對(duì)象、日期、布爾和變體數(shù)據(jù)類型等
B．目前Decimal數(shù)據(jù)類型只能在變體類型中使用
C．用戶不能定義自己的數(shù)據(jù)類型
D．布爾型數(shù)據(jù)只能取兩種值，用兩個(gè)字節(jié)存儲(chǔ)
正確答案: C
(17) 以下各項(xiàng)，可以作為Visual Basic變量名的是
A．Book
B．2_Seek
C．123.58
D．Book－1
正確答案: A
(18) 表達(dá)式(3 / 2 + 1) * (5 / 2 + 2) 的值是
A．11.25
B．3
C．6.125
D．4
正確答案: A
(19) 關(guān)于自定義對(duì)話框概念的說(shuō)明，錯(cuò)誤的是
A．建立自定義對(duì)話框時(shí)必須執(zhí)行添加窗體的操作
B．自定義對(duì)話框?qū)嶋H上是VB的窗體
C．在窗體上還要使用其他控件才能組成自定義對(duì)話框
D．自定義對(duì)話框不一定要有與之對(duì)應(yīng)的事件過(guò)程
正確答案: D
(20) 下面Change事件過(guò)程中，文本框控件Text1用來(lái)接收數(shù)字字符的輸入，該事件過(guò)程的作用是
Private Sub Text1_Change()
Text2.Text=Str(6.28 * Val(Text1.Text) )
End Sub
A．將在文本框Text1輸入的數(shù)字變?yōu)閿?shù)值
B．將在文本框Text1輸入的數(shù)字作為半徑，求圓的周長(zhǎng)并轉(zhuǎn)換為字符串
C．只要Text1中的內(nèi)容一改變，Text2中顯示的圓周長(zhǎng)也隨之改變
D．事件過(guò)程中的Val函數(shù)和Str函數(shù)使用錯(cuò)誤，事件過(guò)程不能執(zhí)行
正確答案: C
(21) 用什么語(yǔ)句可以選擇指定的表項(xiàng)或取消已選擇的表項(xiàng)？
A．列表框.Selected(索引值)
B．列表框名.Selected(索引值) =True|False
C．列表框.Selected
D．列表框名.Selected＝True|False
正確答案: B (22) 用于將屏幕上的對(duì)象分組的控件是
A．列表框
B．組合框
C．標(biāo)簽
D．框架
正確答案: D
(23) 以下說(shuō)法不正確的是
A．使用ReDim語(yǔ)句可以改變數(shù)組的維數(shù)
B．使用ReDim語(yǔ)句可以改變數(shù)組的類型
C．使用ReDim語(yǔ)句可以改變數(shù)組的每一維的大小
D．使用ReDim語(yǔ)句可以改變對(duì)數(shù)組中的所有元素進(jìn)行初始化
正確答案: B
(24) 有如下事件過(guò)程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序運(yùn)行后，為了在窗體上輸出"OK"，應(yīng)當(dāng)按下的鼠標(biāo)鍵是
A．左鍵
B．右鍵
C．同時(shí)按下左鍵和右鍵
D．按什么都不顯示
正確答案: D
(25) 在窗體上畫一個(gè)名稱為CommonDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕，要求單擊命令按鈕時(shí)，打開一個(gè)保存文件的對(duì)話框，該窗口的標(biāo)題為"Save"，缺省文件名稱為"SaveFile"，在"文件類型"欄中顯示*txt，則能夠滿足上述要求的程序是
A．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
B．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
C．Private Sub Command1_Click()
CommonDialog1.FileName= "Save"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "SaveFile"
CommonDialog1.Action=2
End Sub
D．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=1
End Sub
正確答案: A
(26) 閱讀下面的程序段：
For a=1 To 2
For b=1 To a
For c=b To 2
I=I + 1
Next
Next
Next
Print I
執(zhí)行上面的三重循環(huán)后，I的值為
A．4
B．5
C．6
D．9
正確答案: B
(27) 設(shè)有下面的循環(huán)：
i=0
While i <=1
i=i + 3
Print i
Wend
則運(yùn)行后的輸出結(jié)果是
A．1
B．2
C．3
D．4
正確答案: C
(28) 設(shè)有下面的循環(huán)：
i=1
Do
i=i + 3
Print i
Loop Until I>
程序運(yùn)行后要執(zhí)行3次循環(huán)體，則條件中I的最小值為
A．6
B．7
C．8
D．9
正確答案: B
(29) 執(zhí)行以下語(yǔ)句過(guò)程，在窗體上顯示的內(nèi)容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A．a(chǎn)b
B．bd
C．a(chǎn)c
D．出錯(cuò)
正確答案: B
(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．6
正確答案: A
(31) 有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A．
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
運(yùn)行上面的程序后，單擊命令按鈕，輸出結(jié)果為
A．1 2 3
B．2 3 4
C．4 5 6
D．1 4 6
正確答案: C (32) 單擊命令按鈕時(shí)，下列程序的運(yùn)行結(jié)果為
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A．0
B．1
C．3
D．5
正確答案: B
(33) 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m) : Print P;
P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
單擊命令按鈕后，輸出結(jié)果為
A．2 2
B．4 4
C．55
D．6 6
正確答案: D
(34) 下面4個(gè)CT函數(shù)中是用來(lái)判斷用戶輸入的數(shù)是否為奇數(shù)的，是奇數(shù)的返回1，否則返回0，其中正確的是
A．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 0
Else
Return 1
End if
End Function
B．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if
End Function
C．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=1
Else
CT=0
End if
End Function
D．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正確答案: B
(35) 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A．4
B．6
C．8
D．10
正確答案: C
二 、填空題
(1) 在算法正確的前提下，評(píng)價(jià)一個(gè)算法的兩個(gè)標(biāo)準(zhǔn)是 【1】 。
正確答案: 1.(時(shí)間復(fù)雜度和空間復(fù)雜度)
(2) 將代數(shù)式 轉(zhuǎn)換成程序設(shè)計(jì)中的表達(dá)式為 【2】 。
正確答案: 1.(SQR(x^2+y^2) /(a+b))
(3) 軟件危機(jī)出現(xiàn)于60年代末，為了解決軟件危機(jī)，人們提出了 【3】 的原理來(lái)設(shè)計(jì)軟件，這就是軟件工程誕生的基礎(chǔ)。
正確答案: 1.(軟件工程學(xué))
(4) 【4】 是數(shù)據(jù)庫(kù)設(shè)計(jì)的核心。
正確答案: 1.(數(shù)據(jù)模型)
(5) 在關(guān)系模型中，把數(shù)據(jù)看成一個(gè)二維表，每一個(gè)二維表稱為一個(gè) 【5】 。
正確答案: 1.(關(guān)系)
(6) 有下面一個(gè)程序段，從文本框中輸入數(shù)據(jù)，如果該數(shù)據(jù)滿足條件，除以4余1，除以5余2，則輸出，否則，將焦點(diǎn)定位在文本框中，并清除文本框的內(nèi)容。
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
正確答案: 1.(x Mod 4 = 1 And x Mod 5 = 2) 2.(Text1.SetFocus)
(7) 已知B的ASCII碼為66，以下程序統(tǒng)計(jì)由鍵盤輸入的字符串中各英文字母的使用次數(shù)
Dim 【8】
For i=65 To 90
pp(i) =0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
n=Asc(Mid$(x$, i, 1) )
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp(i) > 0 Then
Print Chr$(i) ; pp(i)
End If
Next
正確答案: 1.(pp(65 To 90)) 2.(Len(x＄)) 3.(pp(n) = pp(n）+ 1)
(8) 下面運(yùn)行程序后，單擊命令按鈕，輸出的結(jié)果是 【11】 。
Private Sub Command1_Click()
Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(b)
Print "s1="; s1; "s2="; s2
End Sub
Function YAS(a() As Integer)
Dim t#, i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
正確答案: 1.(s1=24 s2=360)
(9) 如果存在如下過(guò)程：
Private Function FMax(a() As Integer)
Dim First As Integer, Last As Integer, i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過(guò)程：
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c=FMax(m)
Print c
End Sub
單擊命令按鈕，其輸出結(jié)果為 【12】 。
正確答案: 1.(100)
(10) 在窗體上加上一個(gè)文本框控件TextBox，畫一個(gè)命令按鈕，當(dāng)單擊命令按鈕的時(shí)候?qū)@示"保存文件"對(duì)話框，設(shè)置該對(duì)話框可用于保存文本文件(默認(rèn)) 和Word文檔，然后在文本框控件中顯示保存的文件名，請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
CommonDialog1.Filter= 【13】
CommonDialog1.Filter= 【14】
CommonDialog1.ShowSave
TextBox.Text= 【15】
End Sub
正確答案: 1.("文本文件(*.txt) |*.txt|Word文檔|*.doc") 2.(1) 3.(CommonDialog1.)