1、国家二级 VB 机试（过程、菜单程序设计）模拟试卷 1 及答案解析(总分：56.00，做题时间：90 分钟)一、选择题(总题数：28，分数：56.00)1.以下关于 VB 特点的叙述中，错误的是( )。（分数：2.00）A.VB 采用事件驱动的编程机制B.VB 程序能够以解释方式运行C.VB 程序能够以编译方式运行D.VB 程序总是从 Form_Load 事件过程开始执行2.如果把程序的启动对象设置为：Sub Main，则 Sub Main 过程( )。（分数：2.00）A.只能写在 Forml 窗体中代码的最前面B.可以写在 Forml 窗体中代码的任何位置C.只能写在某个标准模块的代码中D
2、.可以写在任何窗体或标准模块的代码中3.设窗体上有 3 个图像框：Image1、Image2、Image3，并有下面的程序代码： Private Sub FormLoad() lmagelPicture=LoadPicture(“LEAFbmp”) Image2Picture=LoadPicture(“OPENbmp”) Image3Visible=False End Sub Private Sub ImagelClick() Image2Picture=ImagelPicture End Sub Private Sub Image2 一 Click() Image3Picture=Image
3、2Picture Image2Picture=Image1Picture ImagelPicture=Image3Picture End Sub 在程序运行期间单击Image2，则在窗体上看到的结果是( )。（分数：2.00）A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片4.在 VB 中，函数过程与子程序过程的区别之一是( )。（分数：2.00）A.函数过程必须有参数，而子程序过程可以没有B.函数过程的参数传
4、递只采用值传递，而子程序过程只采用地址传递C.在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能D.函数过程有返回值，而子程序过程没有5.设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为( )。（分数：2.00）A.Call S 5，48B.Call Sub(5，48)C.Sub 5，48D.S 5，486.阅读程序： Option Base l Sub P(b()As Integer) For i=l To 4 b(i)=2*i Next iEnd SubPrivate Sub Form-Click()
5、Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next iEnd Sub 运行上面的程序，单击窗体，输出结果为( )。（分数：2.00）A.2 4 6 8B.5 6 7 8C.10 12 14 16D.4 8 12 167.设有以下过程： Private Sub pmc(x As Integer，Optional Y As Integer) Print X，Y End Sub 针对此过程，下面正确的过程调用语句是( )。（分数：2.00）A.Call proc(a!，23)B.Call p
6、roc x，12C.proc bD.x=proc(12)8.窗体上有一个名称为 Commandl 的命令按钮，一个名称为 Textl 的文本框。编写如下程序： Private Sub CommandlClick() Dim x As Integer X=val(InputBox(“输入数据”) Textl=Str(X+fun(x)+fun(x) End Sub Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n * n End If fun=n End Function 对于上述程序，以下叙述中错误
7、的是( )。（分数：2.00）A.语句 fun=n 有错，因为 n 是整型，fun 没有定义类型B.运行程序，输入值为 5 时，文本框中显示 655C.运行程序，输入值为 6 时，文本框中显示 42D.ByRef 表示参数按址传递9.编写如下程序：Private Sub Command1_Click() Dim x As Integer，Y As Integer x=InputBox(“输入第一个数”) Y=InputBox(“输入第二个数”) Call f(x，y) Print x，yEnd S1lbSub f(As Integer,ByVal b As Integer) a=a*2 x=a
8、+b b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10 和 15，则输出结果为( )。（分数：2.00）A.10 115B.20 1 15C.35 15D.20 1510.窗体上有一个名称为 Command1 的命令按钮，并有如下程序代码： Private Sub Commandl_Click() Static a a=1：b=2：c=3 Call f(a，b，c) Print a；b；c End Sub Sub f(ByVal x，ByRef y，z) x=x+1 y=y+1 z = z + 1 End Sub 运行程序，单击命令按钮，窗体上显示的
9、是( )。（分数：2.00）A.1 3 3B.1 3 4C.2 3 3D.2 3 411.以下关于过程的叙述中，错误的是( )。（分数：2.00）A.在 Sub 过程中不能再定义 Sub 过程B.事件过程也是 Sub 过程C.过程调用语句的形参个数必须与实参个数相同D.函数过程一定有返回值12.编写如下程序：Private Sub Commandl-Click() Dim x As Integer x=10 Print funl(x，12)+x End Sub Private Function funl(m As Integer，11 As Integer)As Integer If n10
10、Then m=n funl=m+n End Function 程序运行后，单击命令按钮 Commarid1，输出结果为( )。（分数：2.00）A.30B.32C.34D.3613.编写如下程序： Private Sub CommandlClick() Dim x As Integer，y As Integer x=10 y=20 Call funl(x，y) Print x；yEnd SubPrivate Function funl(ByVal nl As Integer，11 As Integer)As Integer m=m*m n =n+nEnd Funetion 程序运行后，单击命令
11、按钮 Command1，输出结果为( )。（分数：2.00）A.10 25B.10 40C.100 25D.100 4014.以下关于菜单的叙述中错误的是( )。（分数：2.00）A.对于同一窗体中的菜单，各菜单项的名称必须唯一B.对于同一窗体中的菜单，各菜单项的标题必须唯一C.菜单中各菜单项可以是控件数组元素D.弹出式菜单的编辑、定义在菜单编辑器中进行15.按照下表建立菜单： （分数：2.00）A.各子菜单项组成一个名称为 mnul 的控件数组B.不论选中菜单项 1、2 或 3，均执行 mnul_Click 事件过程C.Case 2 分支的语句没有必要，因为该菜单项的“复选”属性已被设置D.
12、程序中的 Index 是系统自动产生的16.在用菜单编辑器设计菜单时，必须输入的项是( )。（分数：2.00）A.标题B.快捷键C.索引D.名称17.以下打开 Visual Basic 菜单编辑器的操作中，错误的是( )。（分数：2.00）A.执行“编辑”菜单中的“菜单编辑器”命令B.执行“工具”菜单中的“菜单编辑器”命令C.单击工具栏中的“菜单编辑器”按钮D.右击窗体，在弹出的快捷菜单中选择“菜单编辑器”命令18.以下说法中正确的是( )。（分数：2.00）A.任何时候都可以用 Ctrl+E 键打开菜单编辑器B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C.只有当代码窗口为当前活动窗
13、口时，才能打开菜单编辑器D.任何时候都可以用标准工具栏的”菜单编辑器”按钮打开菜单编辑器19.如果一个顶级菜单项的访问键为 D，则以下等同于单击该菜单项的操作为( )。（分数：2.00）A.按 Ctrl+D 键B.按 Alt+D 键C.按 D 键D.按 Shift+D 键20.下列关于菜单项的描述中，错误的是( )。（分数：2.00）A.通过内缩符号()设置菜单项的层次B.通过 Enabled 属性设置菜单项的有效性C.菜单项的索引号可以不连续D.菜单项的索引号必须从 1 开始21.为了显示弹出式菜单，要使用( )。（分数：2.00）A.窗体的 PopupMenu 方法B.窗体的 OpenMe
14、nu 方法C.菜单的 PopupMenu 方法D.菜单的 OpenMenu 方法22.下面关于菜单的叙述中正确的是( )。（分数：2.00）A.为了使得选中一个菜单项就可以执行某种操作，要为它的 Click 事件过程编写执行该操作的代码B.同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名C.只能使用鼠标右键把弹出式菜单弹出来D.弹出式菜单中的菜单项不能再有自己的子菜单23.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。（分数：2.00）A.InitDir 属性用于设置对话框中显示的起始目录B.Filter 属性用于设置对话框默认的过滤器C.Default
15、Ext 属性用于设置对话框中默认的文件类型D.FileTitle 属性用于存放对话框中所选择的文件名24.通用对话框 Filter 属性的作用是( )。（分数：2.00）A.设置对话框的标题B.指定对话框所选择的文件名C.指定对话框的打开方式D.指定对话框中显示的文件类型25.窗体上有一个名称为 CDl 的通用对话框，一个名称为。rextl 的文本框，窗体的单击事件过程如下： Private Sub FormClick() CDIDialogTitle=“改变颜色” CDlColor=FormlBackColor CDIAction=3 Text1BackColor=CDlColor End
16、Sub 运行程序时，单击窗体，则以下叙述中错误的是( )。（分数：2.00）A.通用对话框的标题被改为“改变颜色”B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色26.利用通用对话框控件打开字体对话框的操作是( )。（分数：2.00）A.把通用对话框控件的 Action 属性设置为 4B.把通用对话框控件的 Action 属性设置为 5C.调用通用对话框控件的 OpenFont 方法D.调用通用对话框控件的 ShowText 方法27.在窗体上画一个通用对话框，
17、其名称为 CommonDialog1，则下列与 CommonDialoglShowOpen 方法等效的语句是( )。( )。（分数：2.00）A.CommonDialoglAction=1B.CommonDialoglAction=2C.CommonDialog1Action=3D.CommonDialoglAction=428.假定在窗体上添加了一个通用对话框控件，其名称为 CDI，并有如下程序段： CD1ShowOpen CD1DefaultExt=”doc”在打开文件的对话框中选择了“c：fileltxt”文件，则 FileTitle 属性的值是( )。（分数：2.00）A.fileld
18、ocB.fileltxtC.c：fileltxtD.c：fileldoc国家二级 VB 机试（过程、菜单程序设计）模拟试卷 1 答案解析(总分：56.00，做题时间：90 分钟)一、选择题(总题数：28，分数：56.00)1.以下关于 VB 特点的叙述中，错误的是( )。（分数：2.00）A.VB 采用事件驱动的编程机制B.VB 程序能够以解释方式运行C.VB 程序能够以编译方式运行D.VB 程序总是从 Form_Load 事件过程开始执行 解析：解析：在一般情况下，整个应用程序从设计时的第一个窗体开始执行，需要首先执行的程序代码放在 FormLoad 事件过程中。如果需要从其他窗体开始执行应
19、用程序，则可通过“工程”菜单中的“工程属性”命令(“通用”选项卡)指定启动窗体。但是，如果有 Sub Main 过程，则可以(注意，是“可以”，而不是“必须”)首先执行 Sub Main 过程。2.如果把程序的启动对象设置为：Sub Main，则 Sub Main 过程( )。（分数：2.00）A.只能写在 Forml 窗体中代码的最前面B.可以写在 Forml 窗体中代码的任何位置C.只能写在某个标准模块的代码中 D.可以写在任何窗体或标准模块的代码中解析：解析：在运行窗体程序之前先执行一些操作，此时可以通过在标准模块中创建一个 Sub Main 的子过程，不能在窗体模块中创建 Sub Ma
20、in 的子过程，然后在创建的 Sub Main 过程中编写启动时要执行的代码，每个工程只能有一个 Sub Main 的子过程。3.设窗体上有 3 个图像框：Image1、Image2、Image3，并有下面的程序代码： Private Sub FormLoad() lmagelPicture=LoadPicture(“LEAFbmp”) Image2Picture=LoadPicture(“OPENbmp”) Image3Visible=False End Sub Private Sub ImagelClick() Image2Picture=ImagelPicture End Sub Pri
21、vate Sub Image2 一 Click() Image3Picture=Image2Picture Image2Picture=Image1Picture ImagelPicture=Image3Picture End Sub 在程序运行期间单击Image2，则在窗体上看到的结果是( )。（分数：2.00）A.在 Image3 中显示 Image2 中的图片B.Image1、Image2 中原有图片被交换了 C.Image1、Image2 中都是原来 Imege1 中的图片D.Image1、Image2 中都是原来 Imege2 中的图片解析：解析：Fo 肿一 Load 过程为在图相框
22、里载人相应图片。点击 Image2 时，激发 Image2 一 Click 事件，在事件中图片进行了交换。选 B)。4.在 VB 中，函数过程与子程序过程的区别之一是( )。（分数：2.00）A.函数过程必须有参数，而子程序过程可以没有B.函数过程的参数传递只采用值传递，而子程序过程只采用地址传递C.在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能D.函数过程有返回值，而子程序过程没有 解析：解析：在 Visual Basic 中有两类过程：一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点
23、是完成某种特定功能的一组程序代码，不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是 Sub 过程的过程不能直接返回值，而 Function 过程能直接返回值。5.设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为( )。（分数：2.00）A.Call S 5，48B.Call Sub(5，48)C.Sub 5，48D.S 5，48 解析：解析：(1)用 Call 语句调用 Sub 过程：语法：Call 过程名(实参表列)，实参的个数、类型和顺序，应该与被调用过程的形式参数相
24、匹配，有多个参数时，用逗号分隔。(2)把过程名作为一个语句来用：语法：过程名实参 l，实参 2/，它与(1)的不同点是：去掉了关键字和实参列表的括号。6.阅读程序： Option Base l Sub P(b()As Integer) For i=l To 4 b(i)=2*i Next iEnd SubPrivate Sub Form-Click() Dim a(4)As Integer For i=1 To 4 a(i)=i+4 Next i P a For i=1 To 4 Print a(i) Next iEnd Sub 运行上面的程序，单击窗体，输出结果为( )。（分数：2.00）A
25、.2 4 6 8 B.5 6 7 8C.10 12 14 16D.4 8 12 16解析：解析：FormClick 过程中首先对 a 数组用 For 循环赋值。然后调用过程 P。注意 P 参数传递是引用传递，因此数组 a 的元素值在执行 P 过程后会被改变。之后的 For 输出变量值是过程 P 中对数组元素的赋值。选 A)。7.设有以下过程： Private Sub pmc(x As Integer，Optional Y As Integer) Print X，Y End Sub 针对此过程，下面正确的过程调用语句是( )。（分数：2.00）A.Call proc(a!，23)B.Call p
26、roc x，12C.proc b D.x=proc(12)解析：解析：(1)用 Call 语句调用 Sub 过程：语法：Call 过程名(实参表列)，实参的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个参数时，用逗号分隔。(2)把过程名作为一个语句来用：语法：过程名实参 1，实参 2/，它与(1)的不同点是：去掉了关键字和实参列表的括号。根据题意，选项 C)正确。8.窗体上有一个名称为 Commandl 的命令按钮，一个名称为 Textl 的文本框。编写如下程序： Private Sub CommandlClick() Dim x As Integer X=val(InputBox
27、(“输入数据”) Textl=Str(X+fun(x)+fun(x) End Sub Private Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n * n End If fun=n End Function 对于上述程序，以下叙述中错误的是( )。（分数：2.00）A.语句 fun=n 有错，因为 n 是整型，fun 没有定义类型 B.运行程序，输入值为 5 时，文本框中显示 655C.运行程序，输入值为 6 时，文本框中显示 42D.ByRef 表示参数按址传递解析：解析：过程 fun 的功能是将传人的值运
28、算后返回，当传人数值为 3 的整数倍时返回该值的 2 倍，否则返回该值的平方。过程：Fun 的参数指定为 ByRef 方式，即按址传递，因此会影响实参的值。Str 函数是将数值转换为字符串。过程 fun 定义时没有指明返回类型因此默认为 Variant 类型，它可以表示任何值，因此 A)选项的说法不正确。9.编写如下程序：Private Sub Command1_Click() Dim x As Integer，Y As Integer x=InputBox(“输入第一个数”) Y=InputBox(“输入第二个数”) Call f(x，y) Print x，yEnd S1lbSub f(As
29、 Integer,ByVal b As Integer) a=a*2 x=a+b b=b+100 End Sub 程序运行后，单击命令按钮 Command1，并输入数值 10 和 15，则输出结果为( )。（分数：2.00）A.10 115B.20 1 15C.35 15D.20 15 解析：解析：程序中过程 f 的参数 a 默认为按址传递，参数 b 指定按值传递，因此调用 f(x，y)时，x 的值会受到影响，y 的值不会。程序中输入 10 和 15，则 x=10，y=15。调用 f(x，y)，在过程中 a=a*2，即a=10*2=20，变量 x 是过程 f 中的局部变量，没有用处可不用理会，
30、b=b+100，即 b=15+100=115。a 的值即按钮单击事件中变量 x 的值，因此 x=20，而 y 的值仍是原来的值 15，因此 Print x，y 输出 20 15。10.窗体上有一个名称为 Command1 的命令按钮，并有如下程序代码： Private Sub Commandl_Click() Static a a=1：b=2：c=3 Call f(a，b，c) Print a；b；c End Sub Sub f(ByVal x，ByRef y，z) x=x+1 y=y+1 z = z + 1 End Sub 运行程序，单击命令按钮，窗体上显示的是( )。（分数：2.00）A.
31、1 3 3B.1 3 4 C.2 3 3D.2 3 4解析：解析：子函数 Sub f(ByVal x，ByRef y，z)中 x 值通过值传递，y，z 是传引用，子函数执行后b，c 值会被加 1，而 a 值维持不变。选 B)。11.以下关于过程的叙述中，错误的是( )。（分数：2.00）A.在 Sub 过程中不能再定义 Sub 过程B.事件过程也是 Sub 过程C.过程调用语句的形参个数必须与实参个数相同 D.函数过程一定有返回值解析：解析：在调用过程的语句中，要求实参个数与被调用过程形参个数一致。12.编写如下程序：Private Sub Commandl-Click() Dim x As
32、Integer x=10 Print funl(x，12)+x End Sub Private Function funl(m As Integer，11 As Integer)As Integer If n10 Then m=n funl=m+n End Function 程序运行后，单击命令按钮 Commarid1，输出结果为( )。（分数：2.00）A.30B.32C.34D.36 解析：解析：Function funl 函数中的参数都是引用传递，会改变实参的值，执行完后 Commandl-Click中变量 x 的值为 12。选 D)。13.编写如下程序： Private Sub Com
33、mandlClick() Dim x As Integer，y As Integer x=10 y=20 Call funl(x，y) Print x；yEnd SubPrivate Function funl(ByVal nl As Integer，11 As Integer)As Integer m=m*m n =n+nEnd Funetion 程序运行后，单击命令按钮 Command1，输出结果为( )。（分数：2.00）A.10 25B.10 40 C.100 25D.100 40解析：解析：函数 funl(ByVal m As Integer，n As Integer)中 m 通过
34、ByVal 指定为值传递，n 为引用传递。传递给该函数的实参会被改变。选 B)。14.以下关于菜单的叙述中错误的是( )。（分数：2.00）A.对于同一窗体中的菜单，各菜单项的名称必须唯一B.对于同一窗体中的菜单，各菜单项的标题必须唯一 C.菜单中各菜单项可以是控件数组元素D.弹出式菜单的编辑、定义在菜单编辑器中进行解析：解析：对于同一窗体中的菜单，各菜单项的标题不需唯一。15.按照下表建立菜单： （分数：2.00）A.各子菜单项组成一个名称为 mnul 的控件数组B.不论选中菜单项 1、2 或 3，均执行 mnul_Click 事件过程C.Case 2 分支的语句没有必要，因为该菜单项的“复
35、选”属性已被设置 D.程序中的 Index 是系统自动产生的解析：解析：菜单项 1 至菜单项 3 是名称为 mnul 的控件数组，系统自动产生索引分别为 1，2，3。由于是控件数组，选中菜单项 1 至 3 中任何一项，都会执行 mnul_Click 事件过程。选 C)。16.在用菜单编辑器设计菜单时，必须输入的项是( )。（分数：2.00）A.标题B.快捷键C.索引D.名称 解析：解析：数据区用来输入或修改菜单项、设置属性。其中：标题项：在提供的文本输入框中可以输入菜单名或命令名，故 A 项不是必须输入的。索引项：当几个菜单项使用相同的名称时，把它们组成控件数组，可指定一个数字值来确定每一个菜
36、单项在控件数组中的位置，故 C 项不是必须输入的。快捷键项：允许为每个菜单项选择快捷键(热键)，故 B 项不是必须输入的。名称项：在文本输入框中可以为菜单名及各菜单项输入控制名。控制名是标识符(相当于控件的 Name 属性)，仅用于访问代码中的菜单项，它不会在菜单中出现。菜单名和每个菜单项都是一个控件，都要为其取一个控制名，故 D 项是必须输入的。17.以下打开 Visual Basic 菜单编辑器的操作中，错误的是( )。（分数：2.00）A.执行“编辑”菜单中的“菜单编辑器”命令 B.执行“工具”菜单中的“菜单编辑器”命令C.单击工具栏中的“菜单编辑器”按钮D.右击窗体，在弹出的快捷菜单中
37、选择“菜单编辑器”命令解析：解析：在“编辑”菜单中没有“菜单编辑器”命令。故 A 选项错误。18.以下说法中正确的是( )。（分数：2.00）A.任何时候都可以用 Ctrl+E 键打开菜单编辑器B.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 C.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器D.任何时候都可以用标准工具栏的”菜单编辑器”按钮打开菜单编辑器解析：解析：只有窗体为活动窗体时，才可以打开菜单编辑器。19.如果一个顶级菜单项的访问键为 D，则以下等同于单击该菜单项的操作为( )。（分数：2.00）A.按 Ctrl+D 键B.按 Alt+D 键 C.按 D 键D.按 Shif
38、t+D 键解析：解析：“访问键”是菜单、菜单项或控件(如按钮)标签的文本中带下划线的字符。访问键允许用户通过同时按 Alt 键和预先定义的访问键来“单击”按钮。20.下列关于菜单项的描述中，错误的是( )。（分数：2.00）A.通过内缩符号()设置菜单项的层次B.通过 Enabled 属性设置菜单项的有效性C.菜单项的索引号可以不连续D.菜单项的索引号必须从 1 开始 解析：解析：菜单项的索引号不要求必须从 1 开始。21.为了显示弹出式菜单，要使用( )。（分数：2.00）A.窗体的 PopupMenu 方法 B.窗体的 OpenMenu 方法C.菜单的 PopupMenu 方法D.菜单的
39、OpenMenu 方法解析：解析：显示弹出式菜单使用 PopupMenu 方法。22.下面关于菜单的叙述中正确的是( )。（分数：2.00）A.为了使得选中一个菜单项就可以执行某种操作，要为它的 Click 事件过程编写执行该操作的代码 B.同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名C.只能使用鼠标右键把弹出式菜单弹出来D.弹出式菜单中的菜单项不能再有自己的子菜单解析：解析：Click 事件在鼠标单击时触发，要想选中菜单项就执行某种操作，可以在 Click 事件过程中编写需要执行的操作代码。A)正确。VB 中的菜单项不管是同级还是不同级都不允许同名，B)错误。一般情况下，不显
40、示弹出式菜单。需要时用 PopupMenu 方法显示弹出式菜单。C)错误。VB 中允许有多级弹出式菜单，D)错误。23.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是( )。（分数：2.00）A.InitDir 属性用于设置对话框中显示的起始目录B.Filter 属性用于设置对话框默认的过滤器 C.DefaultExt 属性用于设置对话框中默认的文件类型D.FileTitle 属性用于存放对话框中所选择的文件名解析：解析：通用对话框的 InitDir 属性用于设置对话框中显示的起始目录，Filter 属性用来指定在对话框中显示的文件类型，Fiherlndex 用于设置对话框
41、默认的过滤器，DefaultExt 属性用于设置对话框中默认的文件类型，FileTitle 属性用于存放对话框中所选择的文件名。24.通用对话框 Filter 属性的作用是( )。（分数：2.00）A.设置对话框的标题B.指定对话框所选择的文件名C.指定对话框的打开方式D.指定对话框中显示的文件类型 解析：解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的 DialogTitle 属性用于返回或设置该对话框标题栏上所显示的文本；Action 属性用于设置被打开对话框的类型；当通用
42、对话框显示为“打开”或“另存为”类型时，其 FileName 属性用于返回或设置所选文件的路径和文件名，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。25.窗体上有一个名称为 CDl 的通用对话框，一个名称为。rextl 的文本框，窗体的单击事件过程如下： Private Sub FormClick() CDIDialogTitle=“改变颜色” CDlColor=FormlBackColor CDIAction=3 Text1BackColor=CDlColor End Sub 运行程序时，单击窗体，则以下叙述中错误的是( )。（分数：2.00）A.通用对话框的标题被
43、改为“改变颜色” B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色解析：解析：通用对话框的 DialogTitle 属性用于返回或设置该对话框标题栏上所显示的文本，只有在文件对话框中标题才可以通过程序修改。Action 的属性见下表。 对话框类型26.利用通用对话框控件打开字体对话框的操作是( )。（分数：2.00）A.把通用对话框控件的 Action 属性设置为 4 B.把通用对话框控件的 Action 属性设置为 5C.调用通用对话框控件的 OpenFont
44、 方法D.调用通用对话框控件的 ShowText 方法解析：解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的 Action 属性用于设置被打开对话的类型。27.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialoglShowOpen 方法等效的语句是( )。( )。（分数：2.00）A.CommonDialoglAction=1 B.CommonDialoglAction=2C.CommonDialog1Action=3D.Commo
45、nDialoglAction=4解析：解析：通用对话框的属性 Action=1 与 ShowOpen 方法等效，而 Action=2 则与 ShowSave 等效。28.假定在窗体上添加了一个通用对话框控件，其名称为 CDI，并有如下程序段： CD1ShowOpen CD1DefaultExt=”doc”在打开文件的对话框中选择了“c：fileltxt”文件，则 FileTitle 属性的值是( )。（分数：2.00）A.fileldocB.fileltxt C.c：fileltxtD.c：fileldoc解析：解析：FileTitle 属性用来指定文件对话框中所选择的文件名(不包括路径)。该属性与 FileName属性的区别是：FileName 属性用来指定完整的路径，如”d：progvbftestfrm”；而 FileTitle只指定文件名，如”testfrm”。
