niusouti.com

在窗体上画一个通用对话框，其名称为 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．不确定

相似考题

1.（ 31 ）在窗体上画一个通用对话框，其名称为 CommonDialog1 ，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt| Executable Files(*.exe)|*.exe"CommonDialog1.FilterIndex = 3CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个 “ 打开 ” 对话框，此时在 “ 文件类型 ” 框中显示的是A ） All Files(*.*)B ） Text Files(*.txt)C ） Executable Files(*.exe)D ） 不确定

2.在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是A．All Files(*.*)B．Text Files(*.txt)C．Batch Files(*.bat)D．All Files(*.*) |Text Files(*.txt)

3.在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：程序运行后，单击命令按钮，其输出结果为__________。

4.在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click（）CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter= "All Files（*.*） |*.*|Text Files（*.*） |*.txt|" _& Batch Files（*.bat） |*.bat"CommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个"打开"对话框，此时在"文件类型"框中显示的是（ ）。A．All Files（*.*）B．Text Files（*.*）C．Batch Files（*.bat）D．All Files（*.*） |Text Files（*.*）

更多“在窗体上画一个通用对话框,其名称为 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

相关内容