一、選擇題：35題，2分/題，共70分

    下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂寫(xiě)在答題卡相應(yīng)位置上，答在試卷上不得分。

1.保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是（B）
A)文本文件和工程文件
B)窗體文件和工程文件
C)窗體文件和標(biāo)準(zhǔn)模塊文件
D)類(lèi)模塊文件和工程文件

2.當(dāng)對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，命令按鈕上并沒(méi)有顯示所需的圖形，原因是沒(méi)有對(duì)某個(gè)屬性設(shè)置為1，該屬性是（B）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture

3.下面敘述正確的是（B）
A)Spc函數(shù)既能用于Print方法中，也能用于表達(dá)式
B)Space函數(shù)既能用于Print方法中，也能用于表達(dá)式
C)Spc函數(shù)與Space函數(shù)均生成空格，沒(méi)有區(qū)別
D)以上說(shuō)法均不對(duì)

4.假設(shè)變量bool_x是一個(gè)布爾型(邏輯型)的變量，則下面正確的賦值語(yǔ)句是（D）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False

5.要存放如下方陣的數(shù)據(jù)，在不浪費(fèi)存儲(chǔ)空間的基礎(chǔ)上，能實(shí)現(xiàn)聲明的語(yǔ)句是（D）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer

6.下面子過(guò)程語(yǔ)句說(shuō)明合法的是（D）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）

7.已知X>Y，A>B，正確表示它們之間關(guān)系的式子是（B）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1

8.設(shè)a=2,b=4,c=6，下列表達(dá)式的值為真的是（D）
A)a>b And c<a
B)a>b Or c<a
C)a>b Xor c<a
D)a>b Eqv c<a

9.設(shè)S=“中華人民共和國(guó)”，表達(dá)式Left（S,1）+Right（S,1）+Mid（S,3,2）的值為（B）
A) “中華民國(guó)”
B) “中國(guó)人民”
C) “中共人民”
D) “人民共和”

10.下列表達(dá)式的值為2123的是（B）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"

11.下列敘述不正確的是（C）
A)InputBox函數(shù)返回值為字符型
B)MsgBox函數(shù)返回值為所單擊按鈕的鍵值
C)MsgBox語(yǔ)句返回值為所單擊按鈕的鍵值
D)Shell函數(shù)返回值為所執(zhí)行文件的工作代碼

12.下列敘述不正確的是（A）
A)命令按鈕的默認(rèn)屬性為Caption
B)標(biāo)簽的默主屬性為Caption
C)復(fù)選框的默認(rèn)屬性為value
D)滾動(dòng)條的默認(rèn)屬性為value

13.下列各程序段中，正確的是（C）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If

14.在窗體上畫(huà)一個(gè)命令按鈕，名稱(chēng)為Command1。然后編寫(xiě)如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Print
Next I
End Sub
程序運(yùn)行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是（B）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH

15.為了使圖像框與圖片框的大小適應(yīng)圖片的大小 ，下邊屬性組設(shè)置正確的是（B）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False

16.假設(shè) x的值為5，則在執(zhí)行以下語(yǔ)句時(shí)，其輸出結(jié)果為“OK”的Select case語(yǔ)句是（C）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select

17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序運(yùn)行后，輸出的結(jié)果是（B）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6

18.在運(yùn)行階段，要在文本框Text1獲得焦點(diǎn)時(shí)選中文本框中所有內(nèi)容，對(duì)應(yīng)的事件過(guò)程是（A）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub

19.有如程序（D）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不確定
D)程序出錯(cuò)

20.在窗體上畫(huà)一個(gè)水平滾動(dòng)條，名稱(chēng)為HScroll1;再畫(huà)一個(gè)文本框，名稱(chēng)為T(mén)ext1。要想使用滾動(dòng)條滑塊的變化量來(lái)調(diào)用文本框中文字的大小，則可滿足的語(yǔ)句是（C）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value

21.在下列程序中，無(wú)論使用鼠標(biāo)左鍵還是右鍵都能彈出菜單，且彈出菜單中的菜單項(xiàng)都響應(yīng)鼠標(biāo)單的是（D）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub

22.假設(shè)在窗體上建立了一個(gè)通用對(duì)話框，其名稱(chēng)為CommonDialog1，然后畫(huà)一個(gè)命令按鈕Command1,并編寫(xiě)如下事件過(guò)程：
Private Sub Command1_Click()
CommonDialog1.Flags=4
CommonDialog1.Filter="all files(* . *)|* .*|text Files(* .Txt)|* .txt|Batch Filse(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開(kāi)”對(duì)話框，此時(shí)在“文件類(lèi)型”對(duì)話框中顯示的是（A）
A)All Files(* . *)
B)Text Files(*. Txt)
C)Batch Files(.bat)
D)不確定

[1] [2] 下一頁(yè)