Abs 函数

返回数字表达式的绝对值。

语法:


Abs (Number)

返回值:

双精度型

参数:

「数字」: 所要返回的绝对值的任意数字表达式。正数 (包括 0) 的绝对值是它本身，负数的绝对值是将该负数转换成对应的正数。

下面的示例使用 Abs 函数计算两个数值之差。数值的输入顺序不会影响计算结果。

错误代码:

5 无效的过程调用

示例:


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