单选题
在设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:
Private
Sub Commandl_Click()
CD1.DialogTitle="打开文件"
CD1.InitDir="C:"
CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.txt"
CD1.FileName=""
CD1.Action=1
If
CD1.FileName=""Then
Print"未打开文件"
Else
Print"要打开文件v&CD1.FileName
End
If
End Sub