一、選擇題：35題，2分/題，共70分
下列各題A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項塗寫在答題卡相應位置上，答在試卷上不得分。
1.當運行程序時，系統自動執行啟動窗體的某個事件過程。這個事件過程是(A)
A)Load
B)Click
C)Unload
D)GotFocus
2.無論何控件，都具有一個共同屬性。這個屬性是(C)
A)Text
B)Font
C)Name
D)Caption
3.在一行內寫多條語句時，語句之間要用某個符號分隔。這個符號是(D)
A)，
B);
C)、
D)：
4.表達式3∧2*2+3 MOD 104的值是(C)
A)18
B)1
C)19
D)0
5.下面的變量名合法的是(A)
A)k_name
B)k ame
C)name
D)k-name
6.設有如下變量聲明Dim time1 As Date,為變量time1正確賦值的表達式是(A)
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)
7.表達式12000 + "129" & 200的值是(B)
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若設a = 4,b = 5,則下列表達式值為真的是(D)
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5
9.當窗體上的文字或圖形被覆蓋或最小化後能恢復原貌，需要設置窗體的屬性是(D)
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗體上畫一個名稱為Command1的命令按鈕，編寫以列程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序運行後，單擊該命令按鈕三次，屏幕上顯示的值是(D)
A)4 12
B)0 4
C)4 8
D)8 12
al Basic是一種面向對象的程序設計語言，構成對象的三要素是(B)
A)屬性、控件和方法
B)屬性、事件和方法
C)窗體、控件和過程
D)控件、過程和模塊
12.下列程序段錯誤的是(A)
A)Dim a As Integer
a = array(1,2,3,4)
B)Dim a(),b()
a = array(1,2,3,4):b = a
C)Dim a As Variant
a = array(1,"asd",true)
D)Dim a() As Variant
a = array(1,2,3,4)
13.表達式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是(A)
A)"I am happy!"
B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"
14.下列程序段中，能正常結束循環的是(C)
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框(List1)最後一個數據項應使用的表達式是(B)
A)(Count)
B)(Count-1)
C)(ListCount)
D)(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Next i
End Sub
運行時輸入出的結果是(D)
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗體上畫一個名稱為Command1的命令按鈕，編寫如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序運行後，單擊該命令按鈕，屏幕上顯示的結果是(D)
A)2
B)1
C)0
D)16
18.以下屬性和方法中，可重定義座標系的是(C)
A)DrawStyle屬性
B)DrawWidth屬性
C)Scale方法
D)ScaleMode屬性
19.在窗體上畫一個文本框，然後編寫如下事件過程：
Private Sub Form_Load()
= ""
ocus
For i = 1 To 5
Sum = Sum +i
Next i
= Sum
End Sub
上述程序的運行結果是(D)
A)在文本框中輸出15
B)在文本框中輸出0
C)在文本框中輸出不定值
D)出錯
20.已知x代表某個百分制成績，下列程序段用於顯示對應的五級製成績，正確的是(C)
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "優"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "優"
End If
C)If x > = 90 Then
Print "優"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "優"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面説法不正確的是(D)
A)滾動條的重要事件是Change和Scroll
B)框架的主要作用是將控件進行分組，以完成各自相對獨立的功能
C)組合框是組合了文本框和列表框的特性而形成的一種控件
D)計時器控件可以通過對Visible屬性的設置，在程序運行期間顯示在窗體上
22.在窗體上畫一個名稱為Check1複選框，在程序運行的過程中，若選中複選框，則e的值是(D)
A)True
B)2
C)0
D)1
23.在下列關於菜單的説法中，錯誤的是(B)
A)每一個菜單項都是一個控件，與其他控件一樣都有自己的屬性和事件
B)除了Click事件之外，菜單項還能響應其他的如 DblClick等事件過程
C)菜單項的快捷鍵不可以任意設置
D)在程序執行時，如果菜單項的Enabled屬性為False，則該菜單項變成灰色，不能被用户選擇
24.下面關於多重窗體的敍述中，正確的是(B)
A)作為啟動對象的Main 子過程只能放在窗體模塊內
B)如果啟動對象是Main 子過程，則程序啟動時不加載任何窗體，以後由該過程根據不同情況決定是否加載窗體或加載哪一個窗體
C)沒有啟動窗體，程序不能執行
D)以上都不對
25.與鍵盤操作有關的事件有KeyPress、KeyUp和KeyDown事件，當用户按上並且釋放一個鍵後，這三個事件發生的順序是(A)
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)沒有規律
26.要從磁盤上讀入一個文件名為“c:”的順序文件，下面程序段正確的是(A)
A)F="c:"
Open F For Input As # 1
B)F="c:"
Open "F" For Input As # 2
C)Open "c:" For Output As # 2
D)Open c: For Input As # 1
27.下列關於過程敍述不正確的是(D)
A)過程的傳值調用是將實參的`具體值傳值遞給形參
B)過程的傳址調用是將實參在內存的地址傳遞給形參
C)過程的傳值調用參數是單向傳遞的，過程的傳址調用參數是雙向傳遞的
D)無論過程傳值調用還是過程傳址調用，參數傳遞都是雙向的
28.執行了下面程序後，組合框中數據項的值是(D)
Private Sub Form_Click()
For i=1 to 6
tem i
Next i
For i= 1 to 3
veItem i
Next i
End Sub
A)1 5 6
B)1 3 5
C)4 5 6
D)2 4 6
29.若在Shape 控件內以FillStyle屬性所指定的圖案填充區域，而填充圖案的線條顏色由FillColor屬性指定，非線條的區域由Back Color屬性填充，則應(A)
A)將Shape控件的FillSte屬性設置為2至7間的某個值，BackStyle屬性設置為1
