Question

在这儿 Chr(13) + Chr(10)怎不起作用？

Private Sub Command1_Click()
Dim i%, n%, sum%
n = Val(Text1.Text)
For i = n To 1 Step -1
sum = sum + Multiply((i))
If i <> 1 Then
Text2 = Text2.Text & i & "! +"
Else
Text2 = Text2.Text & i & "! =" & Chr(13) + Chr(10)
End If
Next
Text2 = Text2.Text & sum
End Sub
是的，我要换行。

Answer 1

设计时将Text2.MultiLine设为True

Answer 2

你是想用它来实现回车（换行）功能吗？
试试这个vbCrLf
Private Sub Command1_Click()
Dim i%, n%, sum%
n = Val(Text1.Text)
For i = n To 1 Step -1
sum = sum + Multiply((i))
If i <> 1 Then
Text2 = Text2.Text & i &