一、選擇題（每題2分，共計70分）
1.下面敘述正確的是
A、算法的執(zhí)行效率與數(shù)據(jù)的存儲結(jié)構無關
B、算法的空間復雜度是指算法程序中指令（或語句）的條數(shù)
C、算法的有窮性是指算法必須能在執(zhí)行有限個步驟之后終止
D、以上三種描述都不對
A B C D
2.以下數(shù)據(jù)結(jié)構中不屬于線性結(jié)構的是
A、隊列
B、線性表
C、二叉樹
D、棧
A B C D
3.在一顆二叉樹上第5層的結(jié)點數(shù)最多是
A、8
B、16
C、32
D、15
A B C D
4.下面描述中，符合結(jié)構化程序設計風格的是
A、使用順序、選擇和重復（循環(huán)）三種基本控制結(jié)構表示程序的控制邏輯
B、模塊只有一個入口，可以有多個出口
C、注重提高程序的執(zhí)行效率
D、不使用goto語句
A B C D
5.下面概念中，不屬于面向?qū)ο蠓椒ǖ氖?BR> A、對象
B、繼承
C、類
D、過程調(diào)用
A B C D
6.在結(jié)構化方法中，用數(shù)據(jù)流程圖（DFD）作為描述工具的軟件開發(fā)階段是
A、可行性分析
B、需求分析
C、詳細設計
D、程序編碼
A B C D
7.在軟件開發(fā)中，下面任務不屬于設計階段的是
A、數(shù)據(jù)結(jié)構設計
B、給出系統(tǒng)模塊結(jié)構
C、定義模塊算法
D、定義需求并建立系統(tǒng)模型
A B C D
8.數(shù)據(jù)庫系統(tǒng)的核心是
A、數(shù)據(jù)模型
B、數(shù)據(jù)庫管理系統(tǒng)
C、軟件工具
D、數(shù)據(jù)庫
A B C D
9.下列敘述中正確的是
A、數(shù)據(jù)庫系統(tǒng)是一個獨立的系統(tǒng)，不需要操作系統(tǒng)的支持
B、數(shù)據(jù)庫設計是指設計數(shù)據(jù)庫管理系統(tǒng)
C、數(shù)據(jù)庫技術的根本目標是要解決數(shù)據(jù)共享的問題
D、數(shù)據(jù)庫系統(tǒng)中，數(shù)據(jù)的物理結(jié)構必須與邏輯結(jié)構一致
A B C D
10.下列模式中，能夠給出數(shù)據(jù)庫物理存儲結(jié)構與物理存取方法的是
A、內(nèi)模式
B、外模式
C、概念模式
D、邏輯模式
A B C D
11.設計窗體有一個文本框，名稱為Text1，程序運行后，要求該文本框只能顯示信息不能輸入信息，以下實現(xiàn)該操作的語句是
A、Text1.Maxlength=0
B、Text1.Enabled=False
C、Text1.Visible=False
D、Text1.Width=0
A B C D
12.
A B C D
13.設菜單中只有一個菜單項為“Open”。若要為該菜單命令設置訪問鍵，即按下Alt及字母O時，能夠執(zhí)行“Open”命令，則在菜單編輯器中設置“Open”命令的方式是
A、把Caption屬性設置為 &Open
B、把Caption屬性設置為 O&pen
C、把Name屬性設置為 &Open
D、把Name屬性設置為 O&pen
A B C D
14.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是
A、分支 1
B、分支 2
C、Else 分支
D、程序出錯
A B C D
15.以下關于MsgBox的敘述中，錯誤的是
A、MsgBox函數(shù)返回一個整數(shù)
B、通過MsgBox 函數(shù)可以設置信息框中圖標和按鈕類型
C、MsgBox 語句沒有返回值
D、MsgBox 函數(shù)的第二個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù)量
A B C D
16.在窗體上畫一個名稱為Timer的計時器控件，要求每隔0.5秒發(fā)生一次計時事件，則以下正確的屬性設置語句是
A、Timer.Interval=0.5
B、Timer.Interval=5
C、Timer.Interval=50
D、Timer.Interval=500
A B C D
17.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程；
Private Sub Command1_Click()
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是
A、4 2
B、12 18
C、12 30
D、4 6
A B C D
18.以下關于多重窗體程序的敘述中，錯誤的是
A、用Hide 方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體
B、在多重窗體程序中，各窗體的菜單是彼此獨立的
C、在多重窗體程序中，可以根據(jù)需要指定啟動窗體
D、對于多重窗體程序，需要單獨保存每個窗體
A B C D
19.以下合法的Visual Basic 標識符是
A、ForLoop
B、Const
C、9abc
D、a#x
A B C D
20.表達式 5 Mod 3 + 3\5*2 的值是
A、0
B、2
C、4
D、6
A B C D
21.設x=4，y=8，z=7，以下表達式的值是
xz) Or zA、1
B、-1
C、True
D、False
A B C D
22.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
a$ = "VisualBasic"
Print String(3, a$)
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是
A、VVV
B、Vis
C、sic
D、ll
A B C D
23.設有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
運行以上程序后，X的值是
A、36
B、27
C、38
D、57
A B C D
24.以下敘述中錯誤的是
A、在KeyPree事件過程中不能識別鍵盤的按下與釋放
B、在KeyPree事件過程中不能識別回車鍵
C、在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同字母
D、在KeyDown和KeyUp事件過程中，從大鍵盤輸入的“1”和從小鍵盤輸入的“1”被視作不同的字符
A B C D
25.在窗體上畫一個名稱為CommonDialog1 的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "all file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "VBTest"
CommonDialog1.Action = 1
End Sub
對于這個程序，以下敘述中錯誤的是
A、該對話框被設置為“打開”對話框
B、在該對話框中指定的默認文件名為空
C、該對話框的標題為VBTest
D、在該對話框中指定的默認文件類型為文本框（*.Txt）
A B C D
26.設一個工程由兩個窗體組成，其名稱分別為Form1 和Form2 ，在Form1上有一個名稱為Command1 的命令按鈕。窗體Form1 的程序代碼如下：
Private Sub Command1_Click()
Dim a As Integer
a = 10
Call g(Form2, a)
End Sub
Private Sub g(f As Form, x As Integer)
y = IIf(x > 10, 100, -100)
f.Show
f.Caption = y
End Sub
運行以上程序，正確的是
A、Form1的Caption屬性值為100
B、Form2的Caption屬性值為-100
C、Form1的Caption屬性值為-100
D、Form2的Caption屬性值為100
A B C D
27.在窗體上畫一個名稱為Comman1的命令按鈕，并編寫如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x = 10
y = 5
Call f1(x, y)
Print x, y
End Sub
Private Sub f1(x1 As Integer, y1 As Integer)
x1 = x1 + 2
y1 = y1 + 2
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示內(nèi)容是
A、10 5
B、12 5
C、10 7
D、12 7
A B C D
28.設有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n = InputBox("輸入數(shù)據(jù)")
If n < 10 Then
Call GetArray(a, n)
End If
End Sub
Private Sub GetArray(b() As Integer, n As Integer)
Dim c(10) As Integer
j = 0
For i = 1 To n
b(i) = CInt(Rnd() * 100)
If b(i) / 2 = b(i) \ 2 Then
j = j + 1
c(j) = b(i)
End If
Next
Print j
End Sub
以下程序中錯誤的是
A、數(shù)組b中的偶函數(shù)被保存在數(shù)組c中
B、程序運行結(jié)束時，在窗體上顯示的時c數(shù)組中元素的個數(shù)
C、GetArray過程的參數(shù)n 是按值傳送的
D、如果輸入的數(shù)據(jù)大于10，則窗體上不顯示任何信息
A B C D
29.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5)
For i = 1 To UBound(a)
a(i) = a(i) + i - 1
Next
Print a(3)
End Sub
程序運行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A、4
B、5 .
C、6
D、7
A B C D
30.閱讀程序
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \ 3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序運行后，單擊窗體，輸出結(jié)果為
A、13
B、14
C、27
D、15
A B C D
31.在窗體上畫一個名稱為File的文件列表框，并編寫如下程序：
Private Sub File1_DblClick()
x = Shell(File1.FileName, 1)
End Sub
以下關于該程序的敘述中，錯誤的是
A、x 沒有實際作用，因此可以將該語句寫為：Call Shell（file1.FileName，1）
B、雙擊文件列表框中的文件，將觸發(fā)該事件過程
C、要執(zhí)行的文件名字通過File.FileName 指定
D、File中顯示的是當前驅(qū)動器、當前目錄下的文件，
A B C D
32.
A B C D
33.執(zhí)行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
輸出結(jié)果為
A、ABA
B、BBABBA
C、ABBABA
D、AABAAB
A B C D
34.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5)
Sum = 0
For i = 1 To 5
Sum = Sum + a(i)
Next i
x = Sum / 5
For i = 1 To 5
If a(i) > x Then Print a(i);
Next i
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是
A、1 2
B、1 2 3
C、3 4 5
D、4 5
A B C D
35.假定一個工程有一個窗體文件Form1和兩個標準模塊文件Model1及Model2組成。
Model1代碼如下：
Public x As Integer
Public y As Integer
Sub S1()
x = 1
S2
End Sub
Sub S2()
y = 10
Form1.Show
End Sub
Model2代碼如下：
Sub Main()
S1
End Sub
其中 sub Main 被設置為啟動過程。 程序運行后，各模塊的執(zhí)行順序是
A、form1→Model1→Model2
B、Model1→Model2→Form1
C、Model2→Model1→Form1
D、Model2→Form1→Model1
A B C D
二、填空題（每空2分，共計30分）
1.算法的復雜度主要包括____復雜度和空間復雜度。
輸入答案，中間不含空格:
2.數(shù)據(jù)的邏輯結(jié)構在計算機存儲空間中的存放形式稱為數(shù)據(jù)的____。
輸入答案，中間不含空格:
3.若按功能劃分，軟件測試的方法通常分為白盒測試方法盒____測試方法。
輸入答案，中間不含空格:
4.如果一個工人可管理多個設備，而一個設備只能被一個工人管理，則實體“工人”和實體“設備”之間存在____關系。
輸入答案，中間不含空格:
5.關系數(shù)據(jù)庫管理系統(tǒng)能實現(xiàn)的專門關系運算包括選擇、連接、____。
輸入答案，中間不含空格:
6. 本程序的功能是利用隨機函數(shù)模擬投幣，方法是：每次隨機產(chǎn)生一個0或1的整數(shù)，
相當于一次投幣，1代表正面，0代表方面。在窗體上有三個文本框，名稱分別是
Text1、Text2、Text3，分別用于顯示用戶輸入投幣總數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)
反面的次數(shù)，如圖所示，程序運行后，在文本框Text1種輸入次數(shù)，然后單擊“開始”按鈕，
按照輸入的次數(shù)模擬投幣，分別統(tǒng)計出正面、反面的次數(shù)，并顯示出結(jié)構。以下是實現(xiàn)上
述功能的程序，請?zhí)羁铡?BR> Private sub Command1_click()
Randomize
n=Cint(Text1.Text)
n1=0
n2=0
For i=1 to ____
r=Int(Rnd*2)
if r=____ Then
n1=n1+1
Else
n2=n2+1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8. 閱讀程序：
Opention Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "輸入的數(shù)據(jù)是：";
For i=1 To 3
a(i) = InputBox("輸入數(shù)據(jù)")
Print a(i);
Next
Print
If a(1) < a(2) Then
t = a(1)
a(1) = a(2)
a(2) = ____
End If
If a(2)>a(3) Then
m = a(2)
ElseIf a(1) > a(3) Then
m=____
Else
m=____
End If
Print "中間數(shù)是";m
END SUB
程序運行后，單擊窗體，在輸入對話框中分別輸入三個整數(shù)，程序?qū)⑤敵鋈齻€數(shù)中的中間數(shù)，如圖所示，請?zhí)羁铡?BR> 輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.上一題
輸入答案，中間不含空格:
11. 在窗體上畫一個名稱為“Command1”，標題為“計算”的命令按鈕，再畫出7個標簽，其中5個標簽組成名稱為Label1的控件數(shù)組；名稱為Label2的標簽用于顯示計算結(jié)果，其Caption屬性的初始值為空；標簽Label3的標簽為“計算結(jié)果”。運行程序時會自動生成3個隨機整數(shù)，分別顯示再標簽數(shù)組的各個標簽中，如圖所示。單擊“計算”按鈕，則將標簽數(shù)組各元素的值累加，然后將計算結(jié)果顯示在Label2中。請?zhí)羁铡?BR> Private Sub Command1_Click()
Sum = 0
For i=0 To 4
Sum = Sum + ____
Next
____ = Sum
End Sub
輸入答案，中間不含空格:
12. 在窗體上畫兩個名稱分別為Command1和Command2、標簽分別為“初始化”和“求和”的命令按鈕。程序運新過后，如果單擊“初始化”命令按鈕，則對數(shù)組a的各元素賦值；如果單擊“求和”命令按鈕，則求出數(shù)組a的各元素之和，并在文檔中顯示出來，如圖所示。請?zhí)羁铡?BR> Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i=1 To 3
For j=1 To 2
____ = i+j
Next j
End Sub
Private Sub Command2_Click()
For i=1 To 3
For j=1 To 2
s = s + ____
Next j
Next i
Text1.text=____
End Sub
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.上一題
輸入答案，中間不含空格:
1.下面敘述正確的是
A、算法的執(zhí)行效率與數(shù)據(jù)的存儲結(jié)構無關
B、算法的空間復雜度是指算法程序中指令（或語句）的條數(shù)
C、算法的有窮性是指算法必須能在執(zhí)行有限個步驟之后終止
D、以上三種描述都不對
A B C D
2.以下數(shù)據(jù)結(jié)構中不屬于線性結(jié)構的是
A、隊列
B、線性表
C、二叉樹
D、棧
A B C D
3.在一顆二叉樹上第5層的結(jié)點數(shù)最多是
A、8
B、16
C、32
D、15
A B C D
4.下面描述中，符合結(jié)構化程序設計風格的是
A、使用順序、選擇和重復（循環(huán)）三種基本控制結(jié)構表示程序的控制邏輯
B、模塊只有一個入口，可以有多個出口
C、注重提高程序的執(zhí)行效率
D、不使用goto語句
A B C D
5.下面概念中，不屬于面向?qū)ο蠓椒ǖ氖?BR> A、對象
B、繼承
C、類
D、過程調(diào)用
A B C D
6.在結(jié)構化方法中，用數(shù)據(jù)流程圖（DFD）作為描述工具的軟件開發(fā)階段是
A、可行性分析
B、需求分析
C、詳細設計
D、程序編碼
A B C D
7.在軟件開發(fā)中，下面任務不屬于設計階段的是
A、數(shù)據(jù)結(jié)構設計
B、給出系統(tǒng)模塊結(jié)構
C、定義模塊算法
D、定義需求并建立系統(tǒng)模型
A B C D
8.數(shù)據(jù)庫系統(tǒng)的核心是
A、數(shù)據(jù)模型
B、數(shù)據(jù)庫管理系統(tǒng)
C、軟件工具
D、數(shù)據(jù)庫
A B C D
9.下列敘述中正確的是
A、數(shù)據(jù)庫系統(tǒng)是一個獨立的系統(tǒng)，不需要操作系統(tǒng)的支持
B、數(shù)據(jù)庫設計是指設計數(shù)據(jù)庫管理系統(tǒng)
C、數(shù)據(jù)庫技術的根本目標是要解決數(shù)據(jù)共享的問題
D、數(shù)據(jù)庫系統(tǒng)中，數(shù)據(jù)的物理結(jié)構必須與邏輯結(jié)構一致
A B C D
10.下列模式中，能夠給出數(shù)據(jù)庫物理存儲結(jié)構與物理存取方法的是
A、內(nèi)模式
B、外模式
C、概念模式
D、邏輯模式
A B C D
11.設計窗體有一個文本框，名稱為Text1，程序運行后，要求該文本框只能顯示信息不能輸入信息，以下實現(xiàn)該操作的語句是
A、Text1.Maxlength=0
B、Text1.Enabled=False
C、Text1.Visible=False
D、Text1.Width=0
A B C D
12.
A B C D
13.設菜單中只有一個菜單項為“Open”。若要為該菜單命令設置訪問鍵，即按下Alt及字母O時，能夠執(zhí)行“Open”命令，則在菜單編輯器中設置“Open”命令的方式是
A、把Caption屬性設置為 &Open
B、把Caption屬性設置為 O&pen
C、把Name屬性設置為 &Open
D、把Name屬性設置為 O&pen
A B C D
14.在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序運行后，如果在輸入對話框中輸入2，則窗體上顯示的是
A、分支 1
B、分支 2
C、Else 分支
D、程序出錯
A B C D
15.以下關于MsgBox的敘述中，錯誤的是
A、MsgBox函數(shù)返回一個整數(shù)
B、通過MsgBox 函數(shù)可以設置信息框中圖標和按鈕類型
C、MsgBox 語句沒有返回值
D、MsgBox 函數(shù)的第二個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù)量
A B C D
16.在窗體上畫一個名稱為Timer的計時器控件，要求每隔0.5秒發(fā)生一次計時事件，則以下正確的屬性設置語句是
A、Timer.Interval=0.5
B、Timer.Interval=5
C、Timer.Interval=50
D、Timer.Interval=500
A B C D
17.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程；
Private Sub Command1_Click()
Static x As Integer
Cls
For i = 1 To 2
y = y + x
x = x + 2
Next
Print x, y
End Sub
程序運行后，連續(xù)三次單擊Command1按鈕后，窗體上顯示的是
A、4 2
B、12 18
C、12 30
D、4 6
A B C D
18.以下關于多重窗體程序的敘述中，錯誤的是
A、用Hide 方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體
B、在多重窗體程序中，各窗體的菜單是彼此獨立的
C、在多重窗體程序中，可以根據(jù)需要指定啟動窗體
D、對于多重窗體程序，需要單獨保存每個窗體
A B C D
19.以下合法的Visual Basic 標識符是
A、ForLoop
B、Const
C、9abc
D、a#x
A B C D
20.表達式 5 Mod 3 + 3\5*2 的值是
A、0
B、2
C、4
D、6
A B C D
21.設x=4，y=8，z=7，以下表達式的值是
xz) Or zA、1
B、-1
C、True
D、False
A B C D
22.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程：
Private Sub Command1_Click()
a$ = "VisualBasic"
Print String(3, a$)
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是
A、VVV
B、Vis
C、sic
D、ll
A B C D
23.設有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
運行以上程序后，X的值是
A、36
B、27
C、38
D、57
A B C D
24.以下敘述中錯誤的是
A、在KeyPree事件過程中不能識別鍵盤的按下與釋放
B、在KeyPree事件過程中不能識別回車鍵
C、在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同字母
D、在KeyDown和KeyUp事件過程中，從大鍵盤輸入的“1”和從小鍵盤輸入的“1”被視作不同的字符
A B C D
25.在窗體上畫一個名稱為CommonDialog1 的通用對話框，一個名稱為Command1的命令按鈕。然后編寫如下事件過程：
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "all file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex = 2
CommonDialog1.DialogTitle = "VBTest"
CommonDialog1.Action = 1
End Sub
對于這個程序，以下敘述中錯誤的是
A、該對話框被設置為“打開”對話框
B、在該對話框中指定的默認文件名為空
C、該對話框的標題為VBTest
D、在該對話框中指定的默認文件類型為文本框（*.Txt）
A B C D
26.設一個工程由兩個窗體組成，其名稱分別為Form1 和Form2 ，在Form1上有一個名稱為Command1 的命令按鈕。窗體Form1 的程序代碼如下：
Private Sub Command1_Click()
Dim a As Integer
a = 10
Call g(Form2, a)
End Sub
Private Sub g(f As Form, x As Integer)
y = IIf(x > 10, 100, -100)
f.Show
f.Caption = y
End Sub
運行以上程序，正確的是
A、Form1的Caption屬性值為100
B、Form2的Caption屬性值為-100
C、Form1的Caption屬性值為-100
D、Form2的Caption屬性值為100
A B C D
27.在窗體上畫一個名稱為Comman1的命令按鈕，并編寫如下程序：
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x = 10
y = 5
Call f1(x, y)
Print x, y
End Sub
Private Sub f1(x1 As Integer, y1 As Integer)
x1 = x1 + 2
y1 = y1 + 2
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示內(nèi)容是
A、10 5
B、12 5
C、10 7
D、12 7
A B C D
28.設有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n = InputBox("輸入數(shù)據(jù)")
If n < 10 Then
Call GetArray(a, n)
End If
End Sub
Private Sub GetArray(b() As Integer, n As Integer)
Dim c(10) As Integer
j = 0
For i = 1 To n
b(i) = CInt(Rnd() * 100)
If b(i) / 2 = b(i) \ 2 Then
j = j + 1
c(j) = b(i)
End If
Next
Print j
End Sub
以下程序中錯誤的是
A、數(shù)組b中的偶函數(shù)被保存在數(shù)組c中
B、程序運行結(jié)束時，在窗體上顯示的時c數(shù)組中元素的個數(shù)
C、GetArray過程的參數(shù)n 是按值傳送的
D、如果輸入的數(shù)據(jù)大于10，則窗體上不顯示任何信息
A B C D
29.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下事件過程：
Option Base 1
Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5)
For i = 1 To UBound(a)
a(i) = a(i) + i - 1
Next
Print a(3)
End Sub
程序運行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是
A、4
B、5 .
C、6
D、7
A B C D
30.閱讀程序
Option Base 1
Private Sub Form_Click()
Dim arr, Sum
Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)
For i = 1 To 10
If arr(i) / 3 = arr(i) \ 3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序運行后，單擊窗體，輸出結(jié)果為
A、13
B、14
C、27
D、15
A B C D
31.在窗體上畫一個名稱為File的文件列表框，并編寫如下程序：
Private Sub File1_DblClick()
x = Shell(File1.FileName, 1)
End Sub
以下關于該程序的敘述中，錯誤的是
A、x 沒有實際作用，因此可以將該語句寫為：Call Shell（file1.FileName，1）
B、雙擊文件列表框中的文件，將觸發(fā)該事件過程
C、要執(zhí)行的文件名字通過File.FileName 指定
D、File中顯示的是當前驅(qū)動器、當前目錄下的文件，
A B C D
32.
A B C D
33.執(zhí)行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
輸出結(jié)果為
A、ABA
B、BBABBA
C、ABBABA
D、AABAAB
A B C D
34.在窗體上畫一個名稱為Command1 的命令按鈕，然后編寫如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5)
Sum = 0
For i = 1 To 5
Sum = Sum + a(i)
Next i
x = Sum / 5
For i = 1 To 5
If a(i) > x Then Print a(i);
Next i
End Sub
程序運行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是
A、1 2
B、1 2 3
C、3 4 5
D、4 5
A B C D
35.假定一個工程有一個窗體文件Form1和兩個標準模塊文件Model1及Model2組成。
Model1代碼如下：
Public x As Integer
Public y As Integer
Sub S1()
x = 1
S2
End Sub
Sub S2()
y = 10
Form1.Show
End Sub
Model2代碼如下：
Sub Main()
S1
End Sub
其中 sub Main 被設置為啟動過程。 程序運行后，各模塊的執(zhí)行順序是
A、form1→Model1→Model2
B、Model1→Model2→Form1
C、Model2→Model1→Form1
D、Model2→Form1→Model1
A B C D
二、填空題（每空2分，共計30分）
1.算法的復雜度主要包括____復雜度和空間復雜度。
輸入答案，中間不含空格:
2.數(shù)據(jù)的邏輯結(jié)構在計算機存儲空間中的存放形式稱為數(shù)據(jù)的____。
輸入答案，中間不含空格:
3.若按功能劃分，軟件測試的方法通常分為白盒測試方法盒____測試方法。
輸入答案，中間不含空格:
4.如果一個工人可管理多個設備，而一個設備只能被一個工人管理，則實體“工人”和實體“設備”之間存在____關系。
輸入答案，中間不含空格:
5.關系數(shù)據(jù)庫管理系統(tǒng)能實現(xiàn)的專門關系運算包括選擇、連接、____。
輸入答案，中間不含空格:
6. 本程序的功能是利用隨機函數(shù)模擬投幣，方法是：每次隨機產(chǎn)生一個0或1的整數(shù)，
相當于一次投幣，1代表正面，0代表方面。在窗體上有三個文本框，名稱分別是
Text1、Text2、Text3，分別用于顯示用戶輸入投幣總數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)
反面的次數(shù)，如圖所示，程序運行后，在文本框Text1種輸入次數(shù)，然后單擊“開始”按鈕，
按照輸入的次數(shù)模擬投幣，分別統(tǒng)計出正面、反面的次數(shù)，并顯示出結(jié)構。以下是實現(xiàn)上
述功能的程序，請?zhí)羁铡?BR> Private sub Command1_click()
Randomize
n=Cint(Text1.Text)
n1=0
n2=0
For i=1 to ____
r=Int(Rnd*2)
if r=____ Then
n1=n1+1
Else
n2=n2+1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8. 閱讀程序：
Opention Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "輸入的數(shù)據(jù)是：";
For i=1 To 3
a(i) = InputBox("輸入數(shù)據(jù)")
Print a(i);
Next
If a(1) < a(2) Then
t = a(1)
a(1) = a(2)
a(2) = ____
End If
If a(2)>a(3) Then
m = a(2)
ElseIf a(1) > a(3) Then
m=____
Else
m=____
End If
Print "中間數(shù)是";m
END SUB
程序運行后，單擊窗體，在輸入對話框中分別輸入三個整數(shù)，程序?qū)⑤敵鋈齻€數(shù)中的中間數(shù)，如圖所示，請?zhí)羁铡?BR> 輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.上一題
輸入答案，中間不含空格:
11. 在窗體上畫一個名稱為“Command1”，標題為“計算”的命令按鈕，再畫出7個標簽，其中5個標簽組成名稱為Label1的控件數(shù)組；名稱為Label2的標簽用于顯示計算結(jié)果，其Caption屬性的初始值為空；標簽Label3的標簽為“計算結(jié)果”。運行程序時會自動生成3個隨機整數(shù)，分別顯示再標簽數(shù)組的各個標簽中，如圖所示。單擊“計算”按鈕，則將標簽數(shù)組各元素的值累加，然后將計算結(jié)果顯示在Label2中。請?zhí)羁铡?BR> Private Sub Command1_Click()
Sum = 0
For i=0 To 4
Sum = Sum + ____
Next
____ = Sum
End Sub
輸入答案，中間不含空格:
12. 在窗體上畫兩個名稱分別為Command1和Command2、標簽分別為“初始化”和“求和”的命令按鈕。程序運新過后，如果單擊“初始化”命令按鈕，則對數(shù)組a的各元素賦值；如果單擊“求和”命令按鈕，則求出數(shù)組a的各元素之和，并在文檔中顯示出來，如圖所示。請?zhí)羁铡?BR> Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i=1 To 3
For j=1 To 2
____ = i+j
Next j
End Sub
Private Sub Command2_Click()
For i=1 To 3
For j=1 To 2
s = s + ____
Next j
Next i
Text1.text=____
End Sub
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.上一題
輸入答案，中間不含空格: