编写一过程将C盘中的Config.sys文件内容读出,并在文本框中显示出来。在窗体Form1上建立一个文本框Text1,将其MultiLine属性设置为True,ScrollBars属性设置为3-Both。给定的程序不完整,请将程序补充完整。 Opt

admin2009-02-13  35

问题 编写一过程将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=【  】
     Open "C:\Config.sys" For Input As fn
     Do While Not EOF(【  】)
          Line Input #fn, ch1
          Str = Str + chl+ vbCrLf
     Loop
     Text1.Text =【  】
   End Sub

选项

答案FreeFile , fn,Str

解析 LineInput#语句的功能是从一个打开的顺序文件中,读出一行数据赋给一个字符型变量ch1,FreeFile函数的功能是以整数形式返回 open语句可以使用的下一个有效文件号,EOF函数的功能是当文件指针到达文件尾部时返回真,否则返回假。
转载请注明原文地址:https://kaotiyun.com/show/F61p777K
0

最新回复(0)