首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open
admin
2016-08-24
74
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是()。PrivateSubForm_Load Text1.Text="" Text1.SetFocus Fork
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指()。
假定一个工程由一个窗体文件Forml和两个标准模块文件Model1及Model2组成。Model1代码如下:PublicxAsIntegerPublicyAsIntegerSubS1()x=1S
如果要将窗体中的某个命令按钮设置成不可见状态,应该设置命令按钮的什么属性
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsInteger DoWhile…Y<>0 reminder=xModY x=y
数据结构分为逻辑结构和存储结构,线性链表属于______。
以下叙述中错误的是()。
下列叙述中,正确的是()。
对下列二叉树进行前序遍历的结果为()。
在E-R图中,用来表示实体的图形是()
随机试题
各类脏器移植中疗效最稳定、最显著的是
《税务登记管理办法》规定的税务登记证件包括()。
甲公司向银行贷款,并以所持的乙上市公司的股份用于质押。根据《物权法》的规定,该质权设立的时间是()。
按照马克思的利率决定理论,利率变化的界限在()。
城建税以实际缴纳的增值税、消费税和营业税为计税依据,其适用税率按纳税人缴纳“三税”的地点确定。()
根据《军队离休退休干部服务管理办法》,军休干部管理委员会是在服务管理机构内()。
集体合同中的其他规定部分,一般只是作为签约方的()而存在。
—Sorry,MissGao.I______mymathbookathome.—That’sOK,butdon’t______nexttime.
马克思指出:“一个社会即使探索到了本身运动的自然规律……它还是既不能跳过也不能用法令取消自然的发展阶段。但是它能缩短和减轻分娩的痛苦。”这表明()
A、Hesellsnewcars.B、Hecanbetrusted.C、Heisstartingabusiness.D、Heisasuccessfulcardealer.B对话末尾,女士在听到男士的建议后有些迟疑,
最新回复
(
0
)