一、填空题(每空2分,共40分)解读

一、填空题（每空２分，共40分）
１、ＶＢ中若要产生一消息框，可用___________函数来实现。

２、设计弹出式菜单时，先通过_____________建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的_____________方法显示弹出式菜单。

３、Ｗindows公用对话框可作：______________、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，ＶＢ通过调用通用对话框控件的__________________、ShowSave、ShowColor、______________ 、ShowPrint、ShowHelp方法来使用它们。

也可通过设置通用对话框控件的______________属性来实现。

４、在ＶＢ中窗体文件的后缀名为______，工程文件的后缀名为______。

５、图像框和图片框可用于装载、显示图形文件，在设计阶段通过设置它们的___________属性来加载图片，也可在运行阶段通过_____________函数装入图形文件。

６、若要将菜单项设计为分隔条，则该菜单项的标题属性应设置为_____________。

７、__________实际上是ＶＢ提供的一种特殊的子程序，用来完成一定的操作。

８、ＶＢ提供________函数用于将数字字符转换成数值型，提供________函数用于将数值转换成字符型。

９、__________类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。

10、在过程内用___________声明的变量为静态变量，在执行一个过程结束时，过程中所用到的 Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。

11、在模块文件中的声明部分用Global或____________关键字声明的变量为全局变量。

12、在模块文件中的声明部分用__________或___________定义的变量为模块级变量。

二、选择题（每题２分，共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
８、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口
９、设a=“Visual Basic”，下面使b=“Visual”的语句是
A、b=Left(a,8,12)
B、b=Mid(a,8,5)
C、b=Rigth(a,6)
D、b=Left(a,6)
１０、以下能够触发文本框Change事件的操作是
A、文本框失去焦点
B、文本框获得焦点
C、设置文本框的焦点
D、改变文本框的内容
四、综合题（每题５分，共20分）
１、在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls :Y=1 :Y=Y+5 :X=5+X
Print X,Y
End Sub
请写出程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果。

２、在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1。

要求每一秒钟在文本框中显示一次当前的时间。

程序如下，请在下划线上填入恰当的内容。

Private Sub Timer1_Timer()
TxtTime.text=___________
End Sub
３、在窗体上画一个命令按钮，名称为Command1。

然后编写如下程序：
Private Sub Command1_Click()
For a=1 To 4
For b=0 To a
Print Chr(65+a)
Next b
Print
Next a
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是什么？
４、在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Activate()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
End Sub
程序运行后，在文本框中显示的内容是_____________
而在图片框中显示的内容是_____________
五、程序题（每空２分，共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。