Question

vb问题小数点前不显示0

Text4.Text = 600 * 0.001显示的不是0.6怎么弄
显示的是“.6”

Answer 1

有个通用的解决办法，如果是小于1则将.换为0.
如果大于1，则不用管

If Text4.Text < 1 Then
strtext = Replace(Text4.Text, ".", "0.")
Else
strtext = CStr(Text4.Text)
End If

Answer 2

Text4.Text = 600 * 0.001
Text4.Text = Format(Text4.Text, ".0")

Answer 3

Text1.Text = Format(600 * 0.001, "0.0")

Answer 4

使用格式化字符串函数解决