问题不清楚,你是要求一个数的绝对值还是是“|”这个符号?
成都创新互联长期为近1000家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为靖远企业提供专业的成都做网站、成都网站建设、成都外贸网站建设,靖远网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。
如果是求绝对值,比如x=-30,则y=abs(x),那么y就等于30。
如果是输入“|”这个符号?那么就是 tempstr=“|”。
Dim A(1 To 5) As Integer
Private Sub Command1_Click()
For I = 1 To 5
A(I) = Val(InputBox("请输入第" I "个数(范围-32768~32767):"))
Next
Call examp
End Sub
Sub examp()
For I = 1 To 5
Print A(I) "--" Abs(A(I))
Next
End Sub
楼主,还得再设置一个文本框来显示绝对值吧,假设为text2,图中那两个分别为text1,command1
代码:
private
command1.click()
text2=abs(val(text1))
end
代码就中间一行就行了,abs在vb里边就是取绝对值的意思~~~val()是指将()里边的数字字符串转成数值格式~~
你用的是ABS是吧?
可以用这个,比如你的表达式赋给变量a那就可以这样:
……
if a0 then a=-a
……
绝对值就是正的不变,负的变成正的,那就是说只要处理负数就OK
这样用条件语句就可以无损失的完成