编写一过程将C盘中的Config.sys文件内容读出 并在文本框中显示出来。在窗体Form1上建立一
编写一过程将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
请帮忙给出正确答案和分析，谢谢！
参考解答
495***263
2023-07-21 18:03:17
正确答案：FreeFile fnStr
LineInput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个字符型变量ch1，FreeFile函数的功能是以整数形式返回open语句可以使用的下一个有效文件号，EOF函数的功能是当文件指针到达文件尾部时返回真，否则返回假。
相似问题
以下所列程序的功能是：在窗体上有一个文本框控件 程序运行后 用户可以利用鼠标左键来拖动该文本框控件(
以下所列程序的功能是：在窗体上有一个文本框控件，程序运行后，用户可以利用鼠标左键来拖动该文本框控件(注意：拖动时，文本框移动的距离和方向由鼠标指
在Visual Basic中 用于文件复制的命令是【 】。请帮忙给出正确答案和分析 谢谢！
在Visual Basic中，用于文件复制的命令是【 】。请帮忙给出正确答案和分析，谢谢！
一棵二叉树的结点数为33 其最大的深度为【 】 最小的深度为【 】。请帮忙给出正确答案和分析 谢谢！
一棵二叉树的结点数为33，其最大的深度为【 】，最小的深度为【 】。请帮忙给出正确答案和分析，谢谢！
表达式Fix(-465)+Int(-515)的值是【 】。请帮忙给出正确答案和分析 谢谢！
表达式Fix(-465)+Int(-515)的值是【 】。请帮忙给出正确答案和分析，谢谢！
在窗体form1上有一个驱动器列表控件Drivel 一个目录列表控件Dirl 一个文件列表控件Fil
在窗体form1上有一个驱动器列表控件Drivel，一个目录列表控件Dirl，一个文件列表控件File1，一个富文本控件Richtexbox1。要求程序运行以后，用户可以利用
