填空题
编写一过程将C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1上建立一个文本框Text1,将其MultiLine属性设置为True,ScrollBars属性设置为3-Both。给定的程序不完整,请将程序补充完整。
Option Explicit
Private Sub Form _Click()
Dim ch1 As String,fn As Integer
Dim Str As String
fn={{U}} 【13】 {{/U}}
Open "C:/Config.sys" For Input As fn
Do While Not EOF({{U}} 【14】 {{/U}})
Line Input #fn, ch1
Str = Str + chl+ vbCrLf
Loop
Text1.Text ={{U}} 【15】 {{/U}}
End Sub