filenum = FreeFile
For i = 0 To 20
Open "123.txt" For Output As #filenum
Print #filenum, i & vbCrLf
Close #filenum
Next i
vbCrLf = 回车+换行 = chr(13)+chr(10)
For i = 0 To 20
Text1.Text = Text1.Text & i & Chr(13) & Chr(10)
Next i
[
本帖最后由 wube 于 2011-4-5 15:08 编辑 ]