关于用VB6.0写个小程序计算绝对值~~~跪求高手指点..

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

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

非常感谢~
展开
 我来答
匿名用户
2011-03-19
展开全部
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(text1.text)是把text1里的文字转换成数字
end if
匿名用户
2011-03-19
展开全部
我帮你写一下代码吧!
Private Sub Command1_Click()
Text1.text =Inputbox ("请输入任意一个数字")
Label2=Abs(Text1.text)
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ztw1122
2011-03-20 · TA获得超过1088个赞
知道小有建树答主
回答量:2382
采纳率:80%
帮助的人:944万
展开全部
label.caption="X的绝对值为:" & abs(Y)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
xiaoyuemt
2011-03-19 · TA获得超过1.6万个赞
知道大有可为答主
回答量:3202
采纳率:64%
帮助的人:1671万
展开全部
Private Sub Command1_Click()
Label2.Caption = Abs(Val(Text1.Text))
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
第佛MT
2021-06-27
知道答主
回答量:5
采纳率:0%
帮助的人:2166
展开全部
啊这,探测小于0就加入文本抹个负号返回成变量,abs(number)最快
还有种办法:;
dim aaa as integer
load text1
text1.top=0
text1.left =0
...........txet1....
load command1
command1.top=40
command1.left =40
command1.....
Private sub command1_click()
aaa=text1.text
if isnumeric(a)=false then
beep
else
if aaa >= 0
text1.text = aaa
else
text1.text = 0 -aaa
end if
end if
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式