首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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-06-30
74
问题
窗体上有一个名称为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/qAQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是______。
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsInteger
在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommand1_Click()DimbAsIntegerb=b+1EndSub运行程序,三次单击命
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
子程序通常分为两类:【】和函数,前者是命令的抽象,后者是为了求值。
启动VisualBasic中,用鼠标右键单击窗体时所显示的菜单是()
变量定义语句DimIndex&与下面的______等价。()
当VB执行下面语句后,A的值为()A=1IfA>0ThenA=A+1IfA>1ThenA=0
VB的工程资源管理器可管理多种类型的文件,下面叙述正确的是______。
随机试题
资本主义银行的利润率是______、_______、_______。
Butformany,thefactthatpoorpeopleareabletosupportthemselvesalmostaswellwithoutgovernmentaidastheydidwithit
从设计规定的研究对象中对随机抽出的一部分进行调查,称为()
取得咨询工程师执业资格后调往其他单位的人员申清注册的,必须()。
某企业2014年可比产品按上年实际平均单位成本计算的本年累计总成本为1600万元,按本年计划单位成本计算的本年累计总成本为1500万元,本年累计实际总成本为1450万元。则可比产品成本的实际降低率为()。
各级人民政府创造公平就业的环境,消除就业歧视,制定政策并采取措施对就业困难人员给予扶持和援助。这属于促进就业原则中()的体现。
下列描述中不符合“自知力不完整”或“无自知力”的是()。
“学为人师,行为世范”,其中“范”体现了教师工作的()。
A、 B、 C、 A根据“今天是我的生日。”可知与图片A相符。所以应选A。
Nowadays,moreandmorewomenchoosetostayathometotakecareoftheirkids.Isitnecessaryforthemtoquittheirjobsand
最新回复
(
0
)