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

Private Sub Command1_Click()

C．Dl．DialogTitle=“打开文件”

C．Dl．InitDir=“C：＼”

C．Dl．Filter=“所有文件I**Iword文档I*docI文本文件I*txt”

C．Dl．FileName=“”

C．Dl．Action=1

If CD1．FileName=””Then

Print“未打开文件”

E．lse

Print“要打开文件”＆CDI．FileName

E．nd If

E．nd Sub

但实际显示的对话框中列出了C：＼下的所有文件和文件夹，“文件类型”一栏中显示的足“所有文件”。下面的修改方案中正确的是

A．把CDl．Action=1改为CDl．Action=2

B．把“CD1．Filter=”后面字符串中的“所有文件”改为“文本文件”

C．在语句CD1．Action=1的前面添加：CD1．FilterIndex=3

D．把CD1．FileName=“”改为CD1．FileName=“文本文件”