首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框 Private Sub Commandq Click() CD1.DialogTitle=“打开文件” CD1.InitDit="C:\" CDl.Filte
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框 Private Sub Commandq Click() CD1.DialogTitle=“打开文件” CD1.InitDit="C:\" CDl.Filte
admin
2017-11-23
29
问题
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框
Private Sub Commandq Click()
CD1.DialogTitle=“打开文件”
CD1.InitDit="C:\"
CDl.Filter=”所有文件|*.*|Word文档
|*.doc|文本文件|*txt”
CD1.Action=1
If CD1.FileName="’Then
Print”未打开文件”
Else
Print”要打开文件”&
CD1.FileName
End If
End Sub
但实际显示的对话框中列出了C:\下的所有文件个文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
选项
A、把CD1.Action=1改为CD1.Action=1
B、把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C、在语句CD1.Action=1的前面添加:CD1.Filterlndex=3
D、把CD1.FileName=""改为CD1.FileName=“文本文件”
答案
C
解析
本题考查通用对话框。选项A)把Action属性改成2,表示通用对话框为“另存为”对话框,显然和题目要求的“打开文件”对话框不符;选项B)中“所有文件”和“*.*”是配对的,修改“所有文件”仅仅是修改描述,错误;选项C)正确,FilterIndex表示哪个文件类型是默认类型,Filtedndex为3表示“文本文件|*txt”是默认文件类型;选项D)中的FileName属性用于设置或得到用户所选定的文件名。
转载请注明原文地址:https://jikaoti.com/ti/7hy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面正确使用动态数组的是()。
以下能在窗体Forml的标题栏中显示“VisualBasic窗体”的语句是()。
下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubForm_Load()Dr
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
在窗体上画一个通用对话框,程序运行后,通过ShowOpen方法显示”打开”对话框,要求在该对话框的“文件类型”栏中只显示扩展名为.DOC的文件,则对通用对话框的Filter属性的正确设置是:______。
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSu
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
简述党的领导是人民当家作主和依法治国的根本保证。
有白色的髓,叶互生的药材是
纠正脱水时的速度决定于
"水谷之海"是指
外用膏剂中,药物透皮吸收的主要途径为()。
锚杆安装质量检查内容包含()。
Insomniacs(someonewhocannotsleepeasily)don’tjustsufferatnight.Duringtheday,theyoftenfeelsleepy,havetroubleco
Mankind’sfascinationwithgoldisasoldascivilizationitself.TheancientEgyptianses-teemedgold,whichhadreligioussign
Eachyear,cartheftandburglarytogethercostsusabout______.
A、Themanshouldlearnmorethanthreeclasses.B、ThemanshouldattendFrenchclass.C、Themanisattendingtoomanyclasses.D
最新回复
(
0
)