Question

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

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

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

非常感谢～

Answer 1

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

Answer 2

我帮你写一下代码吧！
Private Sub Command1_Click()
Text1.text =Inputbox ("请输入任意一个数字"）
Label2=Abs(Text1.text)
End Sub

Answer 3

label.caption="X的绝对值为：" & abs(Y)

Answer 4

Private Sub Command1_Click()
Label2.Caption = Abs(Val(Text1.Text))
End Sub

Answer 5

啊这，探测小于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