在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click（）CommonDialog1.Filter="All Files（*.*）|*.*Text Files"&_"（*.txt）|*.txt| Executable Files（*.exe）|*.exe"CommonDialog1.Filterindex=3CommonDialog1.Show OpenMsgBox CommonDialog1.File
题目
在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click（）
CommonDialog1.Filter="All Files（*.*）|*.*Text Files"&_
"（*.txt）|*.txt| Executable Files（*.exe）|*.exe"
CommonDialog1.Filterindex=3
CommonDialog1.Show Open
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（ ）。 A．All Files（*.*）
B．Text files（*.txt）
C．Executable Files（*.ext）
D．不确定
相似考题
更多“在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令按钮,并编写如下事件 ”相关问题
-
第1题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，消息框输出的是系统当前日期和当前时间。
正确答案：
72【解析】本题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。我们只需要注意这两个数组元素在循环中被赋了什么值，当i=3，j=3时，al(3，3)=3 3=6，a2(3，3)=al(3，3) 3 3=12，所以最后二者之积为72。 -
第2题：
在窗体上画一个命令按钮，其名称为Command]，然后编写如下事件过程：
程序运行后，单击命令按钮，消息框输出的是（ ）A. 48
B. 72
C. 96
D. 128
正确答案：B
奉题考查VBA中二维数组和循环的知识。本题使用了二重循环为两个二维数组中的元素均进行了赋值，最后求两个数组元素值的积。浅们只需要注意这两个数组元素在循环中被赋了什么值，当i=3 j=3时，al(3，3)=3+3=6，a2(3。3)= al(3，3)+3+3=12．所以最后二者之积为72。
-
第3题：
在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialogFlags= cd10FNHideReadOnly CommonDialogFilter= "All Files (*.*) ｜*.*｜Text File" & _ "(*.txt) ｜*.txt ｜ Batch Files (*.bat)｜ *.bat" CommonDialogFilterIndex = 2 CommonDialogShowOpen MsgBox CommonDialogFileName End Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______。
A．All Files (*.*)
B．Text Files(*.txt)
C．Batch Files (*.bat)
D．不确定
正确答案：B
-
第4题：
在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt
CommonDialog1.FiherIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是
A．All Files(*.*)
B．Text Files(*.*)
C．*.txt
D．All Files(*.*)|Text Files(*.*)
正确答案：A
解析：通用对话框控件的CommonDialog1的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成，每对字符串用管道符“1”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符和文件扩展名，称为“过滤器”。如“*.txt”等，各对字符串之间也用管道符隔开。其格式如下：
[窗体.]对话框名.Filter="描述符1|过滤器1|描述符2|过滤器2……"
如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择所要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由FiherIndex属性来指定，该属性是一个整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第1个过滤器的值为1，第2个过滤器的值为2……用FiherIndex属性可以指定作为默认显示的过滤器，本题中的值是1，所以显示All Files(*.*) 。 -
第5题：
在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonD
A．AllFries(*.*)
B．TextFiles(*.txt)
C．Executable Fries(*.exe)
D．不确定
正确答案：C