一、填空题（每空２分，共40分） 
１、ＶＢ中若要产生一消息框，可用_____函数来实现。 
２、设计弹出式菜单时，先通过_____建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的_____方法显示弹出式菜单。 
３、Ｗindows可公用的对话框有：_____、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，ＶＢ可通过调用通用对话框控件的_____、ShowSave、ShowColor、_____、ShowPrint、ShowHelp方法来使用它们。也可通过设置通用对话框控件的_____属性来实现。 
４、在ＶＢ中窗体文件的后缀名为_____，工程文件的后缀名为_____。 
５、图像框和图片框均可用于装载、显示图形文件，可在设计阶段给它们的_____属性赋值，也可在运行阶段通过_____函数装入图形文件。 
６、若要将菜单项设计为分隔条，则该菜单项的标题属性应设置为 。 
７、_____实际上是ＶＢ提供的一种特殊的子程序，用来完成一定的操作。 
８、ＶＢ提供_____函数用于将数字字符转换成数值型，提供_____函数用于将数值转换成字符型。 
９、_____类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 
10、在过程内用_____声明的变量为静态变量，在执行一个过程结束时，过程中所用到的 Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 
11、在模块文件中的声明部分用Global或_____关键字声明的变量为全局变量。 
12、在模块文件中的声明部分用_____或_____定义的变量为模块级变量。 
二、选择题（每题3分，共20分） 
１、若要使命令按钮不可用，则可设置其（　　）属性为False来实现。 
Ａ、Value　　Ｂ、Cancel　　Ｃ、Enabled　　Ｄ、Default 
２、若要使某可见控件获得焦点，则可使用（　　）方法来实现。 
Ａ、Refresh　Ｂ、Setfocus　Ｃ、Gotfocus　　Ｄ、Value 
３、复选框或单选钮的当前状态可通过（　　）属性来返回或设置。 
Ａ、Checked　　Ｂ、Value　　Ｃ、Selected　　Ｄ、Caption 
４、VB提供（　　）属性用于控制对象是否可用。 
Ａ、Default　　Ｂ、Cancel　　Ｃ、Enabled　　Ｄ、Visible 
５、VB中可通过（　　）方法画圆 
Ａ、Pset　　Ｂ、Line　　Ｃ、Circle　　Ｄ、Oval 
６、可获得当前系统时间的函数是（　　） 
Ａ、Date( )　　Ｂ、Time( )　　Ｃ、IsDate( )　　Ｄ、Year( ) 
７、当用户在窗体上单击鼠标时，不会触发的事件是（　　） 
Ａ、Click　　Ｂ、MouseDown　　Ｃ、MouseUp　　Ｄ、DblClick 
８、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 
Ａ、工程资源管理器窗口 Ｂ、工具箱窗口 Ｃ、代码窗口 Ｄ、属性窗口 
９、设a=“Visual Basic”，下面使b=“Visual”的语句是 
Ａ、b=Left(a,8,12) Ｂ、b=Mid(a,8,5)
Ｃ、b=Rigth(a,6) Ｄ、b=Left(a,6) 
１０、以下能够触发文本框Change事件的操作是 
Ａ、文本框失去焦点 Ｂ、文本框获得焦点 
Ｃ、设置文本框的焦点 Ｄ、改变文本框的内容 

五、程序题（每空2分，共10分） 
程序要求： 
1、程序运行后，窗体初始化时，在左边列表框1(名称为List1)中列出当前屏幕对象（Screen ）的所有字体，screen对象的fonts属性（fonts属性是一个数组）能够得到屏幕使用的所有字体，FontCount属性能够得到字体的数量，利用一个循环，将Screen对象的每个Fonts(i)添加到列表框1中； 
2、窗体初始化时，在右边的列表框2(名称为List2)中列出8、10、12、14……72的数字，表示字号。 
3、当用户在列表框1中单击选中某种字体名时，或在列表框2中单击选中某一字号时，使窗体下半部的标签框（名称为Label1）中文字设置为相应字体与字号，实现字体字号预览。 
Private sub Form_Load( ) 
For a=0 to Screen.FontCount-1 
　　List1.AddItem Screen.Fonts(a) 
Next a 
For a=_____ to 72 step _____ 
_____ 
Next a 
End Sub 
Private Sub List1_Click( ) 
_____ 
End Sub 
Private Sub List2_Click( ) 
_____ 
End Sub