首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为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
61
问题
窗体上有一个名称为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全国计算机二级
相关试题推荐
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
下列程序段的功能是输入一元二次方程ax2+bx+c=0(a≠0)的3个系数a、b、c,并判断它根的情况,请将程序补充完整。DimaAsSingle,bAsSingle,cAsSingleDimdeltaAsSin
启动VisualBasic中,用鼠标右键单击窗体时所显示的菜单是()
在窗体中添加一命令按钮,并在命令按钮中编写如下代码:PrivateSubCommandl_C1ick()DimaAsSinglea=-1.234567b=Int(A)c=Sgn(A)d=Abs(A)e=Fix(A)
当VB执行下面语句后,A的值为()A=1IfA>0ThenA=A+1IfA>1ThenA=0
下面程序段的输出结果是【】。p=0s=0Dop=p+2s=s+pLoopWhilep<11Print“s=”;s
VB的工程资源管理器可管理多种类型的文件,下面叙述正确的是______。
下面程序执行的结果是______。PrivateSubForm_Click()A$=“123”:B$=“456”C=Val(A$)+Val(B$)Print
随机试题
患者男性,5岁,胸骨左缘第二肋间收缩期杂音,X线检查右室右房扩大,最可能的诊断患者男性,5岁,胸骨左缘第二肋间可闻及明显杂音,超声心动图示左室左房扩大,最可能的诊断
某人因有机磷农药中毒,致使神经纤维末梢释放的乙酰胆碱不能失活而作用加强。患者不会出现的症状是
变异系数越大,说明
法国公民约翰逊在中国境内居留期间,未持有效旅行证件前往不对外国人开放的地区旅行,被当地县公安机关处以7天拘留处罚。约翰逊对此不服,前往当地一家律师事务所进行咨询。以下咨询意见正确的是?()
()对岗位的安全生产负直接责任。其主要职责是接受安全生产教育和培训,遵守有关安全生产规章和安全操作规程,遵守劳动纪律,不违章作业。
A.细菌性肝脓肿B.门静脉炎C.两者均可D.两者均不可急性阑尾炎时可并发
Inordertoworkheretheforeignerneedsaworkpermit,whichmustbeappliedforbyhisprospectiveemployer.Theproblemhere
Parentsareoftenupsetwhentheirchildrenpraisethehomesoftheirfriendsandregarditasasluragainsttheirownthings,
Myfatherseemedtobeinno______tolookatmyschoolreport.
Kerry:Hi,Joanne.How’sitgoing?Joanne:Terrible.IjustfoundoutIhaveachemistrytesttomorrow.Kerry:Yourprofessordi
最新回复
(
0
)