首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个通用对话框控件CDI,希望在执行下面程序时,打开如图所示的文件对话框: Private Sub Commandl_ Click() CDl.DialogTitle=“打开文件” CDl.InitDir=“C:”
设窗体上有一个通用对话框控件CDI,希望在执行下面程序时,打开如图所示的文件对话框: Private Sub Commandl_ Click() CDl.DialogTitle=“打开文件” CDl.InitDir=“C:”
admin
2020-07-22
95
问题
设窗体上有一个通用对话框控件CDI,希望在执行下面程序时,打开如图所示的文件对话框:
Private Sub Commandl_ Click()
CDl.DialogTitle=“打开文件”
CDl.InitDir=“C:”
CDl.Filter=“所有文件I*.* |Word文档|*.doc |文本文件|*.txt”
CDl.FileName=“”
CDl.Action=1
If CDl.FileName=“”Then
Print“未打开文件”
Else
Print“要打开文件”&CDl.FileName
End If
End Sub
但实际显示的的对话框列出了C:\下的所有的文件盒文件夹,“义件类型”一栏中显示的是“所有文件”。下面的改正方案中正确的是( )
选项
A、把CD1.Actioll=l改为CD1.Action=2
B、把”CDI.Filter=”后面字符串中的“所有文件”改为“文本文件”
C、在语句CD1.Actiom=1的前面添加:CDI.Filterlndex=3
D、把CDI.FileName=“”改为CDI.FileName=“文本文件”
答案
C
解析
在通用对话框控件中,Filter属性指定了在对话框中显示的文件类型,该属性可以设置多个文件类型,每种文件类型由文件描述和文件通配符与扩展名组成,并由“|”隔开。FilterIndex属性用来指定默认的过滤器,Filter属性中设置了多个过滤器后,每个过滤器的对应的能按从左到右顺序是1、2…,Fiherlndex属性默认为l,即第一个过滤器,因此程序中会显示:C\下的所有文件。应该在通活框打开之前(CDl.Action=1之前)添加CDl.FliterIndex=3,即使默认过滤器为第3个过滤器。
转载请注明原文地址:https://www.kaotiyun.com/show/cJHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubCommandl_Click()DimmAsInteger,nAsIntegerm=2:n=1SelectCasem
在某个事件过程中定义的变量是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
以下叙述中,错误的是()
以下不能输出“Program”的语句是
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+
下列关于菜单项的描述中,错误的是
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()m=-3.6IfSgn(m)Thenn=Int(m)Elsen=Abs(m)EndIfPrintnEndSub运
下面程序计算并输出的是PrivatevSubCommand1_Click()a=10:s=0Dos=s+a*a*a:a=a-1LoopUntila<=0PrintsEndSub
对下列二叉树进行前序遍历的结果为()。
随机试题
如何确定铰削余量?余量太大或太小将造成哪些影响?
可能导致现有厂区变更的原因有哪些?
破釜沉舟:项羽
关于一般工程施工顺序的说法,错误的是()。
由于存款业务量巨大,故存款合同一般采用()。
下列关于我国反垄断民事诉讼制度的表述中,正确的有()。
中国共产党历史上的转折会议有()。
有一些老东西虽粗糙,却有非凡的价值。特别是食物,愈粗糙愈有益健康,像糙米胜过白米,黑麦面包胜过白面包、天然食物胜过加工食品。我们不断地把食物做得精致,事实上是在为自己制造祸害。在“过度加工”与“过度精制”的时代,使我们产生了巨大的盲点,并把这些盲点传给下一
推进供给侧结构性改革,必须加强和改善党对经济工作的领导,牢牢把握住中国特色社会主义政治经济学的重大原则,包括
Thetemperature______FahrenheitandCelsiusthermometerreadingsareequalis40degreesbelowzero.
最新回复
(
0
)