绝对值函数。
公司主营业务:做网站、网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联公司推出青山免费做网站回馈大家。
格式:Abs(;数值表达式)
功能:求表达式绝对值
说明:函数返回值类型与数值表达式的数据类型相同
例如:Abs(-3.7),其值为3.7。
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()是指将()里边的数字字符串转成数值格式~~
C中abs()
abs函数:取括号内的绝对值
basic中也有对应的函数