[填空題] 編寫一過程將C盤中的Config.sys文件內(nèi)容讀出，并在文本框中顯示出來。在窗體Form1上建立一個文本框Text1，將其MultiLine屬性設(shè)置為True，ScrollBars屬性設(shè)置為3-Both。給定的程序不完整，請將程序補充完整。

Option Explicit

Private Sub Form _Click()

Dim ch1 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, ch1

Str = Str + chl+ vbCrLf

Loop

Text1.Text = 【15】

End Sub

[13]FreeFile [14]fn [15]Str解析：[分析]： LineInput#語句的功能是從一個打開的順序文件中，讀出一行數(shù)據(jù)賦給一個字符型變量ch1，F(xiàn)reeFile函數(shù)的功能是以整數(shù)形式返回 open語句可以使用的下一個有效文件號，EOF函數(shù)的功能是當文件指針到達文件尾部時返回真，否則返回假。