vb计算机 小数前没有0,这个程序为何算出来不是小数点前的0不见了,就是用什么什么E表示啊,怎么改成显示小数点前的0...

如果是专门显示小数点的话，建议你用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)

就行了。

取消

评论