在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FiherIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNa

题目

在窗体上画一个通用对话框，其名称为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(*.*)

相似考题

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

更多“在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Priva ”相关问题

  • 第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题：

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

  • 第3题：

    在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

    Private Sub Command1_Click（）

    a = 12345

    Print Format$（a, "000.00"）

    End Sub

    程序运行后，单击命令按钮，窗体上显示的是（ ）。

    A．123.45

    B．12345.00

    C．12345

    D．00123.45


    正确答案：B

  • 第4题：

    在窗体上画一个命令按钮，其名称为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。

  • 第5题：

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

相关内容