设窗体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=2B.把“CD1．Filter=”，后面字符串中的“所有文件”改为“文本文件”C.在语句CD1．Action=1的前面添加：CD1．FilterIndex=3D.把CD1．FileName=""改为CD1．FileName=”文本文件”
设窗体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=”文本文件”
相关考题：
窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：Private Sub Command1_Click（）CD1.FileName=""CD1.Filter="All Files|*.*|（*.DoCD1|*.Doc|（*.Txt）|*.txt"CD1.FilterIndex=2CD1.Action=1End Sub关于以上代码，错误的叙述是（ ）。A．执行以上事件过程，通用对话框被设置为“打开”文件对话框B．通用对话框的初始路径为当前路径C．通用对话框的默认文件类型为*.TxtD．以上代码不对文件执行读写操作
（ 33 ） 窗体上有 1 个名称为 CD1 的通用对话框 ， 1 个名称为 Command1 的命令按钮 。 命令按钮的单击事件过程如下：Private Sub Command1_Click( )CD1.FileName= “ “CD1.Filter="All Files|*.*|(*.DoC ) |*.Doc|(*.Txt)|*.txt"CD1.FilterIndex=2CD1.Action=1End Sub关于以上代码，错误的叙述是（ ）。A ）执行以上事件过程，通用对话框被设置为 “ 打开 ” 文件对话框B ）通用对话框的初始路径为当前路径C ）通用对话框的默认文件类型为 *.TxtD ）以上代码不对文件执行读写操作
窗体上有1个过程为CD1的通用对话框，1个名称为Command1晌命令按钮。命令按钮的单击事件过程 如下： Private Sub Command1_Click() CD1.FileName=" " CD1.Filter="All Files|*.*|(*.DoC)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是______。A．执行以上事件过程，通用对话框被设置为“打开”文件对话框B．通用对话框的初始路径为当前路径C．通用对话框的默认文件类型为*.TxtD．以上代码不对文件执行操作
（ 8 ） 设窗体上有一个名称为 CD1 的通用对话框 ， 一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的 “ 打开 ” 按钮后 ， 则可打开该文本文件 ， 并读入一行文本 ， 显示在 Text1 中 。 下面是实现此功能的事件过程，请填空。Private Sub Command1_Click()CD1.Filter =" 文本文件 1*.txt(Word 文档 )*.doc"CD1.Filterinder = 1CD1.ShowOpenIf CD1.FileName""ThenOpen [9] For Input As #1Line Input #1,ch$Close #1Text1.Text = [10]End IfEnd Sub
设窗体上有一个通用对话框控件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但实际显示的对话框中列出了C：＼下的所有文件和文件夹，“文件类型”一栏中显示的足“所有文件”。下面的修改方案中正确的是A．把CDl．Action=1改为CDl．Action=2B．把“CD1．Filter=”后面字符串中的“所有文件”改为“文本文件”C．在语句CD1．Action=1的前面添加：CD1．FilterIndex=3D．把CD1．FileName=“”改为CD1．FileName=“文本文件”
窗体上有一个名称为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．单击“退出”按钮，结束程序的运行
（ 29 ） 设窗体上有一个通用对话框控件 CD1 ， 希望在执行下面程序时 ， 打开如图所示的文件对话框Private Sub Comand1_Click （）CD1.DialogTitle= " 打开文件 "CD1.InitDir= " C:\ "CD1.Filter= " 所有文件 |*.*|Word 文档 |*.doc| 文本文件 |*.Txt "CD1.FileName= ""CD1.Action=1If CD1.FileName= "" ThenPrint " 未打开文件 "ElsePrint " 要打开文件 " CD1.FileNameEnd IfEnd Sub但实际显示的对话框中列出了 C:\ 下的所有文件和文件夹 ,“文件类型”一栏中显示的是“所有文件 ” 。下面的修改方案中正确的是A ）把 CD1.Action=1 改为 CD1.Action=2B ）把 “ CD1.Filter= ” 后面字符串中的 “ 所有文件 ” 改为 “ 文本文件 ”C ）在语句 CD1.Action=1 的前面添加： CD1.FilterIndex=3D ）把 CD1.FileName= "" 改为 CD1.FileName= " 文本文件 "
设窗体j．有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1=Click（ ）CD1．DialogTitle=打开文件CD1．InitDir=C：＼CD1．Filter=所有文件|*．*| Word文档|*．doc|文本文件|*．txt CD1．FileName=CD1．Action=1If CD1．FileName=ThenPrint未打开文件ElsePrint要打开文件 CD1．FileNameEnd IfEnd Sub但实际显示的对话框中列出了C．＼下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是（ ）。A.把CD1．Action=1改为CD1．Action=2B.把“CD1．Filter=”，后面字符串中的“所有文件”改为“文本文件”C.在语句CD1．Action=1的前面添加：CD1．FilterIndex=3D.把CD1．FileName=改为CD1．FileName=”文本文件”
假设在窗体Form1画一个通用对话框控件CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 ______。A．CommonDialogl.DialogTile= "打开文件"B．CommonDialogl.DialogTile( "打开文件")C．CommonDialogl.FileTile="打开文件"D．CommonDialogl.FileTile("打开文件")