Abs 函数

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

语法:

Abs (Number)

返回值:

双精度型

参数:

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