首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open
admin
2016-08-24
36
问题
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。
命令按钮的单击事件过程如下:
Private Sub Command1_Click()
CD1.ShowOpen
Open CD1.FileName For Input As#1
MsgBox CD1.FileName
Line Input#1,s
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命令格式为:Line Input#文件号,变量名,题中Line Input语句格式正确。故D选项错误。
本题程序无错误,能实现所说功能,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/MaLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面程序段执行结果为()。x=Int(Rnd()+4)SelectCasex Case5 Print"excellent" Case4 Print"good" Case3
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+x
下列程序段的执行结果为()。a=6Fork=1To0 a=a+kNextkPrintk;a
计时器控件能有规律的以一定时间间隔触发______事件,并执行该事件过程中的程序代码。
假设变量intVar是一个整型变量,则执行赋值语句intVar="2"+3之后,变量intVar的值是()。
执行下面的程序段后,变量S的值为______。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
设有如下程序:PrivateSubCommand1_Click() DimsumAsDouble,xAsDouble sum=0 n=0 Fori=1To5 x=n/i
下列关于队列的叙述中正确的是
随机试题
急黄的治法是()(2002年第60题)
参苓白术散的适应证包括
体层摄影中,选择层间距大小的依据是
A.10~20秒B.60~70秒C.70~85秒D.100~120秒E.3~5分钟或更长肝脏三期扫描门静脉期,扫描延迟时间为
某地区欲在短时间内摸清本地区高血压患病的主要危险因素,计划第一步进行人群基础资料和患病资料的收集,第二步进行危险因素的调查,第三步进行资料的整理分析及形成结论如果采用的高血压患者都是患病时间较长的患者,可能造成的偏倚是
《地表水环境质量标准》基本项目中化学需氧量的监测分析方法是()。
模板的拆除顺序一般为()。
乙公司拥有一项账面原价为90万元、已使用2年、累计已摊销32万元、累计已确认减值损失16万元的专利权。现乙公司将其对外转让,取得转让价款74.2万元,适用增值税税率为6%,不考虑其他相关税费,则乙公司转让该项专利权能使其利润总额增加()万元。
支票出票人必须按法定要求记载有关事项,其中不属于必须记载事项的是()。
若有以下程序#include#defineN4voidfun(inta[][N],intb[],intflag){inti,j;for(i=0;i
最新回复
(
0
)