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

来源：百度知道 编辑：UC知道 时间：2024/06/07 17:22:00
我程序的目的是分别输出asc码为65~90的字符（A~Z）到文本框和文本文件
程序如下：
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:\aaa.txt"
H = FreeFile
Open F For Append As #H
For i = 65 To 90
a = a + Chr(i)
Print #H, Chr(i)
Next i
Text2.Text = Text2.Text + a
Close #H
End Sub
这个程序在文本框可以正常输出，而输出到文本文件每个字符都会自动换行
这要怎么解决
谢谢了

提供优质服务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:\aaa.txt"
H = FreeFile
Open F For Append As #H
For i = 65 To 90
a = a + Chr(i)
Next i
Text2.Text = 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:\aaa.txt"
H = FreeFile
Open F For Append As #H
For i = 65 To 90
a = a + Chr(i)
Print #H, Chr(i);
Next i
Text2.Text = a
Close #H
End Sub

print #h ,chr(i)这样写一次就是一行。
在Text2.Text = Text2.Text + a
下边写一行就行了
print #h ,a

Print #H, Chr(i);
后面加上