niusouti.com
设窗体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．FileNa
题目
设窗体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=”文本文件”
相似考题
更多“ 设窗体j．有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1=Click（ ） CD1．DialogTitle="打开文件" CD1．InitDi”相关问题
-
第1题：
设窗体上有一个通用对话框控件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=“文本文件”
正确答案：C
解析：FilterIndex是文件对话框的(过滤器索引)属性，用Filtez属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为1，第二个过滤器的值为2，……，用FiherIndex属性可以设置或返回默认显示的过滤器，即用户在“文件类型”列表框中选取且显示在文件类型框中的文件类型，题中默认为“1”，即“所有文件”，改成“3”以后便是“文本文件”了。故答案C)正确。题中Action属性设用于打开指定种类的对话框，CD1．Action=1为“打开文件”对话框，而cDl．Action=2为打开“另存为”对话框，所以答案A)错误。如果按照答案B)的方法去做，结果是在“文本类型”后边的文本框显示“文本文件”，但是上边罗列出的还是所有文件。没有过滤“．txf”文件。选项D的结果是在“文件名”后边的文本框中显示：“文本文件”。 -
第2题：
（ 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
-
第3题：
假设在窗体Form1画一个通用对话框控件CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 ______。
A．CommonDialogl.DialogTile= "打开文件"
B．CommonDialogl.DialogTile( "打开文件")
C．CommonDialogl.FileTile="打开文件"
D．CommonDialogl.FileTile("打开文件")
正确答案：A
解析：DialogTitle属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“打开”，“保存”对话框的标题是“保存”。现在需要将“打开文件”对话框的标题设置为“打开文件”，所以需要将DialogTile属性的值设置为“打开文件”，而设置属性值正确的语法应该是；控件名属性名；值。而FileTitle属性用来指定文件对话框中所选择的文件名(不包括路径)。 -
第4题：
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Command1，其下标从左到右分别为0、1、2、3，窗体外观如下图所示。
命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action=1 Case 1 CD1.ShowSave Case 2 CD1.Action=5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是( )。
A．单击“打开”按钮，显示打开文件的对话框
B．单击“保存”按钮，显示保存文件的对话框
C．单击“打印”按钮，能够设置打印选项，并执行打印操作
D．单击“退出”按钮，结束程序的运行
正确答案：C
解析：本题考查的考点是有关控件数组和通用对话框的。通用对话框的类型可以通过其Action属性或者利用一组Show方法来设置。其中单击“打印”按钮能够打开打印对话框设置打印选项，但是并不能立即进行打印操作。 -
第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。