设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框P

题目：

设窗体上有一个通用对话框控件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="文本文件"