62顺序文件读写一读顺序文件 返回目录 例61用 Line Inpu语句读出并显示ttx文件的内容 Private Sub Form Click Dim NextLine as string Open"t1t" For Input As#1·打开文件 Do While Not eof(d) 循环至文件尾 Line Input#1, NextLine"读入一行数据 Print NextLine Loop Ettt记事本口 a Form1 文件(编辑(E格式(Ω)帮助⊕ 0001.78,88 Close uoo2,66,70 1,78,88 0003.90.96 2,66,7 End Sub6.2 顺序文件读写－读顺序文件 [例6.1] 用Line Input语句读出并显示t1.txt文件的内容 Private Sub Form_Click() Dim NextLine As String Open "t1.txt" For Input As #1 '打开文件 Do While Not EOF(1) '循环至文件尾 Line Input #1, NextLine '读入一行数据 Print NextLine Loop Close End Sub 返回目录