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

题目

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

A.该对话框被设置为“打开”对话框

B.在该对话框中指定的默认文件名为空

C.该对话框的标题为VBTest

D.在该对话框中指定的默认文件类型为文本文件(*.Txt)


相似考题
更多“在窗体上画一个名称为CommonDialogl的通用对话框,一个名称为Commandl的命令按钮。然后编写如下事 ”相关问题
  • 第1题:

    在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a$="VisualBasic" Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是

    A.VVV

    B.Vis

    C.sic

    D.11


    正确答案:A
    解析:本题考查字符串函数。 String返回n个字符。如果为字符串,则返回n个字符串的首字符。据此,本题的正确答案为A,即返回3个“Visual Basic”的首字母“V”。

  • 第2题:

    在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:

    程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。

    A)机床

    B)车床

    C)钻床

    D)轴承


    正确答案:C
    本题考查VBA中数组的知识。数组变量由变量名和数组下标构成,我们通常使用Dim语句来定义数组,其中下标下限缺省为0。本题中的af2)就是数组的第三个元素即“钻床”。

  • 第3题:

    在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如 下事件过程: Private Sub Commandl_Click() CommonDialogl,Flags=vbOFNHideReadOnly CommontDialogl.Filter="All Files(*.*)|*.*|Text Files (*.*)|*.txt|"_ & Batch Files (*.bat) |*.bat" CommonDialogl.Filterlndex=1 CommonDialogl.Showopen MsgBox CommonDialogl.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是

    A.All Fries(*.*)

    B.Text Files(*.*)

    C.Batch Files(*.bat)

    D.All Files (*.*)|Text Files(*.*)


    正确答案:A
    解析:通用对话框控件的CommonDialogl的Filter属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型,供用户在对话框的“文件类型”的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成,每对字符串用管道符“|”隔开,在管道符“|”前面的部分称为描述,后面的部分一般为通配符和文件扩展名,称为“过滤器”。如“*.txt"等,各对字符串之间也用管道符隔开。其格式如下:[窗体.]对话框名.Filter=”描述符1|过滤器1|描述符2|过滤器2……”如果省略窗体,则为当前窗体。本题执行语句后,可以在文件类型栏内通过下拉列表选择要显示的文件类型,而最初默认显示的文件类型(过滤器)可以由Filterlndex属性来指定,该属性是一个整数。用Filter属性设置多个过滤器后,每个过滤器都有一个值,第一个过滤器的值为1,第二个过滤器的值为2……,用Filterlndex属性可以指定作为默认显示的过滤器,本题中的值是1,所以显示AllFiles(*.*)。注意:通用对话框的FileName属性和DilosTitle属性的作用。

  • 第4题:

    在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: PrivateSubCommandl_CnCk() aS="VisualBasic", Print String(3,a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是( )。

    A.VVV

    B.Vis

    C.sic

    D.11


    正确答案:A

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