1、二级 VISUAL+BASIC-105及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是_。 （分数：2.50）A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“”)B.菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“”)D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“”2.如果一个菜单项的 En
2、abled属性被设置为 False，则程序运行时，该菜单项_。（分数：2.50）A.不显示B.显示但无效C.有效可用D.不显示但有效可用3.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为_。（分数：2.50）A.退出(X&)B.退出(&X)C.退出(X#)D.退出(#X)4.以下关于菜单的叙述中，错误的是_。（分数：2.50）A.当窗体为活动窗体时，用 Ctrl+E快捷键可以打开菜单编辑器B.把菜单项的 Enabled属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.程序运行时，利用控件数组可以实现
3、菜单项的增加或减少5.为了显示弹出式菜单，要使用_。（分数：2.50）A.窗体的 PopupMenu方法B.窗体的 OpenMenu方法C.菜单的 PopupMenu方法D.菜单的 OpenMenu方法6.窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组 Command1，其下标从左到右分别为 0、1、2、3，窗体外观如图所示。 （分数：2.50）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作D.单击“退出”按钮，结束程序的运行7.以下叙述中错误的是_。（分数：2.50）A.在程
4、序运行时，通用对话框控件是不可见的B.调用同一个通用对话框控件的不同方法(如 ShowOpen或 ShowSave)可以打开不同的对话框窗口C.调用通用对话框控件的 ShowOpen方法，能够直接打开在该通用对话框中指定的文件D.调用通用对话框控件的 ShowColor方法，可以打开颜色对话框窗口8.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic的标准控件C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框9.窗体上有一个名称
5、为 CD1的通用对话框，一个名称为 Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1.Filter=“All File | *.*|Text File |*.txt|PPT|*.ppt“ CD1.FilterIndex=2 CD1.InitDir=“C:“ CD1.FileName=“default“ CD1.ShowSave End Sub 关于上述过程，以下叙述中正确的是_。（分数：2.50）A.默认过滤器为“*.ppt”B.指定的初始目录为“C:/”C.打开的文件对话框的标题为“default”D.上面事件过程实现保存文件
6、的操作10.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是_。（分数：2.50）A.InitDir属性用于设置对话框中显示的起始目录B.Filter属性用于设置对话框默认的过滤器C.DefaultExt属性用于设置对话框中默认的文件类型D.FileTitle属性用于存放对话框中所选择的文件名11.窗体上有一个名称为 CD1的通用对话框，一个名称为 Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1.Filter=“All File |*.*| Text File|*.txt|Word|*.Doc“ CD1.Fi
7、lterIndex=2 CD1.FileName=“E:/Test.ppt“ CD1.InitDir=“E:“ CD1.ShowOpen End Sub 关于上述程序，以下叙述中正确的是_。（分数：2.50）A.初始过滤器为“*.*”B.指定的初始目录为“E:/”C.以上程序代码实现打开文件的操作D.由于指定文件类型是“.ppt”，所以导致打开文件的操作失败12.通用对话框 Filter属性的作用是_。（分数：2.50）A.设置对话框的标题B.指定对话框所选择的文件名C.指定对话框的打开方式D.指定对话框中显示的文件类型13.窗体上有一个名称为 CD1的通用对话框，一个名称为 Text1的文本
8、框，窗体的单击事件过程如下： Private Sub Form_Click() CD1.DialogTitle=“改变颜色“ CD1.Color=Form1.BackColor CD1.Aetion=3 Text1.BackColor=CD1.Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是_。（分数：2.50）A.通用对话框的标题被改为“改变颜色”B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色14.利用通用对话框控件打开字体对话框的操作
9、是_。（分数：2.50）A.把通用对话框控件的 Action属性设置为 4B.把通用对话框控件的 Action属性设置为 5C.调用通用对话框控件的 OpenFont方法D.调用通用对话框控件的 ShowText方法15.下列关于通用对话框 CommonDialog1的叙述中，错误的是_。（分数：2.50）A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开B.使用 CommonDialog1.ShowColor方法，可以显示“颜色”对话框C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告D.在显示“字体”对话框前，必须先设置
10、CommonDialog1的 Flags属性，否则会出错16.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialog1.ShowOpen方法等效的语句是_。（分数：2.50）A.CommonDialog1.Action=1B.CommonDialog1.Action=2C.CommonDialog1.Action=3D.CommonDialog1.Action=417.假定在窗体上添加了一个通用对话框控件，其名称为 CD1，并有如下程序段： CD1.ShowOpen CD1.DefaultExt=“doc“ 在打开文件的对话框中选择了”c:/file
11、1.txt“文件，则 FileTitle属性的值是_。（分数：2.50）A.file1.docB.file1.txtC.c:/file1.txtD.c:/file1.doc18.在窗体上画一个通用对话框，程序运行中用 ShowOpen方法显示“打开”对话框时，希望在该对话框的“文件类型”栏中只显示扩展名为 DOC的文件，则在设计阶段应把通用对话框的 Filter属性设置为_。（分数：2.50）A.“(*.DOC)*.DOC“B.“(*.DOC)|(.DOC)“C.“(*.DOC)|*.DOC“D)D.“(*.DOC)|*.DOC“19.假设窗体上有一个通用对话框控件 CD1，希望在执行下面程序
12、时，打开如图所示的文件对话框： Private Sub Command1_Click() CD1.DialogTitle=“打开文件“ CD1.InitDir=“C:“ CD1.Filter=“所有文件|*.*|Word 文档|*.doc|文本文件|*.txt“ CD1.FileName=“ CD1.Action=1 If CD1.FileName=“Then Print“未打开文件“ Else Print“要打开文件“&CD1.FileName End If End Sub （分数：2.50）A.把 CD1.Action=1改为 CD1.Action=2B.把“CD1.Filter=”后面字
13、符串中的“所有文件”改为“文本文件”C.在语句 CD1.Action=1的前面添加 CD1.FiherIndex=3D.把 CD1.FileName=“改为 CD1.FileName=“文本文件“20.以下说法中正确的是_。（分数：2.50）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress事件过程B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAscii参数与 KeyDown事件过程中的 KeyCode参数的值也相同D.在 KeyPress事件过程中，KeyAscii 参数可以省略21.
14、关于 KeyPress事件，以下叙述中正确的是_。（分数：2.50）A.在控件数组的控件上按键盘键，不能触发 KeyPress事件B.按下键盘上任一个键时，都能触发 KeyPress事件C.按字母键时，拥有焦点的控件的 KeyPress事件会被触发D.窗体没有 KeyPress事件22.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1和 Text1)，并把窗体的 KeyPreview属性设置为 True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=“ Text1.SetFocus
15、 End Sub Private Sub Command1_Click() Text1.Text=LCase(SaveAll)+SaveAll End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，直接用键盘输入 VB，再单击命令按钮，则文本框中显示的内容为_。（分数：2.50）A.vbVBB.不显示任何信息C.VBD.出错23.以下关于键盘事件的叙述中，错误的是_。（分数：2.50）A.按下键盘按键既能触发 KeyPress事件，也能触发 KeyDo
16、wn事件B.KeyDown、KeyUp 事件过程中，大、小写字母被视作相同的字符C.KeyDown、KeyUp 事件能够识别 Shift、Ah、Ctrl 等键D.KeyCode是 KeyPress事件的参数24.下面不是键盘事件的是_。（分数：2.50）A.KeyDownB.KeyUpC.KeyPressD.KeyCode25.设窗体上有 2个文本框 Text1和 Text2，并有下面的事件过程： Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“ The
17、n n=n+1 End If If KeyAscii=13 Then Text2.Text=n End If End Sub 程序运行时，在文本框 Text1中输入“Visual Basic 6.0”并按 Enter键后，在文本框 Text2中显示的是_。（分数：2.50）A.2B.9C.13D.1626.窗体上有一个 Text1文本框，并编写了下面事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3 End Sub 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是_。（分数：2.50）
18、AABBCCDD27.下列事件的事件过程中，参数是输入字符 ASCII码的是_。（分数：2.50）A.KeyDown事件B.KeyUp事件C.KeyPress事件D.Change事件28.对于文本框 Text1，能够获得按键的 ASCII码值的事件过程是_。（分数：2.50）A.Text1_KeyUpB.Text1_KeyPressC.Text1_ClickD.Text1_Change29.将窗体的 KeyPreview属性设为 True，然后编写如下程序： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print
19、 Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 运行程序时，按下字母键 a，则窗体上显示的是_。（分数：2.50）A.AAB.AaC.aAD.aa30.以下可以判断是否在文本框(名称为 Text1)内按下了回车键的事件过程是_。（分数：2.50）A.Text1_ChangeB.Text1_ClickC.Text1_KeyPressD.Text1_GotFocus31.下面叙述中错误的是_。（分数：2.50）A.由于窗体不能获得焦点，所以窗体没有键盘事
20、件B.框架控件没有键盘事件C.标签控件没有键盘事件D.文本框有键盘事件，但当 Enabled属性被设置为 False时，其键盘事件无法被激活32.文本框 Text1的 KeyDown事件过程如下： Privme Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) End Sub 其中参数 KeyCode的值表示的是发生此事件时_。（分数：2.50）A.是否按下了 Alt键或 Ctrl键B.按下的是哪个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键33.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 Key
21、Up事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1中输入小写字母 a时，文本框 Text2中显示的是_。（分数：2.50）AABaCCDC34.VB中有 3个键盘事件：KeyPress、KeyDown 和 KeyUp，若光标在 Text1文本框中，则每输入个字母_。（分数：2.50）A.这 3个事件都会触发B.只触发 KeyPress事件C.
22、只触发 KeyDown、KeyUp 事件D.不触发其中任何一个事件35.窗体上有 1个名称为 Text1、内容为空的文本框。编写如下事件过程： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Text1.Text； End Sub 运行程序，并在文本框中输入“123”，则在窗体上的输出结果为_。（分数：2.50）A.123B.112C.12123D.11212336.编写如下程序： Private Sub Form_Click() Print “Welcome!“ End Sub Private Sub F
23、orm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “欢迎!“ End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “热烈欢迎!“ End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.欢迎!热烈欢迎!Welcome!B.欢迎!Welcome!热烈欢迎!C.Welcome!欢迎!热烈欢迎!D.Welcome!热烈
24、欢迎!欢迎!37.若看到程序中有以下事件过程，则可以肯定的是，当程序运行时_。 Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print “VB Program“ End Sub（分数：2.50）A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程
25、38.窗体的 MouseUp事件过程如下： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 关于以上定义，以下叙述中错误的是_。（分数：2.50）A.根据 Shift参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.Button参数的值是在 MouseUp事件发生时，系统自动产生的D.MouseUp是鼠标向上移动时触发的事件39.命令按钮 Command1的 MouseUp事件过程结构如下： Private Sub
26、Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 则以下叙述中错误的是_。（分数：2.50）A.X、Y 参数表示的是 Command1左上角在窗体中的位置B.Button参数用于确定按下的鼠标键C.Shift参数用于确定是否按下了 Alt、Ctrl 或 Shift键D.MouseUp表示抬起鼠标按键时触发的事件40.要求当鼠标在图片框 P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。（分数：2.50）A.Private Sub P1
27、_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Print X,YEnd SubB.Private Sub P1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture. Print X,YEnd SubC.Private Sub P1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print
28、 X,YEnd SubD.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)P1.Print X,YEnd Sub二级 VISUAL+BASIC-105答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.窗体上有一个菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。下列说法错误的是_。 （分数：2.50）A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“”) B.
29、菜单中的横线是在该菜单项的标题输入框中输入了一个“-”(减号)字符C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“”)D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“”解析：解析 快捷菜单中的“粘贴”菜单项为无效时，在菜单编辑器窗口中“有效”属性应该是不选中状态，没有“”，故 A选项错误。2.如果一个菜单项的 Enabled属性被设置为 False，则程序运行时，该菜单项_。（分数：2.50）A.不显示B.显示但无效 C.有效可用D.不显示但有效可用解析：解析 菜单项默认情况下显示，Enabled 属性值为 False表示菜单项无效。所以菜单项显
30、示但无效。故选 B。3.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为_。（分数：2.50）A.退出(X&)B.退出(&X) C.退出(X#)D.退出(#X)解析：解析 要使菜单项的快捷键设置为 Alt+字母，就要在菜单项的标题中设置为“&+字母”。本题把“Alt+X”设置为“退出(X)”菜单项，则菜单项的标题设置为“退出(&x)”。故选 B。4.以下关于菜单的叙述中，错误的是_。（分数：2.50）A.当窗体为活动窗体时，用 Ctrl+E快捷键可以打开菜单编辑器B.把菜单项的 Enabled属性设置为 False，则可删除该
31、菜单项 C.弹出式菜单在菜单编辑器中设计D.程序运行时，利用控件数组可以实现菜单项的增加或减少解析：解析 当菜单项的 Enabed属性值设置为 False时，菜单项只是变为无效项，不可用，不会删除该菜单项。故 B选项错误。5.为了显示弹出式菜单，要使用_。（分数：2.50）A.窗体的 PopupMenu方法 B.窗体的 OpenMenu方法C.菜单的 PopupMenu方法D.菜单的 OpenMenu方法解析：解析 显示弹出式菜单使用 PopupMenu方法。6.窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数组 Command1，其下标从左到右分别为 0、1、2、3，窗
32、体外观如图所示。 （分数：2.50）A.单击“打开”按钮，显示打开文件的对话框B.单击“保存”按钮，显示保存文件的对话框C.单击“打印”按钮，能够设置打印选项，并执行打印操作 D.单击“退出”按钮，结束程序的运行解析：解析 通用对话框中 Action=1，或用 ShowOpen方法都可显示“打开”文件对话框； Action=2，或用 ShowSave方法都可显示文件“另存为”对话框； Action=3，或用 ShowColor方法都可显示“颜色”对话框； Action=4，或用 ShowFont方法都可显示“字体”对话框； Action=5，或用 ShowPrinter方法都可显示“打印”对话
33、框； 本题中，“打开”、“保存”、“打印”和“退出”按钮的下标(即 Index值)分别是 0、1、2、3，用Index值区分各命令按钮。 当 Index=0时，CD1.Action=1，说明单击“打开”按钮，会显示“打开”文件对话框； 当 Index=1时，CD1.ShowSave，说明单击“保存”按钮，会显示文件“另存为”对话框；当 Index=3时，执行 End，说明单击“退出”按钮，会结束程序运行。故 A、B、D 选项正确。 当 Index=2时，CD1.Action=5，说明单击“打印”按钮，会显示“打印”对话框，但打开对话框后，只能设置打印选项，不能执行打印操作。故 C选项错误。7.
34、以下叙述中错误的是_。（分数：2.50）A.在程序运行时，通用对话框控件是不可见的B.调用同一个通用对话框控件的不同方法(如 ShowOpen或 ShowSave)可以打开不同的对话框窗口C.调用通用对话框控件的 ShowOpen方法，能够直接打开在该通用对话框中指定的文件 D.调用通用对话框控件的 ShowColor方法，可以打开颜色对话框窗口解析：解析 调用通用对话框的 ShowOpen方法，只是显示文件“打开”对话框，如果 ShowOpen方法后面没有其他处理文件的代码，就不能实现打开文件的功能。故选项 C错误。8.以下关于通用对话框的叙述中，错误的是_。（分数：2.50）A.在程序运行
35、状态下，通用对话框控件是不显示的B.通用对话框控件是 Visual Basic的标准控件 C.设计时，通用对话框控件的大小是固定的，不能改变D.在同一个程序中，一个通用对话框控件可以作为打开、保存等多种对话框解析：解析 通用对话框是一个 ActiveX控件，不是标准控件，故 B选项错误。9.窗体上有一个名称为 CD1的通用对话框，一个名称为 Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1.Filter=“All File | *.*|Text File |*.txt|PPT|*.ppt“ CD1.FilterIndex=2 C
36、D1.InitDir=“C:“ CD1.FileName=“default“ CD1.ShowSave End Sub 关于上述过程，以下叙述中正确的是_。（分数：2.50）A.默认过滤器为“*.ppt”B.指定的初始目录为“C:/” C.打开的文件对话框的标题为“default”D.上面事件过程实现保存文件的操作解析：解析 通用对话框的 FilterIndex属性为 1时表示默认过滤器为第 1个文件类型，为 2时表示为第 2个文件类型。InitDir 属性值指定通用对话框的初始目录。FileName 属性表示对话框中默认的文件名。ShowSave方法表示打开另存为对话框，执行保存文件的操作。
37、10.下列关于利用通用对话框产生的文件对话框的相关属性的描述中，错误的是_。（分数：2.50）A.InitDir属性用于设置对话框中显示的起始目录B.Filter属性用于设置对话框默认的过滤器 C.DefaultExt属性用于设置对话框中默认的文件类型D.FileTitle属性用于存放对话框中所选择的文件名解析：解析 通用对话框的 InitDir属性用于设置对话框中显示的起始目录，Filter 属性用来指定在对话框中显示的文件类型，FilterIndex 用于设置对话框默认的过滤器，DefaultExt 属性用于设置对话框中默认的文件类型，FileTitle 属性用于存放对话框中所选择的文件名
38、。11.窗体上有一个名称为 CD1的通用对话框，一个名称为 Command1的命令按钮，相应的事件过程如下： Private Sub Command1_Click() CD1.Filter=“All File |*.*| Text File|*.txt|Word|*.Doc“ CD1.FilterIndex=2 CD1.FileName=“E:/Test.ppt“ CD1.InitDir=“E:“ CD1.ShowOpen End Sub 关于上述程序，以下叙述中正确的是_。（分数：2.50）A.初始过滤器为“*.*”B.指定的初始目录为“E:/” C.以上程序代码实现打开文件的操作D.由于指
39、定文件类型是“.ppt”，所以导致打开文件的操作失败解析：解析 通用对话框的 FilterIndex属性值表示默认的过滤器，值为 2表示初始过滤器为过滤器中的第 2个，即“*.txt”。InitDir 属性表示打开对话框时的初始目录。ShowOpen 方法表示显示打开文件对话框。打开文件通用对话框只是返回选中的文件，具体如何操作文件需要另行编程决定，因此不会导致文件打开失败。12.通用对话框 Filter属性的作用是_。（分数：2.50）A.设置对话框的标题B.指定对话框所选择的文件名C.指定对话框的打开方式D.指定对话框中显示的文件类型 解析：解析 通用对话框(CommonDialog)提供
40、诸如打开文件、保存文件、设置打印选项、选择颜色和字体和显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的 DialogTitle属性用于返回或设置该对话框标题栏上所显示的文本；Action 属性用于设置被打开对话的类型；当通用对话框显示为“打开”或“另存为”类型时，其 FileName属性用于返回或设置所选文件的路径和文件名，Filter(过滤器)属性用于指定在对话框的文件列表中显示文件的类型。13.窗体上有一个名称为 CD1的通用对话框，一个名称为 Text1的文本框，窗体的单击事件过程如下： Private Sub Form_Click() CD1.DialogTitle=“
41、改变颜色“ CD1.Color=Form1.BackColor CD1.Aetion=3 Text1.BackColor=CD1.Color End Sub 运行程序时，单击窗体，则以下叙述中错误的是_。（分数：2.50）A.通用对话框的标题被改为“改变颜色” B.通用对话框被打开为颜色对话框C.若选择颜色对话框中的“取消”按钮，则文本框的背景色改为窗体背景色D.若选择颜色对话框中的“确定”按钮，则文本框的背景色改为在颜色对话框中选中的颜色解析：解析 通用对话框的 DialogTide属性用于返回或设置该对话框标题栏上所显示的文本，只有在文件对话框中标题才可以通过程序修改。 Action的属性
42、见下表。 对话框类型 对话框类型 Action属性 方法 0 打开文件 1 ShowOpen 保存文件 2 ShowSave 选择颜色 3 ShowColor 选择字体 4 ShowFont 打印 5 ShowPrinter 调用 Help文件 6 ShowHelp 本题中单击窗体时显示的是颜色对话框，标题是“颜色”。故本题的选项 A是错误的。14.利用通用对话框控件打开字体对话框的操作是_。（分数：2.50）A.把通用对话框控件的 Action属性设置为 4 B.把通用对话框控件的 Action属性设置为 5C.调用通用对话框控件的 OpenFont方法D.调用通用对话框控件的 ShowTe
43、xt方法解析：解析 通用对话框(commonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。通用对话框的 Action属性用于设置被打开对话的类型。15.下列关于通用对话框 CommonDialog1的叙述中，错误的是_。（分数：2.50）A.只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开 B.使用 CommonDialog1.ShowColor方法，可以显示“颜色”对话框C.CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告D.在显示“字体”对话框前，必
44、须先设置 CommonDialog1的 Flags属性，否则会出错解析：解析 “打开”对话框主要用来获取用户指定的文件信息并供程序使用，对话框本身并不提供打开文件功能，这些功能需另外编写代码才能实现，所以在“打开”对话框中可选中某文件，但不能打开。故 A选项错误。16.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialog1.ShowOpen方法等效的语句是_。（分数：2.50）A.CommonDialog1.Action=1 B.CommonDialog1.Action=2C.CommonDialog1.Action=3D.CommonDialog
45、1.Action=4解析：解析 通用对话框的属性 Action=1与 ShowOpen方法等效，而 Action=2则与 ShowSave等效。17.假定在窗体上添加了一个通用对话框控件，其名称为 CD1，并有如下程序段： CD1.ShowOpen CD1.DefaultExt=“doc“ 在打开文件的对话框中选择了”c:/file1.txt“文件，则 FileTitle属性的值是_。（分数：2.50）A.file1.docB.file1.txt C.c:/file1.txtD.c:/file1.doc解析：解析 FileTitle 属性用来指定文件对话框中所选择的文件名(不包括路径)。该属性
46、与 FileName属性的区别是：FileName 属性用来指定完整的路径，如“d:/prog/vbf/test.frm”；而 FileTitle只指定文件名，如“tes1.frm”。18.在窗体上画一个通用对话框，程序运行中用 ShowOpen方法显示“打开”对话框时，希望在该对话框的“文件类型”栏中只显示扩展名为 DOC的文件，则在设计阶段应把通用对话框的 Filter属性设置为_。（分数：2.50）A.“(*.DOC)*.DOC“B.“(*.DOC)|(.DOC)“C.“(*.DOC)|*.DOC“D)D.“(*.DOC)|*.DOC“ 解析：解析 文件对话框中的 Filter属性是用来
47、指定文件列表框中显示的文件类型。属性 Filter称为过滤器，需要设置多个过滤器时可用“管道符”将各项隔开。管道符前面是说明，后面是类型。本题只显示扩展名为 DOC的文件，所以 Filter属性值设置为“(*.DOC)|*.DOC”。故选 D。19.假设窗体上有一个通用对话框控件 CD1，希望在执行下面程序时，打开如图所示的文件对话框： Private Sub Command1_Click() CD1.DialogTitle=“打开文件“ CD1.InitDir=“C:“ CD1.Filter=“所有文件|*.*|Word 文档|*.doc|文本文件|*.txt“ CD1.FileName=“
48、 CD1.Action=1 If CD1.FileName=“Then Print“未打开文件“ Else Print“要打开文件“&CD1.FileName End If End Sub （分数：2.50）A.把 CD1.Action=1改为 CD1.Action=2B.把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C.在语句 CD1.Action=1的前面添加 CD1.FiherIndex=3 D.把 CD1.FileName=“改为 CD1.FileName=“文本文件“解析：解析 在通用对话框控件中，Filter 属性指定了在对话框中显示的文件类型，该属性可以设置多个文件类型，每种文件类型由文件描述和文件通配符与扩展名组成，并由“|”隔开。FilterIndex 属性用来指定默认的过滤器，Filter 属性中设置了多个过滤器后，每个过滤器的对应的值按从左到右顺序是1、2，FilterIndex 属性默认为 1，即第个过滤器，因此程序中会显示 C:/下的所有文件。应该在通话框打开之前(CD1.Action=1 之前)添加 CD1.FilterIndex=3，即使默认过滤器为第 3个过滤器。20.以下说法中正确的是_。（分数：
