vb数学函数

1.Abs 函数
 返回数字的绝对值。

Abs(number)
number 参数可以是任意有效的数值表达式。如果 number 包含 Null,则返回 Null;如果是未初始化变量,则返回 0。

说明
数字的绝对值是其无符号的数值大小。例如,Abs(-1) 和 Abs(1) 都返回 1。

下面示例利用 Abs 函数计算数字的绝对值:

Dim MyNumber
MyNumber = Abs(50.3 )      '返回 50.3。
MyNumber = Abs(-50.3)      '返回 50.3。

2.Atn 函数返回数值的反正切值。

Atn(number)
number 参数可以是任意有效的数值表达式。

说明
Atn 函数计算直角三角形两个边的比值 (number) 并返回对应角的弧度值。此比值是该角对边的长度与邻边长度之比。结果的范围是从 -pi/2 到 pi/2 弧度。

弧度变换为角度的方法是将弧度乘以 pi/180。反之,角度变换为弧度的方法是将角度乘以180/pi 。

下面的示例利用 Atn 来计算 pi 的值:

Dim pi
pi = 4 * Atn(1)   ' 计算 pi 的值。
注意   Atn 是 Tan(将角作为参数返回直角三角形两边的比值)的反三角函数。不要混淆 Atn 与余切(正切的倒数 (1/tangent))函数。

3.Cos 函数
返回某个角的余弦值。

Cos(number)
number 参数可以是任何将某个角表示为弧度的有效数值表达式。

说明
Cos 函数取某个角并返回直角三角形两边的比值。此比值是直角三角形中该角的邻边长度与斜边长度之比。结果范围在 -1 到 1 之间。

角度转化成弧度方法是用角度乘以 pi/180。反之,弧度转化成角度的方法是用弧度乘以 180/pi。

下面的示例利用 Cos 函数返回一个角的余弦值:

Dim MyAngle, MySecant
MyAngle = 1.3                ' 用弧度定义一个角。
MySecant = 1 / Cos(MyAngle)  ' 计算正割。

4.Exp 函数
返回 e(自然对数的底)的幂次方。

Exp(number)
number 参数可以是任意有效的数值表达式。

说明
如果 number 参数超过 709.782712893,则出现错误。常数 e 的值约为 2.718282。

注意   Exp 函数完成 Log 函数的反运算,并且有时引用为反对数形式。
下面的示例利用 Exp 函数返回 e 的幂次方:

Dim MyAngle, MyHSin   ' 用弧度定义角。
MyAngle = 1.3   ' 计算双曲线的正弦。
MyHSin = (Exp(MyAngle) - Exp(-1 * MyAngle)) / 2

5.Int、Fix 函数
返回数字的整数部分。

Int(number)
Fix(number)
number 参数可以是任意有效的数值表达式。如果 number 参数包含 Null,则返回 Null。

说明
Int 和 Fix 函数都删除 number 参数的小数部分并返回以整数表示的结果。

Int 和 Fix 函数的区别在于如果 number 参数为负数时,Int 函数返回小于或等于 number 的第一个负整数,而 Fix 函数返回大于或等于 number 参数的第一个负整数。例如,Int 将 -8.4 转换为 -9,而 Fix 函数将 -8.4 转换为 -8。

Fix(number) 等同于:

Sgn(number) * Int(Abs(number))
下面的示例说明 Int 和 Fix 函数如何返回数字的整数部分:

MyNumber = Int(99.8)    ' 返回 99。
MyNumber = Fix(99.2)    ' 返回 99。
MyNumber = Int(-99.8)   ' 返回 -100。
MyNumber = Fix(-99.8)   ' 返回-99。
MyNumber = Int(-99.2)   ' 返回 -100。
MyNumber = Fix(-99.2)   ' 返回 -99。

6.Log 函数
返回数值的自然对数。

Log(number)
number 参数是任意大于 0 的有效数值表达式。

说明
自然对数是以 e 为底的对数。常数 e 的值约为 2.718282。

用 n 的自然对数除 x 的自然对数,可以得到以 n 为底的 x 的对数。如下所示:
Logn(x) = Log(x) / Log(n)以下示例为一个自定义的 Function 过程,该过程计算以 10 为底的对数:

Function Log10(X)
   Log10 = Log(X) / Log(10)
End Function

7.Rnd 函数
返回一个随机数。

Rnd[(number)]
number 参数可以是任意有效的数值表达式。

说明
Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式:

