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,然后画一个命令按钮,并编写如下事件过程: Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonDA.AllFries(*.*)B.TextFiles
[单选题]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程。 Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonD
[单选题]在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如 Private Sub Command1_Click() CommonDialogl. Flags = vbOFNHideReadOnly CommonDialogl. Filter =" All Files(*.*)|*. * |Text Files(*.txt)|*. txt CommonDialogl. FilterIndex = 1 CommonDialogl. ShowOpen MsgBox
[单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()C.ommonDialog1.Flags=vbOFNHideReadOnlyC.ommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txtC.ommonDialog1.FilterIndex=1C.ommonDialog1.ShowOpenMsgBox CommonD
[单选题]在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程:Private Sub Command1_Click()C.ommonDialog1.Flags=vbOFNHideReadOnlyC.ommonDialog1.Filter="All Files(*.*)|*.*|Text Files(*.txt)|*.txtC.ommonDialog1.FiherIndex=1C.ommonDialog1.ShowOpenMsgBox CommonDial
[单选题]在窗体上画一个通用对话框,其名称为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 ,然后画一个命令按钮,并编写如下事件过程: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的通用对话框,一个名为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗体的标题为“Save”,默认文件名为“SaveFile”,在“文件类型”栏中显示*. txt,则能够满足上述要求的程序是______。A.Private Sub Command1_C1ick() CommonDialogl. FileName="SayeFile" CommonDialogl. Filter="All Files|*. *|(
[单选题]在窗体上画一个命令按钮和一个通用对话框,其名称分别为Command1和CommonDialogl,然后编写如下代码; Private SubCommand1_Click() CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doC)[*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialog
[单选题]在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事件过程: Private Commandl_Click() CommonDialogl.FileName="" CommonDialogl.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialogl.Filterlndex=2 CommonDialogl.DialogTifle="VBTestA.该对话框被设置