62顺序文件读写一读顺序文件 返回目录 例62用Inpu语句读出并显示t1xt文件的内容 Private Sub Form Click Dim sl As String, S2 As String, S3 As String Open"tI. txt" For Input As #1 Do While Not eof(l) Input #1. sl. s2. S3 与.Form1 Print sl. s2. s3 0001 0003 860 Loop 96 Close End Sub6.2 顺序文件读写－读顺序文件 [例6.2] 用Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim s1 As String, s2 As String, s3 As String Open "t1.txt" For Input As #1 Do While Not EOF(1) Input #1, s1, s2, s3 Print s1, s2, s3 Loop Close End Sub 返回目录