[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为

[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为,第1张

[填空题] 把一个磁盘文件内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。 在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为

[填空题] 把一个磁盘文件的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入另一个磁盘文件,请填空完成程序。

在窗体上建立一个文本框,在属性窗口中把该文本框的MultiLine属性设置为 True,然后编写如下的事件过程:

Prlvate Sub Form_Click()

Open"D:est1.txt"For Input As # 1

Text1.FontSize=14

Text1.FontName=“幼圆”

Do While Not EOF(1)

【13】

whole$=whole$+aspect$+Chr$(13)+Chr$(10)

Loop

Text1.Text= 【14】

Close

Open"D:est2.txt"For Output As # 1

Print # 1, 【15】

Close

End Sub

正确答案:

[AC] Line Input #A,aspect$ [AD] Whole $ [AE] TextA. Text

参考解析:

文件的读 *** 作使用Input#语句,其格式为:Input #文件号,题中根据EOF(1)可以推断文件号为1,由语句whole $=whole $+aspect $+Chr $(13)+Chr$(10)可知变量为aspect$,并且是以行读入内存的,故 [13]处的文件读 *** 作语句应为Line Input # 1,aspect$。读入内容在文本框中显示出来,就给文本框的Text属性赋读入内容Whole $即可。 Print #1, Text1. Text表示把整个文本框Text1的内容一次性的写入文件。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5628441.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-15
下一篇 2022-12-15

发表评论

登录后才能评论

评论列表(0条)

保存