一、 單選題
1．下列控件中沒有Caption屬性的是 ________。
A） 框架
B） 列表框
C）復(fù)選框
D） 單選按鈕
2．復(fù)選框的Value 屬性為 1 時，表示 ________。
A） 復(fù)選框未被選中
B） 復(fù)選框被選中
C） 復(fù)選框內(nèi)有灰色的勾
D） 復(fù)選框操作有誤
3．用來設(shè)置斜體字的屬性是 ________。
A） FontItalic
B） FontBold
C） FontName
D） FontSize
4．將數(shù)據(jù)項“China”添加到列表框List1中成為第二項應(yīng)使用 ________語句。
A） List1.AddItem "China",1
B） List1.AddItem "China", 2
C） List1.AddItem 1, "China"
D） List1.AddItem 2, "China"
5．引用列表框List1最后一個數(shù)據(jù)項，應(yīng)使用 ________語句。
A） List1.List(List1.ListCount)
B） List1.List(ListCount)
C） List1.List(List1.ListCount-1)
D） List1.List(ListCount-1)
6. 假如列表框List1有四個數(shù)據(jù)項，那么把數(shù)據(jù)項“China”添加到列表框的最后，應(yīng)使用 ________語句。
A） List1.AddItem 3, "China"
B） List1.AddItem "China", List1.ListCount-1
C） List1.AddItem "China", 3
D） List1.AddItem "China"， List1.ListCount
7．執(zhí)行了下面的程序后，列表框中的數(shù)據(jù)項有________。
Private Sub Form_Click()
For i = 1 to 6
List1.AddItem i
Next i
For i = 1 to 3
List1.RemoveItem i
Next i
End Sub
A） 1，5，6
B） 2，4，6
C）4，5，6
D） 1，3，5
8．如果列表框List1中沒有選定的項目，則執(zhí)行List1.RemoveItem List1.ListIndex 語句的結(jié)果是 ________。
A） 移去第一項
B） 移去最后一項
C） 移去最后加入列表中的一項
D） 以上都不對
9．如果列表框List1中只有一個項目被用戶選定，則執(zhí)行Debug.Pring List1.Selected(List1.ListIndex) 語句的結(jié)果是 ________。
A） 在Debug窗口輸出被選定的項目的索引值
B） 在Debug窗口輸出True
C） 在窗體上輸出被選定的項目的索引值
D） 在窗體上輸出True
10. 假定時鐘控件的Interval 屬性為1000，Enabled屬性為True,并且有下面的事件過程，程序結(jié)束后變量x的值為 ________。
Dim x As Integer
Private Sub Timer1_Timer()
For i = 1 to 100
x = x + 1
beep
Next i
End Sub
A） 1155
B） 1000
C） 100
D） 以上都不對
11. 下列說法中正確的是 ________。
A） 通過適當(dāng)?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上
B） 在列表框中不能進行多項選擇
C） 在列表框中能夠?qū)㈨椖堪醋帜笍拇蟮叫∨判?BR> D） 框架也有Click和DblClick事件
12. 為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)________。
A） 將控件的TabIndex屬性設(shè)置為0
B） 將控件的TabStop屬性設(shè)置為True
C） 將控件的TabStop屬性設(shè)置為False
D） 將控件的Enabled屬性設(shè)置為False
13.滾動條產(chǎn)生Change事件是因為 ________值改變了。
A） SmallChange
B） Value
C） Max
D） LargeChange
14 .如果要每隔15s產(chǎn)生一個Timer事件，則Interval屬性應(yīng)設(shè)置為________。
A） 15
B） 900
C） 15000
D） 150
15. 列表框的 ________屬性是數(shù)組。
A） List 和 ListIndex
B） List 和 ListCount
C） List 和 Selected
D） List 和 Sorted
16. 當(dāng)用戶按下并且釋放一個鍵后會觸發(fā)KeyPress、KeyUp、KeyDown事件，這三個發(fā)生的順序是 ________。
A） KeyPress、KeyDown、KeyUp
B） KeyDown、KeyUp 、KeyPress
C） KeyDown、KeyPress、KeyUp
D） 沒有規(guī)律
17. 下列關(guān)于鍵盤事件的說法中，正確的是________。
A） 按下鍵盤上的任意一個鍵，都會引發(fā)KeyPress事件
B） 大鍵盤上的“1”鍵和數(shù)字鍵盤的“1”鍵的KeyCode碼相同
C） KeyDown和KeyUp的事件過程中有KeyAscii參數(shù)
D） 大鍵盤上的“4”鍵的上檔字符是“$”，當(dāng)同時按下Shift和大鍵盤上的“4”鍵時，KeyPress事件過程的KeyAscii參數(shù)值是“$”的ASCII值
18. 為確保文本框中輸入的全部是數(shù)字的方法是________。
A） 在KeyDown或KeyUp的事件過程中摒棄非數(shù)字輸入
B） 在Validate事件過程中利用IsNumeric函數(shù)
C） 在Chinge事件過程中利用IsNumeric函數(shù)
D） 在KeyPress的事件過程中摒棄非數(shù)字輸入
19. 用戶在使用ActiveX控件之前，需要將他們加載到工具箱中，下面________操作可進行ActiveX控件的加栽。
A） 工程"部件…
B） 視圖"工具箱
C） 工具"選項…
D） 工程"引用…
20．把窗體的KeyPreview屬性設(shè)置程為True，然后編寫如下事件過程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序運行后，按鍵盤上的“A“鍵，則在窗體上顯示的內(nèi)容是______。
A）A
B）B
C）C
D）D
21．表示滾動條控件取值范圍值的屬性是______。
A）Max
B）LargeChange
C）Value
D）Max-Min
22．在窗體上畫一個名稱為Timer的計時器控件，要求每隔0.5秒發(fā)生一次計時事件，則以下正確的屬性設(shè)置語句是______。
A）Timer.Interval=0.5
B）Timer.Interval=5
C）Timer.Interval=50
D）Timer.Interval=500
23．通過設(shè)置Line控件的______屬性可以繪制多種形狀的圖形。
A）Shape
B）Style
C）FillStyle
D）BorderStyle
24．若在Shape控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條的顏色由FillColor屬性指定，非線條的區(qū)域由BackColor屬性填充，則應(yīng)______。
A）將Shape控件的FillStyle屬性設(shè)置為2至7間的某個值，BackStyle屬性設(shè)置為1
B）將Shape控件的FillStyle屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1
C）將Shape控件的FillStyle屬性設(shè)置為2至7間的某個值，BackStyle屬性設(shè)置為0
D）將Shape控件的FillStyle屬性設(shè)置為0或1，BackStyle屬性設(shè)置為0
25．設(shè)窗體上有一個列表框控件List1，且其中有若干列表項，則以下能表示當(dāng)前被選中的列表項內(nèi)容的是______。
A）List1.list
B）List1.Text
C）List1.Intdex
D）List1.listIndex
26．下列______程序段能刪除列表List1中的所有項。
A）Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem0
Next I
End Sub
B）Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem 1
Next I
End Sub
C）Private Sub Command1_Click()
For I=0 To List1.ListCount
List1.RemoveItem 0
Next I
End Sub
D）Private Sub Command1_Click()
For I=0 To List1.ListCount-1
List1.RemoveItem 1
Next I
End Sub
27．下面______控件不支持Change事件。
A）TextBox
B）ListBox
C）Label
D）PictureBox
28．在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"245"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_DblClick()
a=List1.Text
Print a+Text1.Text
End Sub
程序運行后，在文本框中輸入“789”，然后雙擊列表框中的“456”，則輸出結(jié)果是______。
A）1245
B）456789
C）789456
D）0
29．要使用列表中的列表顯示成復(fù)選框形式，則應(yīng)將其Style屬性設(shè)置為______。
A）0
B）1
C）True
D）False
30．窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1 和Command1，然后編寫如下事件過程：
Private Sub Form_Load()
List1.Addltem "Item1"
List1.Addltem "Item2"
List1.Addltem "Item3"
End Sub
Private Sub Command1_Click()
List1.List(List1.Listcount)= "AAAA"
End Sub
程序運行后，單擊命令按鈕，其結(jié)果為______。
A）把字符串“AAAA”添加到列表框中，但位置不能確定
B）把字符串“AAAA”添加到列表框的最后（即item3的后面）
C）把列表框中原有的最后一項改為“AAAA”
D）把字符串“AAAA”插入到列表框的最前面（即item1的前面）
31．在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干城市的名稱。但單擊列表框中的某個城市名時，該城市名從列表框中消失，并在標(biāo)簽中顯示出來。下列能正確實現(xiàn)上述操作的程序是______。
A）Private Sub List_Click()
Label1.Caption=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B）Private Sub List_Click()
Label1.Name=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
C）Private Sub List_Click()
Label1.Caption=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D）Private Sub List_Click()
Label1.Name=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
32．以下敘述中錯誤的是______。
A）在KeyPree事件過程中不能識別鍵盤的按下與釋放
B）在KeyPree事件過程中不能識別回車鍵
C）在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同字母
D）在KeyDown和KeyUp事件過程中，從大鍵盤輸入的“1”和從小鍵盤輸入的“1”被視作不同的字符
33．以下關(guān)于KeyPress 事件過程中參數(shù)KeyAscii的敘述中正確的是______。
A）KeyAscii 參數(shù)是所按鍵的ASCII碼
B）KeyAscii參數(shù)的數(shù)據(jù)類型為字符串
C）KeyAscii參數(shù)可以省略
D）KeyAscii 參數(shù)是所按鍵上標(biāo)注的字符
34．假定編寫如下事件過程：
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If(Button And 2)=2 Then
Print"Hi"
End If
End Sub
程序運行后，為了在窗體上輸出“Hi”，應(yīng)在窗體上執(zhí)行以下______操作。
A）只能按下左按鈕并拖動
B）只能按下右按鈕并拖動
C）必須同時按下左）右按鈕并拖動
D）按下左按鈕拖動或按下右按鈕拖動都可
35．編寫如下事件過程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序運行后，為了在窗體上輸出“Hello”，應(yīng)在窗體上執(zhí)行以下______操作。
A）同時按下Shift鍵和鼠標(biāo)左按鈕
B）同時按下Shift鍵和鼠標(biāo)右按鈕
C）同時按下Ctrl、Alt鍵和鼠標(biāo)左按鈕
D）同時按下Ctrl、Alt鍵和鼠標(biāo)右按鈕
36．在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1,在屬性窗口中把計時器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操作的程序：
Private Sub Command1_Click()
Timer1._________
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在______處應(yīng)填入的內(nèi)容是______。
A）Enabled=True
B）Enabled=False
C）Visible=True
D）Visible=False
37．假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是____。：
A）選擇圖片框，然后按Del鍵
B）執(zhí)行語句Picture1.Picture=LoadPicture(“ ”)
C）執(zhí)行語句Picture1.Picture=””
D）選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵
38.在窗體上畫一個List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正確實現(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
39. 對窗體編寫如下事件過程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single ,Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序運行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為____。
A） AAAAA
BBBBB
B） BBBBB
AAAAA
C） AAAAA
D） BBBBB
40. 在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100，程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當(dāng)前值。以下能實現(xiàn)上述操作的程序段是
A） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
B） Private Sub HScroll1_Click()
Text1.Text = HScroll1.Value
End Sub
C） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Caption
End Sub
D） Private Sub HScroll1_ Click ()
Text1.Text = HScroll1.Value
End Sub
1．下列控件中沒有Caption屬性的是 ________。
A） 框架
B） 列表框
C）復(fù)選框
D） 單選按鈕
2．復(fù)選框的Value 屬性為 1 時，表示 ________。
A） 復(fù)選框未被選中
B） 復(fù)選框被選中
C） 復(fù)選框內(nèi)有灰色的勾
D） 復(fù)選框操作有誤
3．用來設(shè)置斜體字的屬性是 ________。
A） FontItalic
B） FontBold
C） FontName
D） FontSize
4．將數(shù)據(jù)項“China”添加到列表框List1中成為第二項應(yīng)使用 ________語句。
A） List1.AddItem "China",1
B） List1.AddItem "China", 2
C） List1.AddItem 1, "China"
D） List1.AddItem 2, "China"
5．引用列表框List1最后一個數(shù)據(jù)項，應(yīng)使用 ________語句。
A） List1.List(List1.ListCount)
B） List1.List(ListCount)
C） List1.List(List1.ListCount-1)
D） List1.List(ListCount-1)
6. 假如列表框List1有四個數(shù)據(jù)項，那么把數(shù)據(jù)項“China”添加到列表框的最后，應(yīng)使用 ________語句。
A） List1.AddItem 3, "China"
B） List1.AddItem "China", List1.ListCount-1
C） List1.AddItem "China", 3
D） List1.AddItem "China"， List1.ListCount
7．執(zhí)行了下面的程序后，列表框中的數(shù)據(jù)項有________。
Private Sub Form_Click()
For i = 1 to 6
List1.AddItem i
Next i
For i = 1 to 3
List1.RemoveItem i
Next i
End Sub
A） 1，5，6
B） 2，4，6
C）4，5，6
D） 1，3，5
8．如果列表框List1中沒有選定的項目，則執(zhí)行List1.RemoveItem List1.ListIndex 語句的結(jié)果是 ________。
A） 移去第一項
B） 移去最后一項
C） 移去最后加入列表中的一項
D） 以上都不對
9．如果列表框List1中只有一個項目被用戶選定，則執(zhí)行Debug.Pring List1.Selected(List1.ListIndex) 語句的結(jié)果是 ________。
A） 在Debug窗口輸出被選定的項目的索引值
B） 在Debug窗口輸出True
C） 在窗體上輸出被選定的項目的索引值
D） 在窗體上輸出True
10. 假定時鐘控件的Interval 屬性為1000，Enabled屬性為True,并且有下面的事件過程，程序結(jié)束后變量x的值為 ________。
Dim x As Integer
Private Sub Timer1_Timer()
For i = 1 to 100
x = x + 1
beep
Next i
End Sub
A） 1155
B） 1000
C） 100
D） 以上都不對
11. 下列說法中正確的是 ________。
A） 通過適當(dāng)?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上
B） 在列表框中不能進行多項選擇
C） 在列表框中能夠?qū)㈨椖堪醋帜笍拇蟮叫∨判?BR> D） 框架也有Click和DblClick事件
12. 為了防止用戶隨意將光標(biāo)置于控件之上，應(yīng)________。
A） 將控件的TabIndex屬性設(shè)置為0
B） 將控件的TabStop屬性設(shè)置為True
C） 將控件的TabStop屬性設(shè)置為False
D） 將控件的Enabled屬性設(shè)置為False
13.滾動條產(chǎn)生Change事件是因為 ________值改變了。
A） SmallChange
B） Value
C） Max
D） LargeChange
14 .如果要每隔15s產(chǎn)生一個Timer事件，則Interval屬性應(yīng)設(shè)置為________。
A） 15
B） 900
C） 15000
D） 150
15. 列表框的 ________屬性是數(shù)組。
A） List 和 ListIndex
B） List 和 ListCount
C） List 和 Selected
D） List 和 Sorted
16. 當(dāng)用戶按下并且釋放一個鍵后會觸發(fā)KeyPress、KeyUp、KeyDown事件，這三個發(fā)生的順序是 ________。
A） KeyPress、KeyDown、KeyUp
B） KeyDown、KeyUp 、KeyPress
C） KeyDown、KeyPress、KeyUp
D） 沒有規(guī)律
17. 下列關(guān)于鍵盤事件的說法中，正確的是________。
A） 按下鍵盤上的任意一個鍵，都會引發(fā)KeyPress事件
B） 大鍵盤上的“1”鍵和數(shù)字鍵盤的“1”鍵的KeyCode碼相同
C） KeyDown和KeyUp的事件過程中有KeyAscii參數(shù)
D） 大鍵盤上的“4”鍵的上檔字符是“$”，當(dāng)同時按下Shift和大鍵盤上的“4”鍵時，KeyPress事件過程的KeyAscii參數(shù)值是“$”的ASCII值
18. 為確保文本框中輸入的全部是數(shù)字的方法是________。
A） 在KeyDown或KeyUp的事件過程中摒棄非數(shù)字輸入
B） 在Validate事件過程中利用IsNumeric函數(shù)
C） 在Chinge事件過程中利用IsNumeric函數(shù)
D） 在KeyPress的事件過程中摒棄非數(shù)字輸入
19. 用戶在使用ActiveX控件之前，需要將他們加載到工具箱中，下面________操作可進行ActiveX控件的加栽。
A） 工程"部件…
B） 視圖"工具箱
C） 工具"選項…
D） 工程"引用…
20．把窗體的KeyPreview屬性設(shè)置程為True，然后編寫如下事件過程：
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr(KeyAscii)
KeyAscii = Asc(UCase(ch))
Print Chr(KeyAscii + 2)
End Sub
程序運行后，按鍵盤上的“A“鍵，則在窗體上顯示的內(nèi)容是______。
A）A
B）B
C）C
D）D
21．表示滾動條控件取值范圍值的屬性是______。
A）Max
B）LargeChange
C）Value
D）Max-Min
22．在窗體上畫一個名稱為Timer的計時器控件，要求每隔0.5秒發(fā)生一次計時事件，則以下正確的屬性設(shè)置語句是______。
A）Timer.Interval=0.5
B）Timer.Interval=5
C）Timer.Interval=50
D）Timer.Interval=500
23．通過設(shè)置Line控件的______屬性可以繪制多種形狀的圖形。
A）Shape
B）Style
C）FillStyle
D）BorderStyle
24．若在Shape控件內(nèi)以FillStyle屬性所指定的圖案填充區(qū)域，而填充圖案的線條的顏色由FillColor屬性指定，非線條的區(qū)域由BackColor屬性填充，則應(yīng)______。
A）將Shape控件的FillStyle屬性設(shè)置為2至7間的某個值，BackStyle屬性設(shè)置為1
B）將Shape控件的FillStyle屬性設(shè)置為0或1，BackStyle屬性設(shè)置為1
C）將Shape控件的FillStyle屬性設(shè)置為2至7間的某個值，BackStyle屬性設(shè)置為0
D）將Shape控件的FillStyle屬性設(shè)置為0或1，BackStyle屬性設(shè)置為0
25．設(shè)窗體上有一個列表框控件List1，且其中有若干列表項，則以下能表示當(dāng)前被選中的列表項內(nèi)容的是______。
A）List1.list
B）List1.Text
C）List1.Intdex
D）List1.listIndex
26．下列______程序段能刪除列表List1中的所有項。
A）Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem0
Next I
End Sub
B）Private Sub Command1_Click()
For I=0 To List.ListCount-1
List1.RemoveItem 1
Next I
End Sub
C）Private Sub Command1_Click()
For I=0 To List1.ListCount
List1.RemoveItem 0
Next I
End Sub
D）Private Sub Command1_Click()
For I=0 To List1.ListCount-1
List1.RemoveItem 1
Next I
End Sub
27．下面______控件不支持Change事件。
A）TextBox
B）ListBox
C）Label
D）PictureBox
28．在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：
Private Sub Form_Load()
List1.AddItem"357"
List1.AddItem"245"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_DblClick()
a=List1.Text
Print a+Text1.Text
End Sub
程序運行后，在文本框中輸入“789”，然后雙擊列表框中的“456”，則輸出結(jié)果是______。
A）1245
B）456789
C）789456
D）0
29．要使用列表中的列表顯示成復(fù)選框形式，則應(yīng)將其Style屬性設(shè)置為______。
A）0
B）1
C）True
D）False
30．窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1 和Command1，然后編寫如下事件過程：
Private Sub Form_Load()
List1.Addltem "Item1"
List1.Addltem "Item2"
List1.Addltem "Item3"
End Sub
Private Sub Command1_Click()
List1.List(List1.Listcount)= "AAAA"
End Sub
程序運行后，單擊命令按鈕，其結(jié)果為______。
A）把字符串“AAAA”添加到列表框中，但位置不能確定
B）把字符串“AAAA”添加到列表框的最后（即item3的后面）
C）把列表框中原有的最后一項改為“AAAA”
D）把字符串“AAAA”插入到列表框的最前面（即item1的前面）
31．在窗體上畫一個名稱為List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干城市的名稱。但單擊列表框中的某個城市名時，該城市名從列表框中消失，并在標(biāo)簽中顯示出來。下列能正確實現(xiàn)上述操作的程序是______。
A）Private Sub List_Click()
Label1.Caption=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B）Private Sub List_Click()
Label1.Name=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
C）Private Sub List_Click()
Label1.Caption=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D）Private Sub List_Click()
Label1.Name=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
32．以下敘述中錯誤的是______。
A）在KeyPree事件過程中不能識別鍵盤的按下與釋放
B）在KeyPree事件過程中不能識別回車鍵
C）在KeyDown和KeyUp事件過程中，將鍵盤輸入的“A”和“a”視作相同字母
D）在KeyDown和KeyUp事件過程中，從大鍵盤輸入的“1”和從小鍵盤輸入的“1”被視作不同的字符
33．以下關(guān)于KeyPress 事件過程中參數(shù)KeyAscii的敘述中正確的是______。
A）KeyAscii 參數(shù)是所按鍵的ASCII碼
B）KeyAscii參數(shù)的數(shù)據(jù)類型為字符串
C）KeyAscii參數(shù)可以省略
D）KeyAscii 參數(shù)是所按鍵上標(biāo)注的字符
34．假定編寫如下事件過程：
Private Sub Form_MouseMove(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If(Button And 2)=2 Then
Print"Hi"
End If
End Sub
程序運行后，為了在窗體上輸出“Hi”，應(yīng)在窗體上執(zhí)行以下______操作。
A）只能按下左按鈕并拖動
B）只能按下右按鈕并拖動
C）必須同時按下左）右按鈕并拖動
D）按下左按鈕拖動或按下右按鈕拖動都可
35．編寫如下事件過程：
Private Sub Form_MouseDown(Button As Integer,Shift As Integer, _
X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序運行后，為了在窗體上輸出“Hello”，應(yīng)在窗體上執(zhí)行以下______操作。
A）同時按下Shift鍵和鼠標(biāo)左按鈕
B）同時按下Shift鍵和鼠標(biāo)右按鈕
C）同時按下Ctrl、Alt鍵和鼠標(biāo)左按鈕
D）同時按下Ctrl、Alt鍵和鼠標(biāo)右按鈕
36．在窗體上畫一個文本框和一個計時器控件，名稱分別為Text1和Timer1,在屬性窗口中把計時器的Interval屬性設(shè)置為1000，Enabled屬性設(shè)置為False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操作的程序：
Private Sub Command1_Click()
Timer1._________
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
在______處應(yīng)填入的內(nèi)容是______。
A）Enabled=True
B）Enabled=False
C）Visible=True
D）Visible=False
37．假定在圖片框Picture1中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是____。：
A）選擇圖片框，然后按Del鍵
B）執(zhí)行語句Picture1.Picture=LoadPicture(“ ”)
C）執(zhí)行語句Picture1.Picture=””
D）選擇圖片框，在屬性窗口中選擇Picture屬性，然后按回車鍵
38.在窗體上畫一個List1的列表框，一個名稱為Label1的標(biāo)簽，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在標(biāo)簽中顯示被選中的項目的名稱，下列能正確實現(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
39. 對窗體編寫如下事件過程：
Private Sub Form _MouseDown(Button As Integer, _
Shift As Integer, X As Single ,Y As Single)
If Button =2 Then
Print "AAAAA"
End If
End Sub
Private Sub Form _ MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Print "BBBBB"
End Sub
程序運行后，如果單擊鼠標(biāo)右鍵，則輸出結(jié)果為____。
A） AAAAA
BBBBB
B） BBBBB
AAAAA
C） AAAAA
D） BBBBB
40. 在窗體上畫一個名稱為Text1的文本框，然后畫一個名稱為HScroll1的滾動條，其Min和Max屬性分別為0和100，程序運行后，如果移動滾動框，則在文本框中顯示滾動條的當(dāng)前值。以下能實現(xiàn)上述操作的程序段是
A） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
B） Private Sub HScroll1_Click()
Text1.Text = HScroll1.Value
End Sub
C） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Caption
End Sub
D） Private Sub HScroll1_ Click ()
Text1.Text = HScroll1.Value
End Sub