![[填空题] 编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MultiLine属性设置为True，ScrollBars属性设](http://www.mshxw.com/aiimages/31/257438.png "[填空题] 编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MultiLine属性设置为True，ScrollBars属性设")
[填空题] 编写一过程将C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体Form1上建立一个文本框Text1，将其MultiLine属性设置为True，ScrollBars属性设置为3-Both。给定的程序不完整，请将程序补充完整。
Option Explicit
Private Sub Form _Click()
Dim cp As String，fn As Integer
Dim Str As String
fn= 【13】
Open "C:Config.sys" For Input As fn
Do While Not EOF( 【14】 )
Line Input #fn, cp
Str = Str + chl+ vbCrLf
Loop
Text1.Text = 【15】
End Sub
参考答案：
[13]FreeFile [14]fn [15]Str解析：[分析]： LineInput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个字符型变量ch1，FreeFile函数的功能是以整数形式返回 open语句可以使用的下一个有效文件号，EOF函数的功能是当文件指针到达文件尾部时返回真，否则返回假。问题解析:
解析无
