一 、選擇題
(1) 循環(huán)鏈表的主要優(yōu)點是
A．不再需要頭指針了
B．從表中任一結(jié)點出發(fā)都能訪問到整個鏈表
C．在進(jìn)行插入、刪除運算時，能更好的保證鏈表不斷開
D．已知某個結(jié)點的位置后，能夠容易的找到它的直接前件
正確答案: B
(2) 棧底至棧頂依次存放元素A、B、C、D，在第五個元素E入棧前，棧中元素可以出棧，則出棧序列可能是
A．ABCED
B．DCBEA
C．DBCEA
D．CDABE
正確答案: B
(3) n個頂點的強(qiáng)連通圖的邊數(shù)至少有
A．n-1
B．n(n-1)
C．n
D．n+1
正確答案: C
(4) 在結(jié)構(gòu)化程序設(shè)計思想提出之前，在程序設(shè)計中曾強(qiáng)調(diào)程序的效率，現(xiàn)在，與程序的效率相比，人們更重視程序的
A．安全性
B．一致性
C．可理解性
D．合理性
正確答案: C
(5) 模塊獨立性是軟件模塊化所提出的要求，衡量模塊獨立性的度量標(biāo)準(zhǔn)則是模塊的
A．抽象和信息隱蔽
B．局部化和封裝化
C．內(nèi)聚性和耦合性
D．激活機(jī)制和控制方法
正確答案: C
(6) 軟件開發(fā)的結(jié)構(gòu)化生命周期方法將軟件生命周期劃分成
A．定義、開發(fā)、運行維護(hù)
B．設(shè)計階段、編程階段、測試階段
C．總體設(shè)計、詳細(xì)設(shè)計、編程調(diào)試
D．需求分析、功能定義、系統(tǒng)設(shè)計
正確答案: A
(7) 在軟件工程中，白箱測試法可用于測試程序的內(nèi)部結(jié)構(gòu)。此方法將程序看做是
A．路徑的集合
B．循環(huán)的集合
C．目標(biāo)的集合
D．地址的集合
正確答案: A
(8) 在數(shù)據(jù)管理技術(shù)發(fā)展過程中，文件系統(tǒng)與數(shù)據(jù)庫系統(tǒng)的主要區(qū)別是數(shù)據(jù)庫系統(tǒng)具有
A．特定的數(shù)據(jù)模型
B．?dāng)?shù)據(jù)無冗余
C．?dāng)?shù)據(jù)可共享
D．專門的數(shù)據(jù)管理軟件
正確答案: A
(9) 數(shù)據(jù)庫設(shè)計包括兩個方面的設(shè)計內(nèi)容，它們是
A．概念設(shè)計和邏輯設(shè)計
B．模式設(shè)計和內(nèi)模式設(shè)計
C．內(nèi)模式設(shè)計和物理設(shè)計
D．結(jié)構(gòu)特性設(shè)計和行為特性設(shè)計
正確答案: A
(10) 實體是信息世界中廣泛使用的一個術(shù)語，它用于表示
A．有生命的事物
B．無生命的事物
C．實際存在的事物
D．一切事物
正確答案: C (11) 在Visual Basic中，被稱為對象的是
A．窗體
B．控件
C．控件和窗體
D．窗體、控件和屬性
正確答案: C
(12) Visual Basic標(biāo)題欄上顯示了應(yīng)用程序的
A．大小
B．狀態(tài)
C．位置
D．名稱
正確答案: D
(13) 對下列程序段，說法正確的是
Text1.Top=2000
Text1.Left=800
A．Text1對象的左邊界距窗體的左邊界是800twip，上邊界距窗體的上邊界為2000twip
B．Text1對象的左邊界距屏幕的左邊界為800twip，上邊界距屏幕的上邊界為2000twip
C．Text1對象的寬度為2000twip，高度為800twip
D．Text1對象的高度為800點，寬度為2000點
正確答案: A
(14) 用于顯示輸入輸出文本的控件是
A．和 B．和
C．和 D．和
正確答案: A
(15) 下列操作可以打開立即窗口的是
A．Ctrl+D
B．Ctrl+F
C．Ctrl+G
D．Ctrl+E
正確答案: C
(16) 有變量定義語句Dim max, min As String，則可以知道m(xù)ax的類型是
A．變體類型
B．單精度型
C．雙精度型
D．字符串型
正確答案: A
(17) 表達(dá)式3 ^ 2 Mod 14 ＼ 2 ^ 3的值是
A．1
B．0
C．2
D．3
正確答案: B
(18) 在窗體上有一個命令按鈕，然后編寫如下事件過程
Private Sub Commandl_cickc()
a=InputBox( "enter the first integer")
b=InputBox( "enter the second integer")
Print b + a
End Sub
程序運行后，單擊命令按鈕，先后在兩個輸入框中分別輸入"2"和"6"，則輸出結(jié)果為
A．2
B．62
C．8
D．26
正確答案: B
(19) 在屬性窗口中設(shè)置何屬性，可以把指定的圖形放入當(dāng)前對象中?
A．CurrentY
B．Picture
C．CurrentX
D．Stretch
正確答案: B
(20) 在窗體上添加標(biāo)簽控件Label1之后，標(biāo)簽控件的默認(rèn)的名稱Name是
A．Label
B．Label1
C．Text
D．Text1
正確答案: B
(21) 當(dāng)組合框的Style屬性設(shè)置為何值時，組合框稱為下拉式列表框
A．0
B．1
C．2
D．3
正確答案: C
(22) 下列程序段的執(zhí)行的結(jié)果是
Dim a(10) , b(10)
i=3
For j=1 To 5
a(j) =j
b(i) =2 i + j
Next j
Print b(i) ; a(i)
A．113
B．315
C．311
D．153
正確答案: A
(23) 對窗體編寫如下事件過程：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
arr=Array(12, 15, 18, 20, 24)
m1=arr(1)
m2=1
If KeyAscii=12 Then
For i=2 To 5
If arr(i) > m1 Then
m1=arr(i)
m2=i
End If
Next i
End If
Print m1
Print m2
End Sub
程序運行之后按回車鍵，輸出結(jié)果為
A．12
1
B．20
2
C．18
5
D．24
12
正確答案: A
(24) 在以下事件過程中，可以在用戶按下鼠標(biāo)右鍵時，顯示一個上邊框，以鼠標(biāo)當(dāng)前位置為中心的彈出式菜單，而且這個彈出式菜單還可以識別右鍵對菜單命令的選擇，相應(yīng)的選項是
A．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
vbPopupMenuRightButton, X, Y, mnuEditOpen
End If
End Sub
B．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit,
End If
End Sub
C．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
vbPopupMenuRightButton
End Sub
D．Private Sub Form_MouseUp(Button As Integer , _
Shift As Integer, X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit, 2
End If
End Sub
正確答案: A
(25) 為了通過鍵盤訪問主菜單項，可在菜單編輯器的"標(biāo)題"選項中的某個字母前插入何字符，建立熱鍵字母?
A．&
B．#
C．*
D．$
正確答案: A
(26) 下列程序段的執(zhí)行結(jié)果為
Dim t(10)
For k=2 To 10
t(k) =11 - k
Next k
x=6
Print t(2 + t(x) )
A．2
B．3
C．4
D．5
正確答案: C
(27) 下列程序的執(zhí)行結(jié)果為
a=10
b=20
If a <> b Then a=a + b Else b=b - a
Print a, b
A．2020
B．3020
C．3040
D．1515
正確答案: B
(28) 對話框在關(guān)閉之前，不能繼續(xù)執(zhí)行其他操作，這種對話框?qū)儆?BR> A．輸入對話框
B．輸出對話框
C．模式(模態(tài)) 對話框
D．無模式對話框
正確答案: C
(29) 下面敘述不正確的是
A．對順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B．順序文件結(jié)構(gòu)簡單
C．順序文件的數(shù)據(jù)以字符(ASCII碼) 形式存儲
D．能同時對順序文件進(jìn)行讀寫操作
正確答案: D
(30) 當(dāng)雙擊窗體Form1時，要將窗體Form1隱藏起來、將窗體Form2以模式方式顯示出來的事件過程，正確的是
A．Private Sub Form_DblClick()
Form1.Hide
Form2.Show 0
End Sub
B．Private Sub Form_DblClick()
Form1.Hide
Form2.Show 1
End Sub
C．Private Sub Form_Click()
Form1.Hide
Form2.Show
End Sub
D．Private Sub Form_DblClick()
Form1.Enabled=False
Form2.Enabled=True
End Sub
正確答案: B
(31) 有如下函數(shù)過程：
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y <> 0
sic=x / y
x=y
y=sic
Loop
HFC=x
End Function
以下是該函數(shù)的調(diào)用過程，該程序的運行結(jié)果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=HFC(a, B．
Print x
End Sub
A．0
B．6
C．2
D．80
正確答案: B
(32) 有如下事件過程：
Sub ABD(x%, y%, z%)
z%=x% + y%
End Sub
Private Sub Command1_Click()
a%=30: b%=40
Call ABD(a%, b%, c%)
Print c%
End Sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為
A．70
B．70.0
C．7.0E+1
D．顯示錯誤信息
正確答案: A
(33) 如下事件過程：
Function Feed(x)
If x < 10 Then
Feed=x
Else
Feed=10 + x
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox( "", , 0) )
pay=Feed(x)
Print pay
End Sub
運行時在輸入框內(nèi)輸入變量x的值為15，輸出結(jié)果為
A．0
B．15
C．25
D．30
正確答案: C
(34) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
Dim i As Integer
For i=LBound(oldCopy() ) To UBound(oldCopy() )
newCopy(i) =oldCopy(i)
Next i
End Sub
Private Sub Command1_Click()
Dim m(10) As Integer, n(10) As Integer
For i=1 To 10
m(i) =i i
Next i
Call BTC(m, n)
Print n(5)
End Sub
程序運行后，單擊命令按鈕輸出結(jié)果為
A．0
B．2
C．10
D．25
正確答案: D
(35) 在窗體上畫一個命令按鈕，然后寫出如下事件過程：
Private Sub Command1_Click()
s=1
Do
s=(s + 1) ^ (s + 2)
Number=Number + 1
Loop Until s >=6
Print Number, s
End Sub
程序運行后，輸出的結(jié)果是
A．23
B．318
C．18
D．1020
正確答案: C
二 、填空題
(1) 常用的黑箱測試有等價分類法、 【1】 、因果圖法和錯誤推測法4種。
正確答案: 1.(邊值分析法)
(2) 測試的目的是暴露錯誤，評價程序的可靠性；而 【2】 的目的是發(fā)現(xiàn)錯誤的位置并改正錯誤。
正確答案: 1.(調(diào)試)
(3) 軟件維護(hù)活動包括以下幾類：改正性維護(hù)、適應(yīng)性維護(hù)、 【3】 維護(hù)和預(yù)防性維護(hù)。
正確答案: 1.(完善性)
(4) 在面向?qū)ο蟮脑O(shè)計中，用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為 【4】 。
正確答案: 1.(消息)
(5) 關(guān)鍵字ASC和DESC分別表示 【5】 的含義。
正確答案: 1.(升序排列和降序排列)
(6) 下述語句段在運行時的顯示結(jié)果是 【6】 。
Cls
x=10.34 + 8
Print Len(x)
正確答案: 1.(5)
(7) 窗體上有兩個按鈕，則執(zhí)行程序后按鍵盤Cance1鍵的輸出結(jié)果是 【7】 。
Private Sub Command1_Click()
Print "北京";
End Sub
Private Sub Command2_Click()
Print "南京";
End Sub
Private Sub Form_Load()
Command2.Cancel=True
Command1.Cancel=True
End Sub
正確答案: 1.(北京)
(8) 下列事件過程的功能是：通過Form_Load事件給數(shù)組賦初值為35、48、15、22、67，F(xiàn)orm_Click事件找出可以被3整除的數(shù)組元素并打印出來。請在空白處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Dim Arr()
Private Sub Form_Load()
【8】
End Sub
Private Sub Form_Click()
【9】
If Int(x / 3) =x / 3 Then
Print x
End If
Next x
End Sub
正確答案: 1.(Arr = Array(35, 48, 15, 22, 67)) 2.(For Each x In Arr)
(9) 給定年份，下列程序用來判斷該年是否是閏年，請?zhí)羁铡?BR> Sub YN()
Dim x As Integer
x=InputBox("請輸入年號")
If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
Print "是閏年"
Else
Print "不是閏年，是普通年份"
End If
End Sub
正確答案: 1.(And) 2.(Or)
(10) 在E盤當(dāng)前目錄文件夾下建立一個名為"Student.txt"的順序文件，要求用InputBox函數(shù)輸入5個學(xué)生的姓名(StuName) 、年級(StuGrade) 和年齡(StuAge) 。
Private Sub Form_Click()
【12】
For i=1 To 5
StuName=InputBox("請輸入姓名")
StuGrade=InputBox("請輸入年級號")
StuAge=InputBox("請輸入年齡")
【13】
Next i
【14】
End Sub
正確答案: 1.(Open) 2.("E:＼Student.txt" For Output As #1) 3.(Write #1, S)
(11) 在窗體上有一個命令按鈕，然后編如下事件過程：
Function SR(x As Double) As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click()
Dim Msg, SRN
Dim N As Double
N=InputBox("請輸入要計算平方根的數(shù)")
Msg=N & "的平方根"
Select Case SR(N)
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一個虛數(shù)"
Case Else
Msg=Msg & "是" & SR(N)
End Select
MsgBox Msg
End Sub
程序運行后，單擊命令按鈕，在輸入對話框內(nèi)輸入-1，輸出結(jié)果是 【15】 。
正確答案: 1.(-1的平方根是一個虛數(shù))
(1) 循環(huán)鏈表的主要優(yōu)點是
A．不再需要頭指針了
B．從表中任一結(jié)點出發(fā)都能訪問到整個鏈表
C．在進(jìn)行插入、刪除運算時，能更好的保證鏈表不斷開
D．已知某個結(jié)點的位置后，能夠容易的找到它的直接前件
正確答案: B
(2) 棧底至棧頂依次存放元素A、B、C、D，在第五個元素E入棧前，棧中元素可以出棧，則出棧序列可能是
A．ABCED
B．DCBEA
C．DBCEA
D．CDABE
正確答案: B
(3) n個頂點的強(qiáng)連通圖的邊數(shù)至少有
A．n-1
B．n(n-1)
C．n
D．n+1
正確答案: C
(4) 在結(jié)構(gòu)化程序設(shè)計思想提出之前，在程序設(shè)計中曾強(qiáng)調(diào)程序的效率，現(xiàn)在，與程序的效率相比，人們更重視程序的
A．安全性
B．一致性
C．可理解性
D．合理性
正確答案: C
(5) 模塊獨立性是軟件模塊化所提出的要求，衡量模塊獨立性的度量標(biāo)準(zhǔn)則是模塊的
A．抽象和信息隱蔽
B．局部化和封裝化
C．內(nèi)聚性和耦合性
D．激活機(jī)制和控制方法
正確答案: C
(6) 軟件開發(fā)的結(jié)構(gòu)化生命周期方法將軟件生命周期劃分成
A．定義、開發(fā)、運行維護(hù)
B．設(shè)計階段、編程階段、測試階段
C．總體設(shè)計、詳細(xì)設(shè)計、編程調(diào)試
D．需求分析、功能定義、系統(tǒng)設(shè)計
正確答案: A
(7) 在軟件工程中，白箱測試法可用于測試程序的內(nèi)部結(jié)構(gòu)。此方法將程序看做是
A．路徑的集合
B．循環(huán)的集合
C．目標(biāo)的集合
D．地址的集合
正確答案: A
(8) 在數(shù)據(jù)管理技術(shù)發(fā)展過程中，文件系統(tǒng)與數(shù)據(jù)庫系統(tǒng)的主要區(qū)別是數(shù)據(jù)庫系統(tǒng)具有
A．特定的數(shù)據(jù)模型
B．?dāng)?shù)據(jù)無冗余
C．?dāng)?shù)據(jù)可共享
D．專門的數(shù)據(jù)管理軟件
正確答案: A
(9) 數(shù)據(jù)庫設(shè)計包括兩個方面的設(shè)計內(nèi)容，它們是
A．概念設(shè)計和邏輯設(shè)計
B．模式設(shè)計和內(nèi)模式設(shè)計
C．內(nèi)模式設(shè)計和物理設(shè)計
D．結(jié)構(gòu)特性設(shè)計和行為特性設(shè)計
正確答案: A
(10) 實體是信息世界中廣泛使用的一個術(shù)語，它用于表示
A．有生命的事物
B．無生命的事物
C．實際存在的事物
D．一切事物
正確答案: C (11) 在Visual Basic中，被稱為對象的是
A．窗體
B．控件
C．控件和窗體
D．窗體、控件和屬性
正確答案: C
(12) Visual Basic標(biāo)題欄上顯示了應(yīng)用程序的
A．大小
B．狀態(tài)
C．位置
D．名稱
正確答案: D
(13) 對下列程序段，說法正確的是
Text1.Top=2000
Text1.Left=800
A．Text1對象的左邊界距窗體的左邊界是800twip，上邊界距窗體的上邊界為2000twip
B．Text1對象的左邊界距屏幕的左邊界為800twip，上邊界距屏幕的上邊界為2000twip
C．Text1對象的寬度為2000twip，高度為800twip
D．Text1對象的高度為800點，寬度為2000點
正確答案: A
(14) 用于顯示輸入輸出文本的控件是
A．和 B．和
C．和 D．和
正確答案: A
(15) 下列操作可以打開立即窗口的是
A．Ctrl+D
B．Ctrl+F
C．Ctrl+G
D．Ctrl+E
正確答案: C
(16) 有變量定義語句Dim max, min As String，則可以知道m(xù)ax的類型是
A．變體類型
B．單精度型
C．雙精度型
D．字符串型
正確答案: A
(17) 表達(dá)式3 ^ 2 Mod 14 ＼ 2 ^ 3的值是
A．1
B．0
C．2
D．3
正確答案: B
(18) 在窗體上有一個命令按鈕，然后編寫如下事件過程
Private Sub Commandl_cickc()
a=InputBox( "enter the first integer")
b=InputBox( "enter the second integer")
Print b + a
End Sub
程序運行后，單擊命令按鈕，先后在兩個輸入框中分別輸入"2"和"6"，則輸出結(jié)果為
A．2
B．62
C．8
D．26
正確答案: B
(19) 在屬性窗口中設(shè)置何屬性，可以把指定的圖形放入當(dāng)前對象中?
A．CurrentY
B．Picture
C．CurrentX
D．Stretch
正確答案: B
(20) 在窗體上添加標(biāo)簽控件Label1之后，標(biāo)簽控件的默認(rèn)的名稱Name是
A．Label
B．Label1
C．Text
D．Text1
正確答案: B
(21) 當(dāng)組合框的Style屬性設(shè)置為何值時，組合框稱為下拉式列表框
A．0
B．1
C．2
D．3
正確答案: C
(22) 下列程序段的執(zhí)行的結(jié)果是
Dim a(10) , b(10)
i=3
For j=1 To 5
a(j) =j
b(i) =2 i + j
Next j
Print b(i) ; a(i)
A．113
B．315
C．311
D．153
正確答案: A
(23) 對窗體編寫如下事件過程：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
arr=Array(12, 15, 18, 20, 24)
m1=arr(1)
m2=1
If KeyAscii=12 Then
For i=2 To 5
If arr(i) > m1 Then
m1=arr(i)
m2=i
End If
Next i
End If
Print m1
Print m2
End Sub
程序運行之后按回車鍵，輸出結(jié)果為
A．12
1
B．20
2
C．18
5
D．24
12
正確答案: A
(24) 在以下事件過程中，可以在用戶按下鼠標(biāo)右鍵時，顯示一個上邊框，以鼠標(biāo)當(dāng)前位置為中心的彈出式菜單，而且這個彈出式菜單還可以識別右鍵對菜單命令的選擇，相應(yīng)的選項是
A．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
vbPopupMenuRightButton, X, Y, mnuEditOpen
End If
End Sub
B．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit,
End If
End Sub
C．Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _
vbPopupMenuRightButton
End Sub
D．Private Sub Form_MouseUp(Button As Integer , _
Shift As Integer, X As Single, Y As Single)
If Button=2 Then
PopupMenu mnuEdit, 2
End If
End Sub
正確答案: A
(25) 為了通過鍵盤訪問主菜單項，可在菜單編輯器的"標(biāo)題"選項中的某個字母前插入何字符，建立熱鍵字母?
A．&
B．#
C．*
D．$
正確答案: A
(26) 下列程序段的執(zhí)行結(jié)果為
Dim t(10)
For k=2 To 10
t(k) =11 - k
Next k
x=6
Print t(2 + t(x) )
A．2
B．3
C．4
D．5
正確答案: C
(27) 下列程序的執(zhí)行結(jié)果為
a=10
b=20
If a <> b Then a=a + b Else b=b - a
Print a, b
A．2020
B．3020
C．3040
D．1515
正確答案: B
(28) 對話框在關(guān)閉之前，不能繼續(xù)執(zhí)行其他操作，這種對話框?qū)儆?BR> A．輸入對話框
B．輸出對話框
C．模式(模態(tài)) 對話框
D．無模式對話框
正確答案: C
(29) 下面敘述不正確的是
A．對順序文件中的數(shù)據(jù)操作只能按一定的順序操作
B．順序文件結(jié)構(gòu)簡單
C．順序文件的數(shù)據(jù)以字符(ASCII碼) 形式存儲
D．能同時對順序文件進(jìn)行讀寫操作
正確答案: D
(30) 當(dāng)雙擊窗體Form1時，要將窗體Form1隱藏起來、將窗體Form2以模式方式顯示出來的事件過程，正確的是
A．Private Sub Form_DblClick()
Form1.Hide
Form2.Show 0
End Sub
B．Private Sub Form_DblClick()
Form1.Hide
Form2.Show 1
End Sub
C．Private Sub Form_Click()
Form1.Hide
Form2.Show
End Sub
D．Private Sub Form_DblClick()
Form1.Enabled=False
Form2.Enabled=True
End Sub
正確答案: B
(31) 有如下函數(shù)過程：
Function HFC(ByVal x As Integer, ByVal y As Integer) As Integer
Do While y <> 0
sic=x / y
x=y
y=sic
Loop
HFC=x
End Function
以下是該函數(shù)的調(diào)用過程，該程序的運行結(jié)果是
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=HFC(a, B．
Print x
End Sub
A．0
B．6
C．2
D．80
正確答案: B
(32) 有如下事件過程：
Sub ABD(x%, y%, z%)
z%=x% + y%
End Sub
Private Sub Command1_Click()
a%=30: b%=40
Call ABD(a%, b%, c%)
Print c%
End Sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為
A．70
B．70.0
C．7.0E+1
D．顯示錯誤信息
正確答案: A
(33) 如下事件過程：
Function Feed(x)
If x < 10 Then
Feed=x
Else
Feed=10 + x
End If
End Function
Private Sub Command1_Click()
x=Val(InputBox( "", , 0) )
pay=Feed(x)
Print pay
End Sub
運行時在輸入框內(nèi)輸入變量x的值為15，輸出結(jié)果為
A．0
B．15
C．25
D．30
正確答案: C
(34) 在窗體上畫一個命令按鈕，然后編寫如下事件過程：
Sub BTC(oldCopy() As Integer, newCopy() As Integer)
Dim i As Integer
For i=LBound(oldCopy() ) To UBound(oldCopy() )
newCopy(i) =oldCopy(i)
Next i
End Sub
Private Sub Command1_Click()
Dim m(10) As Integer, n(10) As Integer
For i=1 To 10
m(i) =i i
Next i
Call BTC(m, n)
Print n(5)
End Sub
程序運行后，單擊命令按鈕輸出結(jié)果為
A．0
B．2
C．10
D．25
正確答案: D
(35) 在窗體上畫一個命令按鈕，然后寫出如下事件過程：
Private Sub Command1_Click()
s=1
Do
s=(s + 1) ^ (s + 2)
Number=Number + 1
Loop Until s >=6
Print Number, s
End Sub
程序運行后，輸出的結(jié)果是
A．23
B．318
C．18
D．1020
正確答案: C
二 、填空題
(1) 常用的黑箱測試有等價分類法、 【1】 、因果圖法和錯誤推測法4種。
正確答案: 1.(邊值分析法)
(2) 測試的目的是暴露錯誤，評價程序的可靠性；而 【2】 的目的是發(fā)現(xiàn)錯誤的位置并改正錯誤。
正確答案: 1.(調(diào)試)
(3) 軟件維護(hù)活動包括以下幾類：改正性維護(hù)、適應(yīng)性維護(hù)、 【3】 維護(hù)和預(yù)防性維護(hù)。
正確答案: 1.(完善性)
(4) 在面向?qū)ο蟮脑O(shè)計中，用來請求對象執(zhí)行某一處理或回答某些信息的要求稱為 【4】 。
正確答案: 1.(消息)
(5) 關(guān)鍵字ASC和DESC分別表示 【5】 的含義。
正確答案: 1.(升序排列和降序排列)
(6) 下述語句段在運行時的顯示結(jié)果是 【6】 。
Cls
x=10.34 + 8
Print Len(x)
正確答案: 1.(5)
(7) 窗體上有兩個按鈕，則執(zhí)行程序后按鍵盤Cance1鍵的輸出結(jié)果是 【7】 。
Private Sub Command1_Click()
Print "北京";
End Sub
Private Sub Command2_Click()
Print "南京";
End Sub
Private Sub Form_Load()
Command2.Cancel=True
Command1.Cancel=True
End Sub
正確答案: 1.(北京)
(8) 下列事件過程的功能是：通過Form_Load事件給數(shù)組賦初值為35、48、15、22、67，F(xiàn)orm_Click事件找出可以被3整除的數(shù)組元素并打印出來。請在空白處填入適當(dāng)?shù)膬?nèi)容，將程序補充完整。
Dim Arr()
Private Sub Form_Load()
【8】
End Sub
Private Sub Form_Click()
【9】
If Int(x / 3) =x / 3 Then
Print x
End If
Next x
End Sub
正確答案: 1.(Arr = Array(35, 48, 15, 22, 67)) 2.(For Each x In Arr)
(9) 給定年份，下列程序用來判斷該年是否是閏年，請?zhí)羁铡?BR> Sub YN()
Dim x As Integer
x=InputBox("請輸入年號")
If (x Mod 4=0 【10】 x Mod 100 <> 0) 【11】 (x Mod 400=0) Then
Print "是閏年"
Else
Print "不是閏年，是普通年份"
End If
End Sub
正確答案: 1.(And) 2.(Or)
(10) 在E盤當(dāng)前目錄文件夾下建立一個名為"Student.txt"的順序文件，要求用InputBox函數(shù)輸入5個學(xué)生的姓名(StuName) 、年級(StuGrade) 和年齡(StuAge) 。
Private Sub Form_Click()
【12】
For i=1 To 5
StuName=InputBox("請輸入姓名")
StuGrade=InputBox("請輸入年級號")
StuAge=InputBox("請輸入年齡")
【13】
Next i
【14】
End Sub
正確答案: 1.(Open) 2.("E:＼Student.txt" For Output As #1) 3.(Write #1, S)
(11) 在窗體上有一個命令按鈕，然后編如下事件過程：
Function SR(x As Double) As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case -1
SR=-1
End Select
End Function
Private Sub Command1_Click()
Dim Msg, SRN
Dim N As Double
N=InputBox("請輸入要計算平方根的數(shù)")
Msg=N & "的平方根"
Select Case SR(N)
Case 0
Msg=Msg & "是0"
Case -1
Msg=Msg & "是一個虛數(shù)"
Case Else
Msg=Msg & "是" & SR(N)
End Select
MsgBox Msg
End Sub
程序運行后，單擊命令按鈕，在輸入對話框內(nèi)輸入-1，輸出結(jié)果是 【15】 。
正確答案: 1.(-1的平方根是一個虛數(shù))