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

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

对话框

Private Sub Comand1_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= " 文本文件 "