承保公司自行查勘并理赔案件的基本查勘理赔费用列支标准：（）

A.公估费与查勘费用可重复列支

B.每起事故基本查勘费用为200元

C.如一起事故项下有交强和商业两个赔案，可按照标准任选一个险种列支

D.如一起事故项下有交强和商业两个赔案，需按照标准在两个赔案之间平均分摊

在窗体中添加一个通用对话框，其名称为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