[单选题]

在窗体上画一个通用对话框,其Name属性为Cont,再画一个命令按钮,Name属性为Command1,然后编写如下事件过程:

Private Sub Command1_Click()

C.ont.FileName= ""

C.ont.Flags=vbOFNFileMustExist

C.ont.Filter= "All Files|*.*"

C.ont.FilterIndex=3

C.ont.DialogTitle= "Open File"

C.o nt.Action=1

If Cont.FileName= "" Then

MsgBox "No file selected"

E.lse

Open Cont.FileName For Input As #1

D.o While Not EOF(1)

Input #1, b$

Print b$

Loop

E.nd If

E.nd Sub

以下各选项,对上述事件过程描述错误的是( )。

A.该事件过程用来建立一个Open对话框,可以在这个对话框中选择要打开的文件

B.选择后单击"打开"按钮,所选择的文件名即作为对话框的FileName属性值

C.Open对话框不仅仅用来选择一个文件,还可以打开、显示文件

D.过程中的"Cont.Action=1"用来建立Open对话框,它与Cont.ShowOpen等价

参考答案与解析:

相关试题

在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮

[单选题]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程: Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDA.AllFries(*.*)B.TextFiles

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮

    [单选题]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程。 Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonD

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮

    [单选题]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮

    [单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()C.ommonDialog1.Flags=vbOFNHideReadOnlyC.ommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txtC.ommonDialog1.FilterIndex=1C.ommonDialog1.ShowOpenMsgBox CommonD

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮

    [单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()C.ommonDialog1.Flags=vbOFNHideReadOnlyC.ommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txtC.ommonDialog1.FiherIndex=1C.ommonDialog1.ShowOpenMsgBox CommonDial

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮

    [单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()C.ommonDialog1.Flags=vbOFNHideReadOnlyC.ommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.*) |*.txt|" _& Batch Files(*.bat) |*.bat"C.ommonDialog1.FilterIndex=1

  • 查看答案
  • 在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令

    [单选题]在窗体上画一个通用对话框,其名称为 CommonDialog1 ,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()C.ommonDialog1.Filter="All Files(*.*)|*.*Text Files"&_"(*.txt)|*.txt| Executable Files(*.exe)|*.exe"C.ommonDialog1.Filterindex=3C.ommonDialog1.Show OpenMsgBox Co

  • 查看答案
  • 在窗体上画一个名称为CommonDialogl的通用对话框,一个名为Comman

    [单选题]在窗体上画一个名称为CommonDialogl的通用对话框,一个名为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗体的标题为“Save”,默认文件名为“SaveFile”,在“文件类型”栏中显示*. txt,则能够满足上述要求的程序是______。A.Private Sub Command1_C1ick() CommonDialogl. FileName="SayeFile" CommonDialogl. Filter="All Files|*. *|(

  • 查看答案
  • 在窗体上画一个命令按钮和一个通用对话框,其名称分别为Command1和Commo

    [单选题]在窗体上画一个命令按钮和一个通用对话框,其名称分别为Command1和CommonDialogl,然后编写如下代码; Private SubCommand1_Click() CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doC)[*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialog

  • 查看答案
  • 在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Comma

    [单选题]在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程: Private Commandl_Click() CommonDialogl.FileName="" CommonDialogl.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle="VBTestA.该对话框被设置

  • 查看答案
  • 在窗体上画一个通用对话框,其Name属性为Cont,再画一个命令按钮,Name属