首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据: Private Sub Command1_Click() Dim s1 As String, s2 As String Open "
admin
2015-08-28
62
问题
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Open "c:\d4.dat" For Append As #3
Line Input #3, s1
Line Input #3, s2
Text1.Text=s1+s2
Close
End Sub
该程序运行时有错误,应该进行的修改是( )。
选项
A、将Open语句中的For Append改为For Input
B、将Line Input改为Line
C、将两条Line Input语句合并为Line Input #3, s1,s2
D、将Close语句改为Close #3
答案
A
解析
文件打开方式中的Append意味着打开的文件是顺序输出方式,也就是说打开文件是为了向其中写入数据的而不是要读出数据。因此Open "c:\d4.dat" For Append As #3应该改为Open "c:\d4.dat" For Input As #3。所以A选项正确。Clsoe语句中的文件号可以省略,这时会关闭所有打开的文件。
转载请注明原文地址:https://kaotiyun.com/show/knLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个滚动条,名称分别为Hscroll1、Hscroll2;六个标签,名称分别为Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label4~Label6分别显示“A”、“B”、“A*B”等文字信息,标签
如果要在菜单中添加一个分隔线,则应将其Caption属性设置为______。
对建立良好的程序设计风格,下面描述正确的是______。
在窗体上画一个名称为Text1的文本框.然后画一个名称为HScroll1的滚动条,其Min和Max属性分别为0和100。程序运行后,如果移动滚动框,则在文本框中显示滚动条的当前值,如图16-6所示。以下能实现上述操作的程序段是______。
当我们输入代码时,VisualBasic可以自动检测______错误。
如果要改变窗体的标题,需要设置窗体对象的______属性。
文本框控件最多能处理______个字节。
在考生文件夹下有工程文件execise13.vbp及窗体文件execise13.frm。在名为Form1的窗体上有5个Labe1控件和2个命令按钮,数据文件in13.dat存放学生的编号:姓名、性别和体重,如下图所示。程序运
设A="345678",则表达式Val(Mid(A,4,2)+Right(A,4))的值为______。
实体完整性约束要求关系数据库中元组的属性值不能为空。
随机试题
理想不同于幻想和空想,具有变为现实的可能性,是经过长期努力可以实现的。这是因为【】
计量检定规程是__________。
设备在制造厂制造完后,经过包装和储运到达目的地,就进入安装和调试过程,在这个过程中,应该()。
外国投资者主要通过()方式对上市公司进行战略投资。
民间非营利组织的会计报表应该包括()。
告诉你一个电话号码,你可以按照它去拨号,但打过以后,再问你该号码,你又不记得了。这种记忆的表现是()。
中国是世界上稀土资源最丰富的国家,素有“稀土王国”之称。下列关于稀土的表述,错误的是()
庄子与屈原,是中国哲学史上和文学史上两颗璀璨的巨星。他们同时出现于中国的战国时代,庄骚比翼,哲诗辉映,代表了我们民族在思辨与审美领域中达到的高峰。庄子是一位将认知与审美融为一体的哲人,他的人本体论哲学,让人们追思“有限的个体生命如何去把握永恒的美的人生
在下面有关PCI局部总线的叙述中,不正确的是( )
Asawisemanoncesaid,weareallultimatelyalone.ButanincreasingnumberofEuropeansarechoosingtobesoataneverear
最新回复
(
0
)