vb中如何在label上输出编程结果？不可以用label1.print x吗

Private Sub Command1_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer
For n = 100 To 999
a = n \ 100
b = (n - 100 * a) \ 10
c = n - 100 * a - 10 * b
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
Label1.Print n;
End If
Next n
End Sub
我试过把label1.print n;改为label1.caption=n，可是这样只输出一个结果407！不懂！

LS的意见正确，但从代码看改作窗体显示更为妥切。

Private Sub Command1_Click()
    Dim n As Integer, a As Integer, b As Integer, c As Integer
    For n = 100 To 999
        a = n \ 100
        b = (n - 100 * a) \ 10
        c = n - 100 * a - 10 * b
        If n = a ^ 3 + b ^ 3 + c ^ 3 Then
            Me.Print n;
        End If
    Next n
End Sub追问

在窗体上我会，直接print n;就行了，可是我还想知道如果非要在label或text上输出呢？

追答

如果LZ一定要使用Label或text显示全部结果，代码可改为：

Private Sub Command1_Click()
    Dim n As Integer, a As Integer, b As Integer, c As Integer
    Dim nstr As String
    For n = 100 To 999
        a = n \ 100
        b = (n - 100 * a) \ 10
        c = n - 100 * a - 10 * b
        If n = a ^ 3 + b ^ 3 + c ^ 3 Then
            nstr = nstr & "   " & CStr(n)
        End If
    Next n
    Label1.Caption = nstr
    Text1.Text = nstr
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2m2pff824.html