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

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

admin2009-02-13  61
问题 编写一过程将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://www.kaotiyun.com/show/F61p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)