Private Sub 储存_Click()
Open "file,dat" For Output As #fno
Print #fno, txt.Text
Close #fno
End Sub

Private Sub 显示_Click()
txt.Text = ""
fno = FreeFile()
Open "file.dat" For Input As #fno
Do Until EOF(fno)
Line Input #fno, newline
txt.Text = txt.Text & newline & Chr(13) + Chr(10)
Loop
Close #fno
End Sub
谁给修改下这代码？并且解释上面每段代码的意思、

Private Sub 储存_Click()
Open "file,dat" For Output As #fno            '打开文件。以新建顺序文件方式   文件名写错了一个符号
Print #fno, txt.Text                          '保存内容，一次性写入
Close #fno                                    '关闭文件
End Sub

Private Sub 显示_Click()
txt.Text = ""                                 '显示区置空
fno = FreeFile()                              '产生下一个可用的文号。注意上一段没这个命令，有可能导致保存时打开文件报错，加上这一行吧
Open "file.dat" For Input As #fno             '打开文件，以读取顺序文件方式
Do Until EOF(fno)                             '文件未结束之前继续循环
Line Input #fno, newline                      '读取一行
txt.Text = txt.Text & newline & Chr(13) + Chr(10)   '显示一行。注意看到最后增加的二个字符。可以优化为 一个常量  vbcrlf
Loop                        
Close #fno                                    '关闭文件
End Sub

领教了