设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：
Private Sub Command1_Click()
CD1. DialogTitle = "打开文件"
CD1. InitDir = "C: "
CD1. Filter = "所有文件| *. * |Word文档| *. doc |文本文件| *. txt"
CD1. FileName = " "
CD1. Action = 1
If CD1. FiteName = " " 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="文本文件\
B．240πcm3 C．
D．
