| 发表于:2007-09-20 12:32:029楼 得分:0 |
郁闷啊,又出现问题了: 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 " | | |
|