Question

为什么vb6.0中当小数点前是0时，0显示不出来

Answer 1

可以用Format显示前置0，并显示小数点后3位：

x = 0.78542315674
Print Format(x, "0.000")

显示结果：0.785

追问

有没有办法直接从vb上进行设置

追答

必须用代码

Answer 2

你可以用format定义自己的格式

Answer 3

手动加0
if x>0 then
print x
else
print 0&x
end if

Answer 4

这样可以减少小数点后位数限制，也可以有负数（即完善alsjzhao的答案）

Dim Number As String 

If CDbl(Number) < 1 And CDbl(Number) > -1 And CDbl(Number) <> 0 Then 

Number= "0" & Number

end if