首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在名称为Forml的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的 MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open"d:\test\smText1.txt"For
在名称为Forml的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的 MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open"d:\test\smText1.txt"For
admin
2009-02-10
53
问题
在名称为Forml的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的
MultiLine属性设置为True,然后编写如下的事件过程:
Private Sub Form Click()
Open"d:\test\smText1.txt"For Input As #1
Do While Not【 】
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:\test\smtext2.txt"For Output As #1
Print #1,【 】
Close #1
End Sub
上述程序的功能是,把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
选项
答案
EOF(1) , Text1.Text
解析
EOF函数是判断Random或顺序Input打开的文件是否已到结尾。本题中首先是要读出"d:\test\smText1.txt"中的内容,使用DoWhile语句宋循环读出内容并赋值给变量wholes,而结束循环的条件是到达文件的尾部,所以第一空应该填EOF(1)。读完以后把内容赋值给Text1文本框。程序的第二部分就是向文件 "d:\test\smtext2.txt"写内容,题目要求把文本框中的内容写入文件smtext2.txt,所以第二空填Text1.Text。
转载请注明原文地址:https://kaotiyun.com/show/ud2p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为【】。
声明异常抛出用下列哪个子句来完成声明,它包含在方法的声明当中?
每个Java应用程序可以包括许多方法,但必须有且只能有一个_______方法。
请完成下列Java程序。程序的功能是利用迭代法求一个数的平方根(求平方根的迭代公式为:Xn+1=1/2(Xn+a/Xn))。注意:请勿改动main()主方法和其他已有的语句内容,仅在下划线处填入适当的语句。源程序代码文件清单如下:
下列关于栈的描述中错误的是
利用File对象可以判断的是
已知二叉树后序遍历序列是dabec,中序遍历序列是debac,它的前序遍历序列是()
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
本题程序中实现了一个“生产者一消费者问题”。生产者产生一个随机数存入DataPool类中,消费者从中取出数据。DataPool类一次只能存放一个数据。请更正题中带下划线的部分。注意:不改变程序的结构,不得增行或删行。classDataPo
软件测试方法中属于静态测试方法的是()。
随机试题
叙述语体在本质上是想象的、独立自足的艺术世界,它依据的是【】
孩子们对在上海自然博物馆看到的一切表现出了浓厚的兴趣。
足月顺产女婴,出生18小时发现皮肤黄染,吃奶好。体检:神经反射正常,皮肤巩膜中度黄染,肝肋下1cm,子血型“B”,母血型“O”,血清胆红素257μmol/L(15mg/dl)。首先考虑的诊断是
溶剂法分离麻黄碱和伪麻黄碱的依据是
某建设项目前两年每年年末投资400万元人民币,从第3年开始,每年年末等额回收260万元,项目计算期为10年。设基准收益率为10%,则该项目的财务净现值为( )万元。
2013年1月,甲上市公司准备增资发行股票,甲公司的下列情形不构成其申请发行股票障碍的是()。
哥白尼、伽利略两人先后因为在科学研究中说了真话,触及到神权教义,受到“异端裁判所”审判并处死。()
三舍法
下列对IPv6地址F34E:0:0:0830:FE:0:0:014A的简化表示中,错误的是()。
HowtoapproachWritingTestPartTwo•Thisparttestsyourabilitytowritelongerletters,Faxesandemails.•Readtheinstruc
最新回复
(
0
)