如何在VB中设置精度问题，即是保留小数点后的几位。

方法一：

用Round函数，语法 ：

ROUND(number,num_digits) 

Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。

示例：

'Round(需要修改的数字,小数位数)

Print Round(31415926, 3)

显示：3142

方法二：

用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

语法

Format(expression[,format[,firstdayofweek[,firstweekofyear]]])

Format函数的语法具有下面几个部分：

示例：

'Round(需要修改的数字,小数位数)

Print format (31415926, "#,###")

显示：3142

Round(A,B)，B是可选参数，默认为0，表示保留几位小数，保留规则是4舍6入，5是个特殊位，原则是奇进偶不进，如：Round(015)=02=Round(025)，即如果进位后是奇数，则不进位。如果是偶数则进位。

应该是属于自定义函数，因为在VB中的所有函数中都没有这类型的函数，只有开发者在编程过程中自定义函数。

实例：

Private

Sub

roundit()

‘自定义了一个过程

roundit()

dim

a

dim

b

a=

"早上好"

b="先生"

Print

a

print

b

End

Sub

Private

Sub

Form_Click()

call

roundit()

'

调用自己定义的过程

End

Sub

int 取整数 int（45）=4

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

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

round 是你需要的。round(18523, 0)=18 ,round(18523, 1)=18 5 round(18523, 2)=18 52

format 格式化函数