在名称为Forml的窗体上画一个文本框,其名称为Text1,在属性窗口中把该文本框的 MultiLine属性设置为True,然后编写如下的事件过程: Private Sub Form Click() Open"d:\test\smText1.txt"For

admin2009-02-10  50

问题 在名称为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
0

最新回复(0)