题目内容
（请给出正确答案）
A．Private Sub Command1＿Click() Commondialog1.ShowOpen End Sub
B．Private Sub Command1_Click() Commondialog1.ShowColor End Sub
C．Private Sub Command1_Click() Commondialog1.ShowOpen Commondialog1.ShowFont End Sub
D．Private Sub Command1_Click() Commondialog1.ShowColor Commondialog1.ShowHelp End Sub
如果结果不匹配，请 联系老师 获取答案
更多“在窗体中添加一个通用对话框Commondialog1和一个命…”相关的问题
PrivateSubCommand1_Click()
CommonDialog1.Flags=cdlOFNHideReakOnly
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"|(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"CommonDialog1.FilterIndex=2CommonDialog1.ShowOpen
MsgBoxCommonDialog1.FileNameEndsub
程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是（）
A、AllFiles(*.*)
B、TextFiles(*.txt)
C、BatchFiles(*.bat)
D、不确定
（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= " 文本文件 "
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”（如图所示），默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sitl．frm。
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() CommonDialogl.Flags=cdlOFNHideReadOnly commonDialogl.Filter="All Files(*.*)|*.*| Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.ShowOpen MsgBox CommonDialogl.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 ______。
A．AllFiles(*.*)
B．TextFiles(*.txt)
C．BatchFiles(*.bat)
D．不确定
A.(*.DOＣ)*.DOC
B.(*.DOC)｜(.DOＣ)
C.(*.DOＣ)｜｜*.DOC
D.(*.DOＣ)｜*.DOC
在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load()
CD1．DefaultExt=”doc”
CD1．FileName=”c：＼fiel1．txt”
CD1．Filter=”应用程序(*．exe)|*．exe”
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是
A．应用程序(*．exe)
B．*．doc
C．*．txt
D．不确定
在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程： private Sub Command1_Click() CommonDialog1.Flags=cdl0FNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.Filterlndex=2 CommonDialog1.ShowOPen MsgBox CommonDialog1.filename End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。
A．All Files(*.*)
B．Text Files(*.txt)
C．Batch Files(*.bat)
D．不确定
A.应用程序(*．exe)
B.*．doc
C.*．txt
D.不确定
A.AllFiles(*.*)
B.出错
C.BatchFiles(.bat)
D.不确定