如果 number 为 Rnd 生成
小于零 每次都相同的值,使用 number 作为种子。
大于零 序列中的下一个随机数。
等于零 最近生成的数。
省略 序列中的下一个随机数。

因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子,所以对于任何最初给定的种子都会生成相同的数列。

在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有基于系统计时器的种子。

要产生指定范围的随机整数,请使用以下公式:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里, upperbound 是此范围的上界,而 lowerbound 是此范围内的下界。

注意   要重复随机数的序列,请在使用数值参数调用 Randomize 之前,立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

8.Sgn 函数
返回表示数字符号的整数。

Sgn(number)
number 参数可以是任意有效的数值表达式。

返回值
Sgn 函数有如下返回值:

如果 number 为 Sgn 返回
大于零 1
等于零 0
小于零 -1

说明
number 参数的符号决定 Sgn 函数的返回值。

下面的示例利用 Sgn 函数决定数值的符号:

Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1)   ' 返回 1。
MySign = Sgn(MyVar2)   ' 返回 -1。
MySign = Sgn(MyVar3)   ' 返回 0。

9.Sin 函数返回某个角的正弦值。

Sin(number)
number 参数可以是任何将某个角表示为弧度的有效数值表达式。

说明
Sin 函数取某个角并返回直角三角形两边的比值。此比值是直角三角形中该角的对边长度与斜边长度之比。结果的范围在 -1 到 1 之间。

将角度乘以 pi/180 即可转换为弧度,将弧度乘以 180/pi 即可转换为角度。

下面例子利用 Sin 返回角度的正弦:

Dim MyAngle, MyCosecant
MyAngle = 1.3   ' 用弧度定义角度。
MyCosecant = 1 / Sin(MyAngle)   '计算余割。

10.Sqr 函数
Sqr(number)
number 参数可以是任意有效的大于或等于零的数值表达式。

说明
下面的示例利用 Sqr 函数计算数值的平方根:

Dim MySqr
MySqr = Sqr(4)   ' 返回 2。
MySqr = Sqr(23)   ' 返回4.79583152331272。
MySqr = Sqr(0)   ' 返回0。
MySqr = Sqr(-4)   ' 产生实时错误。

11.Tan 函数
返回某个角的正切值。

Tan(number)
number 参数可以是任何将某个角表示为弧度的有效数值表达式。

说明
Tan 取某个角并返回直角三角形两个直角边的比值。此比值是直角三角形中该角的对边长度与邻边长度之比。

将角度乘以 pi/180 即可转换为弧度,将弧度乘以 180/pi 即可转换为角度。

下面的示例利用 Tan 函数返回角度的正切:

Dim MyAngle, MyCotangent
MyAngle = 1.3   ' 用弧度定义角度。
MyCotangent = 1 / Tan(MyAngle)   ' 计算余切


附:
派生数学函数
下列是由固有数学函数派生的非固有数学函数:

函数 派生的等效公式
Secant(正割) Sec(X) = 1 / Cos(X)
Cosecant(余割) Cosec(X) = 1 / Sin(X)
Cotangent(余切) Cotan(X) = 1 / Tan(X)
Inverse Sine(反正弦) Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine(反余弦) Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant(反正割) Arcsec(X) = Atn(X / Sqr(X * X - 1)) + Sgn((X) -1) * (2 * Atn(1))
Inverse Cosecant(反余割) Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))
Inverse Cotangent(反余切) Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine(双曲正弦) HSin(X) = (Exp(X) - Exp(-X)) / 2 
Hyperbolic Cosine(双曲余弦) HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent(双曲正切) HTan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant(双曲正割) HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant(双曲余割) HCosec(X) = 2 / (Exp(X) - Exp(-X))
Hyperbolic Cotangent(双曲余切) HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))
Inverse Hyperbolic Sine(反双曲正弦) HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine(反双曲余弦) HArccos(X) = Log(X + Sqr(X * X - 1))
Inverse Hyperbolic Tangent(反双曲正切) HArctan(X) = Log((1 + X) / (1 - X)) / 2
Inverse Hyperbolic Secant(反双曲正割) HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant(反双曲余割) HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)
Inverse Hyperbolic Cotangent(反双曲余切) HArccotan(X) = Log((X + 1) / (X - 1)) / 2
以 N 为底的对数 LogN(X) = Log(X) / Log(N)

加支付宝好友偷能量挖...


评论(0)网络
阅读(126)喜欢(0)Asp/VBScript