一、選擇題
1、任何控制元件都有的屬性是( )。
Color
ion
erStyle
2、設計資料庫的儲存結構屬於( )
A.需求分析
B.概念設計
C.邏輯設計
D.物理設計
3、某人建立了1個工程，其中的窗體名稱為Form1;之後又添加了1個名為Form2的窗體，並希望程式執行時先顯示Form2窗體，那麼，他需要做的工作是( )。
A.在工程屬性對話方塊中把"啟動物件"設定為Form2
B.在Forml 的Load 事件過程中加入語句Load Form2
C.在Form2的Load 事件過程中加入語句
D.把Form2的TabIndex 屬性設定為l ，把Form1的TabIndex 屬性設定為2
4、設有如下通用過程：
Public Function Fun(xStr As Stri ng)As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF=""
strL=Len(xStr)
i =1 Do While i <=strL/2
tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)
i =i +l
Loop
Fun =tStr
End Function
在窗體上畫一個名稱為Co mmand1的命令按鈕。然後編寫如下的事件過程：
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程式執行後，單擊命令按鈕，輸出結果是( )。
EF
ef
CD
BC
5、下列關於棧的描述正確的是( )。
A.在棧中只能插入元素而不能刪除元素
B.在棧中只能刪除元素而不能插入元素
C.棧是特殊的線性表，只能在一端插入或刪除元素
D.棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素
6、下列程式段的執行結果是( )。
Sub sele( )
Di mn As Integer
i =21：n =3
Do While i >n
i =i -n
Loop
Print i
End Sub
A.2
B.4
C.5
D.3
7、複選框的Value 屬性為0時，表示該複選框( )。
A.未被選中
B.被選中
C.框內有灰色的勾
D.操作有誤
8、在窗體上有一個名稱為Check1的複選框陣列(含4個複選框)，還有一個名稱為Text1的文字框，初始內容為空。程式執行時，單擊任何複選框，則把所有選中的複選框後面的方字羅列在文字框中(見圖)。下面能實現此功能的事件過程是( )。
ate Sub Check1_Click(Index As Integer)
=""
For k =0To 3
If Check1(k)e =1Then
= &Check1(k)ion &""雙引號中是空格 End If Next k
End Sub
ate Sub Check1_Click(Index As Integer)
For k =0To 3
If Check1(k)e =1Then
= &Check1(k)ion &""雙引號中是空格
End If
Next k
End Sub
ate Sub Check1_Click(Index As Integer)
="" For k =0To 3 If Check1(k)e =1Then
= &Check1(Index)ion &""雙引號中是空格
End If
Next k
End Sub
ate Sub Check1_Click(Index As Integer)
="" For k =0To 3
If Check1(k)e =1Then
= &Check1(k)ion &""雙引號中是空格
Exit For
End If
Next k
End Sub
9、在窗體上新增一個命令按鈕，名為Co mmand1，其單擊事件中有下列程式段，則事件過程執行後，文字框中輸出
( )。
For i =1To 4
For j=1To 3
x=3
For k =1To 2
x=x+3
Next k
Next j
Next i
Textl =Str(x)
A.3
B.6
C.9
D.12
10、下列關於Sub 過程的敘述正確的是( )。
A.一個Sub 過程必須有一個Exit Sub 語句
B.一個Sub 過程必須有一個End Sub 語句
C.在Sub 過程中可以定義一個Function 過程
D.可以用Goto 語句退出Sub 過程
11、下列敘述中正確的是( )。
A.在窗體的Form_Load 事件過程中定義的變數是全域性變數
B.區域性變數的作用域可以超出所定義的過程
C.在某個Sub 過程中定義的區域性變數可以與其他事件過程中定義的區域性變數同名，但其作用域只限於該過程
D.在呼叫過程時，所有區域性變數被系統初始化為0或空字串
12、編寫如下兩個事件過程：
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
在一般情況下(即不按住Shift 鍵也未鎖定大寫鍵時)執行程式，如果按鍵盤上的"A"鍵，則程式輸出的結果是( )。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗體上畫一個命令按鈕，名稱為Co mmand1，然後編寫下列程式碼：
Option Base 0
Private Sub Co mmand1_Click()
Di m A1(4)As Integer ，A2(4)As Integer
For k =0To 2
A1(k +1)=InputBox("請輸入一個整數")
A2(3-k)=A1(k +1)
Next k Print A2(k)
End Sub
程式執行後，單擊命令按鈕，在輸入對話方塊中依次輸入2、4、6，則輸出結果為( )。
A.0
B.1
C.2
D.3
14、下面語句正確的是( )。
x<3*y and="" x="">y Then y =x^3
x<3*y and="" x="">y Then y =3x
x<3*y x="">y Then y =x^3
x<3*y and="" x="">y Then y =x**3
15、下面程式的輸出結果是( )。
Private Sub Co mmand1_Click()
Ch$="ABCDEF"
proc ch ：Print ch
End Sub
Private Sub proc(ch As Stri ng)
s =""
For k =Len(ch)To 1Step -1
s =s &Mid(ch ，k ，1)
Next k
ch =s
End Sub
EF
BA
C.A
D.F
16、語句Di ma(-3To 4，3To 6)As Integer 定義的陣列元素個數是( )。
A.18
B.28
C.21
D.32
17、以下敘述中錯誤的是( )。
A.一個工程中只能有一個Sub Main 過程
B.窗體的Show 方法的作用是將指定的窗體裝入記憶體並顯示該窗體
C.窗體的Hide 方法和Unload 方法的作用完全相同
D.若工程檔案中有多個窗體，可以根據需要指定一個窗體為啟動窗體
18、在窗體上先後畫2個圖片框，名稱分別為Picture1和banana，banana 中添加了香蕉圖片，如圖1所示，且將 Mode 屬性設定為1。要求程式執行時，可以用滑鼠把banana 拖拽到Picture1中，如圖2所示。能實現此功能的事件過程是( )。
ate Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
banana . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
ate Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture 1 . Top +Y
End Sub
ate Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
Source . Move Picture1 . Left +X，Picture1 . Top +Y
End Sub
ate Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)
banana . Move banana . Left +X，banana . Top +Y
End Sub
19、用Print 方法在Forml 窗體中顯示出4個#號的正確程式碼為( )。
g t"####"
t"####"
l-Print"####"
l t"####"
20、一個模組內部各個元素彼此結合的緊密程度的度量稱為( )
A.耦合性
B.內聚性
C.複雜性
D.資料傳輸特性
21、函式值和餘弦函式值，角度為1，2，3，…，90。請在空白處填入適當的內容，將程式補充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form_Click()
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y =3.14159/180
For i =1To 90
Ksc .K =i
Ksc nx=Si n(i*Y)
Ksc =Cos(i +Y)
________
Next i
Close #2
Elld Stub
A."l "For Rando mAs #1Len =10 Put #1，i ，Ksc
B."l "For Rando m As #1Len =10 Put #1，Y ，Ksc
C."l "For Rando m As #1 Put #1，i ，Ksc
D."l "For Rando m As #1 Put #1，Y ，Ksc
22、下列程式執行時輸出的結果是( )。
Option Base 1
Const a=10
Private Sub Form_Click0
Di mx(a)As Integer
k =-1
For i =1To a
x(i)=i*k
k =(-1)*k
Next i
For i =1To 10
Print x(i)
Next i
End Sub
A.1 3 5 7 9 10
B.-1-3-5-7-9
C.-1 2-3 4-5 6-7 8-9 10
D.1-2 3-4 5-6 7-8 9-10
23、某人為計算n!(O
Private Function fun(n As Integer)As Long
Di m P As Long
P=l
For k =n -1To 2Step -1
p =p*k
Next k
fun =p
End Function
在除錯時發現該函式過程產生的結果是錯誤的，程式需要修改。下面的修改方案中有3種是正確的，錯誤的'方案是( )。
A.把p =1改為p =11
B.把For k =n -1To 2Step -1改為For k =1To n -1
C.把For k =n -1To 2Step -1改為For k =1To n
D.把Fo rk --n -1To 2Step -1改為For k =2To n
24、要設定窗體為固定對話方塊，幷包含控制選單欄和標題欄，但沒有最大化和最小化按鈕，設定的操作是( )。
A.設定BorderStyle 的值為Fi xed Tool Wi ndow
B.設定BorderStyle 的值為Sizable Tool Wi ndow
C.設定BorderStyle 的值為Fi xed Dialog
D.設定BorderStyle 的值為Sizable
25、設在窗體上有一個文字框，然後編寫如下的事件過程：
Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)
Const Alt =4
Const Key_F2=&H71
altdown %=(Shift And Alt)>0
f2down %=(KeyCode =Key_F2)
If altdown %And f2down %Then
="abl"
End If
End Sub
程式執行後，清除文字框中原有內容，如果按Shift +F2鍵，則在文字框中顯示的是( )。
+F2
C.隨機出幾個數
D.不發生變化
26、在窗體上畫兩個文字框(名稱分別為Text1和Text2)和一個命令按鈕(名稱為Co mmand1)，然後編寫下列事件過程：
Private Sub Co mmand1_Click()
x=0
DO While x<50
x=(x+2)*(x+3)
n =n +l
Loop
=Str(n)
=Str(x)
End Sub
程式執行後，單擊命令按鈕，在兩個文字框中顯示的值分別為( )。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列敘述中錯誤的是( )。
A.軟體測試的目的是發現錯誤並改正錯誤
B.對被除錯的程式進行"錯誤定位"是程式除錯的必要步驟
C.程式除錯通常也稱為Debug
D.軟體測試應嚴格執行測試計劃，排除測試的隨意性
28、一個工程必須包含的檔案的型別是( )。
A.***
B.***
C.***
D.***
29、在文字框中輸入字元時，通過( )事件過程可以得到字元的ASCII 碼值。
ge
ocus
ress
Focus
30、在下列關係運算中，不改變關係表中的屬性個數但能減少元組個數的是( )。
A.並
B.交
C.投影
D.笛卡兒乘積
31、有兩個關係R ，S 如下：
由關係R 通過運算得到關係S，則所使用的運算為( )。
A.選擇
B.投影
C.插入
D.連線
32、一個棧的初始狀態為空。現將元素1、2、3、4、5、A、B、C、D、E依次入棧，然後再一次出棧，則元素出棧的順序是( )。
A.12345ABCDE
A54321
El2345
D.54321EDCBA
33、在窗體上建立通用對話方塊需要新增的控制元件是( )。
控制元件
控制元件
mmonDialog 控制元件
mboBox 控制元件
34、在窗體上畫2個命令按鈕，名稱分別為Co mmand1、Co mmand2，然後編寫下列事件過程。
Const n =5，m=4
Di ma(m，n)
Private Sub Co mmand1_Click()
k =1
For i =1To m
For j=1To n
a(i ，j)=k
k =k +1
Next j
Next i
End Sub
Private Sub Co mmand2_Click()
summ=0
For i =1To m
For j=1To n
If i =1Or i =m Then
summ=summ+a(i ，j)
Else
If j=1Or j=n Then
summ=summ+a(i ，j)
End If
End If
Next j
Next i
Print summ
End Sub
過程Command1_Click()的作用是在二維陣列a 中存放1個m 行n 列的矩陣;過程Command2_Click()的作用是( )。
A.計算矩陣外圍一圈元素的累加和
B.計算矩陣除外圍一圈以外的所有元素的累加和
C.計算矩陣第1列和最後一列元素的累加和
D.計算矩陣第1行和最後一行元素的累加和
35、下列關於複選框的說法，正確的是( )。
A.複選框的Enabled 屬性用於決定該複選框是否可見
B.複選框的Value 屬性用於決定該複選框是否被選中
C.複選框的Tabi ndex 屬性用於決定該複選框在控制元件陣列中的序號
D.複選框的Visi ble 屬性用於決定該複選框是否可用
36、按照"後進先出"原則組織資料的資料結構是( )。
A.佇列
B.棧
C.雙向連結串列
D.二叉樹
37、當一個複選框被選中時，它的Value 屬性的值是( )。
A.3
B.2
C.1
D.0
38、已知在4行3列的全域性陣列score(4，3)中存放了4個學生3門課程的考試成績(均為整數)。現需要計算每個學生的總分，某人編寫程式如下：
Option Base 1
Private Sub Co mmand1_Click( )
Di msum As Integer
Sum=0
For i =1To 4
For j=1To 3
Sum=sum+score(i ，j)
Next j
Print "第"&i &"個學生的總分是：";sum Next i
End Sub
執行此程式時發現，除第1個人的總分計算正確外，其他人的總分是錯誤的。程式需要修改。以下修改方案中正確的是( )。
A.把外層迴圈語句For i =1TO 4改為For i =1To 3內層迴圈語句For j=1TO 3改為For j=1TO 4
B.把sum=0移到For i =1TO 4和For j =1TO 3之間
C.把sum=sum+score(i ，j)改為sum=sum+score(j，i)
D.把sum=sum+score(i ，j)改為sum=score(i ，j)
39、設有陣列定義語句：Di ma(5)As Integer ，List1為列表框控制元件。下列給陣列元素賦值的語句錯誤的是( )。
A.a(3)=3
B.a(3)=InputBox("i nput data")
C.a(3)=Index
D.a=Array(1，2，3，4，5，6)
40、下列( )識別符號不能作為Visual Basic 的變數名。
be
B.b1234
C.28wed
