在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加

问题单项选择题

在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是Text Files(*.txt)。则能够满足上述要求的程序是

A．Private Sub Command1_Click()
CommonDialog1. Flags=cdloFNHideReadonly
CommonDialogl. Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub

B．Private Sub Command1_Click()
CommonDialog1. Flags=cdloFNHideReadonly
CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1. FilterIndex=2
CommonDialog1. ShowOpen
MsgBox CommonDialog1. FileName
End Sub

C．Private Sub Command1_Click()
CommonDialog1. Flags=cdloFNHideReadonly
CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFdes"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=1
CommonDialog1.ShowSave
MsgBox CommonDialog1.FileName
End Sub

D．Private Sub Command1_Click()
CommonDialog1. Flags=edloFNHideReadonly
CommonDialog1. Filter="AllFiles(*.*)|*.*|TextFiles"&_
"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.Filterlndex=2
CommonDialog1.ShowSave
MsgBox CommonDialog1.FileName
End Sub

答案

参考答案：B

解析：通用对话框的ShowOpen方法和ShowSave方法分别表示显示“打开”对话框和“另存为”对话框。题中当单击命令按扭时，打开一个通用对话框，故只能用 ShowOpen方法，而不是ShowSave方法，因此可排除C、D项。对话框的FilterIndex属性用来设置“打开”或“另存为”对话框中默认过滤器的索引。“打开”对话框的索引值为1，“另存为”对话框的索引值为2。题中单击命令按扭时，打开的是一个保存文件通用对话框。故它的过滤器索引值应为2。由此可知排除选项 A。只有B项是正确的。