Question

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！不懂！

Answer 1

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

Answer 2

你把Label1.print n语句换成Label1.caption=n就行了。

追问

我试过了，但是它这样只输出一个水仙花素

追答

form有print语句（form1.print n），但你的目的应该不是输出到窗体上：另一个输出的呢可以用TEXT，选中多行，然后使用：Text1.text = text1.text & n & VbCrLf就行了。你试试。

Answer 3

label没有print过程

用label.caption =。。。