[试题]

设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时,单击Commandl按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的“打开”按钮后,则可打开该文字文件,并读人一行文本,显示在Textl中。下面是实现此功能的事件过程,请填空。 Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文档|*.doc” CDl.FilterIndex=1:CD1.ShowOpen If CD1.FileName<>“” Then Open (9) For Input As #1 Line Input#1,ch$ Close#1:Text1.Text= (10) End If End Sub

参考答案与解析:

相关试题

( 8 ) 设窗体上有一个名称为 CD1 的通用对话框 , 一个名称为 Text

[试题]( 8 ) 设窗体上有一个名称为 CD1 的通用对话框 , 一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时,单击 Command1 按钮,则显示打开文件对话框,操作者从中选择一个文本文件,并单击对话框上的 “ 打开 ” 按钮后 , 则可打开该文本文件 , 并读入一行文本 , 显示在 Text1 中 。 下面是实现此功能的事件过程,请填空。Private Sub Command1_Click()C.D1.Filter =" 文本文件 1*.txt(Word

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

    [单选题]窗体上有一个名称为commondialog1的通用对话框,一个名称为Command1的命令按钮,并有如下事件过程:Private Sub Command1_Click()C.ommondialog1.defauhext=”doc”C.ommondialog1.filcname=”vb.txt”C.ommondialog1.filter=”Alt(*.*)”|*.*|word|*.doc|”C.ommondialog1.filerindex=1C.ommondialog1.showsaveE.nd

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

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

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

    [单选题]在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Prirate Sub Command1_Click() CommonDialogl. FileName="" CommonDialogl. Filter="All file|*. *|(*. Doc)|*. Doc|(*. Txt)|*. Txt" CommonDialogl. Filterlndex=2 CommonDialogl. DialogTitle="V

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

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

  • 查看答案
  • 设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。

    [单选题]设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是。 A.Private Sub Commandl_Click B.Private Sub Commandl_Click Textl.GotFocus Commandl.GotFocus End Sub End Sub C.Private Sub Commandl_Click D.Private Sub Commandl_Click Textl.S

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

    [单选题]在窗体上画一个名称为CommandDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:Private Sub Command1_Click()C.ommonDialog1.FileName =""C.ommonDialog1.Filter="All file|*.*|(*.DoC.|*.Doc|(*.Txt)|*.Txt"C.ommonDialog1.FilterIndex=2C.ommonDialog1.DialogTitle="VBTest"C

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

    [单选题]在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。要求单击命令按钮时,打开一个保存文件的通用对话框。该窗口的标题为“Save”,缺省文件名为“SaveFile”;在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是( )A.Private Sub Command_Cilck() CommonDialOR1.P11eName="SaveFile" CommonDialOg1.Filter="AllFiles|*.*|(*.txt)|(*

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

    [单选题]在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click( ) CommonDialogl.FileName=“” CommonDialogl,Filter=“All File|*.*|(*.DoC|*.Doc|(*.Txt)|*.Txt” CommonDialogl.Filterlndex=2 CommonDialogl.DialogTitle=“VBTest” CommonD

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

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

  • 查看答案