首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Commandl_Click() CD1.ShowOpen Open
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Commandl_Click() CD1.ShowOpen Open
admin
2016-06-30
81
问题
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。
命令按钮的单击事件过程如下:
Private Sub Commandl_Click()
CD1.ShowOpen
Open CD1.FileName For Input As#1
MsgBox CD1.FileName
Line Input#1,8
Text1.Text=s
Close#1
End Sub
单击命令按钮,执行以上事件过程,打开选定的文件,读取文件的内容并显示在文本框中,以下叙述中正确的是( )
选项
A、程序没有错误,可以正确完成打开文件、读取文件中内容的操作
B、执行Open命令时出错,因为没有指定文件的路径
C、Open语句是错误的,应把语句中的For Input改为For Output
D、Line Input命令格式错
答案
A
解析
第1条语句中用ShowOpen方法显示“打开”对话框后,在对话框中选中文件,单击“打开”按钮后,CD1.FileName属性就会返回打开文件的路径,所以用Open语句打开文件时,就可用CD1.FileName指定打开文件的路径,故B选项说法错误。
因为第4条语句中要用Line Input从文件读取数据,故用Open语句打开文件时用Input.模式打开是正确的,故c选项说法错误。
Line Input命令格式为:IAne Input#文件号,变量名,题中Line Input语句格式正确。故D选项错误。
本题程序无错误,能实现所说功能,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/LqLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使菜单项MenuOne在程序运行时失效,使用的语句是
下列叙述中,不属于软件需求规格说明书的作用的是
有如下函数过程:Functiongys(ByValxAsInteger,ByValyAsInteger)AsInteger DoWhileY<#0 preminder=x/y x=Y
下面关于多重窗体的叙述中,正确的是()。
在文本框中,当用户键入一个字符时,能同时引发的事件的是()。
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮Command1变为可用。请填空。PfivateSubForm_Load()
要使一个命令按钮成为图形命令按钮,则应设置的属性是
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
检查软件产品是否符合需求定义的过程称为
在运行阶段,要在文本框Text1获得焦点时选中文本框中所有内容,对应的事件过程是
随机试题
下列哪些选项可以通过尺寸约束来定位形状特征(FormFeature)
下列关于地下水影响边坡稳定性,叙述错误的是()。
矿山建设项目和用于生产、储存危险物品的建设项目的施工单位必须按照批准的安全设施设计施工,并对( )负责。
施工成本计划作为施工成本控制的指导文件,其内容包括()。
左边给定的是纸盒的外表面,下面哪一项能由它折叠而成?
利害关系人因情况紧急,不能立即申请财产保全将会使其合法权益受到难以弥补的损害的,可以在起诉前向人民法院申请采取财产保全措施,但申请人必须提供担保。()
《论语》中曾子曰:“士不可以不弘毅,任重而道远。仁以为己任,不亦重乎?死而后已,不亦远乎?”这句话对我们实现人生价值的启示是()。
1991年6月15日,菲律宾吕宋岛上的皮纳图博火山突然大喷发,2000万吨二氧化硫气体冲人平流层,形成的霾像毯子一样盖在地球上空,把部分要照射到地球的阳光反射回太空几年之后,气象学家发现这层霾使得当时地球表面的温度累计下降了0.5℃,而皮纳图博火山喷发前
HowlongwasDilyslate?
DeterminingtheAgeofthePlanetsandtheUniverseP1:Asthesolarnebula,alargerotatingcloudofinterstellardustandgas
最新回复
(
0
)