C．在代码中用SETFOCUS方法 D．用访问键或用鼠标单击选择对象
11、要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（ ）
A．设置窗体的VISIBLE属性 C．调用窗体的SHOW方法
B．设置窗体的CAPTION D．设置窗体ENABLED属性
12、下面（ ）对象无CAPTION属性
A．FORM
B．COMMANDBUTTON
C．TEXTBOX
D．LABEL
13、通用对话框控件和文件列表框控件中，都能根据文件的类型对要显示的文件进行筛选过滤，后者使用（ ）属性进行该项设置。
A．Pattern
B．Path
C．Filter
D．FileName
14、对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（ ）
A．chkBoy.Checked = true C．chkBoy.Selected = true
B．chkBoy.Value = true D．chkBoy.Value = 1
15、计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ）
A．Interval
B．SmallChange D．Max
C．LargeChange
16、以下关于VB中窗体（Form）的说法中，不正确的描述为（ ）
A．执行Unload Form语句后，窗体Form消失，但仍在内存中
B．当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 C．窗体的Height、width属性用于设置窗体的高和宽 D．窗体的load事件在加载窗体时发生 17、关于滚动条控件，下面说法错误的是（ ）
A．点击滚动条的箭头，可以改变它的value值，从而引发Change事件 B．拖动滚动框，可以触发Scroll事件
C．通常，水平滚动条的值从左向右递增，垂直滚动条的值自上而下递增 D．拖动滚动框，可以触发Change事件，而且是连续触发的
18、在窗体上放置一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程：
第 21 页
PriVate Sub Command1_C1ick() ??a$=\??b$＝Right(a$,8) ??c$=Mid(a$,1,8) ??Msgbox a$,b$,c$,1 End Sub
则在弹出的信息框的标题栏中显示的信息是（ ） A．softWare and hardware C．hardwafe
B．software
D．出现错误
19、在多重窗体程序设计中，关键的问题是要解决不同窗体之间的衔接和窗体的显示、关闭等问题，以下关于窗体的相关语句和方法的叙述中，错误的是（ ）
A．Load语句用于加载指定窗体，即在内存中创建该窗体 B．Show方法兼具Load语句的功能，可以将窗体显示出来 C．Hide方法用于将窗体隐藏起来
D．Unload语句用来释放窗体，但窗体并没从内存中消 20、滚动条控件的属性中，表示取值范围最大值的属性是（ ）
A．Max C．Min
B．LargeChange D．Value
21、程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件（ ）
A．DragDrop C．MouseUp
B．MouseDown
D．MouseMove
22、为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为（ ）。
A．0 三、简答题
1、什么是单选按钮？什么是复选框？在使用上有什么不同？ 2、滚动条的change事件和scroll事件有什么不同？
第 22 页
B．1
C．2
D．3
3、快捷键和访问键有什么区别？
4、在程序运行期间，如果拖动滚动条上的滚动块（即滑块），则触发滚动条的什么事件？
5、假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用什么语句？ 6、为了暂时关闭计时器（即时钟控件），应把该计时器的什么属性设置为False？ 7、单选按钮和复选框（即检查框）各用于什么情况？ 8、如何为一个菜单项设置热键和快捷键？ 9、菜单的形式有哪两种？
10、在KeyPress事件中，如何取消用户刚输入的字符？ 11、框架的作用是什么？
12、如果要计时器每秒钟发生4个Timer事件，则Interval属性值应设多少？
13、在一个窗体的程序代码中能否访问另一个窗体上控件的属性？若不行则请说明理由；若行则请说明如何访问。
14、如何在框架中建立控件？ 15、组合框有哪几种类型？ 四、读程序题
1、对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237,126,87,48,498) m1 = a(1) m2 = 1
If KeyAscii = 13 Then For i =2 To 5 If a(i)>ml Then m1 =a(j) m2 =i End If
第 23 页
Next i End If Print m1 Print m2 End Sub
程序运行后，按回车键，输出结果是什么？ 2、阅读下面的程序，写出执行结果。
Private Sub Form_load() Form1.show d = 0 For a = 1 To 2 For b = 1 To a
For c = b To 5 d = d + 1 Next c Next b Next a Print d End Sub
五、编程题
1、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒在文本框中显示一次当前的时间，请编程实现。
2、在Text1中输入任一英文字母，在Text2中显示该英文字母及其ASCII码值。要求在文本框Text2中显示出所有输入的英文字母及其ASCII码值，如下图所示。
第 24 页
Text1
Command1 Text2
3、编写一个程序，能够实现任意个整数的排序。
4、编程实现以下功能：用户首先分别在两个文本框中输入两个数，然后在具有“加、减、乘、除”等四个菜单项的“计算”菜单中单击某一项，即可在标签中显示出相应的结果或者错误提示。 5、编程实现任意两个数的“加、减、乘、除”。
6、编写一个程序，能够求任意个正整数的最大值和最小值。 7、编程求任意两个正整数的最大公约数。 六、程序分析填空题
1、建立一个如图所示的简单编辑器。用户在文本框（text1）中输入正文后，选中某些文本时可进行“剪切”、“复制”和“粘贴”操作。假设在窗体声明部分定义了一个变量str1，用于保存复制和剪切的内容，请把剪切按钮(btnCut)的Click事件补充完整。
程序运行界面：
第 25 页