在 设窗体上有一个通用对话框控件 CD1 ,希望在执行下面,打开如图所示的文件对话框: PrivateSub 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 EndSub 但实际显示的对话框中列出了 C : \ 下的所有文件和文件夹,"文件类型"一栏中显示的是"所有文件"。下面的修改方案中正确的是 () 。