[填空题] 以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。 Private Sub Command1_Click() D

12 查阅

[填空题] 以下程序的功能是：把当前目录下的顺序文件smText1. txt的内容读入内存，并在文本框Text1中显示出来。请填空。

Private Sub Command1_Click()

Dim inData As String

Text1. Text=""

Open". mText1. txt" 【14】 As 1

Do While 【15】

Input #1, inData

Text1. Text=Text1. Text & inData

Loop

Close #1

End Sub

参考答案:

[14]For Input [15]Not EoF(1)解析：[分析]：在用Open语句打开smText1. txt文件时，For Input表示顺序输入方式，For Output表示顺序输出方式。EOF函数用来测试文件的结束状态。“文件号”的含义同前。利用EOF函数，可以避免在文件输入时出现“输入超出文件尾”错误。在文件输入期间，可以用EOF测试是否到达文件末尾。对于顺序文件来说，如果已到文件末尾，则EOF函数返回True，否则返回False。

计算机考试