niusouti.com
设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框Private Sub Command1_Click()CDl．DialogTitle=“打开文件”CDl．InitDir=“C：＼”CDl．Filter=“所有文件I**Iword文档I*docI文本文件I*txt”CDl．FileName=“”CDl．Action=1If CD1．FileName=””ThenPrint“未打开文件”ElsePrint“要打开文件”＆CDI．FileNameEnd IfEnd Sub但实
题目
设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框
Private Sub Command1_Click()
CDl．DialogTitle=“打开文件”
CDl．InitDir=“C：＼”
CDl．Filter=“所有文件I**Iword文档I*docI文本文件I*txt”
CDl．FileName=“”
CDl．Action=1
If CD1．FileName=””Then
Print“未打开文件”
Else
Print“要打开文件”＆CDI．FileName
End If
End Sub
但实际显示的对话框中列出了C：＼下的所有文件和文件夹，“文件类型”一栏中显示的足“所有文件”。下面的修改方案中正确的是
A．把CDl．Action=1改为CDl．Action=2
B．把“CD1．Filter=”后面字符串中的“所有文件”改为“文本文件”
C．在语句CD1．Action=1的前面添加：CD1．FilterIndex=3
D．把CD1．FileName=“”改为CD1．FileName=“文本文件”
相似考题
更多“ 设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框Private Sub Command1_Click()CDl．DialogTitle=“打开文件”CDl．InitDir=“C：”相关问题
-
第1题：
在窗体上有一个名称为CD1的通用对话框和一个名称为Comrnand1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”， 在“文件类型”栏中显示*．txt。则能够满足上述要求的稗序县（ ）。
\
正确答案：B
B) 【解析】本题考查通用对话框。程序中单击命令按钮时，要打开保存对话框，因此设置CD1的Action属性为2，可以使用ShowSave方法，更改CD1的DialogTitle属性为“保存”，同时设置Filter属性，将FilterIndex属性设置为2，表示默认的文件类型为“*．txt”，设置其FileName属性为“ABC”，表示确定首次打开“保存”对话框时，在文件名中显示的文件名。
-
第2题：
假设在窗体Form1上画一通用对话框控件CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 ______。
A．CommonDialogl.DialogTitle＝“打开文件”
B．CommonDialogl.DialogTitle(“打开文件”)
C．CommonDialogl.FileTitle＝“打开文件”
D．Commonnalogl.FileTitle(“打开文件”)
正确答案：A
解析：DialogTitle属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“打开”，“保存”对话框的标题是“保存”。现在需要将“打开文件”对话框的标题设置为“打开文件”，所以需要将DialogTitle属性的值设置为“打开文件”，而设置属性值正确的语法应该是：控件名．属性名＝值。而FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。 -
第3题：
假设在窗体Form1画一个通用对话框控件CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 ______。
A．CommonDialogl.DialogTile= "打开文件"
B．CommonDialogl.DialogTile( "打开文件")
C．CommonDialogl.FileTile="打开文件"
D．CommonDialogl.FileTile("打开文件")
正确答案：A
解析：DialogTitle属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“打开”，“保存”对话框的标题是“保存”。现在需要将“打开文件”对话框的标题设置为“打开文件”，所以需要将DialogTile属性的值设置为“打开文件”，而设置属性值正确的语法应该是；控件名属性名；值。而FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。 -
第4题：
（ 29 ） 设窗体上有一个通用对话框控件 CD1 ， 希望在执行下面程序时 ， 打开如图所示的文件
对话框
Private Sub Comand1_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
但实际显示的对话框中列出了 C:\ 下的所有文件和文件夹 ,“文件类型”一栏中显示的是“所有文件 ” 。下面的修改方案中正确的是
A ）把 CD1.Action=1 改为 CD1.Action=2
B ）把 “ CD1.Filter= ” 后面字符串中的 “ 所有文件 ” 改为 “ 文本文件 ”
C ）在语句 CD1.Action=1 的前面添加： CD1.FilterIndex=3
D ）把 CD1.FileName= "" 改为 CD1.FileName= " 文本文件 "
正确答案：C
-
第5题：
设窗体j．有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：
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
但实际显示的对话框中列出了C．＼下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是（ ）。
A.把CD1．Action=1改为CD1．Action=2
B.把“CD1．Filter=”，后面字符串中的“所有文件”改为“文本文件”
C.在语句CD1．Action=1的前面添加：CD1．FilterIndex=3
D.把CD1．FileName=""改为CD1．FileName=”文本文件”
正确答案：C
C。【解析】本题中CD1显示的文件类型为Filter中的第1个“所有文件”，应在CD1．Action=1语句的前面添加CD1．FilterIndex=3语句，将文本类型设置为“文本文件”。所以本题答案为C。