Fix函数的具体用法,急需!~

来源:百度知道 编辑:UC知道 时间:2024/05/08 06:14:28
Prirate sub Form__click( )
Dim R1 as double , Dim R2 as Double
Dim Vol as Doubie
Const PI #=3.1415926
R1=10:R2=20
Vol=4/3*PI*(R1^3-R2^3)
Vol=Fix(Vol*10000+0.5)/10000
Print
Ned sub
求:fix函数的具体用法,为什么要写成Vol=Fix(Vol*10000+0.5)/10000。0.5为什么不写成0.4?

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))

问的问题是在求一个空心球的体积即用料的体积多少的误差控制问题。