请问为什么我的这个程序不能换行输出

Question

Private Sub Command1_Click()
Dim a%, b%, c%, d%, f%
  For a = 1 To 9
  For b = 0 To 9
  For c = 0 To 9
    d = a ^ 3 + b ^ 3 + c ^ 3
    f = a * 100 + b * 10 + c
    If d = f Then
      Text1.Text = Text1.Text & d & vbCrLf
    End If
  Next c
  Next b
  Next a
End Sub

Answer 1

Text1.Text = Text1.Text & d & vbCrLf =>  Text1.Text = Text1.Text & d & chr(10) & chr(13)chr(8)、chr(9)、chr(10) 和 chr(13) 分别转换为退格、制表、换行和回车字符。

Answer 2

多谢楼上了 我已经从其他帖子里找到答案了 是因为TEXTBOX的属性 MULITILINE没有置TURE 才导致以上程序不能换行