如果是专门显示小数点的话,建议你用FormatNumber函数
FormatNumber函数
描述
返回一个数字格式的表达式。
语法
FormatNumber(Expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatNumber函数语法有如下几部分:
部分 描述
Expression 必需的。要被格式化的表达式。
NumDigitsAfterDecimal 可选的。数字值,表示小数点右边的显示位数。缺省值为–1,表示使用计算机的区域设置值。
IncludeLeadingDigit 可选的。三态常数,表示小数点前是否显示零。关于其值,请参阅“设置值”部分。
UseParensForNegativeNumbers 可选的。三态常数,表示是否把负数值放在圆括号内。关于其值,请参阅“设置值”部分。
GroupDigits 可选的。的三态常数,表示是否用组分隔符对数字分组,组分隔符在计算机的区域设置值中指定。关于其值,请参阅“设置值”部分。
设置值
IncludeLeadingDigit、UseParensForNegativeNumbers和GroupDigits参数的设置值如下:
常数 值 描述
TristateTrue –1 True
TristateFalse 0 False
TristateUseDefault –2 用计算机区域设置值中的设置值。
说明
当忽略一个或多个选项参数时,被忽略的参数值由计算机的区域设置值提供。
注意 所有设置值信息都来自“区域设置”的“数字”选项卡。
比如显示10位小数,并显示前导0把第二行的
Text2 = Val(Text1) / 1852改为Text2 = FormatNumber(Val(Text1) / 1852, 10, vbTrue)
就行了。