UC知道请VB高手解释以下代码。。。
来源：百度知道 编辑：UC知道 时间：2024/06/02 19:11:45
Private Sub Command1_Click()
'''不得删除本行注释
Dim s As String
Open App.Path & "\yy.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
End Sub
1，input 和 output 有什么区别？ 2，#1和s 代表什么意思？
'''不得删除本行注释
Dim s As String
Open App.Path & "\yy.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
Loop
Close #1
End Sub
1，input 和 output 有什么区别？ 2，#1和s 代表什么意思？
#1 代表文件号是用 open 语句打开时设定的
line input 是从文件读一行出来，并将这一行赋值给变量s
output是写出到文件，但由于open语句设定方式为input就不能写出
具体楼主可看msdn或VB参考手册
input是用来读取文件,output是用来写入文件
#1是打开文件代号.
s是一个变量,在这段代码中用来临时存放从文件中读取的数据
Private Sub Command1_Click() '当点击Command1时,执行以下代码
'''不得删除本行注释
Dim s As String '定义s为字符串型变量
Open App.Path & "\yy.txt" For Input As #1 '打开当前目录下的"yy.txt"文件以做读取用,文件号为#1
Do While Not EOF(1) '未到文件结尾一直循环
Line Input #1, s '读取文件号#1的一行字符到变量s
Text1.Text = Text1.Text & s & vbCrLf '将变量s的内容追加到Text1里面
Loop '循环
Close #1 '关闭文件号#1
End Sub 'Command1点击处理程序到此结束,