2. 计算机
  3. 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private sub Form_Click() Open“d：＼test＼smtextl．txt”For Input As

在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程： Private sub Form_Click() Open“d：＼test＼smtextl．txt”For Input As

admin2010-04-10  56
问题 在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private sub Form_Click()
Open“d：＼test＼smtextl．txt”For Input As #l
Do While Not【  】
Line Input #1，aspeot$
whole $=whole $+aspect$+Chr$(13)+chr$(10)
Loop
Textl．Text=whole$
．__【  】
Open“d：＼test＼smtext2．txt”FOr Output As#l
Print #l，【  】
Close #1
End sub
运行程序，单击窗体，将把磁盘文件smtextl．txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件statext2．txt。请填空。
选项
答案EOF(1)； , Close#1； , Text1．Text或Text1
解析 EOF函数用于测试文件指针是否到达文件末尾，它的格式是EOF(文件号)，因此第13个空应填“EOF(1)”，只要没有到达文件末尾，就一直执行循环内的语句；在对文件操作完毕之后，必须关闭文件，它的格式是Close#文件号，所以第14个空应填“clase#l”；根据题意要求输出smtext1的内容，而根据前面扮语句，smtext1的内容已经赋值给了Text1．Text，所以第15空应填“Text1．Text”或“Text1”。
转载请注明原文地址:https://www.kaotiyun.com/show/SQmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)