郁闷啊,又出现问题了: Private Sub Command1_Click() Dim i%, j%, Arr(2, 5) As Byte, FileNum As Long FileNum = FreeFile() Open "e:\VB Test\test2.dat" For Output As #FileNum For i = 1 To 2 For j = 1 To 5 Arr(i, j) = i + j Print #FileNum, Arr(i, j), Next Print #FileNum, Chr(10) Next Close #FileNum End Sub 结果: 2 3 4 5 6 " 3 4 5 6 7 "
Private Sub Command1_Click()
Dim i%, j%, Arr(2, 5) As Byte, FileNum As Long
FileNum = FreeFile()
Open "e:\VB Test\test2.dat" For Output As #FileNum
For i = 1 To 2
For j = 1 To 5
Arr(i, j) = i + j
Print #FileNum, Arr(i, j),
Next
Print #FileNum, Chr(10)
Next
Close #FileNum
End Sub
结果:
2 3 4 5 6 "
3 4 5 6 7 "
Print #FileNum, Arr(i, j),
===>
Print #FileNum, Arr(i, j);-----------------------------Print #FileNum, Chr(10)
====>
Print #FileNum,