（D）没有规律

19.窗体的KeyPreview属性为True，并且有下列程序。当焦点在窗体上的文本框时按下“a”键，文本框接收到的字符是________。

Sub Form_KeyDown ( KeyCode As Integer,Shift As Integer ) KeyCode = KeyCode + 1 End Sub

（A）＂a＂ （B）＂b ＂ （C）空格 （D）没有接收到字符 20.在下列关于键盘事件的说法中，正确的是________。 （A）按下键盘上的任一个键，都会引发KeyPress事件

（B）大键盘上的“1”键和数字键盘上的“1”键的KeyPress码相同 （C）KeyDown和KeyUp的事件过程中有KeyAscii参数 （D）大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程中的KeyAscii参数值是“$”的ASCII值

21.在KeyDown或KeyUp的事件过程中，能用来检查Ctrl和F3是否同时按下的表达式为________。

（A）(Button = vbCtrlMask) And (KeyCode = vbKeyF3) （B）KeyCode = vbKeyControl + vbKeyF3

（C）(KeyCode = vbKeyF3) And (Shift And vbCtrlMask) （D）(Shift And vbCtrlMask) And (KeyCode and vbKeyF3) 22.确保文本框中输入的全是数字的最佳方法是________。 （A）在KeyDown或KeyUp事件过程中摒弃非数字输入 （B）在Validate事件过程中利用IsNumeric （C）在Change事件过程中利用IsNumeric （D）在KeyPress事件过程中摒弃非数字输入

23.当用户将焦点移到另一个应用程序时，当前应用程序和活动窗体将________。 （A）发生DeActivate事件 （B）发生LostFocus事件

（C）发生DeActivate和LostFocus事件 （D）DeActivate和LostFocus事件都不发生

24. 当窗体被装入内存时，系统将自动执行________事件过程。 (A) Load (B) Activate (C) Unload (D) QueryUnload 25. 在标签框上显示的内容由________属性来实现。

(A) Name (B) Caption (C) Text (D) ForeColor

26. 要使标题在标签框内居中显示，Alignment属性的取值应为________。 (A) 0 (B) 1 (C) 2 (D) 3

27. 若使标签框根据所显示内容自动调整其大小，则可通过设置________属性值为True来实现。

(A) AutoSize (B) Alignment (C) Enabled (D) Visible

28. 如果设置文本框最多可以接受的字符数，则可以使用________属性。 (A) Length (B) Multiline (C) Max (D) MaxLength

29. 在运行程序时，要使文本框获得焦点，则需使用________方法。 (A) Chang (B) SetFocus (C) GotFocus (D) Move 30. 下列控件中，有AutoSize属性的是________。

(A) 窗体 (B) 文本框 (C) 图片框 (D) 图像框

- 64 -

31. 若把图片框Picture1中的图形清除，可以使用的语句是________。

(A) Picture1.Del (B) Picture1.Picture=LoadPicture(“”)

(C) Picture1.Picture=LoadPicture( ) (D) Picture1.Picture=Nothing 32. 命令按钮上的文本内容由________属性设置。 (A) Text (B) Caption (C) Name (D) Show

33. 若使命令按钮失效，则可以设置________属性的值为False实现。 (A) Value (B) Enabled (C) Visible (D) Cancel

34. 若要得到列表框中项目的数目，可以访问________属性。 (A) List (B) ListIndex (C) ListCount (D) Text

35. 要想清除列表框的所有项目内容，可以使用________方法。 (A) AddItem (B) ReMove (C) Clear (D) Print 36. 设置计时器的时间间隔，可以通过________属性实现。 (A) Value (B) Text (C) Max (D) InterVal

37. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令的一个属性设置为True,这个属性是________

(A) Value (B) Default (C) Cancel (D) Enabled

38. 假定在图片框Picture1中装入一个图形，为了清除该图形（注意，清除图形，而不是删

除图片框），应采勇的正确方法是________ (A) 选择图片框，然后按Del 键

(B) 执行语句 Picture1.Picture=LoadPicture(?? “) (C) 执行语句 Picture1. Picture=“ “

(D) 选择图片框，在属性窗口中选择Picture属性条，然后按回车键 39. 删除列表框中指定的项目所使用的方法为________

(A) Move (B) Remove (C) Clear (D) RemoveItem 40. 单击滚动条上的滚动箭头时,产生的事件是________.

(A)Click (B)Scoll (C)Change (D)Move

41. 要使文本框只具有垂直滚动条,则应该________.

(A)将其Multiline设置为True,同时将Scrollbars属性设置为0 (B)将其Multiline设置为True,同时将Scrollbars属性设置为1 (C) 将其Multiline设置为True,同时将Scrollbars属性设置为2 (D) 将其Multiline设置为True,同时将Scrollbars属性设置为3

