Abs 函数
返回数字表达式的绝对值。
语法:
Abs (Number)
返回值:
双精度型
参数:
Number: 所要返回的绝对值的任意数字表达式。正数(包括 0)的绝对值是它本身,负数的绝对值是将该负数转换成对应的正数。
下面的示例使用 Abs 函数计算两个数值之差。数值的输入顺序不会影响计算结果。
示例:
Sub ExampleDifference
Dim siW1 As Single
Dim siW2 As Single
siW1 = Int(InputBox("请输入第一个数值","数值输入"))
siW2 = Int(InputBox("请输入第二个数值","数值输入"))
Print "The difference is "; Abs(siW1 - siW2)
End Sub