一次VB计算机作业..
窗体上主要是 Text1 Command1 以及 Label2
大概要求就是 在Text1输入任意一个数字X 然后点击Command1
最后在 Label2中显示 X的绝对值为:Y

第一次接触VB这东西..求各位高手指点帮助...
主要在于怎么在让点击Command1时在 Label2中显示 X的绝对值为:Y
以及以上程序的代码..

非常感谢~

展开全部
收起
4回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 偷生者

    13人对此回答表示赞同

    Private Sub Command1_Click()
    Label2.Caption = Abs(Val(Text1.Text))
    End Sub
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 百越

    8人对此回答表示赞同

    label.caption="X的绝对值为:" & abs(Y)
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 千杯风月醉

    5人对此回答表示赞同

    我帮你写一下代码吧!
    Private Sub Command1_Click()
    Text1.text =Inputbox ("请输入任意一个数字")
    Label2=Abs(Text1.text)
    End Sub
    展开
    5
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 安守本分

    3人对此回答表示赞同

    Label2.Caption = Abs(Val(Text1.Text)) ' val(text1.text)是把text1里的文字转换成数字 ,ABS()是一个取绝对值得函数
    下面是笨办法,但是可以搞懂是怎么回事
    if val(text1.text)>0 then
    label2.caption=text1.text
    else
    label2.caption=0-val(text1.text) ' val(tex
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部