首页 > 计算机 > 计算机考试 正文

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

时间:2021-07-20 16:41:19 解答: 74 次

[填空题] 编写一过程将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= 【13】

Open "C:Config.sys" For Input As fn

Do While Not EOF( 【14】 )

Line Input #fn, ch1

Str = Str + chl+ vbCrLf

Loop

Text1.Text = 【15】

End Sub

正确答案:

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

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2025-01-03 00:48:48

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2025-01-03 00:48:48

←请使用微信扫码支付