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

admin2010-04-10  31

问题 在窗体上画一个文本框,其名称为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://kaotiyun.com/show/SQmp777K
0

最新回复(0)