一、選擇題（每題2分，共計(jì)70分）
1.數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指
A、數(shù)據(jù)所占的存儲(chǔ)空間量
B、數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示
C、數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式
D、存儲(chǔ)在外存中的數(shù)據(jù)
A B C D
2.下列關(guān)于棧的敘述中正確的是
A、在棧中只能插入數(shù)據(jù)
B、在棧中只能刪除數(shù)據(jù)
C、棧是先進(jìn)先出的線性表
D、棧是先進(jìn)后出的線性表
A B C D
3.樹(shù)最適合用來(lái)表示____。
A、有序數(shù)組元素
B、無(wú)序數(shù)組元素
C、元素之間具有分支層次關(guān)系的數(shù)據(jù)
D、元素之間無(wú)聯(lián)系的數(shù)據(jù)
A B C D
4.堆（Heap）是____。
A、完全二叉樹(shù)
B、線性表
C、二叉排序樹(shù)
D、平衡二叉樹(shù)
A B C D
5.對(duì)建立良好的程序設(shè)計(jì)風(fēng)格，下面描述正確的是
A、程序應(yīng)簡(jiǎn)單、清晰、可讀性好
B、符號(hào)名的命名只要符合語(yǔ)法
C、充分考慮程序的執(zhí)行效率
D、程序的注釋可有可無(wú)
A B C D
6.軟件需求分析階段的工作，可以分為四個(gè)方面需求獲取，需求分析，編寫(xiě)需求規(guī)格說(shuō)明書(shū)，以及
A、階段性報(bào)告
B、需求評(píng)審
C、總結(jié)
D、以上都不正確
A B C D
7.在軟件的結(jié)構(gòu)化設(shè)計(jì)（SD）方法中，一般分為總體設(shè)計(jì)和詳細(xì)設(shè)計(jì)兩個(gè)聯(lián)合體其中總體設(shè)計(jì)主要是建立
A、軟件結(jié)構(gòu)
B、軟件流程
C、軟件模型
D、軟件模塊
A B C D
8.下面所列各項(xiàng)，哪些屬于數(shù)據(jù)庫(kù)技術(shù)的研究領(lǐng)域？
Ⅰ.數(shù)據(jù)庫(kù)管理系統(tǒng)軟件的研制 Ⅱ.數(shù)據(jù)庫(kù)設(shè)計(jì)
Ⅲ. 數(shù)據(jù)庫(kù)理論 Ⅳ.操作系統(tǒng)
A、Ⅰ和Ⅱ
B、Ⅰ和Ⅲ
C、Ⅰ、Ⅱ和Ⅲ
D、全部
A B C D
9.用樹(shù)形結(jié)構(gòu)來(lái)表示實(shí)體之間聯(lián)系的模型稱(chēng)為
A、關(guān)系模型
B、層次模型
C、網(wǎng)狀模型
D、數(shù)據(jù)模型
A B C D
10.設(shè)關(guān)系R和關(guān)系S具有相同的屬性個(gè)數(shù)，且相應(yīng)的屬性取自同一個(gè)域，則
{t|t∈R∧非t∈S} t是元組變量
其結(jié)果關(guān)系是
A、R∪S
B、R－S
C、R∩S
D、R－(R－S)
A B C D
11.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Move 500,500
End Sub
程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為
A、命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置
B、窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置
C、命令按鈕向左、上方向各移動(dòng)500
D、窗體向左、上方向各移動(dòng)500
A B C D
12.以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的是
A、Dim a As Variant
a = Array(1,2,3,4,5)
B、Dim a(10) As Integer
a = Array(1,2,3,4,5)
C、Dim a%(10)
a(1) = "ABCDE"
D、Dim a(3),b(3) As Integer
a(0) = 0
a(1) = 1
a(2) = 2
b = a
A B C D
13.以下Case語(yǔ)句中錯(cuò)誤的是
A、Case 0 To 10
B、Case Is>10
C、Case Is>10 And Is<50
D、Case 3,5,Is>10
A B C D
14.執(zhí)行語(yǔ)句s=Len(Mid("VisualBasic",1,6))后，s的值是
A、Visual
B、Basic
C、6
D、11
A B C D
15.在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是
A、123.45
B、12345.00
C、12345
D、00123.45
A B C D
16.以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是
A、函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系
B、在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)
C、當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞
D、如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型
A B C D
17.確定一個(gè)控件在窗體的位置的屬性是
A、Width和Height
B、Width或Height
C、Top和Left
D、Top或Left
A B C D
18.以下關(guān)系表達(dá)式中，其值為False的是
A、"ABC">"AbC"
B、"the"<>"they"
C、"VISUAL"=UCase("Visual")
D、"Integer">"Int"
A B C D
19.在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱(chēng)分別為T(mén)ext1、Label1和Command1,然后編寫(xiě)如下兩個(gè)事件過(guò)程：
Private Sub Command1_Click()
strText=InputBox("請(qǐng)輸入")
Text1.Text=strText
End Sub
Private Sub Text1_Change()
Label1.Caption=Right(Trim(Text1.Text),3)
End Sub
程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef，則在標(biāo)簽中顯示的內(nèi)容是
A、空
B、abcdef
C、abc
D、def
A B C D
20.一個(gè)工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語(yǔ)句
Public X As Integer
在Model1中有語(yǔ)句
Public Y As Integer
則以下敘述中正確的是
A、變量X、Y的作用域相同
B、Y的作用域是Model1
C、在From1中可以直接使用X
D、在Form2中可以直接使用X和Y
A B C D
21.在窗體上畫(huà)一個(gè)命令按鈕(其N(xiāo)ame屬性為Command1),然后編寫(xiě)如下代碼：
Option Base 1
Private Sub Command1_Click()
Dim a
s=0
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是
A、4321
B、1234
C、34
D、12
A B C D
22.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，要求文本框只能接收大寫(xiě)字母的輸入。以下能實(shí)現(xiàn)該操作的事件過(guò)程是
A、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 Or KeyAscii>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
KeyAscii=0
End If
End Sub
B、Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode<65 Or KeyCode>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
KeyCode=0
End If
End Sub
C、Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
End If
End Sub
D、Private Sub Text1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)<91 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
End If
End Sub
A B C D
23.假定在窗體(名稱(chēng)為Form1)的代碼窗口中定義如下記錄類(lèi)型：
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbTest.dat" For Random As #1 Len=len(rec)
rec.animalName="Cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
則以下敘述中正確的是
A、記錄類(lèi)型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義
B、如果文件c:\vbTest.dat不存在，則Open命令執(zhí)行失敗
C、由于Put命令中沒(méi)有指明記錄號(hào)，因此每次都把記錄寫(xiě)到文件的末尾
D、語(yǔ)句“Put #1,,rec”將animal類(lèi)型的兩個(gè)數(shù)據(jù)元素寫(xiě)到文件中
A B C D
24.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程和通用過(guò)程：
Private Sub Command1_Click()
n=Val(Text1.Text)
If n\2=n/2 Then
f=f1(n)
Else
f=f2(n)
End If
Print f;n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序運(yùn)行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是
A、72 36
B、108 36
C、72 6
D、108 6
A B C D
25.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print ____
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：
1
12
123
1234
則在下劃線處應(yīng)填入的內(nèi)容為
A、Right(c1,i)
B、Left(c1,i)
C、Mid(c1,i,1)
D、Mid(c1,i,i)
A B C D
26.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
該事件過(guò)程的功能是
A、輸出n以內(nèi)的奇數(shù)
B、輸出n以內(nèi)的偶數(shù)
C、輸出n以內(nèi)的素?cái)?shù)
D、輸出n以內(nèi)能被j整除的數(shù)
A B C D
27.以下描述中正確的是
A、標(biāo)準(zhǔn)模塊中的任意過(guò)程都可以在整個(gè)工程范圍內(nèi)被調(diào)用
B、在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為Public的通用過(guò)程
C、如果工程中包含Sub Main過(guò)程，則程序?qū)⑹紫葓?zhí)行該過(guò)程
D、如果工程中不包含Sub Main過(guò)程，則程序一定首先執(zhí)行第一個(gè)建立的窗體
A B C D
28.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f=m
Else
f=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s=0
For i=1 To 5
s=s+f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊按鈕，在窗體上顯示的是
A、11
B、10
C、9
D、8
A B C D
29.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是
A、15
B、14
C、13
D、12
A B C D
30.在窗體上畫(huà)四個(gè)文本框（如圖所示），并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱(chēng)為T(mén)ext1
（下標(biāo)從0開(kāi)始，自左至右順序增大，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text(1).Index
i=i+1
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為
A、0 1 2 3
B、1 2 3 4
C、0 1 3 2
D、出錯(cuò)信息
A B C D
31.以下敘述錯(cuò)誤的是
A、Visual Basic是事件驅(qū)動(dòng)型可視化編程工具
B、Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句
C、Visual Basic工具箱中的所有控件都具有寬度（Width)和高度(Height)屬性
D、Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置
A B C D
32.以下敘述錯(cuò)誤的是
A、在工程資源管理窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件
B、以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件
C、窗體文件包含該窗體及其控件的屬性
D、一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件
A B C D
33.以下敘述錯(cuò)誤的是
A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件
B、窗體或控件的事件的名稱(chēng)可以由編程人員確定
C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件
D、控件的名稱(chēng)可以由編程人員設(shè)定
A B C D
34.以下不屬于Visual Basic系統(tǒng)的文件類(lèi)型是
A、.frm
B、.bas
C、.vbg
D、.vbp
A B C D
35.以下敘述錯(cuò)誤的是
A、打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件
B、保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件
C、Visual Basic應(yīng)用程序只能以解釋方式進(jìn)行
D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)
A B C D
二、填空題（每空2分，共計(jì)30分）
1.在完全二叉樹(shù)順序存儲(chǔ)中，若結(jié)點(diǎn)I有左子女，則其左子女是結(jié)點(diǎn)____。
輸入答案，中間不含空格:
2.快速排序方法在要排序的數(shù)據(jù)____情況下最不利于發(fā)揮其長(zhǎng)處。
輸入答案，中間不含空格:
3.____是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行程序的過(guò)程。
輸入答案，中間不含空格:
4.三級(jí)結(jié)構(gòu)以____、中間層和外層三個(gè)不同層次描述數(shù)據(jù)庫(kù)，分別稱(chēng)為內(nèi)模式、模式和外模式。
輸入答案，中間不含空格:
5.聯(lián)系是指____之間的相互聯(lián)系。
輸入答案，中間不含空格:
6.在菜單編輯器中建立一個(gè)菜單，其主要菜單項(xiàng)的名稱(chēng)為mnuEdit,Visible屬性為False。程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit對(duì)應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?BR> Private Sub Form_ _______(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
_____ mnuEdit
End If
End Sub
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的____屬性設(shè)置為_(kāi)___。
輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.將C盤(pán)根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是_____。
輸入答案，中間不含空格:
11. 在窗體上畫(huà)兩個(gè)組合框，其名稱(chēng)為 Combo1、Combo2，然后畫(huà)兩個(gè)標(biāo)簽，名稱(chēng)分別
為L(zhǎng)abel1、Label2，如圖所示。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則
把所選中的項(xiàng)目在其下面的標(biāo)簽顯示出來(lái)。請(qǐng)?zhí)羁铡?BR>
Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2,Label2)
End Sub
Public Sub ShowItem(temCombo As Combox,tmplabel As Label)
____.Caption = ____.Text
End Sub
輸入答案，中間不含空格:
12.上一題
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.上一題
輸入答案，中間不含空格:
1.數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)是指
A、數(shù)據(jù)所占的存儲(chǔ)空間量
B、數(shù)據(jù)的邏輯結(jié)構(gòu)在計(jì)算機(jī)中的表示
C、數(shù)據(jù)在計(jì)算機(jī)中的順序存儲(chǔ)方式
D、存儲(chǔ)在外存中的數(shù)據(jù)
A B C D
2.下列關(guān)于棧的敘述中正確的是
A、在棧中只能插入數(shù)據(jù)
B、在棧中只能刪除數(shù)據(jù)
C、棧是先進(jìn)先出的線性表
D、棧是先進(jìn)后出的線性表
A B C D
3.樹(shù)最適合用來(lái)表示____。
A、有序數(shù)組元素
B、無(wú)序數(shù)組元素
C、元素之間具有分支層次關(guān)系的數(shù)據(jù)
D、元素之間無(wú)聯(lián)系的數(shù)據(jù)
A B C D
4.堆（Heap）是____。
A、完全二叉樹(shù)
B、線性表
C、二叉排序樹(shù)
D、平衡二叉樹(shù)
A B C D
5.對(duì)建立良好的程序設(shè)計(jì)風(fēng)格，下面描述正確的是
A、程序應(yīng)簡(jiǎn)單、清晰、可讀性好
B、符號(hào)名的命名只要符合語(yǔ)法
C、充分考慮程序的執(zhí)行效率
D、程序的注釋可有可無(wú)
A B C D
6.軟件需求分析階段的工作，可以分為四個(gè)方面需求獲取，需求分析，編寫(xiě)需求規(guī)格說(shuō)明書(shū)，以及
A、階段性報(bào)告
B、需求評(píng)審
C、總結(jié)
D、以上都不正確
A B C D
7.在軟件的結(jié)構(gòu)化設(shè)計(jì)（SD）方法中，一般分為總體設(shè)計(jì)和詳細(xì)設(shè)計(jì)兩個(gè)聯(lián)合體其中總體設(shè)計(jì)主要是建立
A、軟件結(jié)構(gòu)
B、軟件流程
C、軟件模型
D、軟件模塊
A B C D
8.下面所列各項(xiàng)，哪些屬于數(shù)據(jù)庫(kù)技術(shù)的研究領(lǐng)域？
Ⅰ.數(shù)據(jù)庫(kù)管理系統(tǒng)軟件的研制 Ⅱ.數(shù)據(jù)庫(kù)設(shè)計(jì)
Ⅲ. 數(shù)據(jù)庫(kù)理論 Ⅳ.操作系統(tǒng)
A、Ⅰ和Ⅱ
B、Ⅰ和Ⅲ
C、Ⅰ、Ⅱ和Ⅲ
D、全部
A B C D
9.用樹(shù)形結(jié)構(gòu)來(lái)表示實(shí)體之間聯(lián)系的模型稱(chēng)為
A、關(guān)系模型
B、層次模型
C、網(wǎng)狀模型
D、數(shù)據(jù)模型
A B C D
10.設(shè)關(guān)系R和關(guān)系S具有相同的屬性個(gè)數(shù)，且相應(yīng)的屬性取自同一個(gè)域，則
{t|t∈R∧非t∈S} t是元組變量
其結(jié)果關(guān)系是
A、R∪S
B、R－S
C、R∩S
D、R－(R－S)
A B C D
11.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Move 500,500
End Sub
程序運(yùn)行后，單擊命令按鈕，執(zhí)行的操作為
A、命令按鈕移動(dòng)到距窗體左邊界、上邊界各500的位置
B、窗體移動(dòng)到距屏幕左邊界、上邊界各500的位置
C、命令按鈕向左、上方向各移動(dòng)500
D、窗體向左、上方向各移動(dòng)500
A B C D
12.以下定義數(shù)組或給數(shù)組元素賦值的語(yǔ)句中，正確的是
A、Dim a As Variant
a = Array(1,2,3,4,5)
B、Dim a(10) As Integer
a = Array(1,2,3,4,5)
C、Dim a%(10)
a(1) = "ABCDE"
D、Dim a(3),b(3) As Integer
a(0) = 0
a(1) = 1
a(2) = 2
b = a
A B C D
13.以下Case語(yǔ)句中錯(cuò)誤的是
A、Case 0 To 10
B、Case Is>10
C、Case Is>10 And Is<50
D、Case 3,5,Is>10
A B C D
14.執(zhí)行語(yǔ)句s=Len(Mid("VisualBasic",1,6))后，s的值是
A、Visual
B、Basic
C、6
D、11
A B C D
15.在窗體上畫(huà)一個(gè)命令按鈕，其名稱(chēng)為Command1，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序運(yùn)行后，單擊命令按鈕，窗體上顯示的是
A、123.45
B、12345.00
C、12345
D、00123.45
A B C D
16.以下關(guān)于函數(shù)過(guò)程的敘述中，正確的是
A、函數(shù)過(guò)程形參的類(lèi)型與函數(shù)返回值的類(lèi)型沒(méi)有關(guān)系
B、在函數(shù)過(guò)程中，過(guò)程的返回值可以有多個(gè)
C、當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以傳址方式傳遞
D、如果不指明函數(shù)過(guò)程參數(shù)的類(lèi)型，則該參數(shù)沒(méi)有數(shù)據(jù)類(lèi)型
A B C D
17.確定一個(gè)控件在窗體的位置的屬性是
A、Width和Height
B、Width或Height
C、Top和Left
D、Top或Left
A B C D
18.以下關(guān)系表達(dá)式中，其值為False的是
A、"ABC">"AbC"
B、"the"<>"they"
C、"VISUAL"=UCase("Visual")
D、"Integer">"Int"
A B C D
19.在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱(chēng)分別為T(mén)ext1、Label1和Command1,然后編寫(xiě)如下兩個(gè)事件過(guò)程：
Private Sub Command1_Click()
strText=InputBox("請(qǐng)輸入")
Text1.Text=strText
End Sub
Private Sub Text1_Change()
Label1.Caption=Right(Trim(Text1.Text),3)
End Sub
程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入abcdef，則在標(biāo)簽中顯示的內(nèi)容是
A、空
B、abcdef
C、abc
D、def
A B C D
20.一個(gè)工程中含有窗體Form1、Form2和標(biāo)準(zhǔn)模塊Model1，如果在Form1中有語(yǔ)句
Public X As Integer
在Model1中有語(yǔ)句
Public Y As Integer
則以下敘述中正確的是
A、變量X、Y的作用域相同
B、Y的作用域是Model1
C、在From1中可以直接使用X
D、在Form2中可以直接使用X和Y
A B C D
21.在窗體上畫(huà)一個(gè)命令按鈕(其N(xiāo)ame屬性為Command1),然后編寫(xiě)如下代碼：
Option Base 1
Private Sub Command1_Click()
Dim a
s=0
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是
A、4321
B、1234
C、34
D、12
A B C D
22.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，要求文本框只能接收大寫(xiě)字母的輸入。以下能實(shí)現(xiàn)該操作的事件過(guò)程是
A、Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<65 Or KeyAscii>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
KeyAscii=0
End If
End Sub
B、Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
If KeyCode<65 Or KeyCode>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
KeyCode=0
End If
End Sub
C、Private Sub Text1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Asc(Text1.Text)<65 Or Asc(Text1.Text)>90 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
End If
End Sub
D、Private Sub Text1_Change()
If Asc(Text1.Text)>64 And Asc(Text1.Text)<91 Then
MsgBox"請(qǐng)輸入大寫(xiě)字母"
End If
End Sub
A B C D
23.假定在窗體(名稱(chēng)為Form1)的代碼窗口中定義如下記錄類(lèi)型：
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbTest.dat" For Random As #1 Len=len(rec)
rec.animalName="Cat"
rec.aColor="White"
Put #1,,rec
Close #1
End Sub
則以下敘述中正確的是
A、記錄類(lèi)型animal不能在Form1中定義，必須在標(biāo)準(zhǔn)模塊中定義
B、如果文件c:\vbTest.dat不存在，則Open命令執(zhí)行失敗
C、由于Put命令中沒(méi)有指明記錄號(hào)，因此每次都把記錄寫(xiě)到文件的末尾
D、語(yǔ)句“Put #1,,rec”將animal類(lèi)型的兩個(gè)數(shù)據(jù)元素寫(xiě)到文件中
A B C D
24.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程和通用過(guò)程：
Private Sub Command1_Click()
n=Val(Text1.Text)
If n\2=n/2 Then
f=f1(n)
Else
f=f2(n)
End If
Print f;n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序運(yùn)行后，在文本框中輸入6，然后單擊命令按鈕，窗體上顯示的是
A、72 36
B、108 36
C、72 6
D、108 6
A B C D
25.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(c))
For i=1 To 4
Print ____
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：
1
12
123
1234
則在下劃線處應(yīng)填入的內(nèi)容為
A、Right(c1,i)
B、Left(c1,i)
C、Mid(c1,i,1)
D、Mid(c1,i,i)
A B C D
26.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕和一個(gè)名稱(chēng)為T(mén)ext1的文本框，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
該事件過(guò)程的功能是
A、輸出n以內(nèi)的奇數(shù)
B、輸出n以內(nèi)的偶數(shù)
C、輸出n以內(nèi)的素?cái)?shù)
D、輸出n以內(nèi)能被j整除的數(shù)
A B C D
27.以下描述中正確的是
A、標(biāo)準(zhǔn)模塊中的任意過(guò)程都可以在整個(gè)工程范圍內(nèi)被調(diào)用
B、在一個(gè)窗體模塊中可以調(diào)用在其他窗體中被定義為Public的通用過(guò)程
C、如果工程中包含Sub Main過(guò)程，則程序?qū)⑹紫葓?zhí)行該過(guò)程
D、如果工程中不包含Sub Main過(guò)程，則程序一定首先執(zhí)行第一個(gè)建立的窗體
A B C D
28.在窗體上畫(huà)一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下通用過(guò)程和命令按鈕的事件過(guò)程：
Private Function f(m As Integer)
If m Mod 2=0 Then
f=m
Else
f=1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s=0
For i=1 To 5
s=s+f(i)
Next
Print s
End Sub
程序運(yùn)行后，單擊按鈕，在窗體上顯示的是
A、11
B、10
C、9
D、8
A B C D
29.在窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框和一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是
A、15
B、14
C、13
D、12
A B C D
30.在窗體上畫(huà)四個(gè)文本框（如圖所示），并用這四個(gè)文本框建立一個(gè)控件數(shù)組，名稱(chēng)為T(mén)ext1
（下標(biāo)從0開(kāi)始，自左至右順序增大，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text(1).Index
i=i+1
Next
End Sub
程序運(yùn)行后，單擊命令按鈕，四個(gè)文本框中顯示的內(nèi)容分別為
A、0 1 2 3
B、1 2 3 4
C、0 1 3 2
D、出錯(cuò)信息
A B C D
31.以下敘述錯(cuò)誤的是
A、Visual Basic是事件驅(qū)動(dòng)型可視化編程工具
B、Visual Basic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句
C、Visual Basic工具箱中的所有控件都具有寬度（Width)和高度(Height)屬性
D、Visual Basic中控件的某些屬性只能在運(yùn)行時(shí)設(shè)置
A B C D
32.以下敘述錯(cuò)誤的是
A、在工程資源管理窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件
B、以.BAS為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件
C、窗體文件包含該窗體及其控件的屬性
D、一個(gè)工程中可以含有多個(gè)標(biāo)準(zhǔn)模塊文件
A B C D
33.以下敘述錯(cuò)誤的是
A、雙擊鼠標(biāo)可以觸發(fā)DblClick事件
B、窗體或控件的事件的名稱(chēng)可以由編程人員確定
C、移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件
D、控件的名稱(chēng)可以由編程人員設(shè)定
A B C D
34.以下不屬于Visual Basic系統(tǒng)的文件類(lèi)型是
A、.frm
B、.bas
C、.vbg
D、.vbp
A B C D
35.以下敘述錯(cuò)誤的是
A、打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件
B、保存Visual Basic程序時(shí)，應(yīng)分別保存窗體文件及工程文件
C、Visual Basic應(yīng)用程序只能以解釋方式進(jìn)行
D、事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)
A B C D
二、填空題（每空2分，共計(jì)30分）
1.在完全二叉樹(shù)順序存儲(chǔ)中，若結(jié)點(diǎn)I有左子女，則其左子女是結(jié)點(diǎn)____。
輸入答案，中間不含空格:
2.快速排序方法在要排序的數(shù)據(jù)____情況下最不利于發(fā)揮其長(zhǎng)處。
輸入答案，中間不含空格:
3.____是為了發(fā)現(xiàn)錯(cuò)誤而執(zhí)行程序的過(guò)程。
輸入答案，中間不含空格:
4.三級(jí)結(jié)構(gòu)以____、中間層和外層三個(gè)不同層次描述數(shù)據(jù)庫(kù)，分別稱(chēng)為內(nèi)模式、模式和外模式。
輸入答案，中間不含空格:
5.聯(lián)系是指____之間的相互聯(lián)系。
輸入答案，中間不含空格:
6.在菜單編輯器中建立一個(gè)菜單，其主要菜單項(xiàng)的名稱(chēng)為mnuEdit,Visible屬性為False。程序運(yùn)行后，如果用鼠標(biāo)右鍵單擊窗體，則彈出與mnuEdit對(duì)應(yīng)的菜單。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡?BR> Private Sub Form_ _______(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
_____ mnuEdit
End If
End Sub
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8.為了使計(jì)時(shí)器控件Timer1每隔0.5秒觸發(fā)一次Timer事件,應(yīng)將Timer1控件的____屬性設(shè)置為_(kāi)___。
輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.將C盤(pán)根目錄下的圖形文件moon.jpg裝入圖片框Picture1的語(yǔ)句是_____。
輸入答案，中間不含空格:
11. 在窗體上畫(huà)兩個(gè)組合框，其名稱(chēng)為 Combo1、Combo2，然后畫(huà)兩個(gè)標(biāo)簽，名稱(chēng)分別
為L(zhǎng)abel1、Label2，如圖所示。程序運(yùn)行后，如果在某個(gè)組合框中選擇一個(gè)項(xiàng)目，則
把所選中的項(xiàng)目在其下面的標(biāo)簽顯示出來(lái)。請(qǐng)?zhí)羁铡?BR>
Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
End Sub
Private Sub Combo2_Click()
Call ShowItem(Combo2,Label2)
End Sub
Public Sub ShowItem(temCombo As Combox,tmplabel As Label)
____.Caption = ____.Text
End Sub
輸入答案，中間不含空格:
12.上一題
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.上一題
輸入答案，中間不含空格: