为什么vb输出到文件会自动换行？

提供优质服务2种方法:
Option Explicit
Dim i As Integer
Dim a
Private Sub Command1_Click()
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long
F = "C:\aaatxt"
H = FreeFile
Open F For Append As #H
For i = 65 To 90
a = a + Chr(i)
Next i
Text2Text = a
Print #H, a
Close #H
End Sub
Private Sub Command2_Click()
Dim nStr As String, nStr1 As String, H As Long, B() As Byte, F As String, S As Long
F = "C:\aaatxt"
H = FreeFile
Open F For Append As #H
For i = 65 To 90
a = a + Chr(i)
Print #H, Chr(i);
Next i
Text2Text = a
Close #H
End Sub

Option Base 1
Private Sub Command1_Click()
Dim a(4, 5)
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(9 Rnd) + 1
DebugPrint a(i, j);
Next
DebugPrint ‘这里改了
Next
End Sub

vb中，print输出的内容超出窗体的时候不能实现自动换行的，需要程序员具体规定。
一种方法是用逗号分隔进行输出，并同时计数，输出满指定的个数就换行。
另一种方法是用逗号分隔进行输出，并同时计数，输出满指定的个数就换行（宽度不同时上下行会不对齐）。
例如：
for i=1 to 100
if i mod 7=0 then printf i, :k=k+1
if k mod 5=0 then print
next i

---