vb中如何在label上输出编程结果?不可以用label1.print x吗
答案:3 悬赏:20 手机版
解决时间 2021-11-24 10:45
- 提问者网友:自食苦果
- 2021-11-23 21:43
vb中如何在label上输出编程结果?不可以用label1.print x吗
最佳答案
- 五星知识达人网友:往事埋风中
- 2021-11-23 22:07
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
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
全部回答
- 1楼网友:一袍清酒付
- 2021-11-23 22:46
你把Label1.print n语句换成Label1.caption=n就行了。追问我试过了,但是它这样只输出一个水仙花素追答form有print语句(form1.print n),但你的目的应该不是输出到窗体上:另一个输出的呢可以用TEXT,选中多行,然后使用:Text1.text = text1.text & n & VbCrLf就行了。你试试。
- 2楼网友:七十二街
- 2021-11-23 22:24
label没有print过程
用label.caption =。。。
用label.caption =。。。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