回车与换行

发布网友发布时间：2022-04-27 08:13

共2个回答

热心网友时间：2022-06-29 00:00

再清楚一点的实验以下

实验1
Private Sub Form_Click()
Print "a" + Chr(10) + "b"
End Sub

结果是
a
b

实验2
Private Sub Form_Click()
Print "a" + Chr(13) + Chr(10) + "b"
End Sub
结果同样是：
a
b

实验3
Private Sub Form_Click()
Print "a" + Chr(13) + "b"
End Sub
结果同样是：
a
b

显然这样的测试是达不到效果的！
要画一个text，属性改成多行显示。然后再测试！
Text1.Text = "a" + Chr(13) + "b"
这样写的结果是
ab
与上面不同了！
Text1.Text = "a" + Chr(10) + "b"
这样写的结果同样也是
ab
没有达到换行的效果。
再来这样写：
Text1.Text = "a" + Chr(10) + Chr(13) + "b"
结果同样是
ab
都不对的！

只有这样写：
Text1.Text = "a" + Chr(13) + Chr(10) + "b"
结果是
a
b

热心网友时间：2022-06-29 00:00

你试试就知道了..

Private Sub Form_Click()
Print "a" & Chr(10) + Chr(13) & "b"
Print "a" & Chr(13) + Chr(10) & "b"
End Sub