1.以下關(guān)于數(shù)據(jù)的邏輯結(jié)構(gòu)的敘述中，哪一條是不正確的？
A、數(shù)據(jù)的邏輯結(jié)構(gòu)是數(shù)據(jù)間關(guān)系的描述
B、數(shù)據(jù)的邏輯結(jié)構(gòu)抽象地反映數(shù)據(jù)元素間的邏輯關(guān)系
C、數(shù)據(jù)邏輯結(jié)構(gòu)具體的反映數(shù)據(jù)在計(jì)算機(jī)中的存儲(chǔ)方式
D、數(shù)據(jù)的邏輯結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)
A B C D
2.以下哪一個(gè)不是隊(duì)列的基本運(yùn)算？
A、從隊(duì)尾插入一個(gè)新元素
B、從隊(duì)列中刪除第I個(gè)元素
C、判斷一個(gè)隊(duì)列是否為空
D、讀取隊(duì)頭元素的值
A B C D
3.二叉樹(shù)的先序遍歷和中序遍歷如下：
先序遍歷：ABDFHCEGI
中序遍歷：BFHDAEIGC
該二叉樹(shù)根的右子樹(shù)的根是____。
A、N
B、F
C、E
D、C
A B C D
4.已知一個(gè)有序表（13，20，25，37，48，58，61，78，83，90，101），當(dāng)二分查找值48的元素時(shí)，____次比較后查找成功。
A、1
B、2
C、3
D、4
A B C D
5.面向?qū)ο蟮母拍罘椒ㄊ莀___。
A、用來(lái)請(qǐng)求對(duì)象執(zhí)行某些操作。
B、描述對(duì)象動(dòng)態(tài)特征的一個(gè)操作序列。
C、描述對(duì)象靜態(tài)特性的一個(gè)數(shù)據(jù)項(xiàng)。
D、描述對(duì)象動(dòng)態(tài)或者靜態(tài)特征的某個(gè)項(xiàng)目。
A B C D
6.Object-orientde翻譯成哪一個(gè)術(shù)語(yǔ)更為確切？
A、面向?qū)ο?BR> B、面向客體
C、面向目標(biāo)
D、物件導(dǎo)向
A B C D
7.概要設(shè)計(jì)的結(jié)果是提供一份
A、模塊說(shuō)明書(shū)
B、框圖
C、程序
D、數(shù)據(jù)結(jié)構(gòu)
A B C D
8.數(shù)據(jù)庫(kù)管理系統(tǒng)的工作不包括____。
A、管理操作系統(tǒng)
B、保護(hù)數(shù)據(jù)庫(kù)
C、應(yīng)用數(shù)據(jù)庫(kù)
D、修改數(shù)據(jù)庫(kù)
A B C D
9.在關(guān)系數(shù)據(jù)庫(kù)中，用來(lái)表示實(shí)體之間聯(lián)系的是
A、樹(shù)結(jié)構(gòu)
B、網(wǎng)狀結(jié)構(gòu)
C、線性表
D、二維表
A B C D
10.在關(guān)系代數(shù)中，從兩個(gè)關(guān)系的笛卡爾積中，選取他們屬性間滿足一定條件的元組的操作，稱為
A、投影
B、選擇
C、自然連接
D、θ連接
A B C D
11.以下能正確定義數(shù)據(jù)類型TelBook的代碼是
A、Type TelBook
Name As String*10
TelNum As Integer
End Type
B、Type TelBook
Name As String*10
TelNum As Integer
End TelBook
C、Type TelBook
Name String*10
TelNum Integer
End Type TelBook
D、Type TelBook
Name String*10
TelNum Integer
End Type
A B C D
12.設(shè)窗體上有一個(gè)列表框控件List1，且其中有若干列表項(xiàng)，則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是
A、List1.list
B、List1.listIndex
C、List1.Intdex
D、List1.Text
A B C D
13.設(shè)a=10,b=5,c=1,執(zhí)行語(yǔ)句Print a>b>c后，窗體上顯示的是
A、True
B、False
C、1
D、出錯(cuò)信息
A B C D
14.以下能判斷是否到達(dá)文件尾的函數(shù)是
A、BOF
B、LOG
C、LOF
D、EOF
A B C D
15.窗體的MouseDown事件過(guò)程
Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
有4個(gè)參數(shù)，關(guān)于這此參數(shù)，正確的描述是
A、通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵
B、Shift參數(shù)只能用來(lái)確定是否按下Shift
C、Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵
D、參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)
A B C D
16.以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是
A、如果文本框的TabStop屬性為False，則不能接收從鍵盤(pán)上輸入的數(shù)據(jù)
B、當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件
C、當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用
D、可以用TabIndex屬性改變Tab順序
A B C D
17.執(zhí)行語(yǔ)句Open"Tel.dat"For Random As #1 Len=50后，對(duì)文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是
A、只能寫(xiě)，不能讀
B、只能讀，不能寫(xiě)
C、既可以讀，也可以寫(xiě)
D、不能讀，有能寫(xiě)
A B C D
18.設(shè)有以下循環(huán)結(jié)構(gòu)
Do
循環(huán)體
Loop While<條件>
則以下敘述中錯(cuò)誤的是
A、若“條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
B、“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)
C、循環(huán)體中可以使用Exit Do 語(yǔ)句
D、如果“條件”總是為True，則不停地執(zhí)行循環(huán)體
A B C D
19.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a<=0
Print s;a
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是
A、7 9
B、34 0
C、9 7
D、死循環(huán)
A B C D
20.設(shè)有如下通用過(guò)程：
Public Sub Fun(a(),ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr(),n)
Text1.Text=n
End Sub
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是
A、10
B、15
C、25
D、24
A B C D
21.在窗體上畫(huà)兩個(gè)滾動(dòng)條，名稱分別為Hscroll1、hscroll2；六個(gè)標(biāo)簽，名稱分別為
Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label4~Label6分別顯示
“A”“B”“A＊B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，
Label3顯示“A＊B”的計(jì)算結(jié)果。當(dāng)移動(dòng)滾動(dòng)框時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)
單擊命令按鈕“計(jì)算”時(shí)，對(duì)標(biāo)簽Label1、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示
在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過(guò)程是：
A)、Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C)、Private Sub Command1_Click()
Label3.Caption=HScroll1*HScroll2
End Sub
D)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub
A B C D
22.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是
A、15
B、18
C、21
D、24
A B C D
23.在窗體上畫(huà)一個(gè)名稱為Text1的文本框，并編寫(xiě)如下程序：
Private Sub Form_Lord()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print"程序設(shè)計(jì)"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print"Visual Basic"
End Sub
程序運(yùn)行后，結(jié)果按“A”鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是
A、Visual Basic
B、程序設(shè)計(jì)
C、A程序設(shè)計(jì)
D、Visual Basic
程序設(shè)計(jì)
A B C D
24.設(shè)有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是
A、1+1/2+2/3+3/4+4/5
B、1+1/2+2/3+3/4
C、1/2+2/3+3/4+4/5
D、1+1/2+1/3+1/4+1/5
A B C D
25.以下有關(guān)數(shù)組定義的語(yǔ)句序列中，錯(cuò)誤的是
A、Static arr1(3)
arr(1)=100
arr(2)="Hello"
arr(3)=123.45
B、Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size=InputBox("輸入：")
ReDim arr2(size)
......
End Sub
C、Option Base 1
Private Sub Command3_Click()
Dim arr3() As Integer
......
End Sub
D、Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
......
End Sub
A B C D 26.以下不能在“工程資源管理器”窗口中列出的文件類型是
A、.bas
B、.res
C、.frm
D、.ocx
A B C D
27.以下關(guān)于窗體的描述中，錯(cuò)誤的是
A、執(zhí)行Unload Form1語(yǔ)句后，窗體Form1消失，但仍在內(nèi)存中
B、窗體的Load事件在加載窗體時(shí)發(fā)生
C、當(dāng)窗體的Enabled屬生為False時(shí)通過(guò)鼠標(biāo)和鍵盤(pán)對(duì)窗體的操作都被禁止
D、窗體的Height、Width屬于用于設(shè)置窗體的高和寬
A B C D
28.下列可作為Visual Basic變量名的是
A、A#A
B、4A
C、?xy
D、constA
A B C D
29.設(shè)有如下的記錄類型
Type Student
number As String
name As String
age As Integer
End Type
則正確引用該記錄類型變量的代碼是
A、Student.name ="張紅"
B、Dim s As Student
s.name ="張紅"
C、Dim s As Type Student
s.name ="張紅"
D、Dim s As Type
s.name ="張紅"
A B C D
30.函數(shù)String(n,"str")的功能是
A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串
B、返回由n個(gè)字符組成的字符串
C、從字符串中取出n個(gè)字符
D、從字符串中第n個(gè)字符的位置開(kāi)始取子字符串
A B C D
31.將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫(xiě)成Visual Basic的表達(dá)式，其正確的形式是
A)Cos(a+b)^2+5*exp(2) B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2)
A B C D
32.在窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$,8)
c$ = Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
則彈出的信息框的標(biāo)題欄中顯示的信息是
A、software and hardware
B、software
C、hardware
D、1
A B C D
33.執(zhí)行如下語(yǔ)句：
a = InputBox("Today","Tomorrow","yesterday",,,"Day before yesterday",5)
將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是
A、Today
B、Tomorrow
C、Yesterday
D、Day before yesterday
A B C D
34.表示滾動(dòng)條控件取值范圍值的屬性是
A、Max
B、LargeChange
C、Value
D、Max-Min
A B C D
35.在窗體上畫(huà)一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.name = List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.name = List1.text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.text
End Sub
A B C D
二、填空題（每空2分，共計(jì)30分）
1.數(shù)據(jù)結(jié)構(gòu)是一門研究非數(shù)值計(jì)算的程序設(shè)計(jì)問(wèn)題中計(jì)算機(jī)的____以及它們之間的關(guān)系和運(yùn)算等的學(xué)科。
輸入答案，中間不含空格:
2.排序方法中，從未排序序列中挑選元素，并將其依次放入已排序序列（初始時(shí)為空）的一端的方法，稱為_(kāi)___。
輸入答案，中間不含空格:
3.需求分析階段的最后成果是____，是軟件開(kāi)發(fā)中的重要文檔之一。
輸入答案，中間不含空格:
4.每個(gè)實(shí)體有若干特性，每一個(gè)特性稱為_(kāi)___。
輸入答案，中間不含空格:
5.關(guān)系代數(shù)運(yùn)算中，傳統(tǒng)的集合運(yùn)算有____、并、交和差。
輸入答案，中間不含空格:
6.執(zhí)行下面的程序段后，i的值為_(kāi)_____，s的值為_(kāi)_____。
s=2
For i=3.2 To 4.9 Step 0.8
s=s+1
Next i
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8.把窗體的KeyPreview屬性設(shè)置為True，然后編寫(xiě)如下兩個(gè)事件過(guò)程：
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
程序運(yùn)行后，如果直接按鍵盤(pán)上的“A”鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是_____和_____。
輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、
Label1和Command1，然后編寫(xiě)如下兩個(gè)事件過(guò)程：
Private Sub Command1_Click()
S$=InputBox("請(qǐng)輸入一個(gè)字符串")
Text1.text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7)
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，如果在該對(duì)話框中輸入字符串
“VisualBAsic”,則在標(biāo)簽中顯示的內(nèi)容是_____。
輸入答案，中間不含空格: 12.上一題
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并
在文本框Text1中顯示出來(lái)。請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open".\smtext1.txt"_____As#1
Do While_____
Input #1,inData
Text1.Text=Text1.Text & inData
Loop
Close #1
End Sub
輸入答案，中間不含空格:
15.上一題
輸入答案，中間不含空格:
A、數(shù)據(jù)的邏輯結(jié)構(gòu)是數(shù)據(jù)間關(guān)系的描述
B、數(shù)據(jù)的邏輯結(jié)構(gòu)抽象地反映數(shù)據(jù)元素間的邏輯關(guān)系
C、數(shù)據(jù)邏輯結(jié)構(gòu)具體的反映數(shù)據(jù)在計(jì)算機(jī)中的存儲(chǔ)方式
D、數(shù)據(jù)的邏輯結(jié)構(gòu)分為線性結(jié)構(gòu)和非線性結(jié)構(gòu)
A B C D
2.以下哪一個(gè)不是隊(duì)列的基本運(yùn)算？
A、從隊(duì)尾插入一個(gè)新元素
B、從隊(duì)列中刪除第I個(gè)元素
C、判斷一個(gè)隊(duì)列是否為空
D、讀取隊(duì)頭元素的值
A B C D
3.二叉樹(shù)的先序遍歷和中序遍歷如下：
先序遍歷：ABDFHCEGI
中序遍歷：BFHDAEIGC
該二叉樹(shù)根的右子樹(shù)的根是____。
A、N
B、F
C、E
D、C
A B C D
4.已知一個(gè)有序表（13，20，25，37，48，58，61，78，83，90，101），當(dāng)二分查找值48的元素時(shí)，____次比較后查找成功。
A、1
B、2
C、3
D、4
A B C D
5.面向?qū)ο蟮母拍罘椒ㄊ莀___。
A、用來(lái)請(qǐng)求對(duì)象執(zhí)行某些操作。
B、描述對(duì)象動(dòng)態(tài)特征的一個(gè)操作序列。
C、描述對(duì)象靜態(tài)特性的一個(gè)數(shù)據(jù)項(xiàng)。
D、描述對(duì)象動(dòng)態(tài)或者靜態(tài)特征的某個(gè)項(xiàng)目。
A B C D
6.Object-orientde翻譯成哪一個(gè)術(shù)語(yǔ)更為確切？
A、面向?qū)ο?BR> B、面向客體
C、面向目標(biāo)
D、物件導(dǎo)向
A B C D
7.概要設(shè)計(jì)的結(jié)果是提供一份
A、模塊說(shuō)明書(shū)
B、框圖
C、程序
D、數(shù)據(jù)結(jié)構(gòu)
A B C D
8.數(shù)據(jù)庫(kù)管理系統(tǒng)的工作不包括____。
A、管理操作系統(tǒng)
B、保護(hù)數(shù)據(jù)庫(kù)
C、應(yīng)用數(shù)據(jù)庫(kù)
D、修改數(shù)據(jù)庫(kù)
A B C D
9.在關(guān)系數(shù)據(jù)庫(kù)中，用來(lái)表示實(shí)體之間聯(lián)系的是
A、樹(shù)結(jié)構(gòu)
B、網(wǎng)狀結(jié)構(gòu)
C、線性表
D、二維表
A B C D
10.在關(guān)系代數(shù)中，從兩個(gè)關(guān)系的笛卡爾積中，選取他們屬性間滿足一定條件的元組的操作，稱為
A、投影
B、選擇
C、自然連接
D、θ連接
A B C D
11.以下能正確定義數(shù)據(jù)類型TelBook的代碼是
A、Type TelBook
Name As String*10
TelNum As Integer
End Type
B、Type TelBook
Name As String*10
TelNum As Integer
End TelBook
C、Type TelBook
Name String*10
TelNum Integer
End Type TelBook
D、Type TelBook
Name String*10
TelNum Integer
End Type
A B C D
12.設(shè)窗體上有一個(gè)列表框控件List1，且其中有若干列表項(xiàng)，則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是
A、List1.list
B、List1.listIndex
C、List1.Intdex
D、List1.Text
A B C D
13.設(shè)a=10,b=5,c=1,執(zhí)行語(yǔ)句Print a>b>c后，窗體上顯示的是
A、True
B、False
C、1
D、出錯(cuò)信息
A B C D
14.以下能判斷是否到達(dá)文件尾的函數(shù)是
A、BOF
B、LOG
C、LOF
D、EOF
A B C D
15.窗體的MouseDown事件過(guò)程
Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
有4個(gè)參數(shù)，關(guān)于這此參數(shù)，正確的描述是
A、通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵
B、Shift參數(shù)只能用來(lái)確定是否按下Shift
C、Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵
D、參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)
A B C D
16.以下關(guān)于焦點(diǎn)的敘述中，錯(cuò)誤的是
A、如果文本框的TabStop屬性為False，則不能接收從鍵盤(pán)上輸入的數(shù)據(jù)
B、當(dāng)文本框失去焦點(diǎn)時(shí)，觸發(fā)LostFocus事件
C、當(dāng)文本框的Enabled屬性為False時(shí)，其Tab順序不起作用
D、可以用TabIndex屬性改變Tab順序
A B C D
17.執(zhí)行語(yǔ)句Open"Tel.dat"For Random As #1 Len=50后，對(duì)文件Tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是
A、只能寫(xiě)，不能讀
B、只能讀，不能寫(xiě)
C、既可以讀，也可以寫(xiě)
D、不能讀，有能寫(xiě)
A B C D
18.設(shè)有以下循環(huán)結(jié)構(gòu)
Do
循環(huán)體
Loop While<條件>
則以下敘述中錯(cuò)誤的是
A、若“條件”是一個(gè)為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
B、“條件”可以是關(guān)系表達(dá)式、邏輯表達(dá)式或常數(shù)
C、循環(huán)體中可以使用Exit Do 語(yǔ)句
D、如果“條件”總是為True，則不停地執(zhí)行循環(huán)體
A B C D
19.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a<=0
Print s;a
End Sub
程序運(yùn)行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是
A、7 9
B、34 0
C、9 7
D、死循環(huán)
A B C D
20.設(shè)有如下通用過(guò)程：
Public Sub Fun(a(),ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
在窗體上畫(huà)一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下的事件過(guò)程：
Private Sub Command1_Click()
Dim arr(5) As Variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr(),n)
Text1.Text=n
End Sub
程序運(yùn)行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是
A、10
B、15
C、25
D、24
A B C D
21.在窗體上畫(huà)兩個(gè)滾動(dòng)條，名稱分別為Hscroll1、hscroll2；六個(gè)標(biāo)簽，名稱分別為
Label1、Label2、Label3、Label4、Label5、Label6，其中標(biāo)簽Label4~Label6分別顯示
“A”“B”“A＊B”等文字信息，標(biāo)簽Label1、Label2分別顯示其右側(cè)的滾動(dòng)條的數(shù)值，
Label3顯示“A＊B”的計(jì)算結(jié)果。當(dāng)移動(dòng)滾動(dòng)框時(shí)，在相應(yīng)的標(biāo)簽中顯示滾動(dòng)條的值。當(dāng)
單擊命令按鈕“計(jì)算”時(shí)，對(duì)標(biāo)簽Label1、Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示
在Label3中。以下不能實(shí)現(xiàn)上述功能的事件過(guò)程是：
A)、Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C)、Private Sub Command1_Click()
Label3.Caption=HScroll1*HScroll2
End Sub
D)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub
A B C D
22.在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是
A、15
B、18
C、21
D、24
A B C D
23.在窗體上畫(huà)一個(gè)名稱為Text1的文本框，并編寫(xiě)如下程序：
Private Sub Form_Lord()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Print"程序設(shè)計(jì)"
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print"Visual Basic"
End Sub
程序運(yùn)行后，結(jié)果按“A”鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是
A、Visual Basic
B、程序設(shè)計(jì)
C、A程序設(shè)計(jì)
D、Visual Basic
程序設(shè)計(jì)
A B C D
24.設(shè)有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
該程序通過(guò)For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是
A、1+1/2+2/3+3/4+4/5
B、1+1/2+2/3+3/4
C、1/2+2/3+3/4+4/5
D、1+1/2+1/3+1/4+1/5
A B C D
25.以下有關(guān)數(shù)組定義的語(yǔ)句序列中，錯(cuò)誤的是
A、Static arr1(3)
arr(1)=100
arr(2)="Hello"
arr(3)=123.45
B、Dim arr2() As Integer
Dim size As Integer
Private Sub Command2_Click()
size=InputBox("輸入：")
ReDim arr2(size)
......
End Sub
C、Option Base 1
Private Sub Command3_Click()
Dim arr3() As Integer
......
End Sub
D、Dim n As Integer
Private Sub Command4_Click()
Dim arr4(n) As Integer
......
End Sub
A B C D 26.以下不能在“工程資源管理器”窗口中列出的文件類型是
A、.bas
B、.res
C、.frm
D、.ocx
A B C D
27.以下關(guān)于窗體的描述中，錯(cuò)誤的是
A、執(zhí)行Unload Form1語(yǔ)句后，窗體Form1消失，但仍在內(nèi)存中
B、窗體的Load事件在加載窗體時(shí)發(fā)生
C、當(dāng)窗體的Enabled屬生為False時(shí)通過(guò)鼠標(biāo)和鍵盤(pán)對(duì)窗體的操作都被禁止
D、窗體的Height、Width屬于用于設(shè)置窗體的高和寬
A B C D
28.下列可作為Visual Basic變量名的是
A、A#A
B、4A
C、?xy
D、constA
A B C D
29.設(shè)有如下的記錄類型
Type Student
number As String
name As String
age As Integer
End Type
則正確引用該記錄類型變量的代碼是
A、Student.name ="張紅"
B、Dim s As Student
s.name ="張紅"
C、Dim s As Type Student
s.name ="張紅"
D、Dim s As Type
s.name ="張紅"
A B C D
30.函數(shù)String(n,"str")的功能是
A、把數(shù)值型數(shù)據(jù)轉(zhuǎn)換為字符串
B、返回由n個(gè)字符組成的字符串
C、從字符串中取出n個(gè)字符
D、從字符串中第n個(gè)字符的位置開(kāi)始取子字符串
A B C D
31.將數(shù)學(xué)表達(dá)式Cos2(a+b)+5e2寫(xiě)成Visual Basic的表達(dá)式，其正確的形式是
A)Cos(a+b)^2+5*exp(2) B)Cos^2(a+b)+5*exp(2)
C)Cos(a+b)^2+5*ln(2) D)Cos^2(a+b)+5*ln(2)
A B C D
32.在窗體上畫(huà)一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程：
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$,8)
c$ = Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
則彈出的信息框的標(biāo)題欄中顯示的信息是
A、software and hardware
B、software
C、hardware
D、1
A B C D
33.執(zhí)行如下語(yǔ)句：
a = InputBox("Today","Tomorrow","yesterday",,,"Day before yesterday",5)
將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是
A、Today
B、Tomorrow
C、Yesterday
D、Day before yesterday
A B C D
34.表示滾動(dòng)條控件取值范圍值的屬性是
A、Max
B、LargeChange
C、Value
D、Max-Min
A B C D
35.在窗體上畫(huà)一個(gè)名稱為L(zhǎng)ist1的列表框，一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽。列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個(gè)城市名時(shí)，在標(biāo)簽中顯示選中城市的名稱。下列能正確實(shí)現(xiàn)上述功能的程序是
A、Private Sub List1_Click()
Label1.Caption = List1.ListIndex
End Sub
B、Private Sub List1_Click()
Label1.name = List1.ListIndex
End Sub
C、Private Sub List1_Click()
Label1.name = List1.text
End Sub
D、Private Sub List1_Click()
Label1.Caption = List1.text
End Sub
A B C D
二、填空題（每空2分，共計(jì)30分）
1.數(shù)據(jù)結(jié)構(gòu)是一門研究非數(shù)值計(jì)算的程序設(shè)計(jì)問(wèn)題中計(jì)算機(jī)的____以及它們之間的關(guān)系和運(yùn)算等的學(xué)科。
輸入答案，中間不含空格:
2.排序方法中，從未排序序列中挑選元素，并將其依次放入已排序序列（初始時(shí)為空）的一端的方法，稱為_(kāi)___。
輸入答案，中間不含空格:
3.需求分析階段的最后成果是____，是軟件開(kāi)發(fā)中的重要文檔之一。
輸入答案，中間不含空格:
4.每個(gè)實(shí)體有若干特性，每一個(gè)特性稱為_(kāi)___。
輸入答案，中間不含空格:
5.關(guān)系代數(shù)運(yùn)算中，傳統(tǒng)的集合運(yùn)算有____、并、交和差。
輸入答案，中間不含空格:
6.執(zhí)行下面的程序段后，i的值為_(kāi)_____，s的值為_(kāi)_____。
s=2
For i=3.2 To 4.9 Step 0.8
s=s+1
Next i
輸入答案，中間不含空格:
7.上一題
輸入答案，中間不含空格:
8.把窗體的KeyPreview屬性設(shè)置為True，然后編寫(xiě)如下兩個(gè)事件過(guò)程：
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
程序運(yùn)行后，如果直接按鍵盤(pán)上的“A”鍵（即不按住Shift鍵），則在窗體上輸出的字符分別是_____和_____。
輸入答案，中間不含空格:
9.上一題
輸入答案，中間不含空格:
10.在窗體上畫(huà)一個(gè)文本框、一個(gè)標(biāo)簽和一個(gè)命令按鈕，其名稱分別為Text1、
Label1和Command1，然后編寫(xiě)如下兩個(gè)事件過(guò)程：
Private Sub Command1_Click()
S$=InputBox("請(qǐng)輸入一個(gè)字符串")
Text1.text=S$
End Sub
Private Sub Text1_Change()
Label1.Caption=UCase(Mid(Text1.Text,7)
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)輸入對(duì)話框，如果在該對(duì)話框中輸入字符串
“VisualBAsic”,則在標(biāo)簽中顯示的內(nèi)容是_____。
輸入答案，中間不含空格: 12.上一題
輸入答案，中間不含空格:
13.上一題
輸入答案，中間不含空格:
14.以下程序的功能是：把當(dāng)前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并
在文本框Text1中顯示出來(lái)。請(qǐng)?zhí)羁铡?BR> Private Sub Command1_Click()
Dim inData As String
Text1.Text=""
Open".\smtext1.txt"_____As#1
Do While_____
Input #1,inData
Text1.Text=Text1.Text & inData
Loop
Close #1
End Sub
輸入答案，中間不含空格:
15.上一題
輸入答案，中間不含空格: