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

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

admin2013-04-11  57
问题 编写一个过程把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=【  】
Open "C:\Config. sys" For Input As fn
Do While Not EOF(【  】)
Line Input #fn, chl
Str=Str+chl+vbCrLf
Loop
Text1. Text=【  】
End Sub
选项
答案FreeFile ,fn ,Str
解析 Line Input#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个字符型变量chl；FreeFile函数的功能是以整数形式返回Open语句可以使用的下一个有效文件号；EOF函数的功能是当文件指针到达文件尾部时返回True，否则返回False。
转载请注明原文地址:https://kaotiyun.com/show/Rahp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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