首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中: Private Sub Command1_Click() Open"out.txt"For Output As #2 Print"Text1"
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中: Private Sub Command1_Click() Open"out.txt"For Output As #2 Print"Text1"
admin
2018-12-20
53
问题
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:
Private Sub Command1_Click()
Open"out.txt"For Output As #2
Print"Text1"
Close #2
End Sub
调试时发现没有达到目的,为实现上述目的,应做的修改是( )。
选项
A、把Print"Text1"改为Print #2,Text1
B、把Print"Text1"改为Print Text1
C、把Print"Text1"改为Write"Text1"
D、把所有#2改为#1
答案
A
解析
要把文本框中的内容写入文本文件中,首先要用Open语句的For Output模式打开文本文件.并为文件制定一个文件号,然后,用Print语句将文本写入文本文件,最后关闭文件。
本题中Click事件过程中第1、3条语句正确。
第2条语句Print语句的格式是:Print #文件号,要写入的内容,原语句错误。
根据格式按选项A修改正确,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/IwFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() m=-3.6 IfSgn(m)Then n=Int(m) Else n=Abs(m) EndIf
在窗体上画一个命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimArr(10)AsIntegerFori=1To10Arr(i)=
有如下程序:Functionfun(ByValnumAsInteger)AsIntegerDimkAsIntegerk=1num=Abs(num)DoWhilenum
设窗体上有一个Command1命令按钮,还有以下程序代码:PrivateSubCommand1_Click()StaticxAsIntegerx=x+1Callproc(x)Printx,E
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_pub() x=10∶y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_Clic
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click() ’循环1 Fori=1To3 Forj=1To4
设循环队列存储空间为Q(1:50)。初始状态为front=rear=50。经过一系列入队和退队操作后,front=14,rear=19,则该循环队列中的元素个数为
当执行循环的时间较长时,为了避免被误认为是死机,通常应在循环体中放置一个语句,这个语句是
随机试题
(2020年青岛)下列表述符合桑代克“联结说”的是()
思维贫乏常见于
只能间断计数是时期指标的特点。()
在签订房地产买卖合同时,房地产经纪人应提示双方注意的细节不包括()。[2010年考试真题]
GPS测量方法主要分为事后差分处理和实时差分处理,()属于事后差分处理方法。
平等主体的自然人、法人、其他组织之间设立、变更、终止民事权利义务关系的协议称为()。
暂扣或者吊销执照属于()。
某投资者李预期甲股票价格将会下跌,于是与另一投资者张订立卖出合约,合约规定有效期限为三个月,李可按每股10元的价格卖给张5000股甲股票,期权价格为0.5元/股。一个月后,甲股票价格果然降至每股8元,李认为时机已到,于是以现货方式买进5000股甲股票,
(1)紧急开关启动(2)投料试车生产(3)出现报警信号(4)产出合格产品(5)险情迅速排除
Clonaid,acompanyassociatedbyagroupthatbelievesextraterrestrialscreatedmankind,announcedFridaythatithadproduced
最新回复
(
0
)