首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为"打开文件"的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open CD1.
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为"打开文件"的命令按钮,如图所示。 命令按钮的单击事件过程如下: Private Sub Command1_Click() CD1.ShowOpen Open CD1.
admin
2015-08-28
49
问题
窗体上有一个名称为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/AsLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下程序运行后输出的结果是______。a=3b=-123m=Len(Str$(A)+Str$(B))PrintmEnd
窗体上有两个文本框Text1、Text2以及一个命令按钮Comanand1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx
在窗体上画一个名为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArrArr=Array(1,2,3,4,5)
在窗体上面有一个文本框,其名称为Text1,编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimsstrAsStringstr=Chr(KeyAscii)Key
设a="VisualBasic",下面使b="Basic"的语句是______。
以下合法的VisualBasic标识符是______。
下列叙述中,不属于软件需求规格说明书的作用的是______。
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
语句DimArr(-3To5)AsInteger定义的数组元素个数是()。
随机试题
宏观经济运行中,各种经济变量所产生的作用,集中在()的平衡关系上。
工程各参建单位填写的建设工程档案应以( )为依据。
根据《大中型水利水电工程建设征地补偿和移民安置条例》,移民安置应当遵循的原则包括()。
下列属于个人资产负债表中的长期负债的有()。Ⅰ.汽车贷款Ⅱ.主要住房贷款Ⅲ.房屋装修贷款Ⅳ.家具、用具贷款
下列不属于监管部门对辖内银行机构及市场进行管理的内容的是()。
预收账款是()类账户。
Thetrainshakesbackandforth,itswheelsmakingaloudnoiseagainstthetracks.Outsidethewindowthefreezingcoldofwint
课堂板书的基本要求有哪些?
下列哪种情况下,中央银行应该停止执行财政紧缩政策?
某完全二叉树按层次输出(同一层从左到右)的序列为ABCDEFGH。该完全二叉树的中序序列为
最新回复
(
0
)