永发信息网

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

答案:3  悬赏:20  手机版
解决时间 2021-11-24 10:45
vb中如何在label上输出编程结果?不可以用label1.print x吗
最佳答案
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
全部回答
你把Label1.print n语句换成Label1.caption=n就行了。追问我试过了,但是它这样只输出一个水仙花素追答form有print语句(form1.print n),但你的目的应该不是输出到窗体上:另一个输出的呢可以用TEXT,选中多行,然后使用:Text1.text = text1.text & n & VbCrLf就行了。你试试。
label没有print过程

用label.caption =。。。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
大家新车时候转速最高到多少
“颠簸”是什么意思?
如果世界上真的有龙,我会骑在他的背上!
广繁体字怎么写
热卷的材质
跪求颓废之心蕾拉双剑刷图加点(女双剑)
非主流甜甜美女xixi
求 德山秀典的 仆等の道 的中文歌词翻译
安图与安图西之间有多远
中国移动通信(全功路百佳惠大药房旁)地址在什
云多一画猜一个字是什么
为什么狗狗经常呆在床下或者沙发下面?
奥之冠昆明有店吗
c++ 哪些 容器 内存 连续
请问明锐1.2丅是230或是280的
推荐资讯
小米mix2s如何设置流量
如何运用护理程序进行护理教学查房
日语全身各个肌肉的名称
中空门75和80的区别?
乐视积分兑换真的假的
怎样证明人失踪?
18到35岁青年人占全国人口的比例是多少?
顺水逆水问题
爱尚秀婚礼策划机构地址在哪,我要去那里办事
国家电网跨地区怎么 调动
三星9o98高级功能表不好使怎么回事
为什么一到这个界面就闪退
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?