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

题目

在窗体上画一个命令按钮和一个通用对话框，其名称分别为Command1和CommonDialogl，然后编写如下代码； Private SubCommand1_Click() CommonDialogl.Filter=" All Files |*.*|(*.exe)|*.exe|(*.doC)[*.doc|(*.bmp)|*.bmp" CommonDialogl.FileName=" " CommonDialogl.Flags=vbOFNFileMustExist CommonDialogl.FilterIndex=3 CommonDialogl.DialogTitle="OpenFile(*.doC) CommonDialogl.Action=1 If CommonDialogl.FileName= "Then MsgBox "No file selected"，37，"Checking" Else End If End Sub 程序运行后，单击命令按钮，将显示一个对话框，该对话框的标题是 ______。

A．空字符

B．OpenFile(*.doC)

C．打开文件

D．保存文件

如果没有搜索结果，请直接联系老师获取答案。

相似问题和答案

第1题：

在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl，然后编写如下事件过程：

Private Sub Commandl_CUck()

CommonDialog1.______="打开文件"

CommonDialog1.Filter="All Files(*.*)|*.*"

CommonDialog1.InitDir="C:\"

CommonDialog1.ShowOpen

End Sub

该程序的

正确答案：DialogTitle
DialogTitle

第2题：

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

第3题：

A．AllFries(*.*)

B．TextFiles(*.txt)

C．Executable Fries(*.exe)

D．不确定

正确答案：C

第4题：

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

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

A．

B．H

C．

D．

正确答案：A
【解析】分析程序，程序开始循环时i=1，j=1to1，PrintSUing(i，“Hello”)语句输出一个H，然后执行Print进行换行；当i=2时，j=1to2，PrintString(i，“Hello”)语句输出两行分别为两个HH，然后执行Print换行：当i=3时，退出循环。

第5题：

在窗体上画两个名称分别为Label1和Label2的标签，再画一个名称为Command1的命令按钮，然后编写如下事件过程：

运行上面的程序，单击命令按钮．其输出结果是

A．8 9

B．8 18

C．64 9

D．64 18

正确答案：C
解题的关键是窗体变量X和局部变量Y的作用域及过程调用时的参数传递方式。窗体变量X的作用域是该窗体内的所有过程，所以虽然是传值，但在过程Subl中可见，因此在该过程中使用了窗体变量X，这个“x＝a*a”直接将该窗体变量X的值改变为64。而y则是过程Command1_Click的内部变量，与过程Sunl中的变量y没有关系，标签Label2显示的是本过程的Y值，即9。正确答案为c。

第6题：

在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：程序运行后，如果单击命令按钮，则在面体上显示的内容是（）。

正确答案：A
A) 【解析】本题考查循环嵌套程序分析。外层循环共执行2次，第一次执行外循环，内层循环变量为1到1，执行一次；第二次执行外循环，内层循环变量为1到2，执行2次。String 函数产生i个“Hello”中的第一个字符H。

第7题：

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

A．All Files(*.*)

B．Text Files(*.txt)

C．Batch Files(*.bat)

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

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

第8题：

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

程序运行后，单击命令按钮，其输出结果为__________。

正确答案：
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。

第9题：

在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：

Sub S(x As Integer，Y As Integer)

Static z As Integer

y=x*x+z

z=y

End Sub

Private Sub Command1_Click()

Dim i As Integer，z As Integer

m=0

z=0

For i=1 To 3

S i，z

m=m+z

Next i

Label1．Caption=Str(m)

End Sub

程序运行后，单击命令按钮，在标签中显示的内容是

A．50

B．20

C．14

D．7

正确答案：B
解析：当i=1时，z=1*1+0=1，当i=2时，z=2*2+1=5，当i=3时，z=3*3+5=14，然后将三次z的值求和得20，因此本题答案为B)。

计算机二级

题目

相似问题和答案

相关内容