[填空题] 编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本框Text1，将其MultiLine属性设置为True,将ScrollBars属

17 查阅

[填空题] 编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。

option Explicit

Private Sub Form C1ick()

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

Str=Str+chl+vbCrLf

Loop

Text1. Text= 【15】

End Sub

参考答案:

[13]FreeFile [14]fn [15]Str解析：[分析]： Line Input#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个字符型变量chl；FreeFile函数的功能是以整数形式返回Open语句可以使用的下一个有效文件号；EOF函数的功能是当文件指针到达文件尾部时返回True，否则返回False。

计算机考试