跪求！！！

Question

帮我改下程序，如果要将内容显示在文本框中，且要求一行显示一个，程序该如何修改．这是个求水仙花数的算化
Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer
For x = 1 To 9
    For y = 0 To 9
      For z = 0 To 9
      a = x * 100 + y * 10 + z
      b = x * x * x + y * y * y + z * z * z
      
      If a = b Then Print b
      
      Next z
     
    Next y
    
Next x
End Sub

Answer 1

在窗口上放一个text控件，将控件的MultiLine属性设置为TruePrivate Sub Form_Click()
Dim a As Integer, b As Integer, x As Integer, y As Integer, z As Integer
Text1.Text = ""
For x = 1 To 9
    For y = 0 To 9
      For z = 0 To 9
      a = x * 100 + y * 10 + z
      b = x * x * x + y * y * y + z * z * z
       
      If a = b Then Text1.Text = Text1.Text & b & vbCrLf
       
      Next z
      
    Next y
     
Next x
End Sub