各位哥哥帮帮忙，分不是问题。

[xxjmz_78]

单精度数如果是0.77777赋给字符型变量时，就变成.77777。怎么保留0。谢谢

[Vinking]

输出的时候加个零

[饮水需思源]

字符型变量=format(单精度值,"######0.000000")

[online]

转成字符串再赋值

[blue_soft]

就是转成string时才会自动把0去掉的。这个不行呀，谢谢

[xxjmz_78]

各位大哥帮帮忙呀

[sxs69]

Private Sub Command4_Click()
Dim s As String
s = Format(0.77777, "0.00000")
Text2 = s
End Sub

[lxcc]

up2u

[bingxuehuiren]

up2u有创的顶法,我跟

[Sean918]

Private Sub Form_Load()
Dim a As Single
a = 0.77777

Dim s As String
s = Format(a, "#0.00000")
MsgBox s
End Sub

[xxjmz_78]

能不能不用format等强加0呀