42.在窗体上画两个单选按钮,名称分别为Option1.Option2,标题分别为”宋体”和”黑体”;一个复选框,名称为Click1,标题为”粗体\一个文本框,名称Text1,Text属性为”改变文字字体”.要求程序运行时,”宋体”单选按钮和”粗体”复选按钮中,则能够实现上述要求的语句列是________

(A)Option1.Value=Ture (B) Option1.Value=Ture Check1.Value=False Check1.Value=Ture (C) Option1.Value=False (C) Option1.Value=Ture Check1.Value= Ture Check1.Value=1

43. 图像控件有一个属性,可以自动调整图形的大小以适应图像的尺寸,这个属性是________. (A)Autosize (B)Streth (C)AutoRedraw (D)Appearance

44. 在运行阶段,要在文本框Text1获得焦点时选中文本框中的所有内容,则对应的事件过程

是________

- 65 -

(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

二. 填空题

1. 复选框________属性设置为2—Grayed时，变成灰色，禁止用户选择。 2. ________属性设置为1，单选按钮和复选框的标题显示在左边。 3. ________属性设置为1，单选按钮和复选框以图形方式显示。

4. 在程序运行时，如果将框架的________属性设置为False，则框架的标题呈灰色，表示

框架内的所有对象都被屏蔽，不允许用户对其操作。 5. 列表框中项目的序号是从________开始的。 6. ________表示列表框中最后一项的序号。 7. 列表框中的________和________属性为数组。 8. ________方法可清除列表框中的所有内容。

9. 组合框是给和了文本框和列表框的特性而形成的一种控件。________风格的组合框不允

许用户输入列表框中没有的项。

10. 滚动条响应的重要事件有________和Change。

11. 当用户单击滚动条的空白处时，滑块移动和增量值由________属性决定。 12. 滚动条产生Change事件是因为________值改变了。

13. 如果要每隔壁15s产生一个Timer事件，则Interval属性应设置为________。 14. ________函数将返回系统的时间。

15. Microsoft Windows Common Control 6.0部件包含ToolBar、StatusBar、________、

TreeView、ListView、ImageList、________和ImageCombo等控件。

16. 在设计状态，由Tabs和________属性决定SSTab控件中的选项卡总行数。

17. Microsoft Windows Common Control—26.0部件中的Animation和________等控件。 18. Microsoft Windows Common Control—26.0部件中的Animation控件用来播放________文

件。

19. 当用户单击鼠标右键时，MouseDown、MouseUp和MouseMove事件过程中的Button参

数值为________。

20. 当用户同时按下Ctrl和Shift键并单击鼠标时，MouseDown、MouseUp和MouseMove

事件过程中的Shift参数值为________。

- 66 -

21. 如果要在程序的运行期间改变鼠标的形状，必须先将MousePointer设置为vbCustom，

然后在程序中用LoadPicture函数将需要的图标文件（.ICO）或指针文件（.CUR）装入________属性中。

22. 只要将MousePointer属性设置为________，鼠标指针就会恢复原样。

23. 如果窗体的________属性设置为True，则控件的KeyPress事件过程，可以接收到在窗

体的KeyPress过程中修改过的KeyAscii值。

24. 控件的________属性设置为1时，启用自动拖放模式。

25. 当源对象被拖动到目标对象上方时，在目标对象上将引发________事件，释放时又会引

发________事件。

26. 控件的________属性决定控件被拖动时显示的图标。

27. 在拖放事件过程中可以采用________函数判断源对象的控件类型，供程序识别。

28. 有些控件，如文件框，图片框等，完全支持自动OLE拖放，这意味着无论从控件内拖

出还是在控件内放入都不需要编程，只需将源控件的________设为1（Automatic）和________设为2（Automatic）即可。

29. 下面程序段是将列表框List1中重复的项目删除，只保留一项。

For i = 0 To List1 . ListCount – 1

For j = List1 . ListCount – 1 To ________ Step – 1 If List1 . List ( i ) = List1 . List ( j ) Then ________ End If Next j Next i

30. 下列程序允许用户按Enter键将一个组合键（cboComputer）中没有的项目添加到组合框

中。

Sub cboComputer _ KeyPress (KeyAscii As Integer) Dim flag As Boolean If KeyAscii = 13 Then Flag = False

For i = 0 To cboComputer . ListCount – 1 If ________ Then Flag = True Exit For End If Next

If ________ Then ________ Else

MsgBox (＂组合中已有该项目！＂) End If End If End Sub 三. 编程题

设计一个带有进度条的倒计时程序，

- 67 -